pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TToolPanel on TFrame now work

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@457 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2008-05-31 17:58:24 +00:00
parent d13467856e
commit 3747542709
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/rxtoolbar.pas
View File

@ -1038,7 +1038,7 @@ var
i, L:integer; i, L:integer;
begin begin
inherited Loaded; inherited Loaded;
L:=0; { L:=0;
for i:=0 to FToolbarItems.Count - 1 do for i:=0 to FToolbarItems.Count - 1 do
begin begin
if ButtonAllign = tbaLeft then if ButtonAllign = tbaLeft then
@ -1050,7 +1050,7 @@ begin
else else
FToolbarItems[i].UpdateLeftAfterLoad; FToolbarItems[i].UpdateLeftAfterLoad;
end; end;
}
for i:=0 to FToolbarItems.Count - 1 do for i:=0 to FToolbarItems.Count - 1 do
begin begin
FToolbarItems[i].FButton.Align:=BtnAl2Align[FButtonAllign]; FToolbarItems[i].FButton.Align:=BtnAl2Align[FButtonAllign];