FontDialog

[lokper]

I try used fontdialog for read the name font selected but clarion display the next error:

"Syntaxis error: No Matching prototype avaible"

Code:

IF FONTDIALOG('Choose Font',Typeface,FontSize,FontColor,FontStyle)
SETFONT(0,Typeface,FontSize,FontColor,FontStyle) !Set window font
ELSE
SETFONT(0,'Arial',12) !Set default font
END


Why display error?
Thank's

 

[ShankarJ]

Hi!

Instead of 0 use the window name i.e.

SETFONT(Window, ...

Regards

 

[lokper]

I comment the follow lines:

IF FONTDIALOG('Choose Font',Typeface,FontSize,FontColor,FontStyle)
!SETFONT(0,Typeface,FontSize,FontColor,FontStyle) !Set window font
!ELSE
!SETFONT(0,'Arial',12) !Set default font
END

The error is the same.
"Syntaxis error: No Matching prototype avaible"

I have Clarion 6.3.
Thank's

 

[ShankarJ]

Hi!

If you look at the prototype in BuiltIns.clw ::

SETFONT(WINDOW,<STRING>, SIGNED=0, LONG=COLOR:None, UNSIGNED=-1, BYTE=CHARSET:Default),NAME('Cla$SETFONTEX')

it requires the ::

TypeFace to be STRING
FontSize to be SIGNED or LONG
FontColor to be LONG
FontStyle to UNSIGNED or LONG

Is it defined as such?

Regards

 

[lokper]

Thank's ShankarJ.

I need read the true type font of windows system and i need set a string with this font.

I try use the fontdialog for display the dialog of fonts of windows system but i get the error before showed.

How can i do this?

Sorry my english is bad...

 

[ShankarJ]

Hi!

I do not know what your problem is but the following works on my computer ::

Data Section ::

MyFontName                    STRING(30)
MyFontSize                    USHORT
MyFontColor                   LONG
MyFontStyle                   USHORT

Code Section ::

IF FONTDIALOG('Choose your Preferred Font', MyFontName, MyFontSize, MyFontColor, MyFontStyle)
  DISPLAY
END

Regards

 

[lokper]

I going to try it...

Regards and thank's.