paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 10:14:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/TShape: Fix control not being selectable in form designer when Shape=stPolygon.

Browse Source
This commit is contained in:
wp_xyz 2023-09-12 11:04:29 +02:00
parent debaca4729
commit c92ad74886
1 changed files with 15 additions and 0 deletions

15
lcl/include/shape.inc
View File

@ -203,6 +203,21 @@ begin
ACanvas.Polygon(P); ACanvas.Polygon(P);
end; end;
stPolygon: stPolygon:
if (csDesigning in ComponentState) then
begin
if Assigned(FBitmapCopy) and (ACanvas <> FBitmapCopy.Canvas) then
begin
ACanvas.Brush.Color := Parent.Color;
ACanvas.Brush.Style := bsSolid;
ACanvas.Pen.Style := psDash;
ACanvas.Pen.Color := clWindowText;
ACanvas.Rectangle(PaintRect);
ACanvas.Pen.Color := clRed;
ACanvas.Line(0, 0, Width-1, Height-1);
ACanvas.Line(0, Height-1, Width-1, 0);
end else
ACanvas.Rectangle(PaintRect);
end else
if Assigned(FOnShapePoints) then if Assigned(FOnShapePoints) then
begin begin
SetLength(P, 0); SetLength(P, 0);