Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - База Знаний: Вставить иконки в Grid
procedure TfrmMain.GridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var cc: TCanvas;
Bitmap: TBitmap;
begin
{Делаем только для столбца 2}
if (DataCol = 2) then
begin
Bitmap := TBitmap.Create;
{KlientNUMBER.Value - значение того самого числового поля ...}
case KlientNUMBER.Value of
0: Bitmap.LoadFromFile('Test.bmp');
1: Bitmap.LoadFromFile('Test2.bmp');
end;
cc := Grid.Canvas;
cc.FillRect(rect);
cc.Draw(Rect.Left, Rect.Top, Bitmap);
{KlientZAKAZCHIK.Text - значение тестового поля, в который пихаем иконку
Ширина иконки 16, поэтому отступ текста сделаем 20 px}
cc.TextOut(Rect.Left + 20, Rect.Top, KlientZAKAZCHIK.Text);
Bitmap.Free;
end;
end;