>>>>>Didn't character MAP that comes with Windows didn't work for you?
>>>>
>>>>Where do I find it?
>>>
>>>Check my Reply, please.
>>
>>Thanks Naomi and Borislav. I got it.
>
>If you want it in VFP:
>
>oForm = CREATEOBJECT([Form1])
>oForm.Show(1)
>
>**************************************************
>*-- Form: form1 (d:\all_zapl\test.scx)
>*-- ParentClass: form
>*-- BaseClass: form
>*-- Time Stamp: 07/03/08 11:42:06 PM
>*
>DEFINE CLASS form1 AS form
>
>
> DoCreate = .T.
> Caption = "Form1"
> Name = "Form1"
>
>
> ADD OBJECT grid1 AS grid WITH ;
> ColumnCount = 2, ;
> Anchor = 15, ;
> Height = 243, ;
> Left = 17, ;
> Panel = 1, ;
> Top = 3, ;
> Width = 356, ;
> Name = "Grid1", ;
> Column1.Name = "Column1", ;
> Column2.Width = 236, ;
> Column2.Name = "Column2"
>
> PROCEDURE Init
> =AFONT(laFonts)
> lcChars = []
> FOR lnFor = 30 TO 255
> lcChars = lcChars + CHR(lnFor)
> NEXT
> FOR lnFor = 1 TO ALEN(laFonts)
> INSERT INTO crsTest VALUES (laFonts[lnFor], lcChars)
> NEXT
> GO TOP
> thisform.Grid1.Column2.DynamicFontName = [IIF(.t.,ALLTRIM(FontNames),"")]
> ENDPROC
>
>
> PROCEDURE Load
> CREATE CURSOR crsTest (FontNames C(50), AllChars C(200))
> ENDPROC
>
>
>ENDDEFINE
>*
>*-- EndDefine: form1
>**************************************************
>
>:o)
Borisslav,
many thanks for the code. I there are many times I would have loved to have it and it goes into my tool bin right now.
Beer is proof that God loves man, and wants him to be happy. - Benjamin Franklin
John J. Henn