mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-17 23:48:29 +02:00
LCL: fixed incosistency in pen when using TLogPen and TExtLogPen. issue #32465
git-svn-id: trunk@55934 -
This commit is contained in:
parent
b21af159d3
commit
2cf9b0d547
@ -389,10 +389,18 @@ begin
|
|||||||
if IsGeometric then
|
if IsGeometric then
|
||||||
elpWidth := Width
|
elpWidth := Width
|
||||||
else
|
else
|
||||||
//(https://msdn.microsoft.com/en-us/library/windows/desktop/dd162705(v=vs.85).aspx
|
begin
|
||||||
//https://msdn.microsoft.com/en-us/library/windows/desktop/dd162711(v=vs.85).aspx
|
// issue #32465, regression from fixing #22646. Pure cosmetic
|
||||||
//Issue #0022646
|
// pen is created via TLogPen, not via TExtLogPen
|
||||||
elpWidth := 1;
|
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;
|
elpBrushStyle := BS_SOLID;
|
||||||
elpColor := TColorRef(FColor);
|
elpColor := TColorRef(FColor);
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user