Как сделать, чтобы в DBGrid вместо цифр были соответствующие константы
Материал из DRKB
Как сделать, чтобы в DBGrid вместо цифр были соответствующие константы[править | править код]
procedure TForm1.Grid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
// ВАЖНО: имя поля большими буквами!
if Column.Field.FieldName = 'PLATEZH' then
begin
Grid1.Canvas.FillRect(Rect);
if Column.Field.AsInteger = 0 then
Grid1.Canvas.TextOut(Rect.Left + 1, Rect.Top + 2, 'наличными')
else
Grid1.Canvas.TextOut(Rect.Left + 1, Rect.Top + 2, 'безнал');
end;
end;
Source: Взято с http://delphiworld.narod.ru
ID: 03045