[TPath] Как закрыть путь?

[brunnengi]

Здравствуйте.
Кинул TPath. Размер 100 на 100.
Рисую путь (черный цвет на рисунке). Повесил на TPath события: OnMouseEnter и OnMouseLeave;
События срабатывают как при наведении на черную линию, так и на красную область (подкрасил чтобы было понятно).
Как создать такую ломанную что бы события мыши не срабатывали при входе в красную зону, а только при наведении на черную линии?
Ну за исключением самого очевидного варианта - замкнуть линию обратным ходом.
Может есть какое-то правильное решение?

 

 

Изменено 23 мая, 2021 пользователем brunnengi

[OnePeople]

Ну тут нужно смотреть справку по svg формату, код вашей отрисовки скинте

[brunnengi]

path1.Data.Clear;
path1.Data.MoveTo(TPointF.Create(0, 0));
path1.Data.LineTo(TPointF.Create(50, 0));
path1.Data.LineTo(TPointF.Create(50, 50));

[OnePeople]

А такое дальше не идёт Path1.Data.ClosePath? 

Если есть, уберите.

Изменено 24 мая, 2021 пользователем OnePeople

[OnePeople]

Напишите полный код что за куски? Так быстрее будет понятно что не так

[brunnengi]

4 часа назад, OnePeople сказал:

Напишите полный код что за куски? Так быстрее будет понятно что не так

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects;

type
  TForm1 = class(TForm)
    Path1: TPath;
    procedure FormCreate(Sender: TObject);
    procedure Path1MouseEnter(Sender: TObject);
    procedure Path1MouseLeave(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
begin
  path1.Data.Clear;
  path1.Data.MoveTo(TPointF.Create(0, 0));
  path1.Data.LineTo(TPointF.Create(50, 0));
  path1.Data.LineTo(TPointF.Create(50, 50));
end;

procedure TForm1.Path1MouseEnter(Sender: TObject);
begin
  Path1.Stroke.Thickness := 5;
end;

procedure TForm1.Path1MouseLeave(Sender: TObject);
begin
  Path1.Stroke.Thickness := 1;
end;

end.

 

 

Полный код.

 

[brunnengi]

4 часа назад, OnePeople сказал:

А такое дальше не идёт Path1.Data.ClosePath? 

Если есть, уберите.

Нет, не идет.
ClosePath замыкает последнюю точку с начальной, формирую замкнутую фигуру.