XProfan

Español

¡Hola a Alle
Wenn Yo una Multiedit con uno Schriftart bestücke, muss el una Variable geschehen. Ejemplo: font%=CREATE(FONT,ARIAL,16,6,0,0,0) - Will Yo ahora el Inhalt ausdrucken, muss Yo innerhalb de STARTPRINT-ENDPRINT el Schrift con USEFONT ARIAL,16,6,0,0,0 angeben. Yo hätte ahora gerne, si yo encima mi Programmeinstellungen (en el geschriebenen Programa) una Schriftart para el Editor einstelle, dass auch el Druckroutine esta Font erkennt y wechselt. Como bringe Yo also el Sache en, el font%... igual USEFONT... es ? - Hoffentlich tener Yo mich verständlich ausgedrückt

02.07.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

...lo war sí sólo pregunta ne

02.07.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Hm. Jede Druckseite es auch sólo una HDC, el en Erstellung el Standart-Font gesetzt ha. Darum muss para jede Página el propio Font neu gesetzt voluntad.
Hier kann wohl sólo Roland una Erweiterung einbauen.
Mit WM_GETFONT/WM_SETFONT Messages kannst du dir aber selber el Font para una HDC auslesen/conjunto.

02.07.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

...Yo lo una Procedimiento organisieren.
Kompilieren Marca Separación

Proc USE_Font

    USEFONT neufont$,typfont1%,typfont2%,typfont3%,typfont4%,typfont5%
    lfont& = @Create(Font,neufont$,typfont1%,typfont2%,typfont3%,typfont4%,typfont5%)

EndProc

var neufont$=Georgia
var typfont1%=16
var typfont2%=0
var typfont3%=0
var typfont4%=0
var typfont5%=0
DECLARE T&, lfont&
USE_Font                   Font setzen
SETDIALOGFONT 1
T& = CREATE(TABCTRL,%HWND,Tageserfassung,0002,0004,0780,0550)
SetFont T&,lfont&
.......
StartPrint *TrueType

if %printing

    TextColor @RGB(0,0,0),-1
    Orientation 0
    USE_Font                   Font setzen
    .........
    Endprint

Endif

.....