Font Listing
Vbscript way to list fonts?
Saturday, December 16, 2006 by RomanDA | Discussion: DesktopX
I have a need to be able to populate a drop down with a listing of installed fonts.
Does anyone know if there is a way to accomplish this in DX (VBScript)?
Thanks in advance!
Does anyone know if there is a way to accomplish this in DX (VBScript)?
Thanks in advance!
RomanDA
Reply #2 Saturday, December 16, 2006 12:30 PM
Reply #2 Saturday, December 16, 2006 12:30 PM
Thanks MsPooma,
But, I'm looking for VBscript "CODE" that i can use inside of a gadget I'm creating in DX. It would need to use VBScript to generate a listing i can then put into a drop down.
But, I'm looking for VBscript "CODE" that i can use inside of a gadget I'm creating in DX. It would need to use VBScript to generate a listing i can then put into a drop down.
RomanDA
Reply #3 Saturday, December 16, 2006 5:18 PM
Reply #3 Saturday, December 16, 2006 5:18 PM
Dear God i feel like a mooooron.
If i would have looked in the preferences in the reference!
Set objBOX = DesktopX.CreateForm
With objBOX
.caption = " DesktopX Form Name... "
.addpreference("Font")
.preference("Font").Type = "Font"
.preference("Font").caption = "Font Name"
End With
Set objBOX = nothing
You gots to love things.. GOOGLE IS THE BEST!!
If i would have looked in the preferences in the reference!
Set objBOX = DesktopX.CreateForm
With objBOX
.caption = " DesktopX Form Name... "
.addpreference("Font")
.preference("Font").Type = "Font"
.preference("Font").caption = "Font Name"
End With
Set objBOX = nothing
You gots to love things.. GOOGLE IS THE BEST!!
Erk.
Reply #4 Saturday, December 16, 2006 6:28 PM
...don't say that so loud, around here.
They'll come & take you away...
Reply #4 Saturday, December 16, 2006 6:28 PM
| GOOGLE IS THE BEST!! |
...don't say that so loud, around here.
They'll come & take you away...
RomanDA
Reply #5 Saturday, December 16, 2006 7:24 PM
Reply #5 Saturday, December 16, 2006 7:24 PM
Actually I found it by typing in "DESKTOPX FONT LISTING"
and there it was.. should have thought of that first!
and there it was.. should have thought of that first!
Vad_M
Reply #6 Wednesday, January 3, 2007 8:28 AM
Reply #6 Wednesday, January 3, 2007 8:28 AM
Hi David,
I found your message right now. No any problems! Please look below:
'This code can do all that you want.
Sub FontChanger()
On Error Resume Next
fsize = Array("8","9","10","11","12","14","16")'etc... <== the array ao font sizes
Set objBOX = nothing
Set objBOX = DesktopX.CreateForm
With objBOX
.caption = " RomanDA's Font Changer "
.addpreference("FONT") '<== All of installed fonts you will see here
.preference("FONT").Type = "font"
.preference("FONT").defaultvalue = "Arial"
.preference("FONT").caption = "Change a Font: "
.addpreference("SIZE") '<== Applying the values of "font sizes" to the Combolist items
.preference("SIZE").Type = "combolist"
For Each sz In fsize '<== extracting data from the array
.preference("SIZE").addvalue sz
Next
.preference("SIZE").defaultvalue = "8"
.preference("SIZE").caption = "Change Font Size: "
.addpreference("BOLD") '<== check box for "Bold"
.preference("BOLD").caption = " Bold"
.preference("BOLD").Type = "checkbox"
.preference("BOLD").defaultvalue = False
.addpreference("ITALIC") '<== check box for "Italic"
.preference("ITALIC").caption = " Italic"
.preference("ITALIC").Type = "checkbox"
.preference("ITALIC").defaultvalue = False
.addpreference("COLOR") '<== Color Changer
.preference("COLOR").Type = "color" 'the current color of your textobject
.preference("COLOR").defaultvalue = desktopx.object("YOUR TEXT OBJECT").textcolor
.preference("COLOR").caption = "Set a Font Color: "
If .prompt Then
VALUE1 = .preference("FONT").value
VALUE2 = .preference("SIZE").value
VALUE3 = .preference("BOLD").value
VALUE4 = .preference("ITALIC").value
VALUE5 = .preference("COLOR").value
'* Aplying new font properties
desktopx.object("YOUR TEXT OBJECT").setfont VALUE1, VALUE2, VALUE3, VALUE4, 0,0,0
'* Aplying new font color
desktopx.object("YOUR TEXT OBJECT").textcolor = VALUE5
End If
End With
Erase fsize
Set objBOX = nothing
If err.number > 0 Then err.clear
End Sub
Sorry my friend that I can't help you much powerful yet...
Best Regards.
I found your message right now. No any problems! Please look below:
'This code can do all that you want.
Sub FontChanger()
On Error Resume Next
fsize = Array("8","9","10","11","12","14","16")'etc... <== the array ao font sizes
Set objBOX = nothing
Set objBOX = DesktopX.CreateForm
With objBOX
.caption = " RomanDA's Font Changer "
.addpreference("FONT") '<== All of installed fonts you will see here
.preference("FONT").Type = "font"
.preference("FONT").defaultvalue = "Arial"
.preference("FONT").caption = "Change a Font: "
.addpreference("SIZE") '<== Applying the values of "font sizes" to the Combolist items
.preference("SIZE").Type = "combolist"
For Each sz In fsize '<== extracting data from the array
.preference("SIZE").addvalue sz
Next
.preference("SIZE").defaultvalue = "8"
.preference("SIZE").caption = "Change Font Size: "
.addpreference("BOLD") '<== check box for "Bold"
.preference("BOLD").caption = " Bold"
.preference("BOLD").Type = "checkbox"
.preference("BOLD").defaultvalue = False
.addpreference("ITALIC") '<== check box for "Italic"
.preference("ITALIC").caption = " Italic"
.preference("ITALIC").Type = "checkbox"
.preference("ITALIC").defaultvalue = False
.addpreference("COLOR") '<== Color Changer
.preference("COLOR").Type = "color" 'the current color of your textobject
.preference("COLOR").defaultvalue = desktopx.object("YOUR TEXT OBJECT").textcolor
.preference("COLOR").caption = "Set a Font Color: "
If .prompt Then
VALUE1 = .preference("FONT").value
VALUE2 = .preference("SIZE").value
VALUE3 = .preference("BOLD").value
VALUE4 = .preference("ITALIC").value
VALUE5 = .preference("COLOR").value
'* Aplying new font properties
desktopx.object("YOUR TEXT OBJECT").setfont VALUE1, VALUE2, VALUE3, VALUE4, 0,0,0
'* Aplying new font color
desktopx.object("YOUR TEXT OBJECT").textcolor = VALUE5
End If
End With
Erase fsize
Set objBOX = nothing
If err.number > 0 Then err.clear
End Sub
Sorry my friend that I can't help you much powerful yet...
Best Regards.
RomanDA
Reply #7 Wednesday, January 3, 2007 9:12 AM
Reply #7 Wednesday, January 3, 2007 9:12 AM
VAD_M,
Thanks, I found these same Pref's the other week. I actually was looking to do this in a custom made window. I found some code to read the registry and list out the fonts, its not super fast, but it works good.
I'm really close to making this all work, its been a lot of work, but its close.
I made code to do pretty much everything here, except the COLOR, i am using a popup window to do this, i might change to do the font the same way, because its very slow.
This is what my EDIT box looks like for the Holiday Countdown PRO (its not 100% yet).
Thanks for the input!
Thanks, I found these same Pref's the other week. I actually was looking to do this in a custom made window. I found some code to read the registry and list out the fonts, its not super fast, but it works good.
I'm really close to making this all work, its been a lot of work, but its close.
I made code to do pretty much everything here, except the COLOR, i am using a popup window to do this, i might change to do the font the same way, because its very slow.
This is what my EDIT box looks like for the Holiday Countdown PRO (its not 100% yet).
Thanks for the input!
sViz
Reply #8 Friday, January 5, 2007 5:19 AM
Reply #8 Friday, January 5, 2007 5:19 AM
Wow, that's a great script Vad_M. I never knew there was a 'color' option in the frm.preferences type.
Looks like it's going great DA. Keep up the good work.
BTW: how's that logo contest going?
I whipped these out the other day and thought I might as well show 'em to you.
Looks like it's going great DA. Keep up the good work.
BTW: how's that logo contest going? I whipped these out the other day and thought I might as well show 'em to you.
RomanDA
Reply #9 Friday, January 5, 2007 4:52 PM
Reply #9 Friday, January 5, 2007 4:52 PM
sViz,
Its going, but i cant see the images you posted.
Yeah, that script helps, but its not what i needed for this gadget.
Its going, but i cant see the images you posted.
Yeah, that script helps, but its not what i needed for this gadget.
Strange.
sViz
Reply #13 Saturday, January 6, 2007 6:12 PM
Reply #13 Saturday, January 6, 2007 6:12 PM
You guys are right. The letters in 'commercial' especially were kinda merged together. I used a simpler font this time around:
v.3
v.4 (minute difference w/ less bevel)
v.3
v.4 (minute difference w/ less bevel)
RomanDA
Reply #14 Monday, February 5, 2007 5:05 PM
Reply #14 Monday, February 5, 2007 5:05 PM
thanks for the logo ideas.. i think ill keep the one i made.. but thanks!!
Please login to comment and/or vote for this skin.
Welcome Guest! Please take the time to register with us.
There are many great features available to you once you register, including:
- Richer content, access to many features that are disabled for guests like commenting on the forums and downloading skins.
- Access to a great community, with a massive database of many, many areas of interest.
- Access to contests & subscription offers like exclusive emails.
- It's simple, and FREE!
Reply #1 Saturday, December 16, 2006 11:38 AM
Font Lister