TMSFNCKanbanBoard Access Violation during runtime creation or moving item

FNC TMS FNC UI Pack
1

I'm using TTMSFNCKanbanBoard in Windows Metro application.
After creation of columns and items at run time (in formshow event), during the show of the form, the component raise access violation mor time, even when I try to move items up or down.

The code:

procedure TfMain.AddItemOnDashBoard(id,HeaderText,Title, Text: String;colore1,colore2:Tcolor);
var
  I: Integer;
  S,s1,s2,a1,a2,b1,b2:String;
Col:TTMSFNCKanbanBoardColumn;
Item:TTMSFNCKanbanBoardItem;
found:Boolean;
begin
  found:=false;
  for I := 0 to DashBoard.Columns.Count-1 do
   if  DashBoard.Columns[i].Tag=StrToInt(ID) then
    begin
     found:=true;
     col:=DashBoard.Columns[i];
    end;

   if not found then
   BEGIN
    Col:=DashBoard.Columns.Add;
    Col.HeaderText:=HeaderText;
    Col.UseDefaultAppearance:=true;
    Col.Expandable:=false;
    Col.tag:=StrToInt(ID);
   END;
  Item:=Col.Items.Add;
  Item.Title:=Title;
  Item.Text:='<i>'+Text+'</i>';
  Item.MarkColor:=colore1;
  Item.MarkCorners:=[gcTopLeft,gcTopRight];
  Item.MarkRounding:=3;
  Item.Rounding:=3;
  Item.MarkSizeTop:=8;
  Item.MarkType:=[kbmtTop];
  Item.RoundingCorners:=[gcTopLeft,gcTopRight,gcBottomLeft,gcBottomRight];
  Item.SelectedColor:=colore2;
  Item.SelectedStrokeColor:=colore1;

  Item.TitleColor:=$00454545;
  Item.TextColor:=$007A7A7A;
  Item.UseDefaultAppearance:=false;
  Item.TitleVerticalTextAlign:=gtaCenter;
  Item.TitleVerticalTextAlign:=gtaCenter;
  Item.Color:=$00FEFFFF;
  Item.Expandable:=false;
end;

[Image 1 before moving items](https://www.xplan.cloud/qc/download/image1.png)
[Image 2 during moving item](https://www.xplan.cloud/qc/download/image2.png)
[Exception during release the item](https://www.xplan.cloud/qc/download/image3.png)
2

Removing Application.UseMetropolisUI; from project source, the application works fine.

3

Hi,

It's unclear what the relation is to UseMetropolisUI, can you try to debug the access violation and see where it occurs in the source code?

4

The first error message is
Cannot assign a TTMSFNCGraphicsFont to a TTMSFNCBitmap.

Then the access violation is:

Project xPlan.exe raised exception class EAccessViolation with message 'Access violation at address 0332B886 in module 'xPlan.exe'. Read of address 006500C2'.

Stop on:

procedure TTMSFNCTreeViewData.DoIsNodeEnabled(ANode: TTMSFNCTreeViewVirtualNode;
var AEnabled: Boolean);
var
it: TTMSFNCTreeViewNode;
begin

it := ANode.Node;

if Assigned(it) then
AEnabled := it.Enabled;
end;

5

Assigning TTMSFNCGraphicsFont to TTMSFNCBitmap should not happen so not sure where the code is located and how this triggers the access violation. It's a rare issue that might be related to memory.

6

I can send to you a sample application to reproduce the issue if you want

7

That would be helpful

8

https://www.xplan.cloud/qc/download/TMSFNCKanbanBoard_Issue.rar

9

It's still not entirely clear, but if we add dashboard to the main form as a child, the error does not occur. Most likely, MetropolisUI is doing something with TPanel and it affects children, unfortunately we are not able to pinpoint exactly why it gives an access violation, we'll continue investigation, but a workaround could be to add dashboard to the main form and position it in the place where the panel needs to be