СообЧа > База Знаний > Программирование > Delphi

Вопрос

Как вставить картинку в TDrawGrid?

Ответ

Вот так:

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; Col, Row: Integer;
    Rect: TRect; State: TGridDrawState);
begin
    if (Sender is TDrawGrid) and
   not (gdFixed in State) then
TDrawGrid(Sender).Canvas.Draw(Rect.Left, Rect.Top,Image1.Picture.Graphic);
end;

Из конференции Delphi



Copyright © 2000-2004 Сообщество Чайников
Контактная информация