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

LCL-GTK3: Reduce warnings. Formatting.

Browse Source 
git-svn-id: trunk@59261 -
This commit is contained in:
juha 2018-10-07 08:35:48 +00:00
parent 71e00d6853
commit 27955d5237
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5743,6 +5743,7 @@ begin
begin
Path := nil;
Column := nil;
Cell := nil;
if IsTreeView then
PGtkTreeView(GetContainerWidget)^.get_cursor(@Path, Column)
else
@ -6017,10 +6018,7 @@ begin
end;
function GtkPopupCloseUp(AData: Pointer): gboolean; cdecl;
var
ComboBox: TCustomComboBox;
begin
ComboBox := TCustomComboBox(TGtk3Widget(AData).LCLObject);
LCLSendCloseUpMsg(TGtk3Widget(AData).LCLObject);
Result := False;// stop the timer
end;
@ -6221,8 +6219,7 @@ begin
g_signal_connect_data(FWidget, 'toggled', TGCallback(@Gtk3Toggled), Self, nil, 0);
end;
function TGtk3ToggleButton.CreateWidget(const Params: TCreateParams
): PGtkWidget;
function TGtk3ToggleButton.CreateWidget(const Params: TCreateParams): PGtkWidget;
begin
Result := PGtkWidget(TGtkToggleButton.new);
end;
@ -6267,8 +6264,7 @@ end;
{ TGtk3CustomControl }
function TGtk3CustomControl.CreateWidget(const Params: TCreateParams
): PGtkWidget;
function TGtk3CustomControl.CreateWidget(const Params: TCreateParams): PGtkWidget;
var
FUseLayout: Boolean;
begin