German Vertikal scroll up/down

[yogie]

Hallo zusammen,
Ziel ist es eine Wasserfalldarstellung zu erstellen.
Ich habe eine Drstellung programmiert, die von "unten" nach "oben" fließt,
würde aber gerne einen Fluß von "oben" nach "unten" haben. Das gelingt mir leider nicht.
Es scheint so, daß bei der Kopieraktion die Quelldaten überschrieben werden

Sub VertScrollUp
   Dim h, w As Int
   h = bmpWaterfall.Height
   w = bmpWaterfall.Width
   '   von unten nach oben (ok)
   rectSrcWaterfall.Initialize(0, 1, w, h)
   rectDestWaterfall.Initialize(0, 0, w, h - 1)
   cvsWaterfall.Drawbitmap(bmpWaterfall, rectSrcWaterfall, rectDestWaterfall)
End Sub

Sub VertScrollDwn
   Dim h, w As Int
   h = bmpWaterfall.Height
   w = bmpWaterfall.Width
   '   von oben nach unten (nicht ok)
   'rectDestWaterfall.Initialize(0, 0, w, h - 1)   
   rectSrcWaterfall.Initialize(0, 0, w, h - 1)  'edit
   rectDestWaterfall.Initialize(0, 1, w, h)
   cvsWaterfall.Drawbitmap(bmpWaterfall, rectSrcWaterfall, rectDestWaterfall)
End Sub

VertScrollDwn funktioniert nicht. Ich vermute ich brauche eine Art Zwischenspeicher.
Hat da jemand einen Tip?

 

[klaus]

Du definirst zwei mal rectDestWaterfall

 

[yogie]

ups,
da ist mir beim Vorbereiten der Code-Teile ein Fehler unterlaufen.
Ich hab das jetzt berichtigt

 

[yogie]

... habe eine Lösung gefunden

Sub VertScrollDwn
   Dim h, w As Int
   h = bmpWaterfall.Height
   w = bmpWaterfall.Width
   '  von oben nach unten
   bmpWaterfall2.Initialize3(bmpWaterfall) ' Zwischenspeicher !!
   
   rectSrcWaterfall2.Initialize(0, 0, w, h - 1)
   rectDestWaterfall.Initialize(0, 1, w, h)
   cvsWaterfall.Drawbitmap(bmpWaterfall2, rectSrcWaterfall2, rectDestWaterfall)
End Sub
[code\]