paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 12:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Improve shape click detection in TShape. Issue #40483.

Browse Source
This commit is contained in:
Juha 2023-09-10 20:39:57 +03:00
parent a018a3ca41
commit e2b8f45b62
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/shape.inc
View File

@ -86,7 +86,6 @@ begin
FBitmapCopy.Canvas.Brush.Style:=bsSolid;
FBitmapCopy.Canvas.Brush.Color:=clWhite;
FBitmapCopy.Canvas.FillRect(0,0,Width,Height);
FBitmapCopy.Canvas.Brush := Brush;
FBitmapCopy.Canvas.Brush.Color:=clBlack;
FBitmapCopy.Canvas.Pen := Pen;
FBitmapCopy.Canvas.Pen.Color:=clBlack;