PureBoard

Code: Alles auswählen

Global Window_0, TrackBar_0, ScrollArea_0, Image_0
Global GrundImage
Global X = 0
Global Y = 240

Procedure Open_Window_0()
  Window_0 = OpenWindow(#PB_Any, 101, 10, 745, 537, "Window 0",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
  If Window_0
    If CreateGadgetList(WindowID(Window_0))   
      ScrollArea_0 = ScrollAreaGadget(#PB_Any, 30, 10, 680, 430,659,426,0)
      SetGadgetColor(ScrollArea_0, #PB_Gadget_BackColor, $DEDEDE)
      Image_0 = ImageGadget(#PB_Any, 0,0,680,430,0)
      CloseGadgetList()
      TrackBar_0 = TrackBarGadget(#PB_Any, 150, 480, 480, 30, 0, 480)
      SetGadgetState(TrackBar_0,240)    
    EndIf
  EndIf
EndProcedure

Procedure Schreibe()
StartDrawing(ImageOutput(GrundImage))
LineXY(X,Y,X,GetGadgetState(TrackBar_0),$67FDB0)
DrawText(5, 5, "X = "+Str(X),$67FDB0,$000000)
StopDrawing()
SetGadgetState(Image_0,ImageID(GrundImage))
X= X+1
Y= GetGadgetState(TrackBar_0)
If X > 659
SetGadgetAttribute(ScrollArea_0,#PB_ScrollArea_InnerWidth,X)
SetGadgetAttribute(ScrollArea_0,#PB_ScrollArea_X ,GetGadgetAttribute(ScrollArea_0, #PB_ScrollArea_X) + 1)
EndIf
EndProcedure

Open_Window_0()
GrundImage = CreateImage(#PB_Any,1360,430)
StartDrawing(ImageOutput(GrundImage))
Box(0, 0, 1360, 430, $000000)
StopDrawing() 
SetGadgetState(Image_0,ImageID(GrundImage))

Repeat 
  
  Event = WaitWindowEvent()  
  WindowID = EventWindow() 
  GadgetID = EventGadget()
  EventType = EventType() 
  
  If Event = #PB_Event_Gadget    
    If GadgetID = TrackBar_0 : Schreibe()        
    EndIf   
  EndIf 
Until Event = #PB_Event_CloseWindow ; End of the event loop

End

Code: Alles auswählen

Enumeration
  #Window_0
EndEnumeration

Enumeration
  #TrackBar_0
  #ScrollBar_0
  #Text_0
EndEnumeration

Global X = 0
Global Y = 218
Global Dim XYArray.l(999999)
Global Startpos.l = 0

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 664, 537, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      OpenWindowedScreen(WindowID(#Window_0),20,20,620,435,0,0,0)
      TrackBarGadget(#TrackBar_0, 20, 500, 620, 30, 0, 435)
      SetGadgetState(#TrackBar_0,218)
      ScrollBarGadget(#ScrollBar_0, 20, 460, 620, 20, 0, 620, 620)
      TextGadget(#Text_0, 290, 485, 200, 15, "Bewege mich ! ! ! ! ")      
    EndIf
  EndIf
EndProcedure

Procedure Schreibe()
Protected i
ClearScreen($402010)
StartDrawing(ScreenOutput())
FrontColor($80C020)
DrawingMode(1)
XYArray(X)= GetGadgetState(#TrackBar_0)
If X > 620  
 Startpos = Startpos -1  
 SetGadgetAttribute(#ScrollBar_0, #PB_ScrollBar_Maximum, GetGadgetAttribute(#ScrollBar_0, #PB_ScrollBar_Maximum)+1)
 SetGadgetState(#ScrollBar_0, 620 + X)
EndIf

For i = 1 To X
 LineXY(Startpos+i,XYArray(i-1),Startpos+i+1,XYArray(i),$67FDB0)
Next i

StopDrawing()
X = X + 1
EndProcedure

Procedure ScrollPicture()
Protected i
If GetGadgetAttribute(#ScrollBar_0, #PB_ScrollBar_Maximum) > 640
 ClearScreen($402010)
 StartDrawing(ScreenOutput())
 FrontColor($80C020)
 DrawingMode(1)
 For i = 0 To 640
  LineXY(i,XYArray(i+GetGadgetState(#ScrollBar_0)),i+1,XYArray(GetGadgetState(#ScrollBar_0)+i+1),$67FDB0)
 Next i
 StopDrawing()
EndIf 
EndProcedure

InitSprite()
InitKeyboard()
Open_Window_0()
Repeat
  
  Event = WaitWindowEvent()  
  WindowID = EventWindow()  
  GadgetID = EventGadget() 
  EventType = EventType()
    
  If Event = #PB_Event_Gadget
    
    If GadgetID = #TrackBar_0
     Schreibe() 
    ElseIf GadgetID = #ScrollBar_0
     ScrollPicture()
    EndIf
    
  EndIf
  FlipBuffers()
Until Event = #PB_Event_CloseWindow

End
;