procedure TForm1.DBGrid1DrawColumnCell(S ender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var Icon: TBitmap;
begin
Icon:=TBitmap.Create;
if (Column.FieldName='SHARES' ) then begin
with DBGrid1.Canvas do begin
Brush.Color:=clWhite;
FillRect(Rect);
if (Table1.FieldByName('SHARES'). Value>4500)
then
ImageList1.GetBitmap(1,Icon)
else
ImageList1.GetBitmap(0,Icon);
Draw(round((Rect.Left+Rect.Rig ht-Icon.Width)/2),Rect.Top,Icon);
end;end;
6 Nisan 2010 Salı
Kaydol:
Kayıt Yorumları (Atom)
Hiç yorum yok:
Yorum Gönder