mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-06 01:13:02 +02:00
29 lines
873 B
Diff
29 lines
873 B
Diff
Index: toolbutton.inc
|
|
===================================================================
|
|
--- toolbutton.inc (revision 20785)
|
|
+++ toolbutton.inc (working copy)
|
|
@@ -853,7 +853,7 @@
|
|
FToolBar:=nil;
|
|
if AParent is TToolBar then
|
|
begin
|
|
- if Style in [tbsButton,tbsDropDown,tbsCheck] then
|
|
+ if (Style in [tbsButton,tbsDropDown,tbsCheck]) and not AutoSize then
|
|
NewWidth:=TToolBar(AParent).ButtonWidth
|
|
else
|
|
NewWidth:=Width;
|
|
@@ -869,8 +869,13 @@
|
|
begin
|
|
FToolBar:=TToolBar(Parent);
|
|
i := Index;
|
|
- if i < 0 then
|
|
+ if i < 0 then begin
|
|
+ //move button last
|
|
+ i := FToolBar.ButtonCount - 1;
|
|
+ if i >= 0 then
|
|
+ Left := FToolBar.Buttons[i].Left + FToolBar.Buttons[i].Width;
|
|
FToolBar.AddButton(Self);
|
|
+ end;
|
|
UpdateVisibleToolbar;
|
|
end;
|
|
//DebugLn(['TToolButton.SetParent A ',Name,' NewIndex=',Index]);
|