Главная страница
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.02 c
1-72710
man
2004-01-10 19:41
2004.01.23
Как переместить заблокированный файл не снимая блокировки


4-72976
Shluz
2003-11-18 12:48
2004.01.23
Сохранение данных в файл


3-72660
Artemkin
2003-12-25 16:15
2004.01.23
IB Expert


11-72698
AlexE
2003-05-05 23:36
2004.01.23
Аналог TPageControl в KOL


14-72870
EvgeniusII
2003-12-30 18:20
2004.01.23
Можно ли на Delphi