NewsForumsCodeLogsGallerySpecsSearch

SetGadgetFont not working

Archives Forums/BlitzPlus Bug Reports/SetGadgetFont not working

julianbury(Posted 2009) [#1]
Here is the example supplied by BlitzPlus help:

; load some fonts 
fntArial12 = LoadFont("Arial",12) 
fntComicSans16BoldItalic = LoadFont("Comic Sans",16,True,True,False) 
fntTahoma18Underline = LoadFont("Tahoma",18,False,False,True) 

; create a basic window with some gadgets to play with 
win=CreateWindow("SetGadgetFont Example",100,100,200,110,0,49) 
label=CreateLabel("Arial 12",10,10,180,20,win) 
button=CreateButton("Comic Sans 16 Bold Italic",10,40,180,20,win) 
txt=CreateTextField(10,70,180,30,win) 
SetGadgetText txt,"Tahoma 18 Underline" 

; set the gadget fonts 
SetGadgetFont label,fntArial12 
SetGadgetFont button,fntComicSans16BoldItalic 
SetGadgetFont txt,fntTahoma18Underline 

; a very simple event loop 
Repeat 
If WaitEvent()=$803 Then Exit 
Forever 
End ; bye!


The result is:
"Function 'setgadgetfont' not found"

Bit of a pain, I think.

Any constructive suggestions?


GaryV(Posted 2009) [#2]
The example works fine for me.

What version of B+ are you using?


julianbury(Posted 2009) [#3]
I installed with the all-in-one setup:

BlitzPlusSetup111.exe

Then I foolishly deleted all the previous versions.

I have tried reinstalling but still get the same problem.

What should I do?

Which should I download now?

(-_-)


GaryV(Posted 2009) [#4]
I would try downloading whatever updates there are. I believe 1.11 is very old. If it is like BMax, the updates should be in your account section under product updates.


julianbury(Posted 2009) [#5]
I just tried re-downloading and reinstalling BlitzPlusSetup111.exe

Same problem.

Then I tried installing the BlitzPlus Update V147 over it.
Messy mistake! I cannot restart the upgrade path as I no longer have the original starter pack.

This has become important as I need to make changes to the games I have written in BlitzPlus.

I don't suppose you still have the original starter? I am going to shuffle through the stacks of old backup DVDs in the hope that I may have preserved some out-of-date installation executables :-/

(^_^)

Here's another test piece ...

;=========================
;	This aint working!
;=========================

wide = 217
high = 800
xres = GadgetWidth( Desktop() )
yres = GadgetHeight( Desktop() )
xpos = ( xres/2 ) - ( wide/2 )
ypos = ( yres/2 ) - ( high/2 )
window = CreateWindow( "This aint working!", xpos, ypos, wide, high, Desktop(), 17 )

txfield = CreateTextField( 5, 5, 200, 25, window )
txarea = CreateTextArea( 5, 35, 200, 700, window )
button = CreateButton( "This aint working!", 5, 744, 201, 25, window )

courier = LoadFont( "Courier New", 24, False, False, False )

SetGadgetFont txfield, courier


Repeat
	Select WaitEvent(1)
		Case $803 Exit
		Case $101
			Select EventData()
				Case 1 Exit
			End Select
		Case $401
			Select EventSource()
				Case button
			End Select
	End Select
Forever



GaryV(Posted 2009) [#6]
You should be able to download the base install product from your account. I would then install all updates, including doc updates. They say it is not necessary, but it certainly doesn't hurt.


okee(Posted 2009) [#7]
Works for me and i just installed
BlitzPlus Version 1.11 full install
and the
BlitzPlus Update V147 today
on a fresh xp install.
Both downloaded from here.


julianbury(Posted 2009) [#8]
Thanks for your suggestions, guys :-)

I just found a 2003 version of 1.11 on an old backup DVD along with several other versions of Basic :-))

I immediately tried my troublesome code and it hadn't heard of SetGadgetFont, so I applied BlitzPlusUpdate140.exe gently, and it recognized SetGadgetFont ... HOOHAA!

The help pages had also not heard of SetGadgetFont so I daringly offered up BPDocsPak141.exe and that re-educated Help to be, er, helpful :-)

It's five thirty in the morning now and I'm psychologically bruised by the 14 hours I have been wrestling with this silly problem.

I have this feeling of being on thin ice; maybe I should re-install XP and start over, clean.

Has anybody been having success with the Blitz family on Windows7?

Good night, people (~_~)


GaryV(Posted 2009) [#9]
As long as you are using 1.47 of Blitz Plus, you will have no problems with 7


Gizmo2234(Posted 2014) [#10]
MORE LIKE

;=========================
;	This WORKS
;=========================

wide = 217
high = 800
xres = GadgetWidth( Desktop() )
yres = GadgetHeight( Desktop() )
xpos = ( xres/2 ) - ( wide/2 )
ypos = ( yres/2 ) - ( high/2 )
window = CreateWindow( "This WORKS!", xpos, ypos, wide, high, Desktop(), 17 )

txfield = CreateTextField( 5, 5, 200, 25, window )
txarea = CreateTextArea( 5, 35, 200, 700, window )
button = CreateButton( "This Works!", 5, 744, 201, 25, window )

courier = LoadFont( "Courier New", 24, False, False, False )

SetGadgetFont txfield, courier


Repeat
	Select WaitEvent(1)
		Case $803 Exit
		Case $101
			Select EventData()
				Case 1 Exit
			End Select
		Case $401
			Select EventSource()
				Case button
			End Select
	End Select
Forever


IT WORKS