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

gtk3: setDefault for TGtk3Button

Browse Source 
git-svn-id: trunk@41831 -
This commit is contained in:
zeljko 2013-06-23 15:01:07 +00:00
parent 427f224c5d
commit 70f963dafe
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -634,6 +634,7 @@ type
function CreateWidget(const Params: TCreateParams):PGtkWidget; override;
public
function IsWidgetOk: Boolean; override;
procedure SetDefault(const ADefault: Boolean);
property Layout: Integer read getLayout write SetLayout;
property Margin: Integer read getMargin write SetMargin;
property Spacing: Integer read FSpacing write SetSpacing;
@ -5742,6 +5743,12 @@ begin
Result := (FWidget <> nil) and Gtk3IsButton(FWidget);
end;
procedure TGtk3Button.SetDefault(const ADefault: Boolean);
begin
if IsWidgetOk then
GetContainerWidget^.set_can_default(ADefault);
end;
{ TGtk3ToggleButton }
procedure Gtk3Toggled(AWidget: PGtkToggleButton; AData: gPointer); cdecl;
var

4
lcl/interfaces/gtk3/gtk3wsstdctrls.pp
View File

@ -1045,7 +1045,9 @@ end;
class procedure TGtk3WSButton.SetDefault(const AButton: TCustomButton; ADefault: Boolean);
begin
//TODO:
if not WSCheckHandleAllocated(AButton, 'SetDefault') then
Exit;
TGtk3Button(AButton.Handle).SetDefault(ADefault);
end;
class procedure TGtk3WSButton.SetShortCut(const AButton: TCustomButton;