- Timestamp:
- Jun 24, 2023, 1:20:22 AM (17 months ago)
- Location:
- branches/xpascal
- Files:
-
- 78 added
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/xpascal/Forms/FormMain.lfm
r224 r227 49 49 end 50 50 object MainMenu1: TMainMenu 51 Left = 7 6051 Left = 744 52 52 Top = 760 53 53 object MenuItemFile: TMenuItem … … 79 79 object MenuItem5: TMenuItem 80 80 Action = ACompile 81 end 82 end 83 object MenuItem8: TMenuItem 84 Caption = 'Tools' 85 object MenuItem9: TMenuItem 86 Action = ATest 81 87 end 82 88 end … … 115 121 OnExecute = AGenerateXmlExecute 116 122 end 123 object ATest: TAction 124 Caption = 'Test' 125 OnExecute = ATestExecute 126 end 117 127 end 118 128 end -
branches/xpascal/Forms/FormMain.pas
r225 r227 14 14 TFormMain = class(TForm) 15 15 ACompile: TAction; 16 ATest: TAction; 16 17 AGenerateXml: TAction; 17 18 AExit: TAction; … … 29 30 MenuItem6: TMenuItem; 30 31 MenuItem7: TMenuItem; 32 MenuItem8: TMenuItem; 33 MenuItem9: TMenuItem; 31 34 MenuItemRun: TMenuItem; 32 35 MenuItemGenerate: TMenuItem; … … 42 45 procedure AGeneratePhpExecute(Sender: TObject); 43 46 procedure AGenerateXmlExecute(Sender: TObject); 47 procedure ATestExecute(Sender: TObject); 44 48 procedure FormCreate(Sender: TObject); 45 49 procedure Optimize(Features: TOptimizeFeatures); … … 71 75 72 76 uses 73 Parser, Executor, GeneratorPascal, GeneratorPhp, 77 Parser, Executor, GeneratorPascal, GeneratorPhp, FormTests, 74 78 GeneratorCSharp, GeneratorXml, ParserPascal; 75 79 … … 94 98 FreeAndNil(FormSource); 95 99 FreeAndNil(FormMessages); 100 FreeAndNil(FormOutput); 96 101 end; 97 102 … … 194 199 end; 195 200 201 procedure TFormMain.ATestExecute(Sender: TObject); 202 begin 203 with TFormTests.Create(nil) do 204 try 205 ShowModal; 206 finally 207 Free; 208 end; 209 end; 210 196 211 procedure TFormMain.FormCreate(Sender: TObject); 197 212 begin -
branches/xpascal/Forms/FormMessages.lfm
r224 r227 8 8 ClientWidth = 521 9 9 DesignTimePPI = 144 10 LCLVersion = '2. 0.2.0'10 LCLVersion = '2.2.6.0' 11 11 object Label1: TLabel 12 12 Left = 8 -
branches/xpascal/Forms/FormMessages.pas
r224 r227 4 4 5 5 uses 6 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls ;6 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, FormEx; 7 7 8 8 type … … 10 10 { TFormMessages } 11 11 12 TFormMessages = class(TForm )12 TFormMessages = class(TFormEx) 13 13 Label1: TLabel; 14 14 MemoLog: TMemo; -
branches/xpascal/Forms/FormOutput.lfm
r224 r227 8 8 ClientWidth = 932 9 9 DesignTimePPI = 144 10 LCLVersion = '2. 0.2.0'10 LCLVersion = '2.2.6.0' 11 11 inline SynEditOutput: TSynEdit 12 12 Left = 11 … … 512 512 Height = 26 513 513 Top = 8 514 Width = 6 6514 Width = 64 515 515 Caption = 'Output:' 516 516 ParentColor = False … … 520 520 CompilerMode = pcmDelphi 521 521 NestedComments = False 522 left = 304 523 top = 219 522 TypeHelpers = True 523 Left = 304 524 Top = 219 524 525 end 525 526 object SynCppSyn1: TSynCppSyn 526 527 DefaultFilter = 'Soubory C++ (*.c,*.cpp,*.h,*.hpp,*.hh)|*.c;*.cpp;*.h;*.hpp;*.hh' 527 528 Enabled = False 528 left = 325529 top = 136529 Left = 325 530 Top = 136 530 531 end 531 532 object SynXMLSyn1: TSynXMLSyn … … 533 534 Enabled = False 534 535 WantBracesParsed = False 535 left = 213536 top = 100536 Left = 213 537 Top = 100 537 538 end 538 539 object SynPHPSyn1: TSynPHPSyn 539 540 DefaultFilter = 'Soubory PHP (*.php,*.php3,*.phtml,*.inc)|*.php;*.php3;*.phtml;*.inc' 540 541 Enabled = False 541 left = 359542 top = 75542 Left = 359 543 Top = 75 543 544 end 544 545 end -
branches/xpascal/Forms/FormOutput.pas
r224 r227 6 6 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, SynEdit, 7 7 SynHighlighterAny, SynHighlighterPas, SynHighlighterCpp, SynHighlighterXML, 8 SynHighlighterPHP ;8 SynHighlighterPHP, FormEx; 9 9 10 10 type … … 12 12 { TFormOutput } 13 13 14 TFormOutput = class(TForm )14 TFormOutput = class(TFormEx) 15 15 Label1: TLabel; 16 16 SynCppSyn1: TSynCppSyn; -
branches/xpascal/Forms/FormSource.lfm
r224 r227 8 8 ClientWidth = 1176 9 9 DesignTimePPI = 144 10 LCLVersion = '2. 0.2.0'10 LCLVersion = '2.2.6.0' 11 11 inline SynEditSource: TSynEdit 12 12 Left = 12 … … 521 521 CompilerMode = pcmObjFPC 522 522 NestedComments = True 523 left = 616 524 top = 184 523 TypeHelpers = False 524 Left = 616 525 Top = 184 525 526 end 526 527 end -
branches/xpascal/Forms/FormSource.pas
r224 r227 5 5 uses 6 6 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 SynHighlighterPas, SynEdit ;7 SynHighlighterPas, SynEdit, FormEx; 8 8 9 9 type … … 11 11 { TFormSource } 12 12 13 TFormSource = class(TForm )13 TFormSource = class(TFormEx) 14 14 Label1: TLabel; 15 15 SynEditSource: TSynEdit; -
branches/xpascal/xpascal.lpi
r225 r227 17 17 <Icon Value="0"/> 18 18 </General> 19 <i18n> 20 <EnableI18N Value="True"/> 21 <OutDir Value="Languages"/> 22 </i18n> 19 23 <BuildModes Count="2"> 20 24 <Item1 Name="Debug" Default="True"/> … … 65 69 <FormatVersion Value="2"/> 66 70 </RunParams> 67 <RequiredPackages Count=" 2">71 <RequiredPackages Count="3"> 68 72 <Item1> 69 <PackageName Value="SynEdit"/> 73 <PackageName Value="Common"/> 74 <DefaultFilename Value="Packages/Common/Common.lpk" Prefer="True"/> 70 75 </Item1> 71 76 <Item2> 77 <PackageName Value="SynEdit"/> 78 </Item2> 79 <Item3> 72 80 <PackageName Value="LCL"/> 73 </Item 2>81 </Item3> 74 82 </RequiredPackages> 75 <Units Count="1 7">83 <Units Count="19"> 76 84 <Unit0> 77 85 <Filename Value="xpascal.lpr"/> … … 154 162 <IsPartOfProject Value="True"/> 155 163 </Unit16> 164 <Unit17> 165 <Filename Value="Forms/FormTests.pas"/> 166 <IsPartOfProject Value="True"/> 167 <ComponentName Value="FormTests"/> 168 <HasResources Value="True"/> 169 <ResourceBaseClass Value="Form"/> 170 </Unit17> 171 <Unit18> 172 <Filename Value="Forms/FormTest.pas"/> 173 <IsPartOfProject Value="True"/> 174 <ComponentName Value="FormTestCase"/> 175 <HasResources Value="True"/> 176 <ResourceBaseClass Value="Form"/> 177 </Unit18> 156 178 </Units> 157 179 </ProjectOptions> -
branches/xpascal/xpascal.lpr
r225 r227 8 8 {$ENDIF}{$ENDIF} 9 9 Interfaces, SysUtils, // this includes the LCL widgetset 10 Forms, Parser, Tokenizer, Source, Executor, Interpreter, 11 Generator, FormMessages, 12 FormSource, Optimizer, FormOutput, FormMain, ParserPascal 13 { you can add units after this }; 10 Forms, Parser, Tokenizer, Source, Executor, Interpreter, Generator, 11 FormMessages, FormSource, Optimizer, FormOutput, FormMain, 12 FormTests, FormTest, ParserPascal; 14 13 15 14 {$R *.res}
Note:
See TracChangeset
for help on using the changeset viewer.