English
Source / code snippets

create Marquee Scroll window

 

CompileMarkSeparation
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
ass=s4 href='./../../function-references/XProfan/deleteobject/'>Deleteobject font&
 
07/16/07  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

1.628 Views

Untitledvor 0 min.
H.Brill06/30/21
Peter Max Müller10/10/17
p.specht02/19/17
Tango02/13/17
More...

Themeninformationen

this Topic has 1 subscriber:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie