Главная страница
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.011 c
1-72741
Немо
2004-01-11 15:59
2004.01.23
OLE


1-72836
Adil Aliyev
2004-01-12 11:02
2004.01.23
Картинка в ListBox


3-72678
ЮЮ
2003-12-25 09:33
2004.01.23
Создание ХП из приложения


3-72645
DimaK
2003-12-25 23:22
2004.01.23
ClientDataSet


11-72694
Igit
2003-05-09 13:45
2004.01.23
ChangeDisplaySettings не работает...