yes, it crashes in Draw Custom BLocks demo aswell. Im running Ddelpgi 10.4 SP 1.
Code used :-
constructor TConverterBlock.Create;
var
** w, h: Double;**
begin
** inherited;**
** w := OriginalRect.Right - OriginalRect.Left;**
** h := OriginalRect.Bottom - OriginalRect.Top;**
** LinkPoints.Clear;**
** LinkPoints.AddLink(0, h / 4, aoLeft);**
** LinkPoints.AddLink(0, 3 * h / 4, aoLeft);**
** LinkPoints.AddLink(w, h / 2, aoRight);**
end;
procedure TConverterBlock.GetBlockPath(APath: TTMSFNCBloxPath; ADrawer: TTMSFNCBloxBlockDrawer);
var
** poly: TTMSFNCBloxPointArray;**
** w, h: Double;**
begin
** inherited;**
** APath.Reset;**
** w := OriginalRect.Right - OriginalRect.Left;**
** h := OriginalRect.Bottom - OriginalRect.Top;**
** APath.AddLine(0, h/4, w/4, h/4);**
** APath.CloseFigure(False);**
** APath.AddLine(0, 3 * h / 4, w/4, 3 * h / 4);**
** APath.CloseFigure(False);**
** APath.AddLine(w/4, 0, w/4, h);**
** APath.AddLine(w/4, 0, w/2, 0);**
** APath.AddArc(w/4, 0, w/2, h, 270, 180);**
** APath.AddLine(w/2, h, w/4, h);**
** APath.CloseFigure(False);**
** APath.AddLine(3 * w / 4, h / 2, w, h / 2);
end;
Blank out the code RegElementList.Clear and the code runs fine, although it now shows ALL block items, which is not want I required :-
procedure TForm1.TMSFNCBloxControl1RegisterElements(Sender: TObject);
begin
///RegElementList.Clear; <- WHEN THIS IS BLANKED OUT THE CODE RUNS FINE!!!
///////RegisterElement(TSolarPanelBlock, '', 'Solar Panel', 'All SVG Blocks');
RegisterElement(TConverterBlock, '', 'Converter', 'All SVG Blocks');<=THIS CREATES THE AV
end;