VPF::Отчет - Форум программистов

Mde

Дата 11.6.2005, 13:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 15.11.2004
Где: Азов, Ростовской области

Репутация: нет
Всего: нет

Есть проблема. Нужно вывести надпись в отчете но в одном случае она должна быть написана ЗАГЛАВНЫМИ буквами а в другом строчными, т.е. маленькими вот код бьюсь уже не один день - не работает. Помогите чем могете smile

Код


procedure TFace.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
   Og4.Lines.Text:=AnsiLowerCase(Og4.Lines.Text);
End;

SPrograMMer

Дата 11.6.2005, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Спамер :)

Профиль
Группа: Участник
Сообщений: 442
Регистрация: 5.11.2004
Где: Краснодар

Репутация: 1
Всего: 6

Цитата(Mde @ 11.6.2005, 13:40)

Og4

у чебя что? Надпись в отчете?
ИМХО в первый раз тебе эту строчку выполнять не надо, а во втором-надо. Значит юзаем глобальную переменную, говорящую про то какой это раз, ну и переделываем код так:

Код


Var
   PrintBig:Boolean;
...
procedure TFace.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
   If PrintBig Then
      Og4.Lines.Text:=AnsiLowerCase(источник_из_чего_строка_берется)
   Else
      Og4.Lines.Text:=источник_из_чего_строка_берется;
End;
....
// в подпрограме вызывающей печать:
PrintBig:=False;
ПЕЧАТЬ;
PrintBig:=True;
ПЕЧАТЬ;
....

--------------------

животное = зверь
законченный гентушник

offline

Дата 12.6.2005, 01:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: 7
Всего: 7

А если все печатается сразу то можно

Код


procedure TFace.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var
   PrintBig : Boolean;
begin
   PrintBig := True;
   if PrintBig
     then begin
       Og4.Lines.Text:= источник_из_чего_строка_берется;
       PrintBig := False;
       end
    else
      Og4.Lines.Text := AnsiLowerCase (источник_из_чего_строка_берется);
End;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »