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

Вниз

Как позволить в одном из полей DBGrid выводить картинки?   Найти похожие ветки 

 
Sergy   (2002-11-28 16:16) [0]

Как позволить в одном из полей DBGrid выводить картинки?


 
Sergy   (2002-11-28 16:49) [1]

Ни уж то никто не знает?


 
Johnmen ©   (2002-11-28 16:51) [2]

OnDrawColumnCell
Все знают, но вопрос уже задолбал...:)


 
Sergy   (2002-11-28 16:55) [3]

Я прекрасно знаю что, это на событие OnDrawColumnCell происходит прорисовка ячеек, но как туда картинки вместо значений вставить?
Просто я найти не смог в конфе ответ, если несложно, то подскажите топик.


 
vopros ©   (2002-11-28 16:55) [4]

Щас ссылку на Королевство Дельфи дадут


 
BorisUK ©   (2002-11-28 17:05) [5]

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var Im1: TBitmap;
begin
Im1:=TBitmap.Create;
if (Column.FieldName="VenueNo" ) then begin
with DBGrid1.Canvas do begin
Brush.Color:=clWhite;
FillRect(Rect);
if (Table1.FieldByName("VenueNo").Value=1)
then begin
ImageList1.GetBitmap(0,Im1);
end else begin
ImageList1.GetBitmap(2,Im1);
end;
Draw(round((Rect.Left+Rect.Right-Im1.Width)/2),Rect.Top,Im1);
end;
end;
end;



 
Sergy   (2002-11-28 17:13) [6]

спасибо


 
MsGuns ©   (2002-11-28 20:48) [7]

Можно еще и так

procedure TfrmPlatezka.grPlatProvDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if (Column.FieldName="PRVNFl") and (Column.Field.AsString>"") then
dmBank.imlGrids.Draw(TDBGrid(Sender).Canvas,Rect.Left,Rect.Top,8);
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.013 c
1-51742
Smouk
2002-12-06 14:24
2002.12.16
Срочно нужна помощь с Delphi !!!


4-52019
Sergei_tlt
2002-11-04 22:10
2002.12.16
Помогите понять


14-51905
LEgO-2
2002-11-22 08:44
2002.12.16
программирование за деньги...


6-51861
VAYER
2002-10-21 11:14
2002.12.16
pdf через cgi


7-51971
MsGuns
2002-10-09 20:58
2002.12.16
Размер занимаемой приложением памяти.