paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-29 13:00:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE debugger options: fix select button style

Browse Source 
git-svn-id: trunk@62995 -
This commit is contained in:
ondrej 2020-04-16 07:06:55 +00:00
parent fa95a279f6
commit 2356d3b3d6
2 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
debugger/frames/debugger_class_options.lfm
View File

@ -25,8 +25,7 @@ object DebuggerClassOptionsFrame: TDebuggerClassOptionsFrame
Top = 0
Caption = 'tbSelect'
DropdownMenu = tbDropMenu
OnClick = tbSelectClick
Style = tbsDropDown
Style = tbsButtonDrop
end
object tbAddNew: TToolButton
Left = 78

6
debugger/frames/debugger_class_options.pas
View File

@ -71,7 +71,6 @@ type
procedure tbAddNewClick(Sender: TObject);
procedure tbCopyClick(Sender: TObject);
procedure tbDeleteClick(Sender: TObject);
procedure tbSelectClick(Sender: TObject);
private
FDebuggerFileHistory: TStringList;
FInOdNameExit: Boolean;
@ -267,11 +266,6 @@ begin
FetchDebuggerSpecificOptions;
end;
procedure TDebuggerClassOptionsFrame.tbSelectClick(Sender: TObject);
begin
tbSelect.CheckMenuDropdown;
end;
function TDebuggerClassOptionsFrame.SelectedDebuggerClass: TDebuggerClass;
begin
if FSelectedDbgPropertiesConfig = nil then