Chapiteau à défilement vertical pour foxpro
-
02-07-2019 - |
Question
Quelqu'un pourrait-il m'indiquer un code / des idées sur la création d'un cadre de sélection défilant verticalement pour VFP 8 ou 9?
Toute aide est appréciée.
La solution
Voici un programme rapide qui fera défiler les messages. Placez ce qui suit dans un fichier prg et exécutez-le.
Je ferais de containerScrollArea une classe qui encapsule le minuteur, les étiquettes et le code de défilement. Donnez-lui la méthode GetNextMessage que vous pouvez remplacer pour récupérer les messages.
* Put a container on the screen to hold our scroller
_screen.AddObject("containerScrollArea", "container")
WITH _Screen.containerScrollArea
* Size it
.Visible = .t.
.Width = 100
.Height = 100
* Add two labels, one to hold each scrolling message
.AddObject("labelScroll1", "Label")
.AddObject("labelScroll2", "Label")
* This timer will move the labels to scroll them
.AddObject("timerScroller", "ScrollTimer")
ENDWITH
WITH _Screen.containerScrollArea.labelScroll1
* The labels are positioned below the margin of the container, so they're not initially visible
.Top = 101
.Height = 100
.Visible = .t.
.WordWrap = .t.
.BackStyle= 0
.Caption = "This is the first scrolling text, which is scrolling."
ENDWITH
WITH _Screen.containerScrollArea.labelScroll2
* The labels are positioned below the margin of the container, so they're not initially visible
.Top = 200
.Height = 100
.Visible = .t.
.WordWrap = .t.
.BackStyle= 0
.Caption = "This is the second scrolling text, which is scrolling."
ENDWITH
* Start the timer, which scrolls the labels
_Screen.containerScrollArea.timerScroller.Interval = 100
DEFINE CLASS ScrollTimer AS Timer
PROCEDURE Timer
* If the first label is still in view, move it by one pixel
IF This.Parent.labelScroll1.Top > -100
This.Parent.labelScroll1.Top = This.Parent.labelScroll1.Top - 1
ELSE
* If the first label has scrolled out of view on the top of the container, move it back to the bottom.
This.Parent.labelScroll1.Top = 101
* Load some new text here
ENDIF
IF This.Parent.labelScroll2.Top > -100
* If the second label is still in view, move it by one pixel
This.Parent.labelScroll2.Top = This.Parent.labelScroll2.Top - 1
ELSE
* If the second label has scrolled out of view on the top of the container, move it back to the bottom.
This.Parent.labelScroll2.Top = 101
* Load some new text here
ENDIF
ENDPROC
ENDDEFINE
Autres conseils
Vous pouvez utiliser le conteneur pouvant être parcouru
.Malheureusement, la nature de mon travail ne me laisse pas le temps de m'amuser avec des graphismes. Toutefois, si je le faisais, j'examinerais l'utilisation de GDI + avec VFP. Voici un article pour vous aider à démarrer