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

examples: idehelp: less hints

Browse Source 
git-svn-id: trunk@35133 -
This commit is contained in:
mattias 2012-02-04 18:10:26 +00:00
parent f11890d646
commit aa3560ea0f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/idehelp/myidehelp.pas
View File

@ -258,10 +258,10 @@ type
public public
HelpShortCutAsText: string; HelpShortCutAsText: string;
function GetTitle: String; override; function GetTitle: String; override;
procedure ReadSettings(AOptions: TAbstractIDEOptions); override; procedure ReadSettings({%H-}AOptions: TAbstractIDEOptions); override;
procedure Setup(ADialog: TAbstractOptionsEditorDialog); override; procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override; class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
procedure WriteSettings(AOptions: TAbstractIDEOptions); override; procedure WriteSettings({%H-}AOptions: TAbstractIDEOptions); override;
end; end;
procedure LoadSaveMyIDEOptions(Filename: string; Load: boolean); procedure LoadSaveMyIDEOptions(Filename: string; Load: boolean);
@ -402,7 +402,7 @@ begin
Result:=shrHelpNotFound; Result:=shrHelpNotFound;
if (csDesigning in ComponentState) or (not Enabled) then exit; if (csDesigning in ComponentState) or (not Enabled) then exit;
if ListOfNodes.Count>0 then exit; if not AClass.InheritsFrom(TMyHelpDatabase) then exit;
// this help database knows this context // this help database knows this context
Title:='Help for source'; Title:='Help for source';