FNC BLox - VCL SVG Custom Block Demo Crashes

FNC TMS FNC Blox
1

When running the code :-:

procedure TForm1.TMSFNCBloxControl1RegisterElements(Sender: TObject);
begin

RegElementList.Clear;

///////RegisterElement(TSolarPanelBlock, '', 'Solar Panel', 'All SVG Blocks');
RegisterElement(TConverterBlock, '', 'Converter', 'All SVG Blocks');<=THIS CREATES THE AV
end;

It creates an AV. See screenshot below :-

image
image1604×657 103 KB

It appears to by that the ElementID is set to a random block of characters :-

procedure TTMSFNCBloxCustomSelector.DrawItemContent(AGraphics: TTMSFNCGraphics;
ADisplayItem: TTMSFNCBloxSelectorDisplayItem);
.......

  if Assigned(it.RegistrationElement) then
  begin
    if not Assigned(it.FRegistrationElementCache) then
      it.FRegistrationElementCache := it.RegistrationElement.ElementClass.Create; <==== AV CRASH

end;

2

Is this when you start the demo?
Because we are not able to reproduce this issue locally.

Do you have the same issue with the Draw Custom Blocks demo?

3

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;

4

Please see my other topic which is linked to this.