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

LCL: tdbnavigator: reduced autosize overhead

Browse Source 
git-svn-id: trunk@25288 -
This commit is contained in:
mattias 2010-05-10 08:40:00 +00:00
parent e2a8f33ce7
commit 9f08a628a9
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/dbcustomnavigator.inc
View File

@ -224,6 +224,7 @@ begin
exit; exit;
end; end;
DisableAlign;
FUpdateButtonsNeeded:=false; FUpdateButtonsNeeded:=false;
ButtonCount:=VisibleButtonCount; ButtonCount:=VisibleButtonCount;
if Direction=nbdHorizontal then if Direction=nbdHorizontal then
@ -263,6 +264,9 @@ begin
CurButton.NavStyle:=CurButton.NavStyle+[nsAllowTimer]; CurButton.NavStyle:=CurButton.NavStyle+[nsAllowTimer];
CurButton.LoadGlyphFromLazarusResource(DBNavButtonResourceName[CurButtonType]); CurButton.LoadGlyphFromLazarusResource(DBNavButtonResourceName[CurButtonType]);
CurButton.NumGlyphs:=1; CurButton.NumGlyphs:=1;
CurButton.Parent:=Self;
CurButton.OnClick:=@ButtonClickHandler;
CurButton.ControlStyle := CurButton.ControlStyle + [csNoDesignSelectable];
end else end else
CurButton:=Buttons[CurButtonType]; CurButton:=Buttons[CurButtonType];
@ -271,15 +275,13 @@ begin
CurButton.Index:=CurButtonType; CurButton.Index:=CurButtonType;
CurButton.SetBounds(X,Y,W,H); CurButton.SetBounds(X,Y,W,H);
CurButton.Visible:=CurButtonType in FVisibleButtons; CurButton.Visible:=CurButtonType in FVisibleButtons;
CurButton.OnClick:=@ButtonClickHandler;
CurButton.Parent:=Self;
CurButton.ControlStyle := CurButton.ControlStyle + [csNoDesignSelectable];
if CurButton.Visible then if CurButton.Visible then
begin begin
inc(ButtonNumber); inc(ButtonNumber);
ButtonStartPos:=ButtonEndPos; ButtonStartPos:=ButtonEndPos;
end; end;
end; end;
EnableAlign;
ActiveChanged; ActiveChanged;
end; end;