Commit 2cf9b0d5 authored by Željan Rikalo's avatar Željan Rikalo 🏊🏼
Browse files

LCL: fixed incosistency in pen when using TLogPen and TExtLogPen. issue #32465

git-svn-id: trunk@55934 -
parent b21af159
......@@ -389,10 +389,18 @@ begin
if IsGeometric then
elpWidth := Width
else
//(https://msdn.microsoft.com/en-us/library/windows/desktop/dd162705(v=vs.85).aspx
//https://msdn.microsoft.com/en-us/library/windows/desktop/dd162711(v=vs.85).aspx
//Issue #0022646
elpWidth := 1;
begin
// issue #32465, regression from fixing #22646. Pure cosmetic
// pen is created via TLogPen, not via TExtLogPen
if ((elpPenStyle and PS_STYLE_MASK) = elpPenStyle) and
(elpPenStyle <> PS_USERSTYLE) then
elpWidth := 0
else
//(https://msdn.microsoft.com/en-us/library/windows/desktop/dd162705(v=vs.85).aspx
//https://msdn.microsoft.com/en-us/library/windows/desktop/dd162711(v=vs.85).aspx
//Issue #0022646
elpWidth := 1;
end;
elpBrushStyle := BS_SOLID;
elpColor := TColorRef(FColor);
end;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment