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

Debug messages for ComponentPalette.ActivePageChanged etc.

Browse Source 
git-svn-id: trunk@47023 -
This commit is contained in:
juha 2014-11-28 15:04:19 +00:00
parent b3fec637e1
commit c0564de3f2
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/componentpalette.pas
View File

@ -39,7 +39,7 @@ interface
uses
Classes, SysUtils, Controls, Forms, Graphics, ComCtrls, Buttons, Menus, ExtCtrls,
FileUtil, LazFileCache, AVL_Tree, PropEdits, FormEditingIntf, LazIDEIntf,
FileUtil, LazFileCache, AVL_Tree, PropEdits, LCLProc, FormEditingIntf, LazIDEIntf,
{$IFDEF CustomIDEComps}
CustomIDEComps,
{$ENDIF}
@ -264,10 +264,12 @@ end;
procedure TComponentPalette.ActivePageChanged(Sender: TObject);
begin
if FPageControl=nil then exit;
ReAlignButtons(FPageControl.ActivePage);
//DebugLn('TComponentPalette.ActivePageChanged: calling ReAlignButtons.');
//ReAlignButtons(FPageControl.ActivePage);
if (FSelected<>nil)
and (FSelected.RealPage.PageComponent=FPageControl.ActivePage)
then exit;
DebugLn('TComponentPalette.ActivePageChanged: setting Selected:=nil.');
Selected:=nil;
end;
@ -466,6 +468,9 @@ begin
// select button
if (FSelected<>nil) and (FPageControl<>nil) then begin
TSpeedButton(FSelected.Button).Down:=true;
Assert(Assigned(FSelected.RealPage), 'TComponentPalette.SetSelected: FSelected.RealPage = Nil.');
DebugLn(['TComponentPalette.SetSelected: Setting FPageControl.ActivePage=',
FSelected.RealPage.PageComponent, ', Index ', FSelected.RealPage.PageComponent.PageIndex]);
FPageControl.ActivePage:=TTabSheet(FSelected.RealPage.PageComponent);
end;
end;
@ -1040,8 +1045,11 @@ begin
end;
// restore active page
if (OldActivePage<>nil) and (FPageControl.IndexOf(OldActivePage) >= 0) then
if (OldActivePage<>nil) and (FPageControl.IndexOf(OldActivePage) >= 0) then begin
DebugLn(['TComponentPalette.UpdateNoteBookButtons: Restoring FPageControl.ActivePage=',
OldActivePage]);
FPageControl.ActivePage:=OldActivePage
end
else if FPageControl.PageCount>0 then
FPageControl.PageIndex:=0;
finally