Код:
var
i: Integer;
path, filename: String;
AColumn: TcxGridColumn;
AValue: AnsiString;
APicture: TPicture;
MS: TMemoryStream;
pngimage: TPNGImage;
APath: String;
begin
AColumn := TcxGridColumn(cxGrid1DBTableView1Filename);
if assigned(AColumn)
then begin
cxGrid1DBTableView1.DataController.RecordCount := FileListBox1.Items.Count;
for i:=0 to FileListBox1.Items.Count -1
do begin
filename := IncludeTrailingPathDelimiter(GetCurrentDir) + FileListBox1.Items[i];
AColumn := TcxGridColumn(cxGrid1DBTableView1Filename);
if assigned(AColumn)
then cxGrid1DBTableView1.DataController.Values[i, AColumn.Index] := ExtractFilename(filename);
AColumn := TcxGridColumn(cxGrid1DBTableView1logo);
if assigned(AColumn)
then begin
APicture := TPicture.Create;
try
if FileExists(filename)
then begin
//pngimage.LoadFromFile(filename);
APicture.LoadFromFile(filename);
SavePicture(APicture, AValue);
end
else AValue := '';
finally
APicture.Free;
end;
if assigned(AColumn) and (AValue <> '')
then begin
cxGrid1DBTableView1.DataController.Values[i, AColumn.Index] := AValue;
end;
end;
end;
end;
единственное с чем еще столкнулся это
cxGrid1DBTableView1Logo там в properties -> graficclassname установить SmartImage -> или картинки не будут показаны