Как и где поменять шрифт для отдельной строки в отчете?
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
-
- Активист
- Сообщения: 114
- Зарегистрирован: 29 Март 2006, 10:53
- Откуда: Саранск
- Контактная информация:
Как и где поменять шрифт для отдельной строки в отчете?
Уважаемые, здравствуйте.
Проблема:
В репорте следует выделить болдом и италиком шрифт строки, если выполняется определенное условие. Ну например
if PRI:Spec=1
здесь видимо что то типа
SETFONT(1,'Arial',10,,Font:Bold+Font:Italic)
.
И вот правильно ли я понял, что если SETFONT(1, тогда он выполняется только для одной записи, а ежели SETFONT(0, тогда для всех последующих в отчете.
Так вот вопрос: Куда в эмбедзах это поставить?
Заранее спасибо.
Проблема:
В репорте следует выделить болдом и италиком шрифт строки, если выполняется определенное условие. Ну например
if PRI:Spec=1
здесь видимо что то типа
SETFONT(1,'Arial',10,,Font:Bold+Font:Italic)
.
И вот правильно ли я понял, что если SETFONT(1, тогда он выполняется только для одной записи, а ежели SETFONT(0, тогда для всех последующих в отчете.
Так вот вопрос: Куда в эмбедзах это поставить?
Заранее спасибо.
-
- Активист
- Сообщения: 114
- Зарегистрирован: 29 Март 2006, 10:53
- Откуда: Саранск
- Контактная информация:
Всё удалось вот так:
SETTARGET(Report)
if RAB:Spec=1
?RAB:Name{Prop:FONTStyle}='Italic'
?RAB:Name{Prop:FONTName}='Ms Serif'
?RAB:Name{Prop:FONTSize}=7
?RAB:Name{Prop:FONTColor}='Black'
.
PRINT(RPT:detail1)
?RAB:Name{Prop:FONTStyle}='regular'
?RAB:Name{Prop:FONTName}='Ms Serif'
SETTARGET()
Но. блин, теперь вылазят крякозябры. Как с ними бороться?
SETTARGET(Report)
if RAB:Spec=1
?RAB:Name{Prop:FONTStyle}='Italic'
?RAB:Name{Prop:FONTName}='Ms Serif'
?RAB:Name{Prop:FONTSize}=7
?RAB:Name{Prop:FONTColor}='Black'
.
PRINT(RPT:detail1)
?RAB:Name{Prop:FONTStyle}='regular'
?RAB:Name{Prop:FONTName}='Ms Serif'
SETTARGET()
Но. блин, теперь вылазят крякозябры. Как с ними бороться?
MS Serif не годится для отчётов - он не трутайп.optron писал(а):Крякозябры теперь пропали. Это точно, а вот Болдиться и италиться не хочет
Возможно, имеет смысл сделать две разные детальки - с простой и выделенной строкой. И печатать ту или иную в зависимости от условия. Кучу проблем сразу снимешь.
Кусок кода из моей программы:
FntQU ROUTINE
! фонты % соотношения факта к дог.нагр. по узлу учета ?Detail
IF U:FPRC < 60.0 ! от значения %
Report$?U:FPRC{PROP:FontStyle} = FONT:Bold+FONT:underline !жирн.,подч.
ELSIF U:FPRC < 80.0
Report$?U:FPRC{PROP:FontStyle} = FONT:Bold !жирн.
ELSE
Report$?U:FPRC{PROP:FontStyle} = FONT:thin ! обычн.
END ! FONT:regular
IF U:FPRC > 99.999
SETTARGET(Report,?Detail)
DISABLE(?U:FPRC) ! затемним
SETTARGET
ELSE
SETTARGET(Report,?Detail)
ENABLE(?U:FPRC) ! уберем затемнение
SETTARGET
END
FntQU ROUTINE
! фонты % соотношения факта к дог.нагр. по узлу учета ?Detail
IF U:FPRC < 60.0 ! от значения %
Report$?U:FPRC{PROP:FontStyle} = FONT:Bold+FONT:underline !жирн.,подч.
ELSIF U:FPRC < 80.0
Report$?U:FPRC{PROP:FontStyle} = FONT:Bold !жирн.
ELSE
Report$?U:FPRC{PROP:FontStyle} = FONT:thin ! обычн.
END ! FONT:regular
IF U:FPRC > 99.999
SETTARGET(Report,?Detail)
DISABLE(?U:FPRC) ! затемним
SETTARGET
ELSE
SETTARGET(Report,?Detail)
ENABLE(?U:FPRC) ! уберем затемнение
SETTARGET
END