diff --git a/lcl/interfaces/gtk2/gtk2def.pp b/lcl/interfaces/gtk2/gtk2def.pp
index 3fc2842907..d6144d67fe 100644
--- a/lcl/interfaces/gtk2/gtk2def.pp
+++ b/lcl/interfaces/gtk2/gtk2def.pp
@@ -13,7 +13,7 @@
  *                                                                           *
  *  This file is part of the Lazarus Component Library (LCL)                 *
  *                                                                           *
- *  See the file COPYING.modifiedLGPL.txt, included in this distribution,        *
+ *  See the file COPYING.modifiedLGPL.txt, included in this distribution,    *
  *  for details about the copyright.                                         *
  *                                                                           *
  *  This program is distributed in the hope that it will be useful,          *
diff --git a/lcl/interfaces/gtk2/gtk2devicecontext.inc b/lcl/interfaces/gtk2/gtk2devicecontext.inc
index 0e69a1a6f0..9e5106a8ab 100644
--- a/lcl/interfaces/gtk2/gtk2devicecontext.inc
+++ b/lcl/interfaces/gtk2/gtk2devicecontext.inc
@@ -8,7 +8,7 @@
  *                                                                           *
  *  This file is part of the Lazarus Component Library (LCL)                 *
  *                                                                           *
- *  See the file COPYING.modifiedLGPL.txt, included in this distribution,        *
+ *  See the file COPYING.modifiedLGPL.txt, included in this distribution,    *
  *  for details about the copyright.                                         *
  *                                                                           *
  *  This program is distributed in the hope that it will be useful,          *
diff --git a/lcl/interfaces/gtk2/gtk2proc.inc b/lcl/interfaces/gtk2/gtk2proc.inc
index 9fbe7cea87..4b0955cefa 100644
--- a/lcl/interfaces/gtk2/gtk2proc.inc
+++ b/lcl/interfaces/gtk2/gtk2proc.inc
@@ -1501,20 +1501,21 @@ end;
 
 procedure SetGDIColorRef(var GDIColor: TGDIColor; NewColorRef: TColorRef);
 begin
-  if GDIColor.ColorRef=NewColorRef then exit;
+  if GDIColor.ColorRef = NewColorRef then Exit;
   FreeGDIColor(@GDIColor);
-  GDIColor.ColorRef:=NewColorRef;
+  GDIColor.ColorRef := NewColorRef;
 end;
 
-Procedure AllocGDIColor(DC: hDC; GDIColor: PGDIColor);
+procedure AllocGDIColor(DC: hDC; GDIColor: PGDIColor);
 var
   RGBColor : Longint;
 begin
-  if DC=0 then ;
-  if not (cfColorAllocated in GDIColor^.ColorFlags) then begin
+  if not (cfColorAllocated in GDIColor^.ColorFlags) then
+  begin
     RGBColor := ColorToRGB(GDIColor^.ColorRef);
 
-    With GDIColor^.Color do begin
+    with GDIColor^.Color do
+    begin
       Red := gushort(GetRValue(RGBColor)) shl 8;
       Green := gushort(GetGValue(RGBColor)) shl 8;
       Blue := gushort(GetBValue(RGBColor)) shl 8;