Changeset 4 for trunk


Ignore:
Timestamp:
May 31, 2024, 11:03:54 PM (6 months ago)
Author:
chronos
Message:
Location:
trunk
Files:
2 edited
2 moved

Legend:

Unmodified
Added
Removed

  • trunk/DirtyCppToPascal.lpi

    r2 r4  
    22<CONFIG>
    33  <ProjectOptions>
    4     <Version Value="11"/>
     4    <Version Value="12"/>
    55    <General>
     6      <Flags>
     7        <CompatibilityMode Value="True"/>
     8      </Flags>
    69      <SessionStorage Value="InProjectDir"/>
    7       <MainUnit Value="0"/>
    810      <Title Value="DirtyCppToPascal"/>
    911      <Scaled Value="True"/>
    … …  
    2426    <RunParams>
    2527      <FormatVersion Value="2"/>
    26       <Modes Count="0"/>
    2728    </RunParams>
    2829    <RequiredPackages Count="1">
    … …  
    3738      </Unit0>
    3839      <Unit1>
    39         <Filename Value="UFormMain.pas"/>
     40        <Filename Value="FormMain.pas"/>
    4041        <IsPartOfProject Value="True"/>
    4142        <ComponentName Value="FormMain"/>
    … …  
    5455      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    5556    </SearchPaths>
     57    <Parsing>
     58      <SyntaxOptions>
     59        <SyntaxMode Value="Delphi"/>
     60      </SyntaxOptions>
     61    </Parsing>
    5662    <Linking>
     63      <Debugging>
     64        <DebugInfoType Value="dsDwarf3"/>
     65      </Debugging>
    5766      <Options>
    5867        <Win32>

  • trunk/DirtyCppToPascal.lpr

    r2 r4  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UFormMain
     10  Forms, FormMain
    1111  { you can add units after this };
    1212
    … …  
    1515begin
    1616  RequireDerivedFormResource := True;
    17   Application.Scaled := True;
     17  Application.Scaled:=True;
    1818  Application.Initialize;
    19   Application.CreateForm(TFormMain, FormMain);
     19  Application.CreateForm(TFormMain, FormMain.FormMain);
    2020  Application.Run;
    2121end.

  • trunk/FormMain.lfm

    r3 r4  
    1616    Anchors = [akTop, akLeft, akRight]
    1717    TabOrder = 0
    18     Text = '/home/chronos/Projekty/DirtyCppToPascal/trunk/CapitalAI'
     18    Text = ''
    1919  end
    2020  object ButtonBrowse: TButton

  • trunk/FormMain.pas

    r3 r4  
    1 unit UFormMain;
    2 
    3 {$mode delphi}{$H+}
     1unit FormMain;
    42
    53interface
    … …  
    5048var
    5149  FormMain: TFormMain;
     50
    5251
    5352implementation
Note: See TracChangeset for help on using the changeset viewer.