assign TTMSFNCImage from TTMSFNCTableViewItem.Bitmap

WEB TMS WEB Core
1

Hi
why this TTMSFNCImage.Bitmaps.AddBitmap(TTMSFNCTableViewItem.Bitmap);

doesn't go ?

3

Because the code you are using is not correct? TTMSFNCTableViewItem is a class that needs to be created first, before you can access properties. This code works as expected:

  TMSFNCImage1.Bitmaps.AddBitmap(TMSFNCTableView1.Items[0].Bitmap);
4

Sorry Pieter but i'm using a class to indicate the object that i use. i known this code is incorrect. At the end your code is same as mine but don't go !

5

My code is this : imgProd is a TMSFNCImage

Class Function TfrmDetProd.CreateForm(AElementID:String; AItem:TTMSFNCTableViewItem; QtaIns:Smallint = 0):TWebForm;

  Procedure AfterCreate(AForm: TObject);
  Begin
    With TfrmDetProd(AForm) Do Begin
      txtDesc.Text:=Format(
          '<div>'+
          '  <p align="left"><font size="20" color="gcBlack"><b>%s</b></font></p>'+
          '  <p align="right"><font size="16" color="gcBlack"><b>%s</b></font></p>'+
          '  <p align="left"><font size="12" color="gcGray">%s</font></p>'+
          '</div>',[AItem.HTMLTemplateItems.Values['DESC'], AItem.HTMLTemplateItems.Values['PREZZO'],
                    AItem.HTMLTemplateItems.Values['DESC_EXT']]);

      imgProd.Bitmaps.Clear();
      imgProd.Bitmaps.AddBitmap(AItem.Bitmap);

      If QtaIns > 0 Then
        Ins_VivVar(StrToInt(AItem.Text), QtaIns);

      With wdVar Do Begin
        QueryString:=Format('$filter=(Tipo_Art eq ''%s'')',['VAR']);
        Load();
      End;
    End;
  End;