paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 10:12:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

Implements text rotation on Qt widgetset.

Browse Source 
git-svn-id: trunk@10198 -
This commit is contained in:
sekelsenmat 2006-11-14 16:41:31 +00:00
parent 79c42a0c12
commit cdfcfafb10
2 changed files with 72 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -74,6 +74,7 @@ type
private
public
Widget: QFontH;
Angle: Integer;
public
constructor Create(CreateHandle: Boolean); virtual;
destructor Destroy; override;
@ -189,6 +190,10 @@ type
function region: TQtRegion;
procedure setRegion(region: TQtRegion);
procedure drawImage(targetRect: PRect; image: QImageH; sourceRect: PRect; flags: QtImageConversionFlags = QtAutoColor);
procedure rotate(a: Double);
procedure save;
procedure restore;
procedure translate(dx: Double; dy: Double);
end;
{ TQtPixmap }
@ -767,15 +772,23 @@ var
QtFontMetrics: TQtFontMetrics;
begin
{$ifdef VerboseQt}
WriteLn('TQtDeviceContext.drawText TargetX: ', (Origin.X + X), ' TargetY: ', (Origin.Y + Y));
Write('TQtDeviceContext.drawText TargetX: ', (Origin.X + X), ' TargetY: ', (Origin.Y + Y));
{$endif}
QtFontMetrics := TQtFontMetrics.Create(Font.Widget);
try
QPainter_drawText(Widget, Origin.X + x, Origin.Y + y + QtFontMetrics.height, s);
Save;
translate(Origin.X + x, Origin.Y + y + QtFontMetrics.height);
Rotate(-0.1 * vFont.Angle);
QPainter_drawText(Widget, 0, 0, s);
Restore;
{$ifdef VerboseQt}
WriteLn(' Font metrics height: ', QtFontMetrics.height);
WriteLn(' Font metrics height: ', QtFontMetrics.height, ' Angle: ', Round(0.1 * vFont.Angle));
{$endif}
finally
QtFontMetrics.Free;
@ -858,7 +871,11 @@ end;
procedure TQtDeviceContext.setFont(f: TQtFont);
begin
if (f.Widget <> nil) and (Widget <> nil) and (Parent <> nil) then
QPainter_setFont(Widget, QFontH(f.Widget));
begin
QPainter_setFont(Widget, QFontH(f.Widget));
vFont.Angle := f.Angle;
end;
end;
{------------------------------------------------------------------------------
@ -944,6 +961,54 @@ begin
QPainter_drawImage(Widget, PRect(@LocalRect), image, sourceRect, flags);
end;
{------------------------------------------------------------------------------
Function: TQtDeviceContext.rotate
Params: None
Returns: Nothing
Rotates the coordinate system
------------------------------------------------------------------------------}
procedure TQtDeviceContext.rotate(a: Double);
begin
QPainter_rotate(Widget, a);
end;
{------------------------------------------------------------------------------
Function: TQtDeviceContext.save
Params: None
Returns: Nothing
Saves the state of the canvas
------------------------------------------------------------------------------}
procedure TQtDeviceContext.save;
begin
QPainter_save(Widget);
end;
{------------------------------------------------------------------------------
Function: TQtDeviceContext.restore
Params: None
Returns: Nothing
Restores the state of the canvas
------------------------------------------------------------------------------}
procedure TQtDeviceContext.restore;
begin
QPainter_restore(Widget);
end;
{------------------------------------------------------------------------------
Function: TQtDeviceContext.translate
Params: None
Returns: Nothing
Tranlates the coordinate system
------------------------------------------------------------------------------}
procedure TQtDeviceContext.translate(dx: Double; dy: Double);
begin
QPainter_translate(Widget, dx, dy);
end;
{ TQtPixmap }
constructor TQtPixmap.Create(p1: PSize);

4
lcl/interfaces/qt/qtwinapi.inc
View File

@ -289,7 +289,9 @@ begin
FW_HEAVY : QtFont.setWeight(87);
end;
// LogFont.lfOrientation: Longint;
QtFont.Angle := LogFont.lfEscapement;
//LogFont.lfOrientation;
QtFont.setItalic(LogFont.lfItalic = High(Byte));
QtFont.setUnderline(LogFont.lfUnderline = High(Byte));