paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 03:00:24 +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 begin
Path := nil; Path := nil;
Column := nil; Column := nil;
Cell := nil;
if IsTreeView then if IsTreeView then
PGtkTreeView(GetContainerWidget)^.get_cursor(@Path, Column) PGtkTreeView(GetContainerWidget)^.get_cursor(@Path, Column)
else else
@ -6017,10 +6018,7 @@ begin
end; end;
function GtkPopupCloseUp(AData: Pointer): gboolean; cdecl; function GtkPopupCloseUp(AData: Pointer): gboolean; cdecl;
var
ComboBox: TCustomComboBox;
begin begin
ComboBox := TCustomComboBox(TGtk3Widget(AData).LCLObject);
LCLSendCloseUpMsg(TGtk3Widget(AData).LCLObject); LCLSendCloseUpMsg(TGtk3Widget(AData).LCLObject);
Result := False;// stop the timer Result := False;// stop the timer
end; end;
@ -6221,8 +6219,7 @@ begin
g_signal_connect_data(FWidget, 'toggled', TGCallback(@Gtk3Toggled), Self, nil, 0); g_signal_connect_data(FWidget, 'toggled', TGCallback(@Gtk3Toggled), Self, nil, 0);
end; end;
function TGtk3ToggleButton.CreateWidget(const Params: TCreateParams function TGtk3ToggleButton.CreateWidget(const Params: TCreateParams): PGtkWidget;
): PGtkWidget;
begin begin
Result := PGtkWidget(TGtkToggleButton.new); Result := PGtkWidget(TGtkToggleButton.new);
end; end;
@ -6267,8 +6264,7 @@ end;
{ TGtk3CustomControl } { TGtk3CustomControl }
function TGtk3CustomControl.CreateWidget(const Params: TCreateParams function TGtk3CustomControl.CreateWidget(const Params: TCreateParams): PGtkWidget;
): PGtkWidget;
var var
FUseLayout: Boolean; FUseLayout: Boolean;
begin begin