paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 07:40:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

qt: cleanup, remove PS_USERSTYLE from case since it can be only passed in EXTLOGPEN not in LOGPEN

Browse Source 
git-svn-id: trunk@16802 -
This commit is contained in:
paul 2008-09-30 03:28:08 +00:00
parent 898d951e30
commit c6336bf30d
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -617,9 +617,7 @@ var
QtPen: TQtPen;
color: TQColor;
begin
// Assert(False, 'trace:[TQtWidgetSet.CreatePenIndirect]');
// writeln('CreatePenIndirect->');
Result := 0;
Result := 0;
QtPen := TQtPen.Create(True);
with LogPen do
@ -628,10 +626,9 @@ begin
PS_SOLID: QtPen.setStyle(QtSolidLine);
PS_DASH: QtPen.setStyle(QtDashLine);
PS_DOT: QtPen.setStyle(QtDotLine);
PS_DASHDOT:QtPen.setStyle(QtDashDotLine);
PS_DASHDOTDOT:QtPen.setStyle(QtDashDotDotLine);
PS_USERSTYLE: QtPen.setStyle(QtCustomDashLine);
PS_NULL:QtPen.setStyle(QtNoPen);
PS_DASHDOT: QtPen.setStyle(QtDashDotLine);
PS_DASHDOTDOT: QtPen.setStyle(QtDashDotDotLine);
PS_NULL: QtPen.setStyle(QtNoPen);
else
QtPen.setStyle(QtSolidLine);
end;