mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Patch [ 1874345 ] fconfigtoobar from B4rr4cuda

Browse source
This commit is contained in:
Alexander Koblov 2008-01-19 09:51:42 +00:00
commit d4a347f8a4
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
fconfigtoolbar.pas
View file

@ -183,7 +183,10 @@ end;
procedure TfrmConfigToolBar.btnAddButtonClick(Sender: TObject);
begin
Save;
NewToolButton := ktbBar.AddButton('', '', '', '');
ktbBar.Buttons[ktbBar.ButtonCount-1].Down:=true;
ktbBarToolButtonClick(Sender,ktbBar.ButtonCount-1);
//ShowMessage(IntToStr(NewToolButton));
end;
@ -234,6 +237,8 @@ begin
kedtToolTip.Text := '';
LastToolButton := -1;
NewToolButton := -1;
ktbBar.Buttons[ktbBar.ButtonCount-1].Down:=true;
ktbBarToolButtonClick(Sender,ktbBar.ButtonCount-1);
end;
end;