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 -)))

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

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

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

ого О_о

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