Changeset 149
- Timestamp:
- Jun 5, 2024, 9:58:43 AM (6 months ago)
- Location:
- trunk
- Files:
-
- 26 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Core.pas
r148 r149 70 70 71 71 uses 72 LazFileUtils, FormMain, 72 LazFileUtils, FormMain, FormEx, 73 73 // Targets 74 74 TargetInterpretter, TargetFPC, TargetJava, TargetDelphi, TargetJavascript, … … 115 115 ApplicationInfo.RegistryKey + '\' + RecentFilesRegKey); 116 116 LoadFromRegistry(Core.ApplicationInfo.GetRegistryContext); 117 118 TFormEx.ScaleDPI := ScaleDPI1; 119 TFormEx.Translator := Translator; 120 TFormEx.ThemeManager := ThemeManager; 121 TFormEx.PersistentForm := PersistentForm1; 117 122 118 123 FormMain := TFormMain.Create(nil); -
trunk/Forms/FormCPU.lfm
r145 r149 8 8 ClientWidth = 621 9 9 DesignTimePPI = 144 10 OnCreate = FormCreate 11 LCLVersion = '2.2.6.0' 10 LCLVersion = '3.4.0.0' 12 11 object Label4: TLabel 13 12 Left = 12 -
trunk/Forms/FormCPU.pas
r145 r149 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 ExtCtrls ;7 ExtCtrls, FormEx; 8 8 9 9 type … … 11 11 { TFormCPU } 12 12 13 TFormCPU = class(TForm )13 TFormCPU = class(TFormEx) 14 14 Label3: TLabel; 15 15 Label4: TLabel; … … 20 20 LabelStepCounter: TLabel; 21 21 LabelStepSpeed: TLabel; 22 procedure FormCreate(Sender: TObject);23 22 public 24 23 LastStepCounter: Integer; … … 42 41 { TFormCPU } 43 42 44 procedure TFormCPU.FormCreate(Sender: TObject);45 begin46 Core.Core.Translator.TranslateComponentRecursive(Self);47 Core.Core.ThemeManager.UseTheme(Self);48 end;49 50 43 procedure TFormCPU.Reload; 51 44 begin -
trunk/Forms/FormCompileMultiple.lfm
r147 r149 8 8 ClientWidth = 973 9 9 DesignTimePPI = 144 10 OnClose = FormClose11 OnCreate = FormCreate12 OnDestroy = FormDestroy13 10 OnShow = FormShow 14 11 LCLVersion = '2.2.6.0' … … 31 28 Anchors = [akTop, akLeft, akRight, akBottom] 32 29 Checkboxes = True 33 Columns = < 30 Columns = < 34 31 item 35 32 Caption = 'Name' 36 33 Width = 200 37 end 34 end 38 35 item 39 36 Caption = 'Result' -
trunk/Forms/FormCompileMultiple.pas
r147 r149 5 5 uses 6 6 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls, 7 Target ;7 Target, FormEx; 8 8 9 9 type … … 11 11 { TFormCompileMultiple } 12 12 13 TFormCompileMultiple = class(TForm )13 TFormCompileMultiple = class(TFormEx) 14 14 ButtonCompile: TButton; 15 15 ButtonCancel: TButton; 16 16 ListViewTargets: TListView; 17 17 procedure ButtonCompileClick(Sender: TObject); 18 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);19 procedure FormCreate(Sender: TObject);20 procedure FormDestroy(Sender: TObject);21 18 procedure FormShow(Sender: TObject); 22 19 private … … 32 29 {$R *.lfm} 33 30 34 uses35 Core;36 37 procedure TFormCompileMultiple.FormCreate(Sender: TObject);38 begin39 Core.Core.Translator.TranslateComponentRecursive(Self);40 Core.Core.ThemeManager.UseTheme(Self);41 end;42 43 procedure TFormCompileMultiple.FormClose(Sender: TObject;44 var CloseAction: TCloseAction);45 begin46 Core.Core.PersistentForm1.Save(Self);47 end;48 49 31 procedure TFormCompileMultiple.ButtonCompileClick(Sender: TObject); 50 32 var … … 56 38 end; 57 39 58 procedure TFormCompileMultiple.FormDestroy(Sender: TObject);59 begin60 end;61 62 40 procedure TFormCompileMultiple.FormShow(Sender: TObject); 63 41 begin 64 Core.Core.PersistentForm1.Load(Self);65 42 ReloadList; 66 43 end; -
trunk/Forms/FormInput.lfm
r147 r149 8 8 ClientWidth = 480 9 9 DesignTimePPI = 144 10 OnCreate = FormCreate 11 LCLVersion = '2.2.6.0' 10 LCLVersion = '3.4.0.0' 12 11 object MemoInput: TMemo 13 12 Left = 6 … … 19 18 Font.Height = -18 20 19 Font.Name = 'Courier New' 21 OnKeyPress = MemoInputKeyPress22 20 ParentFont = False 23 21 ScrollBars = ssAutoBoth 24 22 TabOrder = 0 23 OnKeyPress = MemoInputKeyPress 25 24 end 26 25 object Label1: TLabel -
trunk/Forms/FormInput.pas
r147 r149 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 FormEx; 7 8 8 9 type … … 10 11 { TFormInput } 11 12 12 TFormInput = class(TForm )13 TFormInput = class(TFormEx) 13 14 Label1: TLabel; 14 15 MemoInput: TMemo; 15 procedure FormCreate(Sender: TObject);16 16 procedure MemoInputKeyPress(Sender: TObject; var Key: char); 17 17 end; … … 32 32 end; 33 33 34 procedure TFormInput.FormCreate(Sender: TObject);35 begin36 Core.Core.Translator.TranslateComponentRecursive(Self);37 Core.Core.ThemeManager.UseTheme(Self);38 end;39 40 34 end. 41 35 -
trunk/Forms/FormLog.lfm
r145 r149 8 8 ClientWidth = 960 9 9 DesignTimePPI = 144 10 OnCreate = FormCreate11 10 LCLVersion = '2.0.0.4' 12 11 object Memo1: TMemo -
trunk/Forms/FormLog.pas
r145 r149 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 FormEx; 7 8 8 9 type … … 10 11 { TFormLog } 11 12 12 TFormLog = class(TForm )13 TFormLog = class(TFormEx) 13 14 Memo1: TMemo; 14 procedure FormCreate(Sender: TObject);15 15 end; 16 16 … … 20 20 {$R *.lfm} 21 21 22 uses23 Core;24 25 { TFormLog }26 27 procedure TFormLog.FormCreate(Sender: TObject);28 begin29 Core.Core.Translator.TranslateComponentRecursive(Self);30 Core.Core.ThemeManager.UseTheme(Self);31 end;32 33 22 end. 34 23 -
trunk/Forms/FormMain.pas
r148 r149 6 6 Classes, SysUtils, FileUtil, Forms, Controls, FormCPU, FormInput, 7 7 Graphics, Dialogs, Menus, ActnList, ComCtrls, ExtCtrls, Target, Registry, 8 LazFileUtils, FormOptions, FormMessages, FormTargets, 9 FormOutput, FormMemory, FormSourceCode, FormTargetCode, FormLog, 10 FormCompileMultiple; 8 LazFileUtils, FormOptions, FormMessages, FormTargets, FormCompileMultiple, 9 FormOutput, FormMemory, FormSourceCode, FormTargetCode, FormLog, FormEx; 11 10 12 11 type … … 14 13 { TFormMain } 15 14 16 TFormMain = class(TForm )15 TFormMain = class(TFormEx) 17 16 AProgramCompileMultiple: TAction; 18 17 AViewLog: TAction; … … 212 211 UpdateTargetList; 213 212 DockInit; 214 Core.Core.PersistentForm1.Load(Self, True);215 Core.Core.ThemeManager.UseTheme(Self);216 213 FormSourceCode.UpdateTheme; 217 214 end; … … 374 371 procedure TFormMain.FormCreate(Sender: TObject); 375 372 begin 376 Core.Core.Translator.TranslateComponentRecursive(Self);377 Core.Core.ThemeManager.UseTheme(Self);378 379 373 FormSourceCode := TFormSourceCode.Create(nil); 380 374 FormCPU := TFormCPU.Create(nil); … … 461 455 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction); 462 456 begin 463 Core.Core.PersistentForm1.Save(Self);464 457 Application.Terminate; 465 458 end; -
trunk/Forms/FormMemory.lfm
r145 r149 8 8 ClientWidth = 1039 9 9 DesignTimePPI = 144 10 OnCreate = FormCreate 11 LCLVersion = '2.2.6.0' 10 LCLVersion = '3.4.0.0' 12 11 object Label6: TLabel 13 12 Left = 6 -
trunk/Forms/FormMemory.pas
r147 r149 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 ComCtrls, Math ;7 ComCtrls, Math, FormEx; 8 8 9 9 const … … 14 14 { TFormMemory } 15 15 16 TFormMemory = class(TForm )16 TFormMemory = class(TFormEx) 17 17 Label6: TLabel; 18 18 ListViewMemory: TListView; 19 procedure FormCreate(Sender: TObject);20 19 procedure ListViewMemoryData(Sender: TObject; Item: TListItem); 21 20 public … … 72 71 end; 73 72 74 procedure TFormMemory.FormCreate(Sender: TObject);75 begin76 Core.Core.Translator.TranslateComponentRecursive(Self);77 Core.Core.ThemeManager.UseTheme(Self);78 end;79 80 73 end. 81 74 -
trunk/Forms/FormMessages.lfm
r145 r149 8 8 ClientWidth = 738 9 9 DesignTimePPI = 144 10 OnCreate = FormCreate 11 LCLVersion = '2.2.6.0' 10 LCLVersion = '3.4.0.0' 12 11 object ListView1: TListView 13 12 Left = 0 -
trunk/Forms/FormMessages.pas
r145 r149 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, FormEx, 7 7 ComCtrls; 8 8 … … 11 11 { TFormMessages } 12 12 13 TFormMessages = class(TForm )13 TFormMessages = class(TFormEx) 14 14 ListView1: TListView; 15 procedure FormCreate(Sender: TObject);16 15 procedure ListView1Data(Sender: TObject; Item: TListItem); 17 16 public … … 39 38 end; 40 39 41 procedure TFormMessages.FormCreate(Sender: TObject);42 begin43 Core.Core.Translator.TranslateComponentRecursive(Self);44 Core.Core.ThemeManager.UseTheme(Self);45 end;46 47 40 procedure TFormMessages.Reload; 48 41 begin -
trunk/Forms/FormOptions.lfm
r145 r149 8 8 ClientWidth = 728 9 9 DesignTimePPI = 144 10 OnClose = FormClose11 10 OnCreate = FormCreate 12 OnShow = FormShow13 11 LCLVersion = '2.2.6.0' 14 12 object ButtonOk: TButton -
trunk/Forms/FormOptions.pas
r145 r149 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 Spin, ComCtrls, ExtCtrls, Target, Theme ;7 Spin, ComCtrls, ExtCtrls, Target, Theme, FormEx; 8 8 9 9 type … … 11 11 { TFormOptions } 12 12 13 TFormOptions = class(TForm )13 TFormOptions = class(TFormEx) 14 14 ButtonOk: TButton; 15 15 ButtonCancel: TButton; … … 44 44 procedure CheckBoxOptimizeCopyMultiplyChange(Sender: TObject); 45 45 procedure CheckBoxOptimizeRelativeIndexesChange(Sender: TObject); 46 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);47 46 procedure FormCreate(Sender: TObject); 48 procedure FormShow(Sender: TObject);49 47 public 50 48 procedure UpdateInterface; … … 62 60 63 61 { TFormOptions } 64 65 procedure TFormOptions.FormShow(Sender: TObject);66 begin67 Core.Core.PersistentForm1.Load(Self);68 end;69 62 70 63 procedure TFormOptions.UpdateInterface; … … 154 147 end; 155 148 156 procedure TFormOptions.FormClose(Sender: TObject; var CloseAction: TCloseAction157 );158 begin159 Core.Core.PersistentForm1.Save(Self);160 end;161 162 149 procedure TFormOptions.FormCreate(Sender: TObject); 163 150 begin 164 151 with Core.Core do begin 165 Translator.TranslateComponentRecursive(Self);166 ThemeManager.UseTheme(Self);167 152 ThemeManager.Themes.LoadToStrings(ComboBoxTheme.Items); 168 153 Translator.LanguageListToStrings(ComboBoxLanguage.Items); -
trunk/Forms/FormOutput.lfm
r145 r149 8 8 ClientWidth = 640 9 9 DesignTimePPI = 144 10 OnCreate = FormCreate 11 LCLVersion = '2.2.6.0' 10 LCLVersion = '3.4.0.0' 12 11 object Label2: TLabel 13 12 Left = 4 -
trunk/Forms/FormOutput.pas
r145 r149 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 FormEx; 7 8 8 9 type … … 10 11 { TFormOutput } 11 12 12 TFormOutput = class(TForm )13 TFormOutput = class(TFormEx) 13 14 Label2: TLabel; 14 15 MemoOutput: TMemo; 15 procedure FormCreate(Sender: TObject);16 16 public 17 17 procedure Reload; … … 27 27 28 28 { TFormOutput } 29 30 procedure TFormOutput.FormCreate(Sender: TObject);31 begin32 Core.Core.Translator.TranslateComponentRecursive(Self);33 Core.Core.ThemeManager.UseTheme(Self);34 end;35 29 36 30 procedure TFormOutput.Reload; -
trunk/Forms/FormSourceCode.lfm
r145 r149 10 10 OnCreate = FormCreate 11 11 OnDestroy = FormDestroy 12 LCLVersion = ' 2.2.6.0'12 LCLVersion = '3.4.0.0' 13 13 inline SynEditSource: TSynEdit 14 14 Left = 0 … … 25 25 PopupMenu = PopupMenuSource 26 26 TabOrder = 0 27 OnKeyDown = MemoSourceKeyDown28 OnKeyPress = MemoSourceKeyPress29 27 OnKeyUp = MemoSourceKeyUp 30 28 OnMouseDown = MemoSourceMouseDown -
trunk/Forms/FormSourceCode.pas
r147 r149 5 5 uses 6 6 Classes, SysUtils, FileUtil, SynEdit, SynHighlighterIni, Forms, Controls, 7 Graphics, Dialogs, Menus, ActnList, 7 Graphics, Dialogs, Menus, ActnList, FormEx, 8 8 SynEditHighlighter, SynHighlighterAny, SynHighlighterJava, BFHighlighter; 9 9 … … 12 12 { TFormSourceCode } 13 13 14 TFormSourceCode = class(TForm )14 TFormSourceCode = class(TFormEx) 15 15 AGenerateText: TAction; 16 16 ACutToClipboard: TAction; … … 51 51 procedure FormDestroy(Sender: TObject); 52 52 procedure MemoSourceChange(Sender: TObject); 53 procedure MemoSourceKeyDown(Sender: TObject; var Key: Word;54 Shift: TShiftState);55 procedure MemoSourceKeyPress(Sender: TObject; var Key: char);56 53 procedure MemoSourceKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState 57 54 ); … … 63 60 FOnUpdateStatusBar: TNotifyEvent; 64 61 public 65 procedure UpdateInterface;66 62 procedure UpdateTheme; 67 63 property OnUpdateStatusBar: TNotifyEvent read FOnUpdateStatusBar … … 145 141 procedure TFormSourceCode.FormCreate(Sender: TObject); 146 142 begin 147 Core.Core.Translator.TranslateComponentRecursive(Self);148 Core.Core.ThemeManager.UseTheme(Self);149 150 143 BFHighlighter := TSynBrainFuckHl.Create(nil); 151 144 SynEditSource.Highlighter := BFHighlighter; … … 156 149 SynEditSource.Highlighter := nil; 157 150 FreeAndNil(BFHighlighter); 158 end;159 160 procedure TFormSourceCode.UpdateInterface;161 begin162 151 end; 163 152 … … 189 178 end; 190 179 191 procedure TFormSourceCode.MemoSourceKeyDown(Sender: TObject; var Key: Word;192 Shift: TShiftState);193 begin194 end;195 196 procedure TFormSourceCode.MemoSourceKeyPress(Sender: TObject; var Key: char);197 begin198 end;199 200 180 procedure TFormSourceCode.MemoSourceKeyUp(Sender: TObject; var Key: Word; 201 181 Shift: TShiftState); -
trunk/Forms/FormTargetCode.lfm
r145 r149 8 8 ClientWidth = 734 9 9 DesignTimePPI = 144 10 OnCreate = FormCreate 11 LCLVersion = '2.2.6.0' 10 LCLVersion = '3.4.0.0' 12 11 inline SynEditTarget: TSynEdit 13 12 Left = 0 -
trunk/Forms/FormTargetCode.pas
r145 r149 5 5 uses 6 6 Classes, SysUtils, FileUtil, SynEdit, SynHighlighterAny, SynHighlighterPas, 7 SynHighlighterCpp, SynHighlighterPHP, SynHighlighterJava, 7 SynHighlighterCpp, SynHighlighterPHP, SynHighlighterJava, FormEx, 8 8 SynHighlighterPython, SynHighlighterJScript, Forms, Controls, Graphics, 9 9 Dialogs, Menus, ActnList, strutils; … … 13 13 { TFormTargetCode } 14 14 15 TFormTargetCode = class(TForm )15 TFormTargetCode = class(TFormEx) 16 16 AShrinkCode: TAction; 17 17 AFormatCode: TAction; … … 23 23 procedure AFormatCodeExecute(Sender: TObject); 24 24 procedure AShrinkCodeExecute(Sender: TObject); 25 procedure FormCreate(Sender: TObject);26 25 public 27 26 procedure SetHighlighter(SourceExt: string); … … 32 31 33 32 {$R *.lfm} 34 35 uses36 Core;37 33 38 34 { TFormTargetCode } … … 84 80 end; 85 81 86 procedure TFormTargetCode.FormCreate(Sender: TObject);87 begin88 Core.Core.Translator.TranslateComponentRecursive(Self);89 Core.Core.ThemeManager.UseTheme(Self);90 end;91 92 82 procedure TFormTargetCode.SetHighlighter(SourceExt: string); 93 83 begin -
trunk/Forms/FormTargetOptions.lfm
r145 r149 8 8 ClientWidth = 586 9 9 DesignTimePPI = 144 10 OnClose = FormClose11 OnCreate = FormCreate12 OnShow = FormShow13 10 LCLVersion = '2.0.10.0' 14 11 object Edit1: TEdit -
trunk/Forms/FormTargetOptions.pas
r145 r149 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 Target ;7 Target, FormEx; 8 8 9 9 type … … 11 11 { TFormTargetOptions } 12 12 13 TFormTargetOptions = class(TForm )13 TFormTargetOptions = class(TFormEx) 14 14 ButtonOk: TButton; 15 15 ButtonCancel: TButton; … … 23 23 procedure ButtonCompilerClick(Sender: TObject); 24 24 procedure ButtonExecuteClick(Sender: TObject); 25 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);26 procedure FormCreate(Sender: TObject);27 procedure FormShow(Sender: TObject);28 25 public 29 26 procedure LoadControls(Target: TTarget); … … 35 32 36 33 {$R *.lfm} 37 38 uses39 Core;40 34 41 35 { TFormTargetOptions } … … 51 45 OpenDialog1.FileName := Edit2.Text; 52 46 if OpenDialog1.Execute then Edit2.Text := OpenDialog1.FileName; 53 end;54 55 procedure TFormTargetOptions.FormClose(Sender: TObject;56 var CloseAction: TCloseAction);57 begin58 Core.Core.PersistentForm1.Save(Self);59 end;60 61 procedure TFormTargetOptions.FormCreate(Sender: TObject);62 begin63 Core.Core.Translator.TranslateComponentRecursive(Self);64 Core.Core.ThemeManager.UseTheme(Self);65 end;66 67 procedure TFormTargetOptions.FormShow(Sender: TObject);68 begin69 Core.Core.PersistentForm1.Load(Self);70 47 end; 71 48 -
trunk/Forms/FormTargets.lfm
r145 r149 8 8 ClientWidth = 689 9 9 DesignTimePPI = 144 10 OnClose = FormClose11 OnCreate = FormCreate12 10 OnShow = FormShow 13 LCLVersion = ' 2.2.6.0'11 LCLVersion = '3.4.0.0' 14 12 object ListView1: TListView 15 13 Left = 10 -
trunk/Forms/FormTargets.pas
r145 r149 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls; 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 7 FormEx; 7 8 8 9 type … … 10 11 { TFormTargets } 11 12 12 TFormTargets = class(TForm )13 TFormTargets = class(TFormEx) 13 14 ListView1: TListView; 14 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);15 procedure FormCreate(Sender: TObject);16 15 procedure FormShow(Sender: TObject); 17 16 procedure ListView1Data(Sender: TObject; Item: TListItem); … … 34 33 procedure TFormTargets.FormShow(Sender: TObject); 35 34 begin 36 Core.Core.PersistentForm1.Load(Self);37 35 ReloadList; 38 end;39 40 procedure TFormTargets.FormCreate(Sender: TObject);41 begin42 Core.Core.Translator.TranslateComponentRecursive(Self);43 Core.Core.ThemeManager.UseTheme(Self);44 end;45 46 procedure TFormTargets.FormClose(Sender: TObject; var CloseAction: TCloseAction47 );48 begin49 Core.Core.PersistentForm1.Save(Self);50 36 end; 51 37
Note:
See TracChangeset
for help on using the changeset viewer.