XProfan

Deutsch

Hallo an Alle
Wenn ich ein Multiedit mit einer Schriftart bestücke, muss das über eine Variable 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 über meine Programmeinstellungen (im geschriebenen Programm) eine Schriftart für 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 zitieren Zeilenweise zitieren

...es war ja nur ne Frage

02.07.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Frank
Abbing

Hm. Jede Druckseite ist auch nur ein HDC, der bei Erstellung den Standart-Font gesetzt hat. Darum muss für 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 für einen HDC auslesen/setzen.

02.07.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Thomas
Freier

...dann würde ich es über 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

.....