diff --git a/lcl/interfaces/gtk/gtklclintf.inc b/lcl/interfaces/gtk/gtklclintf.inc
index 60fd9f6f56..15c081a0db 100644
--- a/lcl/interfaces/gtk/gtklclintf.inc
+++ b/lcl/interfaces/gtk/gtklclintf.inc
@@ -33,7 +33,7 @@
 procedure TGTKWidgetSet.DrawDefaultDockImage(AOldRect, ANewRect: TRect;
   AOperation: TDockImageOperation);
 const
-  LineWidth = 3;
+  LineWidth = 2;
 var
   Mask: PGdkBitmap;
   gc: PGdkGC;
diff --git a/lcl/interfaces/gtk/gtkwidgetset.inc b/lcl/interfaces/gtk/gtkwidgetset.inc
index bd8acedc19..838acca7a4 100644
--- a/lcl/interfaces/gtk/gtkwidgetset.inc
+++ b/lcl/interfaces/gtk/gtkwidgetset.inc
@@ -1094,27 +1094,29 @@ begin
   //RaiseGDBException('');
   if ChangeFGColor then
   begin
-    xfg := AllocGDKColor(colorToRGB(FGColor));
+    xfg := AllocGDKColor(ColorToRGB(FGColor));
     for i := GTK_STATE_NORMAL to GTK_STATE_INSENSITIVE do
     begin
       if i in mask then
       begin
         if GTK_STYLE_TEXT in mask then
           gtk_widget_modify_text(AWidget, i ,@xfg)
-        else gtk_widget_modify_fg(AWidget, i ,@xfg);
+        else
+          gtk_widget_modify_fg(AWidget, i ,@xfg);
       end;
     end;
   end;
   if ChangeBGColor then
   begin
-    xbg := AllocGDKColor(colorToRGB(BGColor));
+    xbg := AllocGDKColor(ColorToRGB(BGColor));
     for i := GTK_STATE_NORMAL to GTK_STATE_INSENSITIVE do
     begin
       if i in mask then
       begin
         if GTK_STYLE_BASE in mask then
           gtk_widget_modify_base(AWidget, i ,@xbg)
-        else gtk_widget_modify_bg(AWidget, i ,@xbg);
+        else
+          gtk_widget_modify_bg(AWidget, i ,@xbg);
       end;
     end;
   end;