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

LCL: TButtonPanel: fixed button order

Browse Source 
git-svn-id: trunk@28008 -
This commit is contained in:
mattias 2010-10-31 12:09:03 +00:00
parent ea891beeed
commit c099868130
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/buttonpanel.pas
View File

@ -349,6 +349,7 @@ begin
if FButtons[TabOrders[FButtonOrder, i]] = nil then Continue;
FButtons[TabOrders[FButtonOrder, i]].TabOrder := High(TabOrders[FButtonOrder]) - i;
end;
AdjustSize;
end;
procedure TCustomButtonPanel.SetAlign(Value: TAlign);
@ -531,7 +532,7 @@ begin
if AControl1 = FBevel then Exit(True);
if AControl2 = FBevel then Exit(False);
Result := TWincontrol(AControl2).TabOrder < TWincontrol(AControl1).TabOrder;
Result := TWincontrol(AControl2).TabOrder > TWincontrol(AControl1).TabOrder;
if not (AControl1 is TPanelBitBtn) and (AControl2 is TPanelBitBtn) then
begin
if AControl2 = FButtons[pbHelp] then