скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Как сделать, чтобы в 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;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook