INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

title: "Font DGC resource"
project: "Visual Eiffel"
revision: "$Revision: 1.1 $"
copyright: "Copyright (C) 1996-2005 Object Tools Group"
license: "http://visual-eiffel.com/license"
cluster: grape
class FONT
inherit

GDI_RESOURCE
export
{CONTROL, GRAPHICS_CONTEXT}
set_system_handle
redefine
copy,
destroy,
is_equal,
select_resource,
system_handle
end

GDI_RESOURCE_IDS
undefine
copy,
is_equal
end
creation

load,
make,
make_default,
make_di
feature --
-- Font family contents
--

DONTCARE: INTEGER

DECORATIVE: INTEGER

MODERN: INTEGER

ROMAN: INTEGER

SWISS: INTEGER

SCRIPT: INTEGER

STD_SYSTEM_FONT: INTEGER

STD_SMALL_SYSTEM_FONT: INTEGER

height, escapement, orientation: INTEGER

bold, italic, underline, strike_out, pitch: BOOLEAN

family: INTEGER

face_name: STRING

color: COLOR

di_units: INTEGER

di_height: REAL

PIXEL_UNIT: INTEGER

POINT_UNIT: INTEGER

MILLIMETER_UNIT: INTEGER
feature

make
-- Create object with default font

make_default (code: INTEGER)
-- Create object with the default font specified by `code'

load (rc: RESOURCE_CONTAINER; num: INTEGER)
-- Load font from the resource container

make_di (units: INTEGER)

set_di_height (a_height: REAL)
feature

is_equal (a_fn: like Current): BOOLEAN

copy (a_fn: like Current)
feature

set_units (units: INTEGER)

set_face_name (s: STRING)

set_height (h: INTEGER)

set_color (c: COLOR)

set_escapement (angle: INTEGER)

set_orientation (angle: INTEGER)

set_bold (val: BOOLEAN)

set_italic (val: BOOLEAN)

set_underline (val: BOOLEAN)

set_strike_out (val: BOOLEAN)

set_pitch (val: BOOLEAN)

set_family (fam: INTEGER)

get_height: INTEGER

is_system: BOOLEAN

get_system_code: INTEGER

build (rc: RESOURCE_CONTAINER; p: POINTER)
end -- class FONT

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES