Опаздывание в QRDBText

← →
orion_st © (2002-08-28 11:00) [0]

Вывожу надпись:
procedure TQuickReportCat.QRDBText8Print(sender: TObject; var Value: String);
begin
if Value="Да" then
begin
QRDBText1.Font.Style:=[fsUnderline];
QRDBText2.Font.Style:=[fsUnderline];
end;
if Value="Нет" then
begin
QRDBText1.Font.Style:=[];
QRDBText2.Font.Style:=[];
end;
end;

и ситуация такая, что выделяется не строка, где выводится "ДА", а следующая. Что за фигня?

← →
ЮЮ © (2002-08-28 11:04) [1]

При печати QRDBText8 QRDBText1 и QRDBText2 уже напечатались и твои установки сработают как раз на следующей строке. Надо в обработчике QRDBText1Print анализировать, что будет напечатано в QRDBText8, т.е. содержимое текущей записи.

Опаздывание в QRDBText Найти похожие ветки