Home Index classes Index static functions Index enumerations Index structure types

{Font|_tool}


CLASS {Font|_tool} , UNTESTED :



A class to control a font.


IMPORT : {AL4_form} , {Canvas} , {AL4_font} , {Mathematics} , {String_functions} .


INT Handle|_font , READ


{Canvas} Canvas_|for_printer_



------------------------------------------------------------------ 'create'

        

FUN New_font|_object (
     
STR F|ace_name ,
     
REAL S|ize_font ) ==> {Font} , NEW



METHOD Bolded|_font ==> {Font}



METHOD Unbolded|_font ==> {Font}



METHOD Ital|ized|_font ==> {Font}



METHOD Unitalized|_font ==> {Font}



METHOD Underlined|_font ==> {Font}



METHOD Ununderlined|_font ==> {Font}



METHOD Update_handle|_if_font_changed



---------------------------------------------------------- 'font face name'

STR Face|_name


STR last_Face|_known_for_canvas



---------------------------------------------------------- 'size in points'

REAL Size|_font_points


REAL last_Size|_known_for_canvas



------------------------------------------------------------------ 'styles'

BOOL last_Bold


BOOL last_Italic


BOOL last_Underline


BOOL last_Strikeout


 

ENUMERATION {font_attr|ibute} :

        'BOLD|_FONT' ,

        'ITALIC|_FONT' ,

        'UNDERLINE|_FONT' ,

        'STRIKE|OUT' .


BOOL Bold|_style


BOOL Italic|_style


BOOL Underline|_style


BOOL Strikeout|_style


   

METHOD Set_styles ( STR S|tyles_only_capital_letters_BIUS )



METHOD Get_styles ==> STR



METHOD Set_style|_attribute (
     
{font_attr} A|ttribute_to_set ,
     
BOOL Set|_or_clear )



-------------------------------------------------- 'charset (if available)'

INT Charset|_font , READ


 

METHOD Set_charset|_font ( INT C|harset_value ) , SETTER FOR Charset



---------------------------------------------------- 'list availabel fonts'

   

CONSTANT INT {font_list_flags} :

          FONTS_ANY = 0

          FONTS_MONO_TYPE = 1

          FONTS_TRUE_TYPE = 2 .



FUNCTION List_fonts|_available (
     
INT Op|tions_list_fonts ,
     
STR Names|_listed [] ) , IF Op IS CONST , THEN Op IN FLAGS {font_list_flags} :



FUNCTION Get_fonts ( STR Names|_to_get [] , INT Options|_to_pass )


END