diff --git a/lcl/interfaces/qt/qtobjects.pas b/lcl/interfaces/qt/qtobjects.pas
index 66f27ab722..0ca9b8f1ed 100644
--- a/lcl/interfaces/qt/qtobjects.pas
+++ b/lcl/interfaces/qt/qtobjects.pas
@@ -1462,11 +1462,7 @@ end;
 
 function TQtPen.getDashPattern: TQRealArray;
 begin
-{$ifdef USE_QT_44}
   QPen_dashPattern(Widget, @Result);
-{$else}
-  Result := nil;
-{$endif}
 end;
 
 {------------------------------------------------------------------------------
@@ -1501,18 +1497,14 @@ begin
 end;
 
 procedure TQtPen.setDashPattern(APattern: PDWord; ALength: DWord);
-{$ifdef USE_QT_44}
 var
   QtPattern: TQRealArray;
   i: integer;
-{$endif}
 begin
-{$ifdef USE_QT_44}
   SetLength(QtPattern, ALength);
   for i := 0 to ALength - 1 do
     QtPattern[i] := APattern[i];
   QPen_setDashPattern(Widget, @QtPattern);
-{$endif}
 end;
 
 procedure TQtPen.setJoinStyle(pcs: QtPenJoinStyle);
@@ -2503,7 +2495,6 @@ var
   APixmap, ATemp: QPixmapH;
   AMask: QBitmapH;
   ScaledImage: QImageH;
-  W, H: Integer;
 begin
   {$ifdef VerboseQt}
   Write('TQtDeviceContext.drawImage() ');
diff --git a/lcl/widgetset/wscomctrls.pp b/lcl/widgetset/wscomctrls.pp
index bd4057da3f..db57390d69 100644
--- a/lcl/widgetset/wscomctrls.pp
+++ b/lcl/widgetset/wscomctrls.pp
@@ -11,7 +11,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,          *