paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 20:50:39 +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 begin
Assert(fLocalUserOrder.Options = fLocalOptions, 'fLocalUserOrder.Options <> fLocalOptions'); Assert(fLocalUserOrder.Options = fLocalOptions, 'fLocalUserOrder.Options <> fLocalOptions');
fLocalUserOrder.SortPagesAndCompsUserOrder; fLocalUserOrder.SortPagesAndCompsUserOrder;
FillPages; // Initial visibility for RestoreButton. FillPages;
// Initial enabled-state for buttons.
RestoreButton.Enabled := not fLocalOptions.IsDefault; RestoreButton.Enabled := not fLocalOptions.IsDefault;
ExportButton.Enabled := RestoreButton.Enabled;
end; end;
procedure TCompPaletteOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions); procedure TCompPaletteOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
@ -416,6 +418,7 @@ begin
fLocalUserOrder.SortPagesAndCompsUserOrder; // Only updates data structure. fLocalUserOrder.SortPagesAndCompsUserOrder; // Only updates data structure.
FillPages; FillPages;
RestoreButton.Enabled := False; RestoreButton.Enabled := False;
ExportButton.Enabled := False;
fConfigChanged := True; fConfigChanged := True;
end; end;
@ -690,6 +693,7 @@ procedure TCompPaletteOptionsFrame.MarkAsChanged;
begin begin
// ToDo: compare settings with original palette options after each change. // ToDo: compare settings with original palette options after each change.
RestoreButton.Enabled := True; RestoreButton.Enabled := True;
ExportButton.Enabled := True;
fConfigChanged := True; fConfigChanged := True;
end; end;