procedure TdmOrderLite.dbbvOrderExploreLite_nameCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
vRect: TRect;
vImg: Integer;
begin
vImg := VarAsType(AViewInfo.RecordViewInfo.GridRecord.Values
[dbbvOrderExploreLite_status.Index], varInteger);
vRect.Left := AViewInfo.Bounds.Left + 18;
vRect.Top := AViewInfo.Bounds.Top;
ACanvas.FillRect(AViewInfo.Bounds);
case vImg of
45:
ACanvas.DrawImage(dmCommon.il16, AViewInfo.Bounds.Left,
AViewInfo.Bounds.Top, 3, true);
46:
ACanvas.DrawImage(dmCommon.il16, AViewInfo.Bounds.Left,
AViewInfo.Bounds.Top, 425, true);
47:
ACanvas.DrawImage(dmCommon.il16, AViewInfo.Bounds.Left,
AViewInfo.Bounds.Top, 44, true);
48:
ACanvas.DrawImage(dmCommon.il16, AViewInfo.Bounds.Left,
AViewInfo.Bounds.Top, 191, true);
end;
ACanvas.DrawTexT(AViewInfo.Text, vRect, cxAlignLeft, true);
ADone := true;
end; |
