XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Laufschrift im Scrollfenster erstellen
Lauffähig ab Profan-Version 5.0
**********************************************************************
 $I Laufschrift.inc					 1.) Include einbinden
**********************************************************************
Declare ende%,infofenster&,endebutton&,font&,dialog&
 $P+
SetErrorLevel 0
SetTrueColor 1
WindowStyle 63
WindowTitle Infofenster mit Laufschrift
Window 0,0-0,0
Cls GetSysColor(15)
UseFont MS Sans Serif,13,0,0,0,0
SetDialogFont 1
font&=@CREATEFONT(MS Sans Serif,13,0,0,0,0)		Jedem anderen Objekt diesen Font zuordnen!
dialog&=createdialog(%hwnd,Infodialog,50,50,500,200)
endebutton&=createbutton(dialog&,Demo beenden,330,10,150,25)
setfont endebutton&,font&
**********************************************************************
INFOHWND Dialog&,3,3,300,150,RGB(0,0,160)	 2.) Scrollfenster erstellen
infofenster&=@&(0)
**********************************************************************

PROC ABFRAGEN HIER ALLE ABFRAGEN HIN, DA DIESE AUCH IM TIMERZUSTAND ABGEFRAGT WERDEN MÜSSEN

    If getfocus(endebutton&)

        Let ende%=1

    EndIf

ENDPROC

ende%=0
SetTimer 50						Timer ist wichtig

WhileNot ende%

    WaitInput

    If %WMTIMER

        ******************** Dies könnte auch in eine extra Prozedur *********************
        ZEILENANZAHL 15
        SCROLLTEXT 14,1,infofenster&,RGB(255,0,0),Dies ist eine Laufschriftdemo,0
        SCROLLTEXT 14,0,infofenster&,RGB(255,255,0),(c) by Rolf Koch - Rokosoft 2003,1
        SCROLLTEXT 14,0,infofenster&,RGB(0,0,0),,2
        SCROLLTEXT 13,0,infofenster&,RGB(255,255,255),Ein Info oder Laufschriftfenster in,3
        SCROLLTEXT 13,0,infofenster&,RGB(255,255,255),jeglicher Form erstellen und auf,4
        SCROLLTEXT 13,0,infofenster&,RGB(255,255,255),einem Hauptfenster oder Dialog in,5
        SCROLLTEXT 13,0,infofenster&,RGB(255,255,255),flüssiger Form scollen lassen.,6
        SCROLLTEXT 13,0,infofenster&,RGB(255,255,255),Diese Demo ist lauffähig ab Profanversion 6.6,7
        SCROLLTEXT 13,0,infofenster&,$00FFFF,,8
        SCROLLTEXT 13,0,infofenster&,RGB(128,255,255),Einfach eine Hintergrundfarbe wählen und,9
        SCROLLTEXT 13,0,infofenster&,RGB(128,255,255),Textzeilen ähnlich einer Listbox hinzufügen,10
        SCROLLTEXT 13,0,infofenster&,RGB(128,255,255),Die Texte sind in Größe und in Ihrer Farbe,11
        SCROLLTEXT 13,0,infofenster&,RGB(128,255,255),pro Zeile frei wählbar,12
        SCROLLTEXT 13,0,infofenster&,RGB(128,255,255),Das Laufschriftobjekt ist in,13
        SCROLLTEXT 13,0,infofenster&,RGB(128,255,255),der Farbe, Position und Höhe leicht einstellbar.,14
        SCROLLTEXT 13,0,infofenster&,RGB(128,255,255),,15				 an den Schluss ein Leerzeichen!!!
        Abfragen
        ******************************************************************

    ELSE

        Abfragen

    Endif

Wend

KILLTIMER
Deleteobject font&