XProfan

Français

allô à Alle
si je un Multiedit avec einer Schriftart bestücke, muss cela sur une variable geschehen. Beispiel: font%=CREATE(FONT,ARIAL,16,6,0,0,0) - veux je maintenant den le contenu ausdrucken, muss je dedans de STARTPRINT-ENDPRINT qui Schrift avec USEFONT ARIAL,16,6,0,0,0 angeben. je hätte maintenant volontiers, si je sur mon Programmeinstellungen (im geschriebenen Programme) une Schriftart pour den Editor einstelle, dass aussi qui Druckroutine cette Font erkennt et wechselt. comment bringe je alors qui l'affaire chez, cela font%... juste USEFONT... ist ? - Hoffentlich hab je mich verständlich ausgedrückt

02.07.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

...es était oui seulement ne Frage

02.07.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

Hm. chacun Druckseite ist aussi seulement un HDC, qui chez Erstellung den Standart-Font gesetzt hat. tout autor muss pour chacun page qui eigene Font récente gesetzt volonté.
ici peux wohl seulement Roland une Erweiterung einbauen.
avec WM_GETFONT/WM_SETFONT Messages peux du dir mais selber den Font pour une HDC auslesen/mettons.

02.07.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Thomas
Freier

...ensuite serait je es sur une Procédure organiser.
Kompilieren Marque Séparation

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

.....