Как и где поменять шрифт для отдельной строки в отчете?

Обсуждение извечных проблем кларионовских (и не только) отчетов

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
optron
Активист
Сообщения: 114
Зарегистрирован: 29 Март 2006, 10:53
Откуда: Саранск
Контактная информация:

Как и где поменять шрифт для отдельной строки в отчете?

Сообщение optron »

Уважаемые, здравствуйте.
Проблема:
В репорте следует выделить болдом и италиком шрифт строки, если выполняется определенное условие. Ну например
if PRI:Spec=1
здесь видимо что то типа
SETFONT(1,'Arial',10,,Font:Bold+Font:Italic)
.

И вот правильно ли я понял, что если SETFONT(1, тогда он выполняется только для одной записи, а ежели SETFONT(0, тогда для всех последующих в отчете.

Так вот вопрос: Куда в эмбедзах это поставить?
Заранее спасибо.
optron
Активист
Сообщения: 114
Зарегистрирован: 29 Март 2006, 10:53
Откуда: Саранск
Контактная информация:

Сообщение optron »

Всё удалось вот так:

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


Но. блин, теперь вылазят крякозябры. Как с ними бороться?
Аватара пользователя
Дед Пахом
Старичок
Сообщения: 3133
Зарегистрирован: 07 Июль 2005, 16:51
Откуда: Москва, Россия
Благодарил (а): 10 раз
Поблагодарили: 28 раз
Контактная информация:

Сообщение Дед Пахом »

{PROP:FontCharSet}=CHARSET:CYRILLIC
С уважением, ДП
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Сообщение Admin »

Попробуй: ?RAB:Name{PROP:FontCharSet} = CHARSET:CYRILLIC
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
optron
Активист
Сообщения: 114
Зарегистрирован: 29 Март 2006, 10:53
Откуда: Саранск
Контактная информация:

Сообщение optron »

Крякозябры теперь пропали. Это точно, а вот Болдиться и италиться не хочет :(
Yufil
Ветеран движения
Сообщения: 1277
Зарегистрирован: 16 Май 2006, 14:34
Контактная информация:

Сообщение Yufil »

optron писал(а):Крякозябры теперь пропали. Это точно, а вот Болдиться и италиться не хочет :(
MS Serif не годится для отчётов - он не трутайп.

Возможно, имеет смысл сделать две разные детальки - с простой и выделенной строкой. И печатать ту или иную в зависимости от условия. Кучу проблем сразу снимешь.
Yufil
Ветеран движения
Сообщения: 1277
Зарегистрирован: 16 Май 2006, 14:34
Контактная информация:

Сообщение Yufil »

Надо так.

?RAB:Name{Prop:FONTStyle}=FontStyle:Italic
Amike34
Бывалый
Сообщения: 51
Зарегистрирован: 03 Август 2005, 19:06
Откуда: г. Чебоксары

Сообщение Amike34 »

Кусок кода из моей программы:
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
optron
Активист
Сообщения: 114
Зарегистрирован: 29 Март 2006, 10:53
Откуда: Саранск
Контактная информация:

Сообщение optron »

Всем спасибо. Помогло:

Report$?RAB:Name{PROP:FontStyle} = FONT:Bold+FONT:underline
Ответить