Показать сообщение отдельно
  #2  
Старый 06.05.2009, 17:58
madmech madmech вне форума
Прохожий
 
Регистрация: 30.04.2009
Сообщения: 18
Репутация: 10
По умолчанию

Проблему решил ниже описанным способом, но теперь возникла новая закавыка: когда я вручную, то бишь также внутри скрипта удаляю одну из сторон ячеек, например, верхнюю, то при РЕАЛЬНОЙ печати она все равно печатается:

Код:
procedure Tr_DBCrossOnPrintColumnHeader(Memo: TfrxMemoView; HeaderIndexes, HeaderValues, Value: Variant);
begin
 if HeaderIndexes[0] = 1 then
   begin 
     Memo.Font.Style := Memo.Font.Style + fsBold; 
     if HeaderIndexes[1] = 0 then 
       Memo.Frame.Typ := Memo.Frame.Typ - ftTop;
     Memo.Width := 27; 
  end;
end;

Как быть?
Ответить с цитированием