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

IDE: Use truely original pages and comps as reference when saving palette configuration.

Browse Source 
git-svn-id: trunk@47261 -
This commit is contained in:
juha 2014-12-28 13:50:35 +00:00
parent bd66a6083c
commit 9e3b5ca504
3 changed files with 26 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/ideintf/componentreg.pas
View File

@ -210,10 +210,10 @@ type
constructor Create;
destructor Destroy; override;
procedure Clear;
procedure AssignOrigCompsForPage(DestComps: TStringList;
PageName: string); virtual; abstract;
procedure AssignOrigVisibleCompsForPage(DestComps: TStringList;
PageName: string); virtual; abstract;
function AssignOrigCompsForPage(PageName: string;
DestComps: TStringList): Boolean; virtual; abstract;
function AssignOrigVisibleCompsForPage(PageName: string;
DestComps: TStringList): Boolean; virtual; abstract;
function RefUserCompsForPage(PageName: string): TStringList; virtual; abstract;
procedure BeginUpdate(Change: boolean);
procedure EndUpdate;

33
ide/componentpalette.pas
View File

@ -177,8 +177,10 @@ type
procedure RegisterCustomIDEComponents(
const RegisterProc: RegisterUnitComponentProc); override;
procedure Update(ForceUpdateAll: Boolean); override;
procedure AssignOrigCompsForPage(DestComps: TStringList; PageName: string); override;
procedure AssignOrigVisibleCompsForPage(DestComps: TStringList; PageName: string); override;
function AssignOrigCompsForPage(PageName: string;
DestComps: TStringList): Boolean; override;
function AssignOrigVisibleCompsForPage(PageName: string;
DestComps: TStringList): Boolean; override;
function RefUserCompsForPage(PageName: string): TStringList; override;
public
property PageControl: TPageControl read FPageControl write SetPageControl;
@ -286,7 +288,7 @@ begin
if i >= 0 then // Add components reordered by user.
DstComps.Assign(fOptions.ComponentPages.Objects[i] as TStringList)
else // Add components that were not reordered.
fPalette.AssignOrigCompsForPage(DstComps, PgName);
fPalette.AssignOrigCompsForPage(PgName, DstComps);
end;
end;
@ -950,12 +952,15 @@ begin
end;
end;
procedure TComponentPalette.AssignOrigCompsForPage(DestComps: TStringList; PageName: string);
function TComponentPalette.AssignOrigCompsForPage(PageName: string;
DestComps: TStringList): Boolean;
// Returns True if the page was found.
var
sl: TStringList;
i: Integer;
begin
if fOrigComponentPageCache.Find(PageName, i) then begin
Result := fOrigComponentPageCache.Find(PageName, i);
if Result then begin
sl := fOrigComponentPageCache.Objects[i] as TStringList;
DestComps.Assign(sl);
end
@ -964,20 +969,20 @@ begin
//raise Exception.Create(Format('AssignOrigCompsForPage: %s not found in cache.', [PageName]));
end;
procedure TComponentPalette.AssignOrigVisibleCompsForPage(DestComps: TStringList;
PageName: string);
function TComponentPalette.AssignOrigVisibleCompsForPage(PageName: string;
DestComps: TStringList): Boolean;
// Returns True if the page was found.
var
sl: TStringList;
i: Integer;
begin
DestComps.Clear;
if fOrigComponentPageCache.Find(PageName, i) then
begin
sl := fOrigComponentPageCache.Objects[i] as TStringList;
for i := 0 to sl.Count-1 do
if FindComponent(sl[i]).Visible then
DestComps.Add(sl[i]);
end;
Result := fOrigComponentPageCache.Find(PageName, i);
if not Result then Exit;
sl := fOrigComponentPageCache.Objects[i] as TStringList;
for i := 0 to sl.Count-1 do
if FindComponent(sl[i]).Visible then
DestComps.Add(sl[i]);
end;
function TComponentPalette.RefUserCompsForPage(PageName: string): TStringList;

18
ide/frames/componentpalette_options.pas
View File

@ -216,9 +216,7 @@ end;
procedure TCompPaletteOptionsFrame.WritePages(cpo: TCompPaletteOptions);
var
OrigPages, UserPages: TStringList;
Pg: TBaseComponentPage;
i: Integer;
PgName: String;
begin
Assert(Assigned(IDEComponentPalette),
'TCompPaletteOptionsFrame.WritePages: IDEComponentPalette is not assigned.');
@ -227,12 +225,7 @@ begin
try
// Collect original page names
for i := 0 to IDEComponentPalette.OrigPagePriorities.Count-1 do
begin
PgName := IDEComponentPalette.OrigPagePriorities.Keys[i];
Pg := IDEComponentPalette.GetPage(PgName);
if Assigned(Pg) and Pg.Visible then
OrigPages.Add(Pg.PageName);
end;
OrigPages.Add(IDEComponentPalette.OrigPagePriorities.Keys[i]);
// Collect user defined page names
for i := 1 to PagesListBox.Items.Count-1 do // Skip "all components" page
UserPages.Add(PagesListBox.Items[i]);
@ -250,7 +243,6 @@ end;
procedure TCompPaletteOptionsFrame.WriteComponents(cpo: TCompPaletteOptions);
var
UserComps, OrigComps: TStringList;
Pg: TBaseComponentPage;
PgName: String;
i: Integer;
begin
@ -262,12 +254,8 @@ begin
PgName := PagesListBox.Items[i];
UserComps := PagesListBox.Items.Objects[i] as TStringList;
Assert(Assigned(UserComps), 'TCompPaletteOptionsFrame.WriteComponents: No UserComps for '+PgName);
Pg := IDEComponentPalette.GetPage(PgName);
if Assigned(Pg) and Pg.Visible then // Can be Nil if this page was added or renamed.
// Collect original visible components from this page.
IDEComponentPalette.AssignOrigVisibleCompsForPage(OrigComps, PgName)
else
OrigComps.Clear;
// Collect original visible components from this page.
IDEComponentPalette.AssignOrigVisibleCompsForPage(PgName, OrigComps);
// Differs from original order -> add configuration for components.
if (OrigComps.Count=0) or not OrigComps.Equals(UserComps) then
cpo.AssignComponentPage(PgName, UserComps);