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

Qt: cleanup

Browse Source 
git-svn-id: trunk@34505 -
This commit is contained in:
zeljko 2011-12-29 18:15:45 +00:00
parent 5dabddd408
commit 2369626edf
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5376,7 +5376,6 @@ function TQtBitBtn.EventFilter(Sender: QObjectH; Event: QEventH): Boolean;
QFontMetrics_boundingRect(AFontMetrics, PRect(@R3), 0, 0,
QWidget_width(Widget), QWidget_height(Widget), QtAlignLeft or $0800,
PWideString(@AText));
// QFontMetrics_boundingRect(AFontMetrics, PRect(@R3), PWideString(@AText));
QFontMetrics_destroy(AFontMetrics);
@ -5387,27 +5386,27 @@ function TQtBitBtn.EventFilter(Sender: QObjectH; Event: QEventH): Boolean;
IconAlign := QtAlignHCenter or QtAlignVCenter
else
case GlyphLayout of
1:
1: // right
begin
DTFLAGS := DT_RIGHT or DT_VCENTER;
dec(R2.Right, BMargin div 2);
IconAlign := QtAlignRight or QtAlignVCenter;
dec(R2.Right, FIconSize.cx);
end;
2:
2: // top
begin
inc(R2.Top, BMargin div 2);
IconAlign := QtAlignTop or QtAlignHCenter;
inc(R2.Top, FIconSize.cy);
end;
3:
3: // bottom
begin
dec(R2.Bottom, BMargin div 2);
IconAlign := QtAlignBottom or QtAlignHCenter;
dec(R2.Bottom, FIconSize.cy);
end;
else
begin
begin // left
DTFLAGS := DT_LEFT or DT_VCENTER;
inc(R2.Left, BMargin div 2);
IconAlign := QtAlignLeft or QtAlignVCenter;