Font Dialog Problem

[dorkauf89]

Hello, I have a problem!
I got this script and dll from a project I found on a forum:
http://www.indigorose.com/forums/sho...87&postcount=2
and I played with the script so it would make my input's properties what the user picks in the dialog cause in the example project it only writes what they picked in a paragraph object... This is what I got after a while:

	function GetFont()
		sFontInfo = DLL.CallFunction("AutoPlay\\Docs\\ChoosFont.dll", "FontDialog", Application.GetWndHandle(), DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL)
		FontName=DLL.CallFunction("AutoPlay\\Docs\\ChoosFont.dll", "GetField","\""..sFontInfo.."\",\";\","..1, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL)
		FontSize=String.ToNumber(DLL.CallFunction("AutoPlay\\Docs\\ChoosFont.dll", "GetField","\""..sFontInfo.."\",\";\","..2, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL))
		InputStyle=DLL.CallFunction("AutoPlay\\Docs\\ChoosFont.dll", "GetField","\""..sFontInfo.."\",\";\","..3, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL)
		FontColor=String.ToNumber(DLL.CallFunction("AutoPlay\\Docs\\ChoosFont.dll", "GetField","\""..sFontInfo.."\",\";\","..4, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL))
		FontWeight = FW_NORMAL
		FontItalic = false
		FontUnderline = false
		FontStrikeout = false
		
		if String.Length(InputStyle) > 0 then
			if String.Find(InputStyle,"B",1) > -1 then
				FontWeight = FW_BOLD
			end
			if String.Find(InputStyle,"I",1) > -1 then
				FontItalic = true
			end
			if String.Find(InputStyle,"U",1) > -1 then
				FontUnderline = true
			end
			if String.Find(InputStyle,"S",1) > -1 then
				FontStrikeout = true
			end
		end
	
		return {FontName,FontSize,FontWeight,FontItalic,FontUnderline,FontStrikeout,FontColor}
	end
	tblFontInfo = GetFont();
	Input.SetProperties("Input1", tblFontInfo);

And it doesn't work... Help... I want to use the dll in that forum to let the user pick the font properties and then apply the properties to a input object... Something like the one in the following forum:
http://www.indigorose.com/forums/sho...Dialog+plug-in
but i'm not using that because it does some problems in vista... When I close the window it says program stopped responding and stuff... THANKS

[dorkauf89]

can anyone please help me???

[RizlaUK]

Here, try it like this

	function GetFont()
		tblRetFontInfo={}
		sFontInfo = DLL.CallFunction("AutoPlay\\Docs\\ChoosFont.dll", "FontDialog", Application.GetWndHandle(), DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL)
		tblRetFontInfo.FontName=DLL.CallFunction("AutoPlay\\Docs\\ChoosFont.dll", "GetField","\""..sFontInfo.."\",\";\","..1, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL)
		tblRetFontInfo.FontSize=String.ToNumber(DLL.CallFunction("AutoPlay\\Docs\\ChoosFont.dll", "GetField","\""..sFontInfo.."\",\";\","..2, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL))
		InputStyle=DLL.CallFunction("AutoPlay\\Docs\\ChoosFont.dll", "GetField","\""..sFontInfo.."\",\";\","..3, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL)
		tblRetFontInfo.FontColor=String.ToNumber(DLL.CallFunction("AutoPlay\\Docs\\ChoosFont.dll", "GetField","\""..sFontInfo.."\",\";\","..4, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL))
		tblRetFontInfo.FontWeight = FW_NORMAL
		tblRetFontInfo.FontItalic = false
		tblRetFontInfo.FontUnderline = false
		tblRetFontInfo.FontStrikeout = false
		
		if String.Length(InputStyle) > 0 then
			if String.Find(InputStyle,"B",1) > -1 then
				tblRetFontInfo.FontWeight = FW_BOLD
			end
			if String.Find(InputStyle,"I",1) > -1 then
				tblRetFontInfo.FontItalic = true
			end
			if String.Find(InputStyle,"U",1) > -1 then
				tblRetFontInfo.FontUnderline = true
			end
			if String.Find(InputStyle,"S",1) > -1 then
				tblRetFontInfo.FontStrikeout = true
			end
		end
		return tblRetFontInfo
	end
	
	tblFontInfo = GetFont();
	Input.SetProperties("Input1", tblFontInfo);

instead of returning the elements, build a table and return that

[dorkauf89]

Thank you so much! I hardly understood what I was doing.. I was playing with it until I got something that looked like it should work... lol

[RizlaUK]

well i think thats how most of us learned, this forum is a wealth of information