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

IDE: Show and save also empty pages in the component palette configuration.

Browse Source 
git-svn-id: trunk@47216 -
This commit is contained in:
juha 2014-12-17 23:27:22 +00:00
parent 6d84d67bba
commit 00e9e556d4
1 changed files with 13 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
ide/frames/componentpalette_options.pas
View File

@ -175,6 +175,13 @@ begin
UpdateCompMoveButtons(ComponentsListView.ItemIndex);
end;
procedure TCompPaletteOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
begin
fLocalOptions.Assign((AOptions as TEnvironmentOptions).ComponentPaletteOptions);
fLocalUserOrder.Options:=fLocalOptions;
ActualReadSettings;
end;
procedure TCompPaletteOptionsFrame.ActualReadSettings;
begin
Assert(fLocalUserOrder.Options = fLocalOptions, 'fLocalUserOrder.Options <> fLocalOptions');
@ -183,11 +190,10 @@ begin
RestoreButton.Enabled := not fLocalOptions.IsDefault;
end;
procedure TCompPaletteOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
procedure TCompPaletteOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
begin
fLocalOptions.Assign((AOptions as TEnvironmentOptions).ComponentPaletteOptions);
fLocalUserOrder.Options:=fLocalOptions;
ActualReadSettings;
if not fConfigChanged then Exit;
ActualWriteSettings((AOptions as TEnvironmentOptions).ComponentPaletteOptions);
end;
procedure TCompPaletteOptionsFrame.ActualWriteSettings(cpo: TCompPaletteOptions);
@ -196,12 +202,6 @@ begin
WriteComponents(cpo);
end;
procedure TCompPaletteOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
begin
if not fConfigChanged then Exit;
ActualWriteSettings((AOptions as TEnvironmentOptions).ComponentPaletteOptions);
end;
procedure TCompPaletteOptionsFrame.WritePages(cpo: TCompPaletteOptions);
var
OrigPages, UserPages: TStringList;
@ -272,7 +272,6 @@ var
CompList: TStringList;
i: Integer;
PgName: String;
Pg: TBaseComponentPage;
begin
// First clear existing items and add <All> page.
PagesListBox.Items.BeginUpdate;
@ -284,13 +283,9 @@ begin
begin
PgName := fLocalUserOrder.ComponentPages[i];
Assert(PgName<>'', 'TCompPaletteOptionsFrame.FillPages: PageName is empty.');
Pg := IDEComponentPalette.GetPage(PgName);
if (Pg=Nil) or Pg.Visible then
begin
CompList := TStringList.Create; // StringList will hold components for this page.
InitialComps(i, CompList);
PagesListBox.AddItem(PgName, CompList);
end;
CompList := TStringList.Create; // StringList will hold components for this page.
InitialComps(i, CompList);
PagesListBox.AddItem(PgName, CompList);
end;
PagesListBox.ItemIndex := 0; // Activate first item
PagesListBox.Items.EndUpdate;