German Vertikal scroll up/down

Discussion in 'German Forum' started by yogie, May 15, 2018 at 7:55 AM.

  1. yogie

    yogie Member Licensed User

    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

    Code:
    Sub VertScrollUp
       
    Dim h, w As Int
       h = bmpWaterfall.Height
       w = bmpWaterfall.Width
       
    '   von unten nach oben (ok)
       rectSrcWaterfall.Initialize(01, w, h)
       rectDestWaterfall.Initialize(
    00, w, h - 1)
       cvsWaterfall.Drawbitmap(bmpWaterfall, rectSrcWaterfall, rectDestWaterfall)
    End Sub
    Code:
    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(00, w, h - 1)  'edit
       rectDestWaterfall.Initialize(01, w, h)
       cvsWaterfall.Drawbitmap(bmpWaterfall, rectSrcWaterfall, rectDestWaterfall)
    End Sub
    VertScrollDwn funktioniert nicht. Ich vermute ich brauche eine Art Zwischenspeicher.
    Hat da jemand einen Tip?
     
    Last edited: May 15, 2018 at 8:31 AM
  2. klaus

    klaus Expert Licensed User

    Du definirst zwei mal rectDestWaterfall
     
  3. yogie

    yogie Member Licensed User

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

    yogie Member Licensed User

    ... habe eine Lösung gefunden
    Code:
    Sub VertScrollDwn
       
    Dim h, w As Int
       h = bmpWaterfall.Height
       w = bmpWaterfall.Width
       
    '  von oben nach unten
       bmpWaterfall2.Initialize3(bmpWaterfall) ' Zwischenspeicher !!
       
       rectSrcWaterfall2.Initialize(
    00, w, h - 1)
       rectDestWaterfall.Initialize(
    01, w, h)
       cvsWaterfall.Drawbitmap(bmpWaterfall2, rectSrcWaterfall2, rectDestWaterfall)
    End Sub
    [code\]
     
Loading...