paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 08:58:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

qt: use dash patterns on qt 4.3 too (thanks Den for the hint)

Browse Source 
git-svn-id: trunk@17273 -
This commit is contained in:
paul 2008-11-08 11:17:13 +00:00
parent 2e48fd922a
commit 7723b7a27d
2 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/qt/qtobjects.pas
View File

@ -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() ');

2
lcl/widgetset/wscomctrls.pp
View File

@ -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, *