PureBoard

Code: Alles auswählen

   StartDrawing(ScreenOutput())
   DrawText(60,60,"Flaeche #1")
   DrawText(60,360,"Flaeche #2")
   DrawText(190,60,"Beenden")
   DrawText(500,60,"Flaeche #3")
   DrawText(500,360,"Flaeche #4")         
   StopDrawing()

Code: Alles auswählen

InitSprite() : InitKeyboard()

OpenScreen(640,480,32,"void")

SetClassLong_(ScreenID(),#GCL_HCURSOR,LoadCursor_(0,#IDC_ARROW))

ShowCursor_(1)

CreateSprite(0,640,480,#PB_Sprite_Memory)
StartDrawing(SpriteOutput(0))
For i=0 To 639
   Box(0,i,640,1,RGB(0,50 + ((i * 205) / 639),230))
Next
StopDrawing()

Repeat
   ClearScreen($704020)
   
   ExamineKeyboard()
   
   GetCursorPos_(pt.POINT)

    If GetAsyncKeyState_(#VK_LBUTTON) & $FFFF
       MLB = 1
    Else
       MLB = 0
    EndIf      
   
   StartSpecialFX()
   DisplaySprite(0,0,0)
   
   DisplayRGBFilter(50,50,100,250,50,50,50)
   DisplayRGBFilter(50,350,100,100,50,50,50)
   
   If pt\x >= 180 And pt\x < 460 And pt\y >= 50 And pt\y < 300
      DisplayRGBFilter(180,50,280,250,150,50,50)
      
      If MLB
         End
      EndIf      
   Else
      DisplayRGBFilter(180,50,280,250,50,50,50)
   EndIf
   
   DisplayRGBFilter(490,50,100,250,50,50,50)
   DisplayRGBFilter(490,350,100,100,50,50,50)   
   StopSpecialFX()
   
   StartDrawing(ScreenOutput())
   DrawText(60,60,"Flaeche #1")
   DrawText(60,360,"Flaeche #2")
   DrawText(190,60,"Beenden")
   DrawText(500,60,"Flaeche #3")
   DrawText(500,360,"Flaeche #4")         
   StopDrawing()
   
   FlipBuffers()
Until KeyboardPushed(1)

Code: Alles auswählen

If MouseButton(1) 
  If MLB_act = 0
    MLB_act = 1
    MLB = 1
  Else
    MLB = 0
  EndIf
Else
  MLB_act = 0
EndIf