Scrollbalken

Übersicht

BlitzBasic

BlitzPlus

	Mathias-Kwiatkowski Betreff: Scrollbalken	Mo, Dez 25, 2006 23:56 Antworten mit Zitat
hi leute ich möchte nen scrollbalken in meinem fenster machen also so das man von oben nach unten scrollen kann und innerhalb des fensters sind textfelder, so username usw.. usw... die man beantworten kann, wie mach ich sowas, bei html view kommebn diese ja von selber aber leider nicht dann wenn man ausserhalb des fensters nen button setzt ^^ ich habe schon mal versucht es selber zu machen, aber des ist alles wie sagt man " bullshit " gewesen... danke für eure hilfe in vorraus

Mathias-Kwiatkowski

Betreff: Scrollbalken

Mo, Dez 25, 2006 23:56
Antworten mit Zitat

hi leute ich möchte nen scrollbalken in meinem fenster machen also so das man von oben nach unten scrollen kann und innerhalb des fensters sind textfelder, so username usw.. usw... die man beantworten kann, wie mach ich sowas, bei html view kommebn diese ja von selber aber leider nicht dann wenn man ausserhalb des fensters nen button setzt ^^

ich habe schon mal versucht es selber zu machen, aber des ist alles wie sagt man " bullshit " gewesen...

danke für eure hilfe in vorraus

	Rone	Di, Dez 26, 2006 3:32 Antworten mit Zitat
moin, wenn Gadgets in einem Fenster scrollen sollen, kann man sie zum Beispiel in einem Panel plazieren, und dann einfach entsprechend des Slider Wertes mit SetGadgetShape() auf der Y-Achse verschieben: Code: [AUSKLAPPEN] [EINKLAPPEN] Window = CreateWindow("Bla",10,10,300,600,Null,Window_TITLEBAR ) Panel = CreatePanel(5,5,265,590,Window,0) Slider = CreateSlider(270,5,25,500,Window) SetSliderRange(Slider,0,600) For Local i:Int = 0 To 29 buttons[i] = CreateButton("Button "+i,5,5+i30,260,25,panel) Next ... Code:* [AUSKLAPPEN] [EINKLAPPEN] Select EventSource() Case Slider If EventID() = EVENT_GADGETACTION For Local i:Int = 0 To 29 SetGadgetShape(buttons[i], GadgetX(buttons[i]), i*30 - EventData(),260,25) RedrawGadget(buttons[i]) Next EndIf End Select mfg

Rone

Di, Dez 26, 2006 3:32
Antworten mit Zitat

moin,

wenn Gadgets in einem Fenster scrollen sollen, kann man sie zum Beispiel in einem Panel plazieren, und dann einfach entsprechend des Slider Wertes mit SetGadgetShape() auf der Y-Achse verschieben:

Code: [AUSKLAPPEN]

Window = CreateWindow("Bla",10,10,300,600,Null,Window_TITLEBAR )
      Panel = CreatePanel(5,5,265,590,Window,0)
      Slider = CreateSlider(270,5,25,500,Window)
      SetSliderRange(Slider,0,600)
      For Local i:Int = 0 To 29
         buttons[i] = CreateButton("Button "+i,5,5+i*30,260,25,panel)
      Next

...
Code: [AUSKLAPPEN]

Select EventSource()
      Case Slider
         If EventID() = EVENT_GADGETACTION
            For Local i:Int = 0 To 29
               SetGadgetShape(buttons[i], GadgetX(buttons[i]), i*30 - EventData(),260,25)
               RedrawGadget(buttons[i])
            Next

         EndIf
   End Select

mfg

	Mathias-Kwiatkowski	Di, Dez 26, 2006 14:45 Antworten mit Zitat
mhh bei mir funktionier der ganze code nicht....

Mathias-Kwiatkowski

Di, Dez 26, 2006 14:45
Antworten mit Zitat

mhh bei mir funktionier der ganze code nicht....

	Rone	Mi, Dez 27, 2006 14:59 Antworten mit Zitat
wenn du das einfach rüberkopierst, wirds auch nicht funktionieren, da das BlitzMax ist und auch kein funktionierendes Beispiel war. Allerdings funktioniert das auf diese Weise einwandfrei....hier. Eventuell muss an 2 Stellen was abgeändert werden(eckige Klammern bei Array...), aber es geht ja nur ums prinzip. mfg

Rone

Mi, Dez 27, 2006 14:59
Antworten mit Zitat

wenn du das einfach rüberkopierst, wirds auch nicht funktionieren, da das BlitzMax ist und auch kein funktionierendes Beispiel war.
Allerdings funktioniert das auf diese Weise einwandfrei....hier. Eventuell muss an 2 Stellen was abgeändert werden(eckige Klammern bei Array...), aber es geht ja nur ums prinzip.
mfg

Übersicht

BlitzBasic

BlitzPlus

Nach Oben

BlitzBasic Portal

Scrollbalken

Mathias-Kwiatkowski

Betreff: Scrollbalken

Rone

Mathias-Kwiatkowski

Rone