; German forum: http://www.purebasic.fr/german/archive/viewtopic.php?t=1898&highlight=
; Author: Danilo (updated for PB4.00 by blbltheworm)
; Date: 04. August 2003
; OS: Windows
; Demo: Yes

; 
; by Danilo, 04.08.2003 - german forum 
; 
If InitSprite()=0 Or InitMouse()=0 Or InitKeyboard()=0 
  MessageRequester("ERROR","Cant init DirectX !",#MB_ICONERROR):End 
EndIf 

If OpenScreen(1024,768,16,"Vollbild")=0 
  MessageRequester("ERROR","Cant open screen !",#MB_ICONERROR):End 
EndIf 

If CreateSprite(0,100,100)=0 Or CreateSprite(1,100,100)=0 Or CreateSprite(2,16,16)=0 
  CloseScreen() 
  MessageRequester("ERROR","Cant create sprites !",#MB_ICONERROR):End 
EndIf 

hFnt = LoadFont(1,"Arial",72) 

For a = 0 To 1 
  StartDrawing(SpriteOutput(a)) 
    Box(0,0,100,100,RGB(a*255,a*255,(a!1)*255)) 
    FrontColor(RGB((a!1)*255,(a!1)*255,a*255)) 
    DrawingFont(hFnt):DrawingMode(1) 
    DrawText(50-TextWidth(Str(a))/2,0,Str(a)) 
  StopDrawing() 
Next a 

StartDrawing(SpriteOutput(2)) 
  Circle(8,8,7,RGB($00,$FF,$FF)) 
StopDrawing() 

MouseLocate(243,243) 

Repeat 
  FlipBuffers() 
  ExamineKeyboard() 
  ExamineMouse() 
  ClearScreen(RGB(0,0,0)) 


  ;- Mausabfrage 
  ;  hier sollte die mausabfage stehen - also if mausklick, 
  ;  zeig bild, warte auf mausklick... 
  MouseX       = MouseX() 
  MouseY       = MouseY() 
  MouseButton1 = MouseButton(1) 

  If MouseButton1 And oldMouseButton1 = 0 
    If MouseX>=200 And MouseX<=300 And MouseY>=200 And MouseY<=300 
      Box ! 1 
      TextColor = 254 : Msg = 1 
    EndIf 
  ElseIf MouseButton1 = 0 And oldMouseButton1 
    If Box 
      Box ! 1 
      If MouseX>=200 And MouseX<=300 And MouseY>=200 And MouseY<=300 
        TextColor = 254 : Msg = 2 
      EndIf 
    EndIf 
  EndIf 

  oldMouseButton1 = MouseButton1 

  ;- Sprites anzeigen 
  DisplaySprite(Box,200,200) 
  DisplayTransparentSprite(2,MouseX,MouseY) 

  If TextColor 
    StartDrawing(ScreenOutput()) 
      DrawingMode(1) 
      FrontColor(RGB(TextColor,TextColor,TextColor)) 
      Select Msg 
        Case 1 
          DrawText(100,100,"Button 1 LeftClick - PRESSED") 
        Case 2 
          DrawText(100,100,"Button 1 LeftClick - RELEASED") 
      EndSelect 
    StopDrawing() 
    TextColor - 2 
  EndIf 

Until KeyboardPushed(#PB_Key_Escape) 

; IDE Options = PureBasic v4.00 (Windows - x86)
; Folding = -