PureBasic

Code : Tout sélectionner

; Example01_Basics_ellipse.pb

; Includes the program file
XIncludeFile "EditorFactory.pbi"

; Initializes the Module
UseModule EditorFactory


; --------- Example ---------


; Program constants
Enumeration 1
	#Window
	#Canvas
EndEnumeration

; Object constants starting from 1
Enumeration 1
	#Object1
EndEnumeration

; ----------------------------------------------

; Callback procedure to draw on the object
;   Object.i is the number of the object, you can use it to get properties of the currently drawn object
;   Width.i is the current width of the object
;   Height.i is the current height of the object
;   iData.i is a custom data value set in SetObjectDrawingCallback, here it is used as the color
; This procedure will automatically called during the draw of the Object
Procedure MyDrawing(Object.i, Width.i, Height.i, iData.i)
  AddPathEllipse(Width*0.5,Height*0.5,Width*0.5,Height*0.5)
	VectorSourceColor(iData|$80000000)
	FillPath(#PB_Path_Preserve)
	VectorSourceColor(iData|$FF000000)
	StrokePath(1)
EndProcedure

; ----------------------------------------------

; Create a window
OpenWindow(#Window, 0, 0, 800, 450, "Example 1: Creation of a basic objects.", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)

; Create a canvas gadget
CanvasGadget(#Canvas, 0, 0, WindowWidth(#Window), WindowHeight(#Window), #PB_Canvas_Keyboard)

; Initializes the object management for the canvas gadget
If Not InitializeCanvasObjects(#Canvas, #Window)
	Debug "Unable to initialize the object manager !"    
EndIf

; Creates and adds an object to the specified canvas object. By default it is grey and hase no handles
CreateObject(#Canvas, #Object1, 20, 20, 200, 100)
Define Object.i = CreateObject(#Canvas, #PB_Any, 320, 20, 200, 100)

; Sets a custom drawing procedure (as defined above) to the specified object. The last parameter is used as a color
SetObjectDrawingCallback(#Object1, @MyDrawing(), RGB(128, 192, 64))
SetObjectDrawingCallback(Object, @MyDrawing(), RGB(192, 64, 128))

; Add handles for resize and movement
AddObjectHandle(#Object1, #Handle_Size | #Handle_Position)
AddObjectHandle(Object, #Handle_Size | #Handle_Position)


; The window's event loop
Repeat
	
	Select WaitWindowEvent()
			
		Case #PB_Event_CloseWindow ; Exit the program.
			Break
			
	EndSelect
	
ForEver

End

Code : Tout sélectionner

; Example01_Basics_curve.pb

; Includes the program file
XIncludeFile "EditorFactory.pbi"

; Initializes the Module
UseModule EditorFactory


; --------- Example ---------


; Program constants
Enumeration 1
	#Window
	#Canvas
EndEnumeration

; Object constants starting from 1
Enumeration 1
	#Object1
EndEnumeration

; ----------------------------------------------

; Callback procedure to draw on the object
;   Object.i is the number of the object, you can use it to get properties of the currently drawn object
;   Width.i is the current width of the object
;   Height.i is the current height of the object
;   iData.i is a custom data value set in SetObjectDrawingCallback, here it is used as the color
; This procedure will automatically called during the draw of the Object
Procedure MyDrawing(Object.i, Width.i, Height.i, iData.i)
  MovePathCursor(0,0)
  AddPathCurve(0.5*Width,0.5,Width*0.5,height*0.5,Width,Height)
	VectorSourceColor(iData|$80000000)
	FillPath(#PB_Path_Preserve)
	VectorSourceColor(iData|$FF000000)
	StrokePath(1)
EndProcedure

; ----------------------------------------------

; Create a window
OpenWindow(#Window, 0, 0, 800, 450, "Example 1: Creation of a basic objects.", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)

; Create a canvas gadget
CanvasGadget(#Canvas, 0, 0, WindowWidth(#Window), WindowHeight(#Window), #PB_Canvas_Keyboard)

; Initializes the object management for the canvas gadget
If Not InitializeCanvasObjects(#Canvas, #Window)
	Debug "Unable to initialize the object manager !"    
EndIf

; Creates and adds an object to the specified canvas object. By default it is grey and hase no handles
CreateObject(#Canvas, #Object1, 20, 20, 200, 100)
Define Object.i = CreateObject(#Canvas, #PB_Any, 320, 20, 200, 100)

; Sets a custom drawing procedure (as defined above) to the specified object. The last parameter is used as a color
SetObjectDrawingCallback(#Object1, @MyDrawing(), RGB(128, 192, 64))
SetObjectDrawingCallback(Object, @MyDrawing(), RGB(192, 64, 128))

; Add handles for resize and movement
AddObjectHandle(#Object1, #Handle_Size | #Handle_Position)
AddObjectHandle(Object, #Handle_Size | #Handle_Position)


; The window's event loop
Repeat
	
	Select WaitWindowEvent()
			
		Case #PB_Event_CloseWindow ; Exit the program.
			Break
			
	EndSelect
	
ForEver

End