diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 78c26ab9f4..d8c1c1a639 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -413,6 +413,7 @@ type
   end;
   
 implementation
+
 const
   AlignmentMap: array[TAlignment] of QtAlignment =
   (
@@ -1565,6 +1566,7 @@ var
 begin
   Parent := TQtWidget(LCLObject.Parent.Handle).Widget;
   Widget := QWidget_create(Parent);
+  Result := Widget;
 end;
 
 procedure TQtWidget.SetGeometry;
diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index a701adde9e..8a8cd8fcda 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -864,7 +864,7 @@ end;
 function TQtWidgetSet.Frame3d(DC : HDC; var ARect : TRect;
   const FrameWidth : integer; const Style : TBevelCut) : boolean;
 begin
-
+  Result := True;
 end;
 
 {------------------------------------------------------------------------------
diff --git a/lcl/interfaces/qt/qtwscontrols.pp b/lcl/interfaces/qt/qtwscontrols.pp
index a0fc601ffb..7ffdd1560b 100644
--- a/lcl/interfaces/qt/qtwscontrols.pp
+++ b/lcl/interfaces/qt/qtwscontrols.pp
@@ -250,7 +250,6 @@ end;
 {------------------------------------------------------------------------------
   Method: TQtWSWinControl.SetColor
   Params:  AWinControl     - the calling object
-
   Returns: Nothing
 
   Sets the color of the widget.
@@ -267,7 +266,7 @@ begin
   if AWinControl.Color = CLR_INVALID then exit;
 
   // Get the color numeric value (system colors are mapped to numeric colors depending on the widget style)
-  Color:=ColorToRGB(AWinControl.Color);
+  Color := ColorToRGB(AWinControl.Color);
   
   // Fill QColor
   QColor_setRgb(@QColor,Red(Color),Green(Color),Blue(Color));
@@ -276,6 +275,13 @@ begin
   TQtWidget(AWinControl.Handle).SetColor(@QColor);
 end;
 
+{------------------------------------------------------------------------------
+  Method: TQtWSWinControl.SetCursor
+  Params:  AWinControl     - the calling object
+  Returns: Nothing
+
+  Sets the cursor of the widget.
+ ------------------------------------------------------------------------------}
 class procedure TQtWSWinControl.SetCursor(const AWinControl: TWinControl; const ACursor: HCursor);
 begin
   if AWinControl = nil then exit;