» Детский вопрос про DBImage

Есть база. Есть в базе поле BLOB. В блоб лежит картинка или nil.
На форме лежит DBGrid и DBImage.
Мне надо когда есть картинка -- показать её,
когда нет -- нарисовать перечёркнутый квадрат (например).
У DBImage AutoDisplay := False.


Код: procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if(DBImage1.Field as TBlobField).IsNull then
begin
// ---
DBImage1.Picture.Bitmap.Canvas.TextOut(10,10,'ZZZZZZ');
// ---
end
else
DBImage1.LoadPicture() ;
end;

DBImage1.LoadPicture() вызовет изменение состояяния TDataSet'а на dsEdit. Значит по записям нельзя будет перемещаться, пока не выполнишь Cancel, после которого картинка исчезнет.

Лучше - DBImage.Visible := False;

А под ним уже лежит заготовленный квадрат - TShape или любой другой квадратный TControl или, можно нарисовать квадрат на канве формы.