Is there any way to solve this?
My thanks to anyone who can help.
(If you have already run some software that uses the same library, the delay is not that great.)
Code: Select all
Procedure TestVectorOutput()
Static i=0
i+1
LoadFont(0,"",8,#PB_Font_Bold)
CreateImage(0,100,100,24,$808080)
time=ElapsedMilliseconds()
StartVectorDrawing(ImageVectorOutput(0))
VectorFont(FontID(0),16)
;
MovePathCursor(5,5)
DrawVectorText("test "+Str(i))
StopVectorDrawing()
ImageGadget(0,200,120,0,0, ImageID(0))
SetGadgetText(2,Str(ElapsedMilliseconds()-time))
EndProcedure
OpenWindow(0, 0, 0, 600, 720, "test",#PB_Window_ScreenCentered | #PB_Window_SystemMenu)
TextGadget(1,200,20,90,25,"Elapsed time :")
StringGadget(2,300,20,100,25,"")
ButtonGadget(3,200,600,140,25,"Run program")
TestVectorOutput()
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 3
FreeGadget(0)
TestVectorOutput()
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow