Changeset 135
- Timestamp:
- Mar 5, 2022, 9:44:18 AM (3 years ago)
- Location:
- trunk
- Files:
-
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormOptions.lfm
r128 r135 1 1 object FormOptions: TFormOptions 2 2 Left = 401 3 Height = 4 273 Height = 445 4 4 Top = 236 5 Width = 7 285 Width = 758 6 6 Caption = 'Options' 7 ClientHeight = 4 278 ClientWidth = 7 289 DesignTimePPI = 1 447 ClientHeight = 445 8 ClientWidth = 758 9 DesignTimePPI = 150 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate … … 13 13 LCLVersion = '2.2.0.4' 14 14 object ButtonOk: TButton 15 Left = 6 3116 Height = 3 017 Top = 38918 Width = 9 015 Left = 657 16 Height = 31 17 Top = 406 18 Width = 94 19 19 Anchors = [akRight, akBottom] 20 20 Caption = 'Ok' … … 24 24 end 25 25 object ButtonCancel: TButton 26 Left = 5 1627 Height = 3 028 Top = 38929 Width = 9 026 Left = 537 27 Height = 31 28 Top = 406 29 Width = 94 30 30 Anchors = [akRight, akBottom] 31 31 Caption = 'Cancel' … … 36 36 object PageControl1: TPageControl 37 37 Left = 10 38 Height = 3 7138 Height = 387 39 39 Top = 10 40 Width = 7 1141 ActivePage = TabSheet General40 Width = 741 41 ActivePage = TabSheetBuild 42 42 Anchors = [akTop, akLeft, akRight, akBottom] 43 43 ParentFont = False 44 TabIndex = 044 TabIndex = 1 45 45 TabOrder = 2 46 46 object TabSheetGeneral: TTabSheet 47 47 Caption = 'General' 48 ClientHeight = 3 3149 ClientWidth = 7 0148 ClientHeight = 346 49 ClientWidth = 731 50 50 ParentFont = False 51 51 object Panel1: TPanel 52 52 Left = 0 53 Height = 3 3153 Height = 346 54 54 Top = 0 55 Width = 7 0155 Width = 731 56 56 Align = alClient 57 57 BevelOuter = bvNone 58 ClientHeight = 3 3159 ClientWidth = 7 0158 ClientHeight = 346 59 ClientWidth = 731 60 60 ParentFont = False 61 61 TabOrder = 0 62 62 object Label3: TLabel 63 63 Left = 10 64 Height = 2 665 Top = 5866 Width = 1 6464 Height = 27 65 Top = 60 66 Width = 177 67 67 Caption = 'Interface language:' 68 68 ParentFont = False 69 69 end 70 70 object ComboBoxLanguage: TComboBox 71 Left = 3 0772 Height = 4 173 Top = 5874 Width = 2 2671 Left = 320 72 Height = 42 73 Top = 60 74 Width = 235 75 75 ItemHeight = 0 76 76 ParentFont = False … … 80 80 object CheckBoxReopenLastFile: TCheckBox 81 81 Left = 10 82 Height = 3 283 Top = 10 284 Width = 1 26082 Height = 33 83 Top = 106 84 Width = 1314 85 85 Anchors = [akTop, akLeft, akRight] 86 86 AutoSize = False … … 91 91 object CheckBoxDPIAuto: TCheckBox 92 92 Left = 10 93 Height = 3 294 Top = 15 095 Width = 1 25093 Height = 33 94 Top = 156 95 Width = 1303 96 96 Anchors = [akTop, akLeft, akRight] 97 97 AutoSize = False … … 102 102 end 103 103 object LabelDPI: TLabel 104 Left = 3 6105 Height = 2 6106 Top = 192107 Width = 3 5104 Left = 38 105 Height = 27 106 Top = 200 107 Width = 36 108 108 Caption = 'DPI:' 109 109 ParentFont = False 110 110 end 111 111 object SpinEditDPIX: TSpinEdit 112 Left = 1 34113 Height = 4 2114 Top = 19 0115 Width = 96112 Left = 140 113 Height = 43 114 Top = 198 115 Width = 100 116 116 MaxValue = 1000 117 117 MinValue = 1 … … 121 121 end 122 122 object SpinEditDPIY: TSpinEdit 123 Left = 2 59124 Height = 4 2125 Top = 192126 Width = 96123 Left = 270 124 Height = 43 125 Top = 200 126 Width = 100 127 127 MaxValue = 1000 128 128 MinValue = 1 … … 132 132 end 133 133 object LabelX: TLabel 134 Left = 2 40135 Height = 2 6136 Top = 192134 Left = 250 135 Height = 27 136 Top = 200 137 137 Width = 10 138 138 Caption = 'x' … … 141 141 object LabelTheme: TLabel 142 142 Left = 10 143 Height = 2 6144 Top = 19145 Width = 6 3143 Height = 27 144 Top = 20 145 Width = 67 146 146 Caption = 'Theme:' 147 147 ParentFont = False 148 148 end 149 149 object ComboBoxTheme: TComboBox 150 Left = 3 07151 Height = 4 1150 Left = 320 151 Height = 42 152 152 Top = 10 153 Width = 2 26153 Width = 235 154 154 ItemHeight = 0 155 155 ParentFont = False … … 161 161 object TabSheetBuild: TTabSheet 162 162 Caption = 'Build' 163 ClientHeight = 3 31164 ClientWidth = 7 01163 ClientHeight = 346 164 ClientWidth = 731 165 165 ParentFont = False 166 166 object Panel2: TPanel 167 167 Left = 0 168 Height = 3 31168 Height = 346 169 169 Top = 0 170 Width = 7 01170 Width = 731 171 171 Align = alClient 172 172 BevelOuter = bvNone 173 ClientHeight = 3 31174 ClientWidth = 7 01173 ClientHeight = 346 174 ClientWidth = 731 175 175 ParentFont = False 176 176 TabOrder = 0 177 177 object Label4: TLabel 178 178 Left = 10 179 Height = 26 179 Height = 27 180 Top = 130 181 Width = 214 182 Caption = 'Compiler optimizations:' 183 ParentFont = False 184 end 185 object ComboBoxOptimization: TComboBox 186 Left = 310 187 Height = 39 180 188 Top = 125 181 Width = 202 182 Caption = 'Compiler optimizations:' 183 ParentFont = False 184 end 185 object ComboBoxOptimization: TComboBox 186 Left = 298 187 Height = 38 188 Top = 120 189 Width = 226 189 Width = 235 190 190 ItemHeight = 0 191 191 Items.Strings = ( … … 199 199 end 200 200 object CheckBoxOptimizeAddSub: TCheckBox 201 Left = 3 7202 Height = 3 0203 Top = 1 63204 Width = 2 36201 Left = 39 202 Height = 31 203 Top = 170 204 Width = 249 205 205 Caption = 'Addition and subtraction' 206 206 ParentFont = False … … 208 208 end 209 209 object CheckBoxOptimizeMerge: TCheckBox 210 Left = 3 7211 Height = 3 0212 Top = 2 24213 Width = 2 27210 Left = 39 211 Height = 31 212 Top = 233 213 Width = 240 214 214 Caption = 'Merge same operations' 215 215 ParentFont = False … … 217 217 end 218 218 object CheckBoxOptimizeCopyMultiply: TCheckBox 219 Left = 3 7220 Height = 3 0221 Top = 2 82222 Width = 14 2219 Left = 39 220 Height = 31 221 Top = 294 222 Width = 149 223 223 Caption = 'Copy multiply' 224 224 OnChange = CheckBoxOptimizeCopyMultiplyChange … … 227 227 end 228 228 object CheckBoxOptimizeRelativeIndexes: TCheckBox 229 Left = 3 7230 Height = 3 0231 Top = 2 53232 Width = 1 62229 Left = 39 230 Height = 31 231 Top = 264 232 Width = 172 233 233 Caption = 'Relative indexes' 234 234 OnChange = CheckBoxOptimizeRelativeIndexesChange … … 238 238 object Label2: TLabel 239 239 Left = 10 240 Height = 2 6241 Top = 6 4242 Width = 7 3240 Height = 27 241 Top = 67 242 Width = 77 243 243 Caption = 'Cell size:' 244 244 ParentFont = False … … 246 246 object Label1: TLabel 247 247 Left = 10 248 Height = 2 6249 Top = 1 6250 Width = 11 2248 Height = 27 249 Top = 17 250 Width = 119 251 251 Caption = 'Memory size:' 252 252 ParentFont = False 253 253 end 254 254 object SpinEditMemorySize: TSpinEdit 255 Left = 198256 Height = 4 2255 Left = 206 256 Height = 43 257 257 Top = 7 258 Width = 1 56258 Width = 162 259 259 MaxValue = 2000000000 260 260 ParentFont = False … … 262 262 end 263 263 object SpinEditCellSize: TSpinEdit 264 Left = 198265 Height = 4 2266 Top = 5 6267 Width = 1 56264 Left = 206 265 Height = 43 266 Top = 58 267 Width = 162 268 268 MaxValue = 2000000000 269 269 ParentFont = False … … 271 271 end 272 272 object CheckBoxOptimizeSetZero: TCheckBox 273 Left = 3 7274 Height = 3 0275 Top = 192276 Width = 9 3273 Left = 39 274 Height = 31 275 Top = 200 276 Width = 97 277 277 Caption = 'Set zero' 278 278 ParentFont = False … … 280 280 end 281 281 object CheckBoxDebugEnabled: TCheckBox 282 Left = 392283 Height = 3 0282 Left = 408 283 Height = 31 284 284 Top = 12 285 Width = 12 0285 Width = 128 286 286 Caption = 'Debugging' 287 287 ParentFont = False -
trunk/Forms/UFormOptions.pas
r128 r135 168 168 Core.ThemeManager.Themes.LoadToStrings(ComboBoxTheme.Items); 169 169 Core.Translator.LanguageListToStrings(ComboBoxLanguage.Items); 170 ComboBoxOptimization.Items.Clear; 171 ComboBoxOptimization.Items.Add(CompilerOptimizationText[coNone]); 172 ComboBoxOptimization.Items.Add(CompilerOptimizationText[coNormal]); 170 173 end; 171 174 -
trunk/Languages/LazFuck.cs.po
r134 r135 590 590 msgstr "Nenalezen pÅekladaÄ \"%s\"" 591 591 592 #: utarget.scompiling 593 msgid "Compiling" 594 msgstr "PÅekládánÃ" 595 592 596 #: utarget.sexecutornotfound 593 597 #, object-pascal-format … … 595 599 msgstr "SpouÅ¡tÄÄ \"%s\" nenalezen" 596 600 601 #: utarget.snone 602 msgid "None" 603 msgstr "Ŝádné" 604 605 #: utarget.snormal 606 msgid "Normal" 607 msgstr "ObyÄejné" 608 609 #: utarget.spaused 610 msgid "Paused" 611 msgstr "Zastaveno" 612 613 #: utarget.srunning 614 msgid "Running" 615 msgstr "BÄÅŸÃcÃ" 616 617 #: utarget.sstopped 618 msgid "Stopped" 619 msgstr "Zastaveno" 620 597 621 #: utargetinterpretter.sjumptablecollision 598 622 msgid "Jump table collision" -
trunk/Languages/LazFuck.pot
r134 r135 580 580 msgstr "" 581 581 582 #: utarget.scompiling 583 msgid "Compiling" 584 msgstr "" 585 582 586 #: utarget.sexecutornotfound 583 587 #, object-pascal-format … … 585 589 msgstr "" 586 590 591 #: utarget.snone 592 msgid "None" 593 msgstr "" 594 595 #: utarget.snormal 596 msgid "Normal" 597 msgstr "" 598 599 #: utarget.spaused 600 msgid "Paused" 601 msgstr "" 602 603 #: utarget.srunning 604 msgid "Running" 605 msgstr "" 606 607 #: utarget.sstopped 608 msgid "Stopped" 609 msgstr "" 610 587 611 #: utargetinterpretter.sjumptablecollision 588 612 msgid "Jump table collision" -
trunk/Target/UTargetC.pas
r133 r135 109 109 begin 110 110 CompiledFile := ExtractFilePath(ProjectFileName) + 111 'compiled'+ DirectorySeparator + Name + DirectorySeparator +111 CompiledDir + DirectorySeparator + Name + DirectorySeparator + 112 112 ExtractFileNameOnly(ProjectFileName) + SourceExtension; 113 113 ForceDirectoriesUTF8(ExtractFilePath(CompiledFile)); -
trunk/Target/UTargetJavascript.pas
r133 r135 101 101 '</html>'; 102 102 HtmlFile := ExtractFilePath(ProjectFileName) + 103 'compiled'+ DirectorySeparator + Name + DirectorySeparator +103 CompiledDir + DirectorySeparator + Name + DirectorySeparator + 104 104 ExtractFileNameOnly(ProjectFileName) + '.html'; 105 105 ForceDirectories(ExtractFilePath(HtmlFile)); … … 116 116 inherited; 117 117 HtmlFile := ExtractFilePath(ProjectFileName) + 118 'compiled'+ DirectorySeparator + Name + DirectorySeparator +118 CompiledDir + DirectorySeparator + Name + DirectorySeparator + 119 119 ExtractFileNameOnly(ProjectFileName) + '.html'; 120 120 -
trunk/UCore.lfm
r133 r135 546 546 object Translator: TTranslator 547 547 POFilesFolder = 'Languages' 548 OnTranslate = TranslatorTranslate 548 549 Left = 113 549 550 Top = 113 -
trunk/UCore.pas
r133 r135 25 25 procedure DataModuleCreate(Sender: TObject); 26 26 procedure DataModuleDestroy(Sender: TObject); 27 procedure TranslatorTranslate(Sender: TObject); 27 28 private 28 29 FCurrentTarget: TTarget; … … 102 103 end; 103 104 105 procedure TCore.TranslatorTranslate(Sender: TObject); 106 begin 107 UTarget.UpdateTranslation; 108 end; 109 104 110 procedure TCore.InitTargets; 105 111 var -
trunk/UProject.pas
r68 r135 6 6 7 7 uses 8 Classes, SysUtils ;8 Classes, SysUtils, fgl; 9 9 10 10 type 11 TProjectItem = class 12 Name: string; 13 end; 14 15 TProjectItems = class(TFPGObjectList<TProjectItem>) 16 end; 17 18 TProjectFile = class(TProjectItem) 19 end; 20 21 TProjectDirectory = class(TProjectItem) 22 end; 11 23 12 24 { TProject } … … 17 29 procedure SetOpenned(AValue: Boolean); 18 30 public 31 Items: TProjectItems; 19 32 Modified: Boolean; 20 33 FileName: string; 34 constructor Create; 35 destructor Destroy; override; 21 36 property Openned: Boolean read FOpenned write SetOpenned; 22 37 end; 38 39 const 40 LazFuckProjectExt = '.lfp'; 41 23 42 24 43 implementation … … 37 56 end; 38 57 58 constructor TProject.Create; 59 begin 60 Items := TProjectItems.Create; 61 end; 62 63 destructor TProject.Destroy; 64 begin 65 FreeAndNil(Items); 66 inherited; 67 end; 68 39 69 end. 40 70 -
trunk/UTarget.pas
r133 r135 155 155 end; 156 156 157 const158 RunStateText: array[TRunState] of string = ('Stopped', 'Paused', 'Running',159 'Compiling');160 161 157 162 158 resourcestring … … 164 160 SExecutorNotFound = 'Executor "%s" not found'; 165 161 SCompiledFileNotFound = 'Program compiled file "%s" not found'; 162 SStopped = 'Stopped'; 163 SPaused = 'Paused'; 164 SRunning = 'Running'; 165 SCompiling = 'Compiling'; 166 SNone = 'None'; 167 SNormal = 'Normal'; 168 169 const 170 CompiledDir = 'compiled'; 171 172 var 173 RunStateText: array[TRunState] of string = (SStopped, SPaused, SRunning, 174 SCompiling); 175 CompilerOptimizationText: array[TCompilerOptimization] of string = (SNone, SNormal); 176 177 procedure UpdateTranslation; 166 178 167 179 168 180 implementation 181 182 procedure UpdateTranslation; 183 begin 184 RunStateText[rsStopped] := SStopped; 185 RunStateText[rsPaused] := SPaused; 186 RunStateText[rsRunning] := SRunning; 187 RunStateText[rsCompiling] := SCompiling; 188 CompilerOptimizationText[coNone] := SNone; 189 CompilerOptimizationText[coNormal] := SNormal; 190 end; 169 191 170 192 { TMessages } … … 464 486 begin 465 487 CompiledFile := ExtractFilePath(ProjectFileName) + 466 'compiled'+ DirectorySeparator + Name + DirectorySeparator +488 CompiledDir + DirectorySeparator + Name + DirectorySeparator + 467 489 ExtractFileNameOnly(ProjectFileName) + SourceExtension; 468 490 ForceDirectories(ExtractFilePath(CompiledFile)); … … 507 529 508 530 CompiledFile := ExtractFilePath(ProjectFileName) + 509 'compiled'+ DirectorySeparator + Name + DirectorySeparator +531 CompiledDir + DirectorySeparator + Name + DirectorySeparator + 510 532 ExtractFileNameOnly(ProjectFileName) + CompiledExtension; 511 533 RunFile := ExtractFilePath(ProjectFileName) + 512 'compiled'+ DirectorySeparator + Name + DirectorySeparator +534 CompiledDir + DirectorySeparator + Name + DirectorySeparator + 513 535 ExtractFileNameOnly(ProjectFileName) + RunExtension; 514 536 if not FileExists(ExecutorPath) then
Note:
See TracChangeset
for help on using the changeset viewer.