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

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

TFrxMemoView - OnBeforePrint - поставить знак "минус" [D7, WinXP]

tytus ©   (2008-08-27 12:20:00) 

Доброго дня мастера. Нужно перед текстом в этом мемовью поставить знак "минус". Значения наполняются с набора данных в полосе MasterData.

procedure Memo27OnBeforePrint(Sender: TfrxComponent);
begin
 Memo27.Text := '-' + Memo27.Text;// так не работает
 Value := - <frxDB1."Field1">;// тоже не работает
end;

---

brother   (2008-08-28 04:53:00) [1]

> Memo27.Text := ord(45) + Memo27.Text;

что-то меня занесло), главное понял о чем я)

> методом научного тыка -) и читанием мануала по FS, до меня
> наконец-то дошло - нужно обрабатывать другое событие:

ого О_о

---

tytus   (2008-08-27 12:56:00) [2]

методом научного тыка -) и читанием мануала по FS, до меня наконец-то дошло - нужно обрабатывать другое событие:

procedureMemo27OnAfterData(Sender: TfrxComponent);
begin
  ifValue <> null then
   Memo27.Text := '-' + FloatToStr(Value);                                                                                                                    
end;

так работает. Вот вам и могучий скрипт от FS -)))

---

tytus   (2008-08-27 12:51:00) [3]

>brother ©   (27.08.08 12:45) [3]
не так... нужно Chr(45)
но все равно не работает...

---

brother   (2008-08-27 12:45:00) [4]

Memo27.Text := ord(45)+ Memo27.Text;
так?

---

tytus   (2008-08-27 12:40:00) [5]

>Сергей М. ©   (27.08.08 12:29) [1]
... хотелось средствами FastReport сделать...

---

Сергей М.   (2008-08-27 12:29:00) [6]

> Значения наполняются с набора данных


Что мешает организовать в НД дополнительное вычисляемое поле для этой цели ?

---

Наверх