XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Textausgabe linksbündig, zentriert, rechtsbündig und Blocksatz
(C) 2006 Carlo Keil
 $I ck-DrawText.inc

Proc Ausgabe

    Declare b!, s!, s$
    TextColor @RGB(0, 0, 255), -1
    UseFont Verdana, 18, 0, 0, 0, 0
    Drawtext_links       0,  0, Ausgabe linksbündig (0)
    Drawtext           300,  0, Ausgabe linksbündig (300)
    Drawtext_zentriert 300, 25, Ausgabe zentriert (300)
    Drawtext_rechts    300, 50, Ausgabe rechtsbündig (300)
    Drawtext_rechts    632, 50, Ausgabe rechtsbündig (632)
    Line 0, 75 - 640, 75
    Drawtext_zentriert 300, 80, Das sollte auch auf dem Drucker funktionieren
    Line 0, 105 - 640, 105
    s! = 0

    WhileLoop 120, 280, 15

        b! = @Rnd(100000) + @Rnd(100)/100.0
        s! = s! + b!
        Drawtext_links    4, &Loop, Artikelbezeichnung
        Drawtext_rechts 298, &Loop, @Format$(###,##0.00 €, b!)

    EndWhile

    UseFont Verdana, 17, 0, 1, 0, 0   Summe fett (Schrift 1 Punkt kleiner, weil fett etwas breiter ist)
    Drawtext_links    4, 290, Summe
    Drawtext_rechts 298, 290, @Format$(###,##0.00 €, s!)
    jetzt die gestrichelte Orientierungslinie
    UsePen 2, 1, @RGB(255, 0, 0)
    Line 300, 0 - 300, 330
    und ein Trichter
    Drawtext_zentriert 470, 115, Der Trichter
    UseFont Verdana, 18, 0, 0, 0, 0                           Schrift wieder auf normal
    Drawtext_zentriert 470, 140, Oben geht es ganz breit los
    Drawtext_zentriert 470, 160, und dann wird es schmal
    Drawtext_zentriert 470, 180, und immer schmaler
    Drawtext_zentriert 470, 200, und schmaler
    Drawtext_zentriert 470, 220, und nun
    Drawtext_zentriert 470, 240, aus
    Drawtext_zentriert 470, 260, .
    und nun der Blocksatz
    s$ =      Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt
    s$ = s$ +  ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris
    s$ = s$ +  nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate.
    UseFont Verdana, 14, 0, 0, 0, 0
    DrawText_block 4, 335, s$, 290, 12
    UseFont Times New Roman, 16, 0, 0, 0, 0
    DrawText_block 310, 335, s$, 320, 18

EndProc

--------------------------------------------------------------------
Def @GetSysColor(1) !USER32, GetSysColor
Randomize
WindowStyle 16 + 32
Window (%MaxX - 640)  2, (%MaxY - 480)  3 - 640, 480
WindowTitle $ProfVer
Cls GetSysColor(15)
Declare Druck&, Ende&
Druck& = @Create(Button, %HWnd, Drucken, 320, 290, 120, 32)
Ende&  = @Create(Button, %HWnd, Ende,    490, 290, 120, 32)
Ausgabe

While 1

    WaitInput

    If @GetFocus(Ende&) Or (%Key = 2)

        END

    ElseIf @GetFocus(Druck&)

        StartPrint Drucktest
        Ausgabe
        EndPrint

    EndIf

EndWhile

END