cxgrid cell bmp,icon

[skyking]

Kod: Tümünü seç

procedure Tform1.drmxCustomDrawCell(Sender: TcxCustomGridTableView;
  ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
  var ADone: Boolean);
  var
  AImageIndex:integer;
  R: TRect;
begin
        ADone := True;
        if AViewInfo.GridRecord.Values[drmx.Index]='ok' then
	AImageIndex :=6;
        if AViewInfo.GridRecord.Values[drmx.Index]='wt' then
	AImageIndex :=9;
        if AViewInfo.GridRecord.Values[drmx.Index]='no' then
	AImageIndex :=4;

	R := AViewInfo.TextAreaBounds;
	ACanvas.FillRect(AViewInfo.ContentBounds);
	ACanvas.DrawImage(anafr.TodoImageList, R.Left,R.Top, AImageIndex);
	Inc(R.Left, anafr.TodoImageList.Width+20);//20 olarak ayarladım isterseniz 2 yapıp resmin hemen yanına yazıyı getirebilrisiniz 
	ACanvas.DrawTexT(AViewInfo.Text, r, 0);
end;

[mussimsek]

Bu nedir?

a-Soru,
b-örnek kod,
c-ipucu,
d-kafama esti yazdım

Hangisi?

Kolay gelsin.

[skyking]

cvp b:örnek kod.

baslıktada tam olarak ne oldugu yazıyordu.

cxgirdin ilgili hucresinde bmp ve icon getirme kod örnegi

kusura bakmayın acıklama yazmadım baslıktan anlasılıyor diye pardon

iyi calışmalar.