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

lcl: fix taborder of buttonpanel buttons (left to right now)

Browse Source 
git-svn-id: trunk@18479 -
This commit is contained in:
paul 2009-01-29 02:14:01 +00:00
parent c0da1f9b54
commit d228a457dc
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/buttonpanel.pas
View File

@ -269,7 +269,7 @@ end;
procedure TCustomButtonPanel.UpdateButtonOrder; procedure TCustomButtonPanel.UpdateButtonOrder;
const const
TABORDERS: array[TButtonOrder, 0..3] of TPanelButton = ( TabOrders: array[TButtonOrder, 0..3] of TPanelButton = (
{$IFDEF UNIX} {$IFDEF UNIX}
{boDefault } (pbOK, pbCancel, pbClose, pbHelp), {boDefault } (pbOK, pbCancel, pbClose, pbHelp),
{$ELSE} {$ELSE}
@ -282,10 +282,10 @@ var
i: Integer; i: Integer;
begin begin
//set taborder //set taborder
for i := Low(TABORDERS[FButtonOrder]) to High(TABORDERS[FButtonOrder]) do for i := Low(TabOrders[FButtonOrder]) to High(TabOrders[FButtonOrder]) do
begin begin
if FButtons[TABORDERS[FButtonOrder, i]] = nil then Continue; if FButtons[TabOrders[FButtonOrder, i]] = nil then Continue;
FButtons[TABORDERS[FButtonOrder, i]].Taborder := i; FButtons[TabOrders[FButtonOrder, i]].TabOrder := High(TabOrders[FButtonOrder]) - i;
end; end;
Realign; Realign;
end; end;
@ -445,7 +445,7 @@ begin
if AControl1 = FBevel then Exit(True); if AControl1 = FBevel then Exit(True);
if AControl2 = FBevel then Exit(False); if AControl2 = FBevel then Exit(False);
Result := TWincontrol(AControl2).TabOrder < TWincontrol(AControl1).TabOrder; Result := TWincontrol(AControl2).TabOrder > TWincontrol(AControl1).TabOrder;
end; end;
procedure TCustomButtonPanel.CustomAlignPosition(AControl: TControl; var ANewLeft, ANewTop, procedure TCustomButtonPanel.CustomAlignPosition(AControl: TControl; var ANewLeft, ANewTop,