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

IDE: componentpalette: less resizes

Browse Source 
git-svn-id: trunk@45070 -
This commit is contained in:
mattias 2014-05-18 09:17:43 +00:00
parent cf3f44455a
commit 889c3dc94a
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/componentpalette.pas
View File

@ -60,7 +60,7 @@ type
OpenPackageMenuItem: TMenuItem; OpenPackageMenuItem: TMenuItem;
OpenUnitMenuItem: TMenuItem; OpenUnitMenuItem: TMenuItem;
procedure ActivePageChanged(Sender: TObject); procedure ActivePageChanged(Sender: TObject);
procedure OnPageResize(Sender: TObject); procedure OnScrollBoxResize(Sender: TObject);
procedure OpenPackageClicked(Sender: TObject); procedure OpenPackageClicked(Sender: TObject);
procedure OpenUnitClicked(Sender: TObject); procedure OpenUnitClicked(Sender: TObject);
procedure ComponentListClicked(Sender: TObject); procedure ComponentListClicked(Sender: TObject);
@ -175,16 +175,17 @@ end;
procedure TComponentPalette.ActivePageChanged(Sender: TObject); procedure TComponentPalette.ActivePageChanged(Sender: TObject);
begin begin
if FPageControl=nil then exit; if FPageControl=nil then exit;
ReAlignButtons(FPageControl.ActivePage);
if (FSelected<>nil) if (FSelected<>nil)
and (FSelected.Page.PageComponent=FPageControl.ActivePage) and (FSelected.Page.PageComponent=FPageControl.ActivePage)
then exit; then exit;
Selected:=nil; Selected:=nil;
end; end;
procedure TComponentPalette.OnPageResize(Sender: TObject); procedure TComponentPalette.OnScrollBoxResize(Sender: TObject);
begin begin
if Sender is TCustomPage then if TControl(Sender).Parent is TCustomPage then
ReAlignButtons(TCustomPage(Sender)); ReAlignButtons(TCustomPage(TControl(Sender).Parent));
end; end;
procedure TComponentPalette.OpenPackageClicked(Sender: TObject); procedure TComponentPalette.OpenPackageClicked(Sender: TObject);
@ -547,6 +548,7 @@ var
ScrollBox: TScrollBox; ScrollBox: TScrollBox;
begin begin
//DebugLn(['TComponentPalette.ReAlignButtons ',Page.Caption,' ',Page.ClientWidth]); //DebugLn(['TComponentPalette.ReAlignButtons ',Page.Caption,' ',Page.ClientWidth]);
if not Page.Visible then exit;
if FPageControl<>nil then if FPageControl<>nil then
PageControl.DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TComponentPalette.ReAlignButtons'){$ENDIF}; PageControl.DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TComponentPalette.ReAlignButtons'){$ENDIF};
ButtonTree:=nil; ButtonTree:=nil;
@ -568,6 +570,7 @@ begin
{$IF DEFINED(LCLGTK2) OR DEFINED(LCLQT)} {$IF DEFINED(LCLGTK2) OR DEFINED(LCLQT)}
MaxBtnPerRow:=((ScrollBox.ClientWidth - ScrollBox.VertScrollBar.Size - ButtonX) div ComponentPaletteBtnWidth); MaxBtnPerRow:=((ScrollBox.ClientWidth - ScrollBox.VertScrollBar.Size - ButtonX) div ComponentPaletteBtnWidth);
{$ELSE} {$ELSE}
debugln(['TComponentPalette.ReAlignButtons ScrollBox.Bounds=',dbgs(ScrollBox.BoundsRect),' ClientRect=',dbgs(ScrollBox.ClientRect),' VertScrollBar.Size=',ScrollBox.VertScrollBar.Size,' ClientSizeWithoutBar=',ScrollBox.VertScrollBar.ClientSizeWithoutBar]);
MaxBtnPerRow:=((ScrollBox.VertScrollBar.ClientSizeWithoutBar - ButtonX) div ComponentPaletteBtnWidth); MaxBtnPerRow:=((ScrollBox.VertScrollBar.ClientSizeWithoutBar - ButtonX) div ComponentPaletteBtnWidth);
// If we need to wrap, make sure we have space for the scrollbar // If we need to wrap, make sure we have space for the scrollbar
if MaxBtnPerRow < ButtonTree.Count then if MaxBtnPerRow < ButtonTree.Count then
@ -802,8 +805,8 @@ var
CompPage := Pages[aPageIndex]; CompPage := Pages[aPageIndex];
if not CompPage.Visible then Exit; if not CompPage.Visible then Exit;
CurNoteBookPage := CompPage.PageComponent; CurNoteBookPage := CompPage.PageComponent;
CurNoteBookPage.OnResize := @OnPageResize;
CurScrollBox := CurNoteBookPage.Components[0] as TScrollBox; CurScrollBox := CurNoteBookPage.Components[0] as TScrollBox;
CurScrollBox.OnResize := @OnScrollBoxResize;
//DebugLn(['TComponentPalette.UpdateNoteBookButtons PAGE=',CompPage.PageName,' PageIndex=',CurNoteBookPage.PageIndex]); //DebugLn(['TComponentPalette.UpdateNoteBookButtons PAGE=',CompPage.PageName,' PageIndex=',CurNoteBookPage.PageIndex]);
// create selection button // create selection button
CreateSelectionButton(CompPage, IntToStr(aPageIndex), CurScrollBox); CreateSelectionButton(CompPage, IntToStr(aPageIndex), CurScrollBox);