XProfan

Italia

Hallo an Alle
Wenn ich ein Multiedit mit einer Schriftart bestücke, muss das circa una variabile geschehen. Beispiel: font%=CREATE(FONT,ARIAL,16,6,0,0,0) - Will ich jetzt den Inhalt ausdrucken, muss ich innerhalb von STARTPRINT-ENDPRINT die Schrift mit USEFONT ARIAL,16,6,0,0,0 angeben. Ich hätte jetzt gerne, wenn ich circa meine Programmeinstellungen (im geschriebenen Programm) eine Schriftart per den Editor einstelle, dass auch die Druckroutine diesen Font erkennt und wechselt. Wie bringe ich also der Sache bei, das font%... gleich USEFONT... ist ? - Hoffentlich hab ich mich verständlich ausgedrückt

02.07.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

...es war ja nur ne Frage

02.07.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Frank
Abbing

Hm. Jede Druckseite ist auch nur ein HDC, der bei Erstellung den Standart-Font gesetzt hat. Darum muss per jede Seite der eigene Font neu gesetzt werden.
Hier kann wohl nur Roland eine Erweiterung einbauen.
Mit WM_GETFONT/WM_SETFONT Messages kannst du dir aber selber den Font per einen HDC auslesen/setzen.

02.07.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Thomas
Freier

...dann würde ich es circa eine Prozedur organisieren.
Kompilieren Markieren Separieren

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

.....