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: help options group extendable

Browse Source 
git-svn-id: trunk@24465 -
This commit is contained in:
mattias 2010-04-06 11:45:56 +00:00
parent f5ff000c40
commit 9b01c35ba3
3 changed files with 25 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
components/externhelp/externhelpfrm.pas
View File

@ -657,24 +657,28 @@ begin
if (TVNode<>nil) and (TObject(TVNode.Data) is TExternHelpItem) then if (TVNode<>nil) and (TObject(TVNode.Data) is TExternHelpItem) then
Item:=TExternHelpItem(TVNode.Data); Item:=TExternHelpItem(TVNode.Data);
DisableAlign; DisableAlign;
if Item<>nil then begin try
NameEdit.Enabled:=true; if Item<>nil then begin
NameEdit.Text:=Item.Name; NameEdit.Enabled:=true;
FilenameEdit.Enabled:=true; NameEdit.Text:=Item.Name;
FilenameEdit.Text:=Item.Filename; FilenameEdit.Enabled:=true;
URLEdit.Enabled:=true; FilenameEdit.Text:=Item.Filename;
URLEdit.Text:=Item.URL; URLEdit.Enabled:=true;
StoreComboBox.Enabled:=Item.Parent=Options.RootItem; URLEdit.Text:=Item.URL;
StoreComboBox.Text:=Item.StoreIn; StoreComboBox.Enabled:=Item.Parent=Options.RootItem;
end else begin StoreComboBox.Text:=Item.StoreIn;
NameEdit.Enabled:=false; end else begin
NameEdit.Text:=''; NameEdit.Enabled:=false;
FilenameEdit.Enabled:=false; NameEdit.Text:='';
FilenameEdit.Text:=''; FilenameEdit.Enabled:=false;
URLEdit.Enabled:=false; FilenameEdit.Text:='';
URLEdit.Text:=''; URLEdit.Enabled:=false;
StoreComboBox.Enabled:=false; URLEdit.Text:='';
StoreComboBox.Text:=''; StoreComboBox.Enabled:=false;
StoreComboBox.Text:='';
end;
finally
EnableAlign;
end; end;
end; end;
@ -784,7 +788,7 @@ end;
class function TExternHelpGeneralOptsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass; class function TExternHelpGeneralOptsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
begin begin
Result:=TExternHelpOptions; Result:=TAbstractIDEHelpOptions;
end; end;
procedure TExternHelpGeneralOptsFrame.WriteSettings(AOptions: TAbstractIDEOptions); procedure TExternHelpGeneralOptsFrame.WriteSettings(AOptions: TAbstractIDEOptions);

2
ide/helpoptions.pas
View File

@ -45,7 +45,7 @@ uses
type type
{ THelpOptions } { THelpOptions }
THelpOptions = class(TAbstractIDEEnvironmentOptions) THelpOptions = class(TAbstractIDEHelpOptions)
private private
FFilename: string; FFilename: string;
FFPCDocsHTMLDirectory: string; FFPCDocsHTMLDirectory: string;

1
ideintf/ideoptionsintf.pas
View File

@ -62,6 +62,7 @@ type
TAbstractIDEEnvironmentOptions = class(TAbstractIDEOptions); TAbstractIDEEnvironmentOptions = class(TAbstractIDEOptions);
TAbstractIDEProjectOptions = class(TAbstractIDEOptions); TAbstractIDEProjectOptions = class(TAbstractIDEOptions);
TAbstractIDEHelpOptions = class(TAbstractIDEEnvironmentOptions);
TOnLoadIDEOptions = procedure(Sender: TObject; AOptions: TAbstractIDEOptions) of object; TOnLoadIDEOptions = procedure(Sender: TObject; AOptions: TAbstractIDEOptions) of object;
TOnSaveIDEOptions = procedure(Sender: TObject; AOptions: TAbstractIDEOptions) of object; TOnSaveIDEOptions = procedure(Sender: TObject; AOptions: TAbstractIDEOptions) of object;