XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Text dans 3D gestalten (avec un paire Spielereien)
Lauffähig ab Profan-Version 7.0
un paire 3D-Texteffekte erzeugen et encore
paire Spielereien ;)
Rolf Koch Roko-Software 2001
Viel Amusement beim essayer
declare font%,text%,font2%,text2%,font3%,text3%,zeit%,ende%
** Simple Spielerei à Text 2 ******

PROC TEXT2

    SetText text2%,
    sleep 100
    SetText text2%,u
    sleep 100
    settext text2%,un
    sleep 100
    settext text2%,et
    sleep 100
    settext text2%,et n
    sleep 100
    settext text2%,et no
    sleep 100
    settext text2%,et noc
    sleep 100
    settext text2%,et encore
    sleep 100
    settext text2%,et encore e
    sleep 100
    settext text2%,et encore ouf
    sleep 100
    settext text2%,et encore un
    sleep 100
    settext text2%,et encore un T
    sleep 100
    settext text2%,et encore un Te
    sleep 100
    settext text2%,et encore un Tes
    sleep 100
    settext text2%,et encore un Test

ENDPROC

SetTrueColor 1
Cls RGB(192,192,192)
SetTrueColor 1
Windowtitle simple 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)
font3%=CreateFont(ARIAL,150,0,1,1,0)
text%=CreateText (%hwnd,ca ist un Test,5,5,300,50)
text2%=CreateText (%hwnd,et encore un Test,5,75,500,50)
text3%=CreateText (%hwnd,3D TEXT,5,175,600,150)
SetFont text%,font%
SetFont text2%,font2%
SetFont text3%,font3%
EnableWindow text%,0
EnableWindow text2%,0
EnableWindow text3%,0

whilenot ende%

    TEXT2		Spielerei ;)
    EnableWindow text3%,0
    EnableWindow text2%,1
    sleep 500	im normalen Programme naturellement Minuteur
    avec cela cela Programme weiterläuft!
    EnableWindow text3%,1
    EnableWindow text2%,0
    sleep 500

Wend

Deleteobject font%
Deleteobject font2%
DeleteObject font3%