paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:19:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: added help for editor macros

Browse Source 
git-svn-id: trunk@37798 -
This commit is contained in:
martin 2012-06-27 12:44:44 +00:00
parent 396e71ec7e
commit 1cef9d4fcd
3 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
docs/IDEWindowHelpTree.xml
View File

@ -1,5 +1,5 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG Name="IDE windows and dialogs" Path="IDE_Window:_" ChildCount="69"> <CONFIG Name="IDE windows and dialogs" Path="IDE_Window:_" ChildCount="70">
<Node1 Name="TObjectInspector" Path="Object_Inspector" HasHelp="True"/> <Node1 Name="TObjectInspector" Path="Object_Inspector" HasHelp="True"/>
<Node2 Name="TfrmCompilerOptions" Path="Compiler_Options" HasHelp="True" IsRoot="True" ChildCount="1"> <Node2 Name="TfrmCompilerOptions" Path="Compiler_Options" HasHelp="True" IsRoot="True" ChildCount="1">
<Node1 Name="MainNotebook" ChildCount="7"> <Node1 Name="MainNotebook" ChildCount="7">
@ -172,4 +172,5 @@
<Node67 Name="TRegistersDlg" Path="Registers" HasHelp="True" IsRoot="True"/> <Node67 Name="TRegistersDlg" Path="Registers" HasHelp="True" IsRoot="True"/>
<Node68 Name="TDbgEventsForm" Path="Event_Log" HasHelp="True" IsRoot="True"/> <Node68 Name="TDbgEventsForm" Path="Event_Log" HasHelp="True" IsRoot="True"/>
<Node69 Name="THistoryDialog" Path="Debug History" HasHelp="True" IsRoot="True"/> <Node69 Name="THistoryDialog" Path="Debug History" HasHelp="True" IsRoot="True"/>
<Node70 Name="TMacroListView" Path="Editor Macros" HasHelp="True" IsRoot="True"/>
</CONFIG> </CONFIG>

3
ide/editormacrolistviewer.lfm
View File

@ -130,12 +130,13 @@ object MacroListView: TMacroListView
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True HelpButton.DefaultCaption = True
HelpButton.OnClick = HelpButtonClick
CloseButton.Name = 'CloseButton' CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton' CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True CancelButton.DefaultCaption = True
TabOrder = 1 TabOrder = 1
ShowButtons = [pbClose] ShowButtons = [pbClose, pbHelp]
end end
object pnlButtons: TPanel object pnlButtons: TPanel
Left = 223 Left = 223

8
ide/editormacrolistviewer.pas
View File

@ -8,7 +8,7 @@ uses
Classes, SysUtils, FileUtil, Laz2_XMLCfg, SynMacroRecorder, SynEdit, SynEditKeyCmds, Classes, SysUtils, FileUtil, Laz2_XMLCfg, SynMacroRecorder, SynEdit, SynEditKeyCmds,
FileProcs, Forms, Controls, Graphics, Dialogs, StdCtrls, ButtonPanel, ComCtrls, ExtCtrls, FileProcs, Forms, Controls, Graphics, Dialogs, StdCtrls, ButtonPanel, ComCtrls, ExtCtrls,
Spin, Menus, MainBar, IDEWindowIntf, IDEImagesIntf, LazarusIDEStrConsts, ProjectDefs, Spin, Menus, MainBar, IDEWindowIntf, IDEImagesIntf, LazarusIDEStrConsts, ProjectDefs,
LazConf, Project, SrcEditorIntf; LazConf, Project, SrcEditorIntf, IDEHelpIntf;
type type
@ -132,6 +132,7 @@ type
procedure btnRenameClick(Sender: TObject); procedure btnRenameClick(Sender: TObject);
procedure btnSelectClick(Sender: TObject); procedure btnSelectClick(Sender: TObject);
procedure FormActivate(Sender: TObject); procedure FormActivate(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure lbRecordedViewSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); procedure lbRecordedViewSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
procedure mnExportClick(Sender: TObject); procedure mnExportClick(Sender: TObject);
procedure mnImportClick(Sender: TObject); procedure mnImportClick(Sender: TObject);
@ -659,6 +660,11 @@ begin
lbRecordedView.HideSelection := Active; lbRecordedView.HideSelection := Active;
end; end;
procedure TMacroListView.HelpButtonClick(Sender: TObject);
begin
LazarusHelp.ShowHelpForIDEControl(Self);
end;
procedure TMacroListView.lbRecordedViewSelectItem(Sender: TObject; Item: TListItem; procedure TMacroListView.lbRecordedViewSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean); Selected: Boolean);
begin begin