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

gtk3: fixed accelerator char on togglebutton. issue #36255

Browse Source 
git-svn-id: trunk@62191 -
This commit is contained in:
zeljko 2019-11-04 14:35:36 +00:00
parent a68352f396
commit 7d7fd26ec7
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -6455,8 +6455,12 @@ begin
end; end;
function TGtk3ToggleButton.CreateWidget(const Params: TCreateParams): PGtkWidget; function TGtk3ToggleButton.CreateWidget(const Params: TCreateParams): PGtkWidget;
var
btn: PGtkToggleButton;
begin begin
Result := PGtkWidget(TGtkToggleButton.new); btn := TGtkToggleButton.new;
btn^.use_underline := True;
Result := PGtkWidget(btn);
end; end;
{ TGtk3CheckBox } { TGtk3CheckBox }