проблема в коде

dron-s

Привет, всем кто меня знает и не знает
в общем косяк следующий, а именно в коде...
пишу элементарный код

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  if <frxDBDataset1."TELEFON"> = '' then
    nSer.Font.Style := nSer.Font.Style + [fsBold]                                                           
  else
    nSer.Font.Style := nSer.Font.Style - [fsBold]                   
end;

ну вываливается ошибка Invalid Variant Operation...
если Delphi такой код работает на ура...

-=Den=-

В скрипте нет set'ов.

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  if <frxDBDataset1."TELEFON"> = '' then
    nSer.Font.Style := nSer.Font.Style + fsBold                                                          
  else
    nSer.Font.Style := nSer.Font.Style - fsBold                   
end;

dron-s

написал:

В скрипте нет set'ов.

и как быть
допустим методом тыка допёр что надо вместо

  if <frxDBDataset1."TELEFON"> = '' then    
    nSer.Font.Style := nSer.Font.Style + fsBold

писать

  if <frxDBDataset1."TELEFON"> = '' then    
    nSer.Font.Style :=  fsBold

а как вернуть шриф в первоначальный вид (снять выделение)

if <frxDBDataset1."TELEFON"> = '' then    
    nSer.Font.Style :=  fsBold
else
    nSer.Font.Style :=  [] //так ошибка

-=Den=-

Memo1.Font.Style := Memo1.Font.Style + fsBold;

Работатет....

Memo1.Font.Style := 0;

Сбрасывает ....

dron-s

угу
работает
где есть описание всего этого дела по скрипту?

dron-s

написал:

Memo1.Font.Style := Memo1.Font.Style + fsBold;
Работатет....

в FR 4.0. это не работает...

-=Den=-

DRON написал: »

в FR 4.0. это не работает...

Проверил на 4.3, все работает...

В документации к FS написано, что нет set'ов.

dron-s

написал:

Проверил на 4.3, все работает...

я не проверял на 4.3, а на 4.0 точно не фурычит..

gpi

Тогда делай так:

Memo1.Font.Style := (Memo1.Font.Style div (fsBold*2))*fsBold*2+(Memo1.Font.Style mod fsBold)+fsBold;

или сделай пользовательские функции BIT_AND, BIT_XOR и используй их для включения/гашения свойств
P.S. Ну что, получилось сделать композитный отчёт?

dron-s

написал:

Ну что, получилось сделать композитный отчёт?

да, получилось...
только я сделал малость по другому:
я в MasterData выбрал frxDBDataSet
потом разместил поля те что мненужны на этом бенде и всё...