Изменение шрифта у Dbcross

mvb · June 2017

У DBCross отключены подитоги, вывожу их сам в последней строке. Как выделить самую нижнюю строку полужирным шрифтом?

Таким образом выделяю только первые 3 ячейки (строки):

procedure DBCross1Row0OnBeforePrint(Sender: TfrxComponent);
begin
     DBCross1Row1.Font.Style := 0;             
     DBCross1Row2.Font.Style := 0;             
     DBCross1Row3.Font.Style := 0;             
     
     if trim(TfrxMemoView(Sender).Text) = '1000' then
     begin
       TfrxMemoView(Sender).Font.Style := fsBold;
       TfrxMemoView(Sender).Text := '';
       DBCross1Row1.Font.Style := fsBold;             
       DBCross1Row2.Font.Style := fsBold;             
       DBCross1Row3.Font.Style := fsBold;             
     end;               
end;

если nак делать с DBCross1Cell0 - выделяются вообще значения в DBCross.

gpi · June 2017

procedure Cross1OnPrintRowHeader(Memo: TfrxMemoView; HeaderIndexes, HeaderValues, Value: Variant);
begin
  if HeaderValues[0] = '1000' then Memo.Font.Style := fsBold;                                                                                                               
end;

procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
begin
  if RowValues[0] = '1000' then Memo.Font.Style := fsBold;  
end;

mvb · June 2017

gpi написал: »

procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
begin
if RowValues[0] = '1000' then Memo.Font.Style := fsBold;
end;[/code]

спасибо, вот этого хватило!

mvb · June 2017

А, не, и тот и тот нужны. Спасибо!

P.S. Только у меня форум глючит? Половина меню отсутствует!

[img]http://www.picshare.ru/uploads/170608/c1WI6Vod2A.jpg" border="0" width="372" height="476" title="Хостинг картинок PicShare.ru">[/img]

Изменение шрифта у Dbcross

Комментарии

Оставить комментарий