paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 10:09:30 +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

3
docs/IDEWindowHelpTree.xml
View File

@ -1,5 +1,5 @@
<?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"/>
<Node2 Name="TfrmCompilerOptions" Path="Compiler_Options" HasHelp="True" IsRoot="True" ChildCount="1">
<Node1 Name="MainNotebook" ChildCount="7">
@ -172,4 +172,5 @@
<Node67 Name="TRegistersDlg" Path="Registers" HasHelp="True" IsRoot="True"/>
<Node68 Name="TDbgEventsForm" Path="Event_Log" 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>

3
ide/editormacrolistviewer.lfm
View File

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

8
ide/editormacrolistviewer.pas
View File

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