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

lcl: pass Width = 0 to CreatePenIndirect if pen is cosmetic

Browse Source 
git-svn-id: trunk@17379 -
This commit is contained in:
paul 2008-11-14 04:43:42 +00:00
parent acf0fa16a8
commit 5eb4c0c00f
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/pen.inc
View File

@ -378,7 +378,10 @@ begin
elpPenStyle := PEN_STYLES[Style] or PEN_GEOMETRIC[IsGeometric]; elpPenStyle := PEN_STYLES[Style] or PEN_GEOMETRIC[IsGeometric];
if IsGeometric then if IsGeometric then
elpPenStyle := elpPenStyle or PEN_ENDCAP[EndCap] or PEN_JOIN[JoinStyle]; elpPenStyle := elpPenStyle or PEN_ENDCAP[EndCap] or PEN_JOIN[JoinStyle];
elpWidth := Width; if IsGeometric then
elpWidth := Width
else
elpWidth := 0;
elpBrushStyle := BS_SOLID; elpBrushStyle := BS_SOLID;
elpColor := FColor; elpColor := FColor;
end; end;