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

change formatting a bit

Browse Source 
git-svn-id: trunk@12922 -
This commit is contained in:
paul 2007-11-19 10:19:27 +00:00
parent 20cd4d14f7
commit deb98c5756
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk/gtkproc.inc
View File

@ -9127,11 +9127,10 @@ begin
MainWidget:=PGtkWidget(AWinControl.Handle);
FixWidget:=GetFixedWidget(MainWidget);
If (FixWidget <> nil) and (FixWidget<>MainWidget) then
if (FixWidget <> nil) and (FixWidget <> MainWidget) then
Widget := FixWidget
else begin
else
Widget := MainWidget;
end;
RCStyle:=nil;
FreeFontName:=false;
@ -9140,8 +9139,9 @@ begin
// set default background
if (AWinControl.Color=clNone) then begin
// clNone => remove default background
if (FixWidget<>nil) and (FixWidget^.Window<>nil) then begin
gdk_window_set_back_pixmap(FixWidget^.Window,nil,GdkFalse);
if (FixWidget<>nil) and (FixWidget^.Window<>nil) then
begin
gdk_window_set_back_pixmap(FixWidget^.Window, nil, GdkFalse);
end;
end
else