É possível definir uma fonte variável?

Colegas,

Gostaria de saber se existe uma maneira atribuir um fonte qualquer em um objeto, sei que é possível através da "ini", mas adoraria saber se existe outra maneira.

Bom dia!

Vc pode mudar de acordo com alguma funcionlidade que precise a fonte de um campo do tipo Fil-IN.. Text.
Exemplo ... Temos uma Variáveil vTeste Character 246, depois de ter algum valor, vc pode condicionar.

IF vTeste = "exemplo" THEN ASSIGN vTeste:FONT = 10 ELSE vTeste:FONT = 6.
DISPLAY vTeste WITH FRAME .....

Daí vai pegar a fonte que tem configurada no Progress, a Fonte de Número 10 e a 6 por exemplo.

Será que era isso?

Não, seria bem isso.
Essas fontes 6 a 10 como exemplificou, são pré-configuradas na INI.
Queria saber se é possível atribuir um tipo de fonte diretamente.

Entendi!

AI tem que ser com os feras daki!
Sempre que preciso configuro a fonte, quando nao tenho, baixo, instalo, configuro depois uso no Progress.
Vlw

Obrigadão.

Vejamos se que alguma mente compartilha uma ideia... rsrs... isso é interessante...

Bom o que vc quer fazer exatamente?
Isso de mudar a fonte é num relatório ou em uma tela?
é quando manda pra impressora que vc quer mudar alguma coisa?
Até onde sei só é possivel pegar do .ini ou do register da maquina .

achei esse kbase da progress

Status: Unverified

GOAL:

How to print with a different font for one procedure

GOAL:

How to configure PrinterFont setting on-the-fly to print with a
different font for one procedure

GOAL:

How to modify the PrinterFont setting in the Windows Registry
on-the-fly

GOAL:

How to modify the PrinterFont setting in a Progress .INI file
on-the-fly

FACT(s) (Environment):

Windows

FIX:

Option #1
Modify the Progress Registry settings on-the-fly to use the
PrinterFont setting. Modify the Progress version noted to match the
current Progress installation.

/* Sample #1 */
PROCEDURE runPrintTest:
OUTPUT TO printer.
MESSAGE "This is a test".
OUTPUT CLOSE.
END PROCEDURE.

/* Use Default Font */
RUN runPrintTest.

LOAD "SOFTWARE\PSC\PROGRESS\9.1D\" BASE-KEY "HKEY_CURRENT_USER".
/* Set PrinterFont */
PUT-KEY-VALUE SECTION "Startup" KEY "PrinterFont" VALUE "Courier New,
size=8, bold".
USE "SOFTWARE\PSC\PROGRESS\9.1D\".

/* Use new PrinterFont setting */
RUN runPrintTest.

/* Reset PrinterFont */
PUT-KEY-VALUE SECTION "Startup" KEY "PrinterFont" VALUE "".
UNLOAD "SOFTWARE\PSC\PROGRESS\9.1D\".

/* Use Default Font */
RUN runPrintTest.


Option #2
Modify the .INI file on-the-fly to use the PrinterFont setting. This
sample assumes that -BASEKEY "INI" -ININAME "<path to .ini file>" have
been specified as client startup parameters.

/* Sample #2 */
PROCEDURE runPrintTest:
OUTPUT TO printer.
MESSAGE "This is a test".
OUTPUT CLOSE.
END PROCEDURE.

/* Use Default Font */
RUN runPrintTest.

/* Set PrinterFont */
PUT-KEY-VALUE SECTION "Startup" KEY "PrinterFont" VALUE "Courier New,
size=8, bold".
USE "progress.ini".

/* Use new PrinterFont setting */
RUN runPrintTest.

/* Reset PrinterFont */
PUT-KEY-VALUE SECTION "Startup" KEY "PrinterFont" VALUE "".
USE "progress.ini".

RUN runPrintTest.

veja se ajuda