paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 18:37:58 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Align the buttons of current page again after palette configuration changed.

Browse Source 
git-svn-id: trunk@47112 -
This commit is contained in:
juha 2014-12-04 23:29:05 +00:00
parent 96987c1d32
commit d798261135
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/componentpalette.pas
View File

@ -125,7 +125,6 @@ type
aButtonUniqueName: string; aScrollBox: TScrollBox);
procedure InsertVisiblePage(aCompPage: TBaseComponentPage);
procedure RemoveUnneededPage(aSheet: TCustomPage);
procedure ReAlignButtons(aSheet: TCustomPage);
procedure SetPageControl(const AValue: TPageControl);
procedure SelectionToolClick(Sender: TObject);
procedure ComponentBtnMouseDown(Sender: TObject; Button: TMouseButton;
@ -157,6 +156,7 @@ type
procedure Clear;
procedure ClearButtons;
procedure DoAfterComponentAdded; override;
procedure ReAlignButtons(aSheet: TCustomPage = Nil);
procedure UpdateNoteBookButtons;
procedure OnGetNonVisualCompIcon(Sender: TObject;
AComponent: TComponent; var Icon: TCustomBitmap);
@ -835,13 +835,17 @@ var
Node: TAVLTreeNode;
ScrollBox: TScrollBox;
begin
if (FPageControl<>nil) and (aSheet=Nil) then
aSheet:=FPageControl.ActivePage; // Use ActivePage if nothing was given.
if (aSheet=Nil) or not aSheet.Visible then
exit;
{$IFDEF VerboseComponentPalette}
if aSheet.Caption = CompPalVerbPgName then
DebugLn(['TComponentPalette.ReAlignButtons START "',aSheet.Caption,'", Visible=',aSheet.Visible,' ClientWidth=',aSheet.ClientWidth]);
//if aSheet.Caption = CompPalVerbPgName then
DebugLn(['TComponentPalette.ReAlignButtons Visible="',aSheet.Caption,'", ClientWidth=',aSheet.ClientWidth]);
{$ENDIF}
if not aSheet.Visible then exit;
if FPageControl<>nil then
PageControl.DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TComponentPalette.ReAlignButtons'){$ENDIF};
if FPageControl<>nil then begin
fPageControl.DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TComponentPalette.ReAlignButtons'){$ENDIF};
end;
ButtonTree:=nil;
try
if (aSheet.ComponentCount=0) or not (aSheet.Components[0] is TScrollBox) then

6
ide/main.pp
View File

@ -4758,8 +4758,10 @@ begin
IDEOptionsDialog.WriteAll(false);
// Update component palette only when needed.
PaletteOpt := TCompPaletteOptionsFrame(IDEOptionsDialog.FindEditor(TCompPaletteOptionsFrame));
if Assigned(PaletteOpt) and PaletteOpt.ConfigChanged then
TComponentPalette(IDEComponentPalette).UpdateNoteBookButtons;
if Assigned(PaletteOpt) and PaletteOpt.ConfigChanged then begin
IDEComponentPalette.Update;
TComponentPalette(IDEComponentPalette).ReAlignButtons;
end;
// Update TaskBarBehavior immediately.
if EnvironmentOptions.SingleTaskBarButton then
Application.TaskBarBehavior := tbSingleButton