[thvfr]

У меня такая проблема!

На форме находиться компонент DBGridEh, в нем отображаются колонки "Фамилия", "Имя" и "Отчество". Я решил сделать пустую колонку "ФИО" и три своих колонки поместил в одну.

Вот код:

Код:

procedure TfMain.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
var
  s: String;

begin
  //если это пустой столбец
  if Column.Index = 1 then begin
    if fDM.TLichData['FAM'] <> Null then
      s:= fDM.TLichData['FAM'] + ' ';
    if fDM.TLichData['IMA'] <> Null then
      s:= s + Copy(fDM.TLichData['IMA'], 1, 1) + '.';
    if fDM.TLichData['OTCH'] <> Null then
      s:= s + Copy(fDM.TLichData['OTCH'], 1, 1)+ '.';
    DBGridEh1.Canvas.TextOut(Rect.Left, Rect.Top, s);
  end; //if

До этого выводил например: Петров | Иван | Сергеевич
После стал выводить: |Петров И.С.|


Стал выводить эту таблицу на печать с помощью QuickRep, но там нельзя выбрать мою колонку "ФИО" т.е ее нет в базу. А если помещать колонки "Фамилия", "Имя" и "Отчество" то не влезает на страницу, это не устраивает меня.

Я решил воспользоваться компонентом PrintDBGridEh но и тут проблема появилась, при выводе на печать колонка "ФИО" пустая.

Вот и прошу подсказать мне как можно распечатать пустую колонку чтобы на печать выводилось |Петров И.С.|