paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 04:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: disable Export button when there is nothing to export in component palette configuration.

Browse Source 
git-svn-id: trunk@47230 -
This commit is contained in:
juha 2014-12-21 13:00:23 +00:00
parent 78c1e7ea80
commit 30724bdc59
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/frames/componentpalette_options.pas
View File

@ -194,8 +194,10 @@ procedure TCompPaletteOptionsFrame.ActualReadSettings;
begin
Assert(fLocalUserOrder.Options = fLocalOptions, 'fLocalUserOrder.Options <> fLocalOptions');
fLocalUserOrder.SortPagesAndCompsUserOrder;
FillPages; // Initial visibility for RestoreButton.
FillPages;
// Initial enabled-state for buttons.
RestoreButton.Enabled := not fLocalOptions.IsDefault;
ExportButton.Enabled := RestoreButton.Enabled;
end;
procedure TCompPaletteOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
@ -416,6 +418,7 @@ begin
fLocalUserOrder.SortPagesAndCompsUserOrder; // Only updates data structure.
FillPages;
RestoreButton.Enabled := False;
ExportButton.Enabled := False;
fConfigChanged := True;
end;
@ -690,6 +693,7 @@ procedure TCompPaletteOptionsFrame.MarkAsChanged;
begin
// ToDo: compare settings with original palette options after each change.
RestoreButton.Enabled := True;
ExportButton.Enabled := True;
fConfigChanged := True;
end;