Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.23;
Скачать: CL | DM;

Вниз

Как добавить картинку в ячейку DBGrid?   Найти похожие ветки 

 
Lexer ©   (2004-01-12 10:50) [0]

Как добавить картинку в ячейку DBGrid?


 
alex_*** ©   (2004-01-12 10:52) [1]

use OnDrawColumnCell


 
Lexer ©   (2004-01-12 10:58) [2]

ну то понятно, я там могу написать условие и нарисовать на канвасе... но, блин, я забыл как тама рисовать :(


 
alex_*** ©   (2004-01-12 11:00) [3]

Canvas.Draw(...)


 
Lexer ©   (2004-01-12 12:24) [4]

Разобрался!!! Кидаю код, может кому тоже надо...
В данном примере в первом столбце дб-грида показываются картинки, взависимости от значения его ячеек. Для меня - это юридический статус, и картинки меняются взависимости от того юр. лицо или это простой смертный.

procedure TfrmDoc.dbgDocDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Bitmap: TBitmap;
Offset: Integer;
BMPRect : TRect;
begin
if DataCol = 0 then
with (Sender as TDBGrid).Canvas do
begin
FillRect(Rect);
Bitmap := TBitMap.Create;
imgImages.GetBitmap(dbgDoc.Fields[0].AsInteger, Bitmap);
if Bitmap <> nil then
begin
BMPRect := Bounds(Rect.Left, Rect.Top ,
Rect.Bottom - Rect.Top, Rect.Bottom-Rect.Top);
StretchDraw(BMPRect, BitMap);
Offset := Rect.Bottom - Rect.Top + 6;
end;
Bitmap.Free;
end;
end;


 
NAlexey ©   (2004-01-12 12:43) [5]

>Bitmap.Free;
Если у тебя программа не будет доходить до этого места, ты получишь ощутимую утечку памяти, учитывая что все это происходит в событии на рисование ячейки.



Страницы: 1 вся ветка

Текущий архив: 2004.01.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
4-72976
Shluz
2003-11-18 12:48
2004.01.23
Сохранение данных в файл


1-72827
MVova
2004-01-13 15:41
2004.01.23
TADOConnection и TThread


8-72840
vvv123
2003-09-19 17:36
2004.01.23
Как в OpenGL нарисовать цилиндр от точки до точки?


1-72741
Немо
2004-01-11 15:59
2004.01.23
OLE


7-72962
Islander
2003-11-08 12:36
2004.01.23
Получение даты биосы не из биоса