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

IDE: Call ReAlignButtons in TComponentPalette.ActivePageChanged only when needed.

Browse Source 
git-svn-id: trunk@47100 -
This commit is contained in:
juha 2014-12-04 17:12:10 +00:00
parent 34ca493ff0
commit 69a98b68c7
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/componentpalette.pas
View File

@ -125,6 +125,7 @@ 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;
@ -136,6 +137,10 @@ type
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure CreatePopupMenu;
procedure UnselectAllButtons;
function GetUnregisteredIcon: TCustomBitmap;
function GetSelectButtonIcon: TCustomBitmap;
function SelectButton(Button: TComponent): boolean;
function IsSelectionToolBtn(aControl: TControl): boolean;
protected
procedure DoBeginUpdate; override;
procedure DoEndUpdate(Changed: boolean); override;
@ -152,11 +157,6 @@ type
procedure Clear;
procedure ClearButtons;
procedure DoAfterComponentAdded; override;
function GetUnregisteredIcon: TCustomBitmap;
function GetSelectButtonIcon: TCustomBitmap;
function SelectButton(Button: TComponent): boolean;
procedure ReAlignButtons(aSheet: TCustomPage);
function IsSelectionToolBtn(aControl: TControl): boolean;
procedure UpdateNoteBookButtons;
procedure OnGetNonVisualCompIcon(Sender: TObject;
AComponent: TComponent; var Icon: TCustomBitmap);
@ -282,11 +282,11 @@ end;
procedure TComponentPalette.ActivePageChanged(Sender: TObject);
begin
if FPageControl=nil then exit;
ReAlignButtons(FPageControl.ActivePage);
if (FSelected<>nil)
and (FSelected.RealPage.PageComponent=FPageControl.ActivePage)
then exit;
DebugLn('TComponentPalette.ActivePageChanged: setting Selected:=nil.');
and (FSelected.RealPage.PageComponent=FPageControl.ActivePage) then
exit;
DebugLn('TComponentPalette.ActivePageChanged: Calling ReAlignButtons, setting Selected:=nil.');
ReAlignButtons(FPageControl.ActivePage);
Selected:=nil;
end;