Скачать: CL | DM;

TFrxMemoView - OnBeforePrint - поставить знак "минус"   Найти похожие ветки 

← →
tytus   (2008-08-27 12:20) [0]

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

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

---

← →
Сергей М. ©   (2008-08-27 12:29) [1]

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


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

---

← →
tytus   (2008-08-27 12:40) [2]

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

---

← →
brother ©   (2008-08-27 12:45) [3]

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

---

← →
tytus   (2008-08-27 12:51) [4]

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

---

← →
tytus   (2008-08-27 12:56) [5]

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

procedure Memo27OnAfterData(Sender: TfrxComponent);
begin
 if Value <> null then
   Memo27.Text := "-" + FloatToStr(Value);                                                                                                                    
end;

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

---

← →
brother ©   (2008-08-28 04:53) [6]

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

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

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

ого О_о

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c