Changeset 50
- Timestamp:
- Jul 13, 2012, 1:37:51 PM (12 years ago)
- Location:
- trunk
- Files:
-
- 3 added
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormTargets.lfm
r42 r50 8 8 ClientWidth = 574 9 9 OnShow = FormShow 10 LCLVersion = ' 0.9.31'10 LCLVersion = '1.1' 11 11 object ListView1: TListView 12 12 Left = 8 -
trunk/Forms/UFormTargets.pas
r42 r50 31 31 32 32 uses 33 UFormMain, UTarget; 34 35 resourcestring 36 SCompilerOptions = 'Compiler options'; 37 SCompilerPath = 'Compiler path'; 33 UFormMain, UTarget, UFormTargetOptions; 38 34 39 35 { TFormCompilers } … … 57 53 procedure TFormCompilers.ListView1DblClick(Sender: TObject); 58 54 begin 59 with TTarget(ListView1.Selected.Data) do 60 CompilerPath := InputBox(SCompilerOptions, SCompilerPath, 61 CompilerPath); 62 ReloadList; 55 FormTargetOptions.LoadControls(TTarget(ListView1.Selected.Data)); 56 if FormTargetOptions.ShowModal = mrOk then begin 57 FormTargetOptions.SaveControls(TTarget(ListView1.Selected.Data)); 58 ReloadList; 59 end; 63 60 end; 64 61 -
trunk/Languages/LazFuckIDE.cs.po
r48 r50 5 5 "POT-Creation-Date: \n" 6 6 "PO-Revision-Date: \n" 7 "Last-Translator: Chronos<robie@centrum.cz>\n"7 "Last-Translator: JiÅà Hajda <robie@centrum.cz>\n" 8 8 "Language-Team: \n" 9 9 "MIME-Version: 1.0\n" … … 141 141 msgctxt "tformsourcecode.aclear.caption" 142 142 msgid "Clear" 143 msgstr " "143 msgstr "VyÄistit" 144 144 145 145 #: tformsourcecode.aclear.hint 146 146 msgctxt "tformsourcecode.aclear.hint" 147 147 msgid "Clear" 148 msgstr " "148 msgstr "VyÄistit" 149 149 150 150 #: tformsourcecode.acopytoclipboard.caption 151 151 msgctxt "tformsourcecode.acopytoclipboard.caption" 152 152 msgid "Copy" 153 msgstr " "153 msgstr "KopÃrovat" 154 154 155 155 #: tformsourcecode.acopytoclipboard.hint 156 156 msgctxt "tformsourcecode.acopytoclipboard.hint" 157 157 msgid "Copy" 158 msgstr " "158 msgstr "KopÃrovat" 159 159 160 160 #: tformsourcecode.acuttoclipboard.caption 161 161 msgctxt "tformsourcecode.acuttoclipboard.caption" 162 162 msgid "Cut" 163 msgstr " "163 msgstr "VyÅÃznout" 164 164 165 165 #: tformsourcecode.acuttoclipboard.hint 166 166 msgctxt "tformsourcecode.acuttoclipboard.hint" 167 167 msgid "Cut" 168 msgstr " "168 msgstr "VyÅÃznout" 169 169 170 170 #: tformsourcecode.aformatsource.caption … … 180 180 #: tformsourcecode.ageneratenumber.caption 181 181 msgid "Generate number" 182 msgstr " "182 msgstr "Generopvat ÄÃslo" 183 183 184 184 #: tformsourcecode.apastefromclipboard.caption 185 185 msgctxt "tformsourcecode.apastefromclipboard.caption" 186 186 msgid "Paste" 187 msgstr " "187 msgstr "VloÅŸit" 188 188 189 189 #: tformsourcecode.apastefromclipboard.hint 190 190 msgctxt "tformsourcecode.apastefromclipboard.hint" 191 191 msgid "Paste" 192 msgstr " "192 msgstr "VloÅŸit" 193 193 194 194 #: tformsourcecode.aselectall.caption 195 195 msgctxt "tformsourcecode.aselectall.caption" 196 196 msgid "Select all" 197 msgstr " "197 msgstr "Vybrat vÅ¡e" 198 198 199 199 #: tformsourcecode.aselectall.hint 200 200 msgctxt "tformsourcecode.aselectall.hint" 201 201 msgid "Select all" 202 msgstr " "202 msgstr "Vybrat vÅ¡e" 203 203 204 204 #: tformsourcecode.ashrinksource.caption … … 226 226 msgid "Target code" 227 227 msgstr "CÃlovÃœ kód" 228 229 #: tformtargetoptions.buttoncancel.caption 230 msgctxt "tformtargetoptions.buttoncancel.caption" 231 msgid "Cancel" 232 msgstr "ZruÅ¡it" 233 234 #: tformtargetoptions.buttoncompiler.caption 235 msgctxt "tformtargetoptions.buttoncompiler.caption" 236 msgid "Select..." 237 msgstr "Vybrat..." 238 239 #: tformtargetoptions.buttonexecute.caption 240 msgctxt "tformtargetoptions.buttonexecute.caption" 241 msgid "Select..." 242 msgstr "Vybrat..." 243 244 #: tformtargetoptions.buttonok.caption 245 msgctxt "tformtargetoptions.buttonok.caption" 246 msgid "Ok" 247 msgstr "Ok" 248 249 #: tformtargetoptions.caption 250 msgid "Target options" 251 msgstr "Nastavenà cÃle" 252 253 #: tformtargetoptions.label1.caption 254 msgid "Compiler location:" 255 msgstr "UmÃstÄnà pÅekladaÄe:" 256 257 #: tformtargetoptions.label2.caption 258 msgid "Executor location:" 259 msgstr "UmÃstÄnà spouÅ¡tÄÄe:" 228 260 229 261 #: tinterpreterform.caption … … 463 495 464 496 #: toptionsform.buttoncancel.caption 497 msgctxt "toptionsform.buttoncancel.caption" 465 498 msgid "Cancel" 466 499 msgstr "ZruÅ¡it" 467 500 468 501 #: toptionsform.buttonok.caption 502 msgctxt "toptionsform.buttonok.caption" 469 503 msgid "Ok" 470 504 msgstr "Ok" … … 573 607 msgstr "Generovánà ÄÃsla" 574 608 609 #: uformtargetoptions.scompileroptions 610 msgctxt "uformtargetoptions.scompileroptions" 611 msgid "Compiler options" 612 msgstr "Volby pÅekladaÄe" 613 614 #: uformtargetoptions.scompilerpath 615 msgctxt "uformtargetoptions.scompilerpath" 616 msgid "Compiler path" 617 msgstr "Cesta pÅekladaÄe" 618 619 #: uformtargetoptions.sselectdirectory 620 msgid "Select directory" 621 msgstr "Vyberte adresáÅ" 622 575 623 #: uformtargets.scompileroptions 576 624 msgctxt "uformtargets.scompileroptions" -
trunk/Languages/LazFuckIDE.po
r48 r50 217 217 msgstr "" 218 218 219 #: tformtargetoptions.buttoncancel.caption 220 msgctxt "TFORMTARGETOPTIONS.BUTTONCANCEL.CAPTION" 221 msgid "Cancel" 222 msgstr "" 223 224 #: tformtargetoptions.buttoncompiler.caption 225 msgctxt "tformtargetoptions.buttoncompiler.caption" 226 msgid "Select..." 227 msgstr "" 228 229 #: tformtargetoptions.buttonexecute.caption 230 msgctxt "TFORMTARGETOPTIONS.BUTTONEXECUTE.CAPTION" 231 msgid "Select..." 232 msgstr "" 233 234 #: tformtargetoptions.buttonok.caption 235 msgctxt "TFORMTARGETOPTIONS.BUTTONOK.CAPTION" 236 msgid "Ok" 237 msgstr "" 238 239 #: tformtargetoptions.caption 240 msgid "Target options" 241 msgstr "" 242 243 #: tformtargetoptions.label1.caption 244 msgid "Compiler location:" 245 msgstr "" 246 247 #: tformtargetoptions.label2.caption 248 msgid "Executor location:" 249 msgstr "" 250 219 251 #: tinterpreterform.caption 220 252 msgctxt "tinterpreterform.caption" … … 452 484 453 485 #: toptionsform.buttoncancel.caption 486 msgctxt "toptionsform.buttoncancel.caption" 454 487 msgid "Cancel" 455 488 msgstr "" 456 489 457 490 #: toptionsform.buttonok.caption 491 msgctxt "toptionsform.buttonok.caption" 458 492 msgid "Ok" 459 493 msgstr "" … … 562 596 msgstr "" 563 597 598 #: uformtargetoptions.scompileroptions 599 msgctxt "uformtargetoptions.scompileroptions" 600 msgid "Compiler options" 601 msgstr "" 602 603 #: uformtargetoptions.scompilerpath 604 msgctxt "uformtargetoptions.scompilerpath" 605 msgid "Compiler path" 606 msgstr "" 607 608 #: uformtargetoptions.sselectdirectory 609 msgid "Select directory" 610 msgstr "" 611 564 612 #: uformtargets.scompileroptions 565 613 msgctxt "uformtargets.scompileroptions" -
trunk/LazFuckIDE.lpi
r48 r50 90 90 </Item5> 91 91 </RequiredPackages> 92 <Units Count="1 7">92 <Units Count="18"> 93 93 <Unit0> 94 94 <Filename Value="LazFuckIDE.lpr"/> … … 124 124 <IsPartOfProject Value="True"/> 125 125 <ComponentName Value="FormCompilers"/> 126 <HasResources Value="True"/> 126 127 <ResourceBaseClass Value="Form"/> 127 128 <UnitName Value="UFormTargets"/> … … 203 204 <UnitName Value="UFormTargetCode"/> 204 205 </Unit16> 206 <Unit17> 207 <Filename Value="Forms\UFormTargetOptions.pas"/> 208 <IsPartOfProject Value="True"/> 209 <ComponentName Value="FormTargetOptions"/> 210 <ResourceBaseClass Value="Form"/> 211 <UnitName Value="UFormTargetOptions"/> 212 </Unit17> 205 213 </Units> 206 214 </ProjectOptions> -
trunk/LazFuckIDE.lpr
r46 r50 13 13 UFormOptions, CoolTranslator, Common, 14 14 TemplateGenerics, UFormTargets, UFormOutput, UFormInput, UFormMemory, 15 UFormMessages, UFormSourceCode, UFormTargetCode ;15 UFormMessages, UFormSourceCode, UFormTargetCode, UFormTargetOptions; 16 16 17 17 {$R *.res} … … 31 31 Application.CreateForm(TFormSourceCode, FormSourceCode); 32 32 Application.CreateForm(TFormTargetCode, FormTargetCode); 33 Application.CreateForm(TFormTargetOptions, FormTargetOptions); 33 34 Application.Run; 34 35 end. -
trunk/Target/UTarget.pas
r48 r50 257 257 OpenKey(Key + '\Compiler', True); 258 258 for I := 0 to Count - 1 do 259 with TTarget(Items[I]) do 260 if ValueExists(Name) then CompilerPath := ReadString(Name); 259 TTarget(Items[I]).LoadFromRegistry(Root, Key + '\Compiler'); 261 260 finally 262 261 Free; … … 274 273 for I := 0 to Count - 1 do 275 274 with TTarget(Items[I]) do 276 if CompilerPath <> '' then WriteString(Name, CompilerPath) 277 else DeleteValue(Name); 275 TTarget(Items[I]).SaveToRegistry(Root, Key + '\Compiler'); 278 276 finally 279 277 Free; … … 465 463 procedure TTarget.LoadFromRegistry(Root: HKEY; Key: string); 466 464 begin 467 465 with TRegistryEx.Create do 466 try 467 RootKey := Root; 468 OpenKey(Key + '\' + Name, True); 469 CompilerPath := ReadStringWithDefault('CompilerPath', CompilerPath); 470 ExecutorPath := ReadStringWithDefault('ExecutorPath', ExecutorPath); 471 finally 472 Free; 473 end; 468 474 end; 469 475 470 476 procedure TTarget.SaveToRegistry(Root: HKEY; Key: string); 471 477 begin 472 478 with TRegistryEx.Create do 479 try 480 RootKey := Root; 481 OpenKey(Key + '\' + Name, True); 482 if CompilerPath <> '' then WriteString('CompilerPath', CompilerPath) 483 else DeleteValue('CompilerPath'); 484 if ExecutorPath <> '' then WriteString('ExecutorPath', ExecutorPath) 485 else DeleteValue('ExecutorPath'); 486 finally 487 Free; 488 end; 473 489 end; 474 490
Note:
See TracChangeset
for help on using the changeset viewer.