Icetips Utilities Documentation 5/9/2015     Windows Class: UsesClearType

Previous  Top  Next

This method checks a registry key and returns true if it is set to use Clear Type font smoothing.  This can come in handy for Clarion 6 and older which do not correctly support Clear Type fonts in entry fields.  This problem is fixed in Clarion 7.  This code was inspired by information found here.

Example:

I Long

ITW  ITWindowsClass

Code

If ITW.UsesClearType

  Loop I = FirstField() To LastField()

    If I{Prop:Type} = CREATE:ENTRY

      I{Prop:FontName} = 'MS Sans Serif'

      I{Prop:FontSize} = 8

    End

  End

End