German Vertikal scroll up/down

Discussion in 'German Forum' started by yogie, May 15, 2018.

  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
  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...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice