| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с отрисовкой заголовка кросс-отчета

madmech ©   (2009-04-30 15:29:00) 

Возникла проблема с отрисовкой заголовка в кросс-табе, а именно: я хочу внести кое-какие изменения в заголовок одного из столбцов, ну, например, чтобы шрифт был жирным:
procedure DBCross2OnPrintColumnHeader(Memo: TfrxMemoView; HeaderIndexes, HeaderValues, Value: Variant);
begin
 if (HeaderIndexes[0] = 1) and (HeaderIndexes[1] = 0) then
   begin                                                                                                    
     Memo.Font.Style := Memo.Font.Style - [fsBold];                          
   end;
end;
Но! При запуске отчета он мне выдает ошибку: "Invalid variant operation". В чем дело? Как решить проблему?

---

madmech   (2009-05-06 17:51:00) [1]

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

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;

Как быть?

---

clickmaker   (2009-04-30 17:23:00) [2]

> Invalid variant operation

VarCompareValue(HeaderIndexes[0], 1)?

---

madmech   (2009-04-30 15:32:00) [3]

Работаю в FastReport 4 :)

---

madmech   (2009-04-30 15:31:00) [4]

В выражении я допустил очепятку, ясен-красен:
Memo.Font.Style := Memo.Font.Style + [fsBold];
:)

---

Наверх