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

Qt: fixed results of CreateFontIndirectEx and CreateBrushIndirect.

Browse Source 
git-svn-id: trunk@33481 -
This commit is contained in:
zeljko 2011-11-11 15:54:32 +00:00
parent 6bc3dea6eb
commit 58aeeace3a
1 changed files with 9 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -412,18 +412,10 @@ begin
try
case LogBrush.lbStyle of
// BS_HOLLOW, // Hollow brush.
BS_NULL: // Same as BS_HOLLOW.
begin
QtBrush.Style := QtNoBrush;
end;
BS_NULL: QtBrush.Style := QtNoBrush; // Same as BS_HOLLOW.
BS_SOLID: QtBrush.Style := QtSolidPattern;
BS_SOLID: // Solid brush.
begin
QtBrush.Style := QtSolidPattern;
end;
BS_HATCHED: // Hatched brush.
BS_HATCHED: // Hatched brushes.
begin
case LogBrush.lbHatch of
HS_BDIAGONAL: QtBrush.Style := QtBDiagPattern;
@ -475,15 +467,12 @@ begin
Color := QBrush_Color(QtBrush.FHandle)^;
ColorRefToTQColor(ColorToRGB(TColor(logBrush.lbColor)), Color);
QtBrush.setColor(@Color);
Result := HBRUSH(QtBrush);
except
{$ifdef VerboseQtWinAPI}
WriteLn('[WinAPI CreateBrushIndirect] Failed');
{$endif}
Result := 0;
DebugLn('TQtWidgetSet.CreateBrushIndirect: Failed');
end;
Result := HBRUSH(QtBrush);
//WriteLn('Created brush ', Result);
{$ifdef VerboseQtWinAPI}
WriteLn('Trace:< [WinAPI CreateBrushIndirect] Result: ', dbghex(Result));
{$endif}
@ -607,8 +596,10 @@ begin
if (LogFont.lfQuality >= Low(QStyleStategy)) and (LogFont.lfQuality <= High(QStyleStategy)) then
QtFont.setStyleStrategy(QStyleStategy[LogFont.lfQuality]);
finally
Result := HFONT(QtFont);
except
Result := 0;
DebugLn('TQtWidgetSet.CreateFontIndirectEx: Failed');
end;
end;