Спасибо, очень полезная вещь, она мне пригодится
Но все же основная проблема не решена
У меня в БД есть таблица (Element), где хранятся изображения. Мне нужно "вытащить эти изображения" (все) на форму. Пусть коряво, но у меня получилось пока только так:
Код:
procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var Im1: TBitmap;
begin
Im1:=TBitmap.Create;
if (Column.FieldName='Symbol' ) then begin
with DBGrid2.Canvas do begin
Brush.Color:=clWhite;
FillRect(Rect);
if (data.DataForm.Element.FieldByName('Ind').Value=1)
then begin
ImageList1.GetBitmap(0,Im1);
end else begin
ImageList1.GetBitmap(1,Im1);
end;
Draw(round((Rect.Left+Rect.Right-Im1.Width)/2),Rect.Top,Im1);
end;
end;
end;
Следующая задача передо мной это то, что я, грубо говоря, двойным нажатием мыши кликаю на ячейку с изображением в таблице и оно переносится в другую таблицу. Я могу сколько угодно добавлять из 1-ой таблицы во вторую изображений в ОДНУ ячейку (это важно), затем перевести фокус на др.ячейку и там также добавлять изображения. И вот из этой другой (второй) таблицы изображения автоматически заносятся в БД в таблицу (Tabl). Т.о. получается что таблица с изображениями это справочник своего рода, а в главной таблице хранятся индексы изображений
как то так
прошу Вас о помощи, и буду рада даже малейшей