XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Text in 3D gestalten
Lauffähig ab Profan-Version 6.6
declare font%,text%,font2%,text2%
SetTrueColor 1
Cls RGB(192,192,192)
Windowtitle Einfachen 3D-Text gestalten (c) Rolf Koch
font%=CreateFont(Times New Roman,50,0,0,1,0)
font2%=CreateFont(COURIER NEW,50,0,0,1,0)
text%=CreateText (%hwnd,Dies ist ein Test,5,5,300,50)
text2%=CreateText (%hwnd,und noch ein Test,5,75,500,50)
SetFont text%,font%
SetFont text2%,font2%
EnableWindow text%,0
EnableWindow text2%,0
WaitInput
Deleteobject font%
Deleteobject font2%