Changeset 154 for trunk/Forms
- Timestamp:
- Aug 14, 2024, 10:51:18 PM (4 months ago)
- Location:
- trunk/Forms
- Files:
-
- 3 added
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/FormMain.lfm
r153 r154 388 388 Action = AHelp 389 389 end 390 object MenuItem29: TMenuItem 391 Action = AKeyShortcuts 392 end 390 393 object MenuItem14: TMenuItem 391 394 Action = AAbout … … 453 456 end 454 457 object AAbout: TAction 458 Category = 'Help' 455 459 Caption = 'About' 456 460 OnExecute = AAboutExecute 457 461 end 458 462 object AHelp: TAction 463 Category = 'Help' 459 464 Caption = 'Help' 460 465 ImageIndex = 6 … … 514 519 end 515 520 object AViewCompilers: TAction 516 Category = ' View'521 Category = 'Tools' 517 522 Caption = 'Compilers' 518 523 OnExecute = AViewCompilersExecute … … 534 539 end 535 540 object AViewLog: TAction 536 Category = ' View'541 Category = 'Tools' 537 542 Caption = 'Log' 538 543 OnExecute = AViewLogExecute … … 546 551 Category = 'View' 547 552 Caption = 'Full screen' 553 ImageIndex = 31 548 554 OnExecute = AFullScreenExecute 549 555 ShortCut = 122 556 end 557 object AKeyShortcuts: TAction 558 Category = 'Help' 559 Caption = 'Key shortcuts' 560 ImageIndex = 32 561 OnExecute = AKeyShortcutsExecute 550 562 end 551 563 end -
trunk/Forms/FormMain.lrj
r153 r154 39 39 {"hash":21335,"name":"tformmain.aviewlog.caption","sourcebytes":[76,111,103],"value":"Log"}, 40 40 {"hash":226669790,"name":"tformmain.aprogramcompilemultiple.caption","sourcebytes":[67,111,109,112,105,108,101,32,109,117,108,116,105,112,108,101,46,46,46],"value":"Compile multiple..."}, 41 {"hash":131549534,"name":"tformmain.afullscreen.caption","sourcebytes":[70,117,108,108,32,115,99,114,101,101,110],"value":"Full screen"} 41 {"hash":131549534,"name":"tformmain.afullscreen.caption","sourcebytes":[70,117,108,108,32,115,99,114,101,101,110],"value":"Full screen"}, 42 {"hash":122803571,"name":"tformmain.akeyshortcuts.caption","sourcebytes":[75,101,121,32,115,104,111,114,116,99,117,116,115],"value":"Key shortcuts"} 42 43 ]} -
trunk/Forms/FormMain.pas
r153 r154 7 7 Graphics, Dialogs, Menus, ActnList, ComCtrls, ExtCtrls, Target, Registry, 8 8 LazFileUtils, FormOptions, FormMessages, FormTargets, FormCompileMultiple, 9 FormOutput, FormMemory, FormSourceCode, FormTargetCode, FormLog, FormEx; 9 FormOutput, FormMemory, FormSourceCode, FormTargetCode, FormLog, FormEx, 10 FormKeyShortcuts; 10 11 11 12 type … … 14 15 15 16 TFormMain = class(TFormEx) 17 AKeyShortcuts: TAction; 16 18 AFullScreen: TAction; 17 19 AProgramCompileMultiple: TAction; … … 62 64 MenuItem27: TMenuItem; 63 65 MenuItem28: TMenuItem; 66 MenuItem29: TMenuItem; 64 67 MenuItem30: TMenuItem; 65 68 MenuItem31: TMenuItem; … … 122 125 procedure AFullScreenExecute(Sender: TObject); 123 126 procedure AHelpExecute(Sender: TObject); 127 procedure AKeyShortcutsExecute(Sender: TObject); 124 128 procedure AOptionsExecute(Sender: TObject); 125 129 procedure AProgramCompileExecute(Sender: TObject); … … 159 163 FormSourceCode: TFormSourceCode; 160 164 FormTargetCode: TFormTargetCode; 165 FormKeyShortcuts: TFormKeyShortcuts; 161 166 procedure AProjectOpenRecentExecute(Sender: TObject); 162 167 procedure MenuItemTargetClick(Sender: TObject); … … 406 411 FreeAndNil(FormOutput); 407 412 FreeAndNil(FormTargetCode); 413 if Assigned(FormKeyShortcuts) then FreeAndNil(FormKeyShortcuts); 408 414 end; 409 415 … … 497 503 begin 498 504 FormHelp := TFormHelp.Create(nil); 499 FormHelp.ShowModal; 500 FormHelp.Free; 505 try 506 FormHelp.ShowModal; 507 finally 508 FormHelp.Free; 509 end; 510 end; 511 512 procedure TFormMain.AKeyShortcutsExecute(Sender: TObject); 513 begin 514 if not Assigned(FormKeyShortcuts) then FormKeyShortcuts := TFormKeyShortcuts.Create(nil); 515 FormKeyShortcuts.SourceComponents.Clear; 516 FormKeyShortcuts.SourceComponents.Add(Self); 517 FormKeyShortcuts.Show; 501 518 end; 502 519 -
trunk/Forms/FormSourceCode.lfm
r153 r154 17 17 Width = 672 18 18 Align = alClient 19 Font.Height = 13 19 20 Font.Name = 'Courier New' 20 21 Font.Pitch = fpFixed … … 26 27 OnKeyUp = MemoSourceKeyUp 27 28 OnMouseDown = MemoSourceMouseDown 28 Gutter.Width = 8429 Gutter.Width = 76 29 30 Gutter.MouseActions = <> 30 31 RightGutter.Width = 0 … … 480 481 end 481 482 object SynGutterLineNumber1: TSynGutterLineNumber 482 Width = 25483 Width = 17 483 484 MouseActions = <> 484 485 MarkupInfo.Background = clBtnFace
Note:
See TracChangeset
for help on using the changeset viewer.