paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 20:28:19 +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
Item:=TExternHelpItem(TVNode.Data);
DisableAlign;
if Item<>nil then begin
NameEdit.Enabled:=true;
NameEdit.Text:=Item.Name;
FilenameEdit.Enabled:=true;
FilenameEdit.Text:=Item.Filename;
URLEdit.Enabled:=true;
URLEdit.Text:=Item.URL;
StoreComboBox.Enabled:=Item.Parent=Options.RootItem;
StoreComboBox.Text:=Item.StoreIn;
end else begin
NameEdit.Enabled:=false;
NameEdit.Text:='';
FilenameEdit.Enabled:=false;
FilenameEdit.Text:='';
URLEdit.Enabled:=false;
URLEdit.Text:='';
StoreComboBox.Enabled:=false;
StoreComboBox.Text:='';
try
if Item<>nil then begin
NameEdit.Enabled:=true;
NameEdit.Text:=Item.Name;
FilenameEdit.Enabled:=true;
FilenameEdit.Text:=Item.Filename;
URLEdit.Enabled:=true;
URLEdit.Text:=Item.URL;
StoreComboBox.Enabled:=Item.Parent=Options.RootItem;
StoreComboBox.Text:=Item.StoreIn;
end else begin
NameEdit.Enabled:=false;
NameEdit.Text:='';
FilenameEdit.Enabled:=false;
FilenameEdit.Text:='';
URLEdit.Enabled:=false;
URLEdit.Text:='';
StoreComboBox.Enabled:=false;
StoreComboBox.Text:='';
end;
finally
EnableAlign;
end;
end;
@ -784,7 +788,7 @@ end;
class function TExternHelpGeneralOptsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
begin
Result:=TExternHelpOptions;
Result:=TAbstractIDEHelpOptions;
end;
procedure TExternHelpGeneralOptsFrame.WriteSettings(AOptions: TAbstractIDEOptions);

2
ide/helpoptions.pas
View File

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

1
ideintf/ideoptionsintf.pas
View File

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