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

Qt: formatting

Browse Source 
git-svn-id: trunk@12190 -
This commit is contained in:
paul 2007-09-27 01:46:30 +00:00
parent 767f96d04f
commit 5cf5011af9
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtint.pp
View File

@ -110,7 +110,7 @@ type
function CreateDefaultFont: HFONT; virtual;
function GetQtDefaultDC: HDC; virtual;
procedure DeleteDefaultDC; virtual;
procedure SetQtDefaultDC(Handle: HDC); virtual;
procedure SetQtDefaultDC(Handle: HDC); virtual;
procedure InitStockItems; virtual;
procedure FreeStockItems; virtual;

2
lcl/interfaces/qt/qtobject.inc
View File

@ -286,7 +286,7 @@ begin
if IsValidDC(CanvasHandle) then
begin
//WriteLn('TQtWidgetSet.DCSetPixel X=',X,' Y=',Y, ' AColor=',dbghex(AColor));
Painter :=TQtDeviceContext(CanvasHandle).Widget;
Painter := TQtDeviceContext(CanvasHandle).Widget;
Pen := QPainter_pen(Painter);
QPen_color(Pen, @ASavedColor);
QColor_setRgb(QColorH(@Color),Red(AColor),Green(AColor),Blue(AColor));

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

@ -1556,6 +1556,7 @@ begin
if AFont.Angle <> 0 then
Rotate(-0.1 * AFont.Angle);
// what about AFont.Metrics.descent and AFont.Metrics.leading ?
y := y + AFont.Metrics.ascent;
// manual check for clipping