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

LCL: TToolBar: always use width and height of AutoSized childs

Browse Source 
git-svn-id: trunk@20307 -
This commit is contained in:
mattias 2009-05-30 13:29:45 +00:00
parent 3ecf1cfce7
commit ed48fb1d69
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/dockmanager/toolbar/unit1.lrs
View File

@ -1,5 +1,3 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'6'#1#6'Height'#3#139#0#3'Top'#3#151#0#5'W'
+'idth'#3#144#1#13'ActiveControl'#7#10'swInitSize'#7'Caption'#6#5'Form1'#12'C'

3
lcl/include/toolbar.inc
View File

@ -611,8 +611,7 @@ begin
then begin
// TODO: center vertically
w:=CurControl.Width;
if not (align in [alTop, alBottom])
then h := CurControl.Height; // buttonheight overrules autosize in hor toolbar
h:=CurControl.Height;
end
else begin
w:=NewControlWidth;