Текущий архив: 2009.06.21;
Скачать: CL | DM;
Вниз
Проблема с отрисовкой заголовка кросс-отчета Найти похожие ветки
← →
madmech © (2009-04-30 15:29) [0]Возникла проблема с отрисовкой заголовка в кросс-табе, а именно: я хочу внести кое-какие изменения в заголовок одного из столбцов, ну, например, чтобы шрифт был жирным:
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-04-30 15:31) [1]В выражении я допустил очепятку, ясен-красен:
Memo.Font.Style := Memo.Font.Style + [fsBold];
:)
← →
madmech © (2009-04-30 15:32) [2]Работаю в FastReport 4 :)
← →
clickmaker © (2009-04-30 17:23) [3]> Invalid variant operation
VarCompareValue(HeaderIndexes[0], 1)?
← →
madmech © (2009-05-06 17:51) [4]Проблему решил ниже описанным способом, но теперь возникла новая закавыка: когда я вручную, то бишь также внутри скрипта удаляю одну из сторон ячеек, например, верхнюю, то при РЕАЛЬНОЙ печати она все равно печатается:
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;
Как быть?
Страницы: 1 вся ветка
Текущий архив: 2009.06.21;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
