Userlib, set text area font. Without blitzes font system.. need help..

I am trying to make a function, to set a textarea's font, without using blitz's built-in font system.

Anyone who is more experienced with userlibs n stuff, check below and see what you think. What am I doing wrong ?

;Userlib
;.lib "user32.dll"
;SendMessageBank%(hwnd,msg,wParam,mPAram*):"SendMessageA"

;Code
Global window = CreateWindow("window",400,300,600,300,0,1)
Global logs   = CreateTextArea(0,0,ClientWidth(window),ClientHeight(window),window,0)

Notify Api_SetTextAreaFont(logs,"Blitz")

SetTextAreaText(logs,"aaa"+Chr(10)+"MMM")
WaitEvent()

Function Api_SetTextAreaFont(textarea,name$)
	;change the font of a test area, without using blitz's...
	;..crap font system.
	;
	;Meaning, fonts that dont work with the blitz font system, can now be used in textareas.
	
	;Create blitz struct
	bank = CreateBank(4+4+4+4+4+4+1+1+Len(name$)+1)
	;cbSize
	PokeInt ( bank,  0,  BankSize(bank))
	;dwMask
	PokeInt ( bank,  4,  256 )
	;dwEffects
	PokeInt ( bank,  8,    0 )
	;yHeight
	PokeInt ( bank, 12,   12 )
	;yOffset
	PokeInt ( bank, 16,   12 )
	;crTextColor
	PokeInt ( bank, 20,    0 )
	;bCharSet
	PokeByte( bank, 24,    1 )
	;bPitchAndFamily
	PokeByte( bank, 25,    0 Or 4 )
	;szFaceName
	For i=1 To Len(name$)
		PokeByte(bank,25+i,Asc(Mid$(name$,i,1)))
	Next
	PokeByte(bank,26+Len(names$),0)
	Return SendMessageBank(QueryObject(textarea,1),1024+68,4,bank)
End Function

Btw, there is already a way of loading any font into blitz, but its not ideal.

Try
settextareafont(textarea,requestfont())

This will allow you to pick any font, and it will load absolutly fine, into blitz's textarea gadget. As I said, this is far from helpfull when taken from a programemrs point of view.

skn3,

I'm not sure what message 0x444 (1024+68) refers to. I couldn't find it, and consequently I couldn't look up lparam or wparam.

But... what's wrong with something like this?

;.lib "user32.dll"
;SendMessageBank2%(hwnd,msg,wParam,lParam):"SendMessageA"

Const WM_SETFONT = 48

Global fntWing = LoadFont("Wingdings", 24)
Global fntArial = LoadFont("Arial", 12)
Global wndMain = CreateWindow("SetFont Example", 400, 300, 600, 300, 0, 1)
Global tarMain = CreateTextArea(0,0,ClientWidth(wndMain),ClientHeight(wndMain),wndMain,0)

SetTextAreaText(tarMain, "Testing..." + Chr(10) + "Testing again...")
Api_SetTextAreaFont(tarMain, fntWing)
Delay 1000
Api_SetTextAreaFont(tarMain, fntArial)

While WaitEvent() <> $803 : Wend

Function Api_SetTextAreaFont(textarea, fnt)
	Return SendMessageBank2(QueryObject(textarea,1), WM_SETFONT, QueryObject(fnt,3), 0)
End Function

(Look up "WM_SETFONT" in the Windows User Interface: Platform SDK docs of MSDN.)

Thanks I will look that up.

This is where i was looking at for reference:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/richedit/richeditcontrols/richeditcontrolreference/richeditmessages/em_setcharformat.asp

And the 1024 + 68 I got from the rich edit header file.

WM_USER is



Blitz already has a function to set the font of a textarea. That was not the problem. The problem is, blitz is incapable of loading certain fonts into its font system.

Try "Roman", "Modern" or "Script" Non of these fonts work (these are all .fon).

What is strange, is that the only .fon font I can get to work using the built in font system, is blitz.fon

That is why I need, and want to bypass blitz's font system for changing a textareas font.

Hmm, I see.

Perhaps a GDI function like CreateFont or AddFontResource??

Well its handled in the richedit dll .. so no need really...

At least I think it is, judging from what I read on the msdn site. I guess I am doing it wrong but the function described; allows you to set the default font of a rich edit control, using just the fontface's name...

Hm

I've been fiddling with it for a while and am not having any luck either... I did notice a few things, though (which you may want to take with a grain of salt).

1) for dwMask, you may wish to use $ffffffff in order to allow any possible option from the other parameters
2) You'll want to multiple yHeight by 12 (240) because you're specifying the # of twips, (=points/20)
3) You should have 0 for yOffset because you don't want superscript or subscript.
4) for bPitchAdnFamily, "0 Or 4" os the same as "4", and doesn't do what you're expecting, I think. What you want is just plain 0, which indicates FF_DONTCARE and DEFAULT_PITCH.
5) You don't need the additional pokebyte "0" at the end (or any of the others that poke 0, I guess) because the bank is initialized with zeroes.

Beyond that, I kept getting a failure return value...

Great tips.. I'll give em a whurl in a bit. Btw that grain of salt tasted nice on my lunch...

A mate suggested that i try using the loadfont api in windows.. and then handle the resource from in blitz.. just without the blitz font system.

I'll try that also a bit later.. then post the results here.

wohoo got it all working :)

http://www.blitzbasic.com/Community/posts.php?topic=29143

thanks for the tips