PureBasic Forums - English

Code: Select all

Global Memory 
Memory = AllocateMemory(1024) 

Procedure DesktopOutput() 
  PokeL(Memory, 1) 
  ProcedureReturn Memory 
EndProcedure 

StartDrawing(DesktopOutput()) 
 Locate(130,100)
 DrawText("See, you can draw to the desktop very easily.. to exit this program, press Escape on your keyboard.")
 Ellipse(150,200,70,70,RGB(0,50,100))
 Ellipse(350,200,70,70,RGB(0,50,100))
 Ellipse(550,200,70,70,RGB(0,50,100))
 Ellipse(750,200,70,70,RGB(0,50,100))
StopDrawing() 

Repeat 
Delay(5) ; Delay for CPU's health =D 

If GetAsyncKeyState_(#VK_ESCAPE) 
  Quit = 1 ; If ESCAPE button is pushed, then quit. 
EndIf 
  
Until Quit 
InvalidateRect_(0, 0, 0) ; Redraw the desktop. 
End

Code: Select all

Global Memory 
Memory = AllocateMemory(1024) 

If InitMouse() = 0 
  MessageRequester("Error", "Can't use mouse.", #MB_ICONERROR) 
  End 
EndIf 

Procedure DesktopOutput()
  PokeL(Memory, 1) 
  ProcedureReturn Memory 
EndProcedure

Repeat 
ExamineMouse() ; Needed to update the MouseX() and MouseY() values. 

StartDrawing(DesktopOutput()) 
  Plot(DesktopMouseX(),DesktopMouseY(),RGB(0,50,100)) 
StopDrawing()  ; As you see the drawing operations are inside the Repeat loop. 

Delay(5) ; Delay for CPU's health =D 

If GetAsyncKeyState_(#VK_ESCAPE) 
  Quit = 1 ; If ESCAPE button is pushed, then quit. 
EndIf 
  
Until Quit 
InvalidateRect_(0, 0, 0) ; Redraw the desktop. 
End

Code: Select all

 PokeL(Memory, 1) 

Code: Select all

Global Memory
Memory = AllocateMemory(1024) 

;Procedure DesktopOutput() - Just incase you need this. 
;  PokeL(Memory, 1) 
;  ProcedureReturn Memory 
;EndProcedure 

StartDrawing(DesktopOutput()) 
; Drawing code goes here. 
StopDrawing() 

Repeat 
Delay(5) ; Delay for CPU's health =D 

If GetAsyncKeyState_(#VK_ESCAPE) 
  Quit = 1 ; If ESCAPE button is pushed, then quit. 
EndIf 
  
Until Quit 
InvalidateRect_(0, 0, 0) ; Redraw the desktop. 
End

Code: Select all

; www.purearea.net (Sourcecode collection by cnesm)
; Author:  (updated for PB3.93 by ts-soft)
; Date: 22. November 2003

Global mem.l 
; hier werden 1024 byte speicher reserviert 
mem = AllocateMemory(1024) 

Procedure.l DesktopOutput() 
  PokeL(mem, 1) 
  ProcedureReturn mem 
EndProcedure 

Maus.POINT 

Repeat 
  ; hier werden die maus koordinaten ausgelesen 
  GetCursorPos_(Maus) 
  ; 
  ; hier beginnt die verwirrung 
  StartDrawing(DesktopOutput()) 
    Plot(Maus\x, Maus\y, $0000FF) 
  StopDrawing() 
  ; 
  ; delay für cpu entlastung 
  Delay(5) 
  ; hier wird die escape taste geprüft 
  If GetAsyncKeyState_(#VK_ESCAPE) 
    Quit = 1 
  EndIf 
  
Until Quit 
InvalidateRect_(0, 0, 0) 
End  
; jaPBe Version=2.5.4.22
; Build=0
; FirstLine=0
; CursorPosition=18
; ExecutableFormat=Windows
; DontSaveDeclare
; EOF

Code: Select all

PS: Updated code! Check the first code snippet in my first post. lol.