TclProListView nesnesini kullanarak görsel ekleyebilirsin.

Detaylı bilgi için:

İyi çalışmalar dilerim.

Var   

  MyForm:TclForm;

  dataListView : TclListView;

  Qry : TclSqlQuery;

 void SetListView;

 {

   dataListView = MyForm.AddNewListView(MyForm, 'dataListView');

   dataListView.Align = alClient;

   dataListView.Margins.Left = 5;

   dataListView.Margins.Bottom = 5;

   dataListView.Margins.Right = 10;

   dataListView.Margins.Top = 5;

 }

 

 void listViewVeriEkle; 

 {

  

  Qry.Connection = Clomosy.DBSQLServerConnection; 

  Qry.SQL.Text = 'SELECT UrunID as RECORD_GUID, UrunAD as 

  MAIN_TEXT, UrunFIYAT as SIDE_TEXT_BOTTOM from Urun';

  Qry.Open; 

  dataListView.clLoadListViewDataFromDataset(Qry); 

    

 }

 

 void GetData;

 {

  

  try 

    Qry.Connection = Clomosy.DBSQLServerConnection;

    Qry.SQL.Text = 'SELECT UrunID as RECORD_GUID,UrunAD as MAIN_TEXT,UrunFIYAT as FOOTER_TEXT FROM Urun';

    Qry.Open;

  except

    ShowMessage('Exception Class: '+LastExceptionClassName+' Exception GetData Message: '+LastExceptionMessage);

  }

 }

  void SqLInsertData;

  {

    try

      Clomosy.DBSQLServerQuery.Sql.Text = '

    INSERT INTO Urun (UrunID, UrunAD, UrunFIYAT) VALUES (1, ''a'',10);

    INSERT INTO Urun (UrunID, UrunAD, UrunFIYAT) VALUES (2, ''b'',20);

    INSERT INTO Urun (UrunID, UrunAD, UrunFIYAT) VALUES (3, ''c'',35);

    INSERT INTO Urun (UrunID, UrunAD, UrunFIYAT) VALUES (4, ''d'',35);

    INSERT INTO Urun (UrunID, UrunAD, UrunFIYAT) VALUES (5, ''e'',40);';

      Clomosy.DBSQLServerQuery.ExecSql;

      ShowMessage('Veri Ekleme Başarılı');

    except

     ShowMessage('Exception Class: '+LastExceptionClassName+' Exception SqLiteInsertData Message: '+LastExceptionMessage);

    }

  }

 

 

 {

   

       

   Qry = TclSqlQuery.Create(nil);

   Clomosy.DBSQLServerConnect('SQL Server','...','...','...','...',...); 

   Qry.Connection = Clomosy.DBSQLServerConnection;

   

   MyForm = TclForm.Create(Self);  

   SetListView;

   GetData;

   SqLInsertData;

   listViewVeriEkle; 

   MyForm.Run;

 } 
bu şekilde listview yapısına url ile görsel eklemek istiyorum verdiğiniz base64 çevirme kodlarını kullandım ancak sürekli hata aldım karmaşık bir kod yapısı oldu yardımcı olur musunuz