INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

title: "GDI pen 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 PEN
inherit

GDI_RESOURCE
redefine
select_resource
end

GDI_RESOURCE_IDS
end
creation

load,
make,
make_di
feature

make (a_style, a_width: INTEGER; a_color: COLOR)
-- Makes a Pen with selected characteristics

make_di (a_style, unit_type: INTEGER; a_width: REAL; a_color: COLOR)

set_style (a_style: INTEGER)
-- Assigns a new style to the pen
require
valid_pen_selected: a_style >= solid_pen and a_style <= null_pen

set_width (a_width: INTEGER)

set_di_width (a_width: REAL)

set_units (units: INTEGER)

set_color (a_color: COLOR)

load (rc: RESOURCE_CONTAINER; code: INTEGER)

build (rc: RESOURCE_CONTAINER; p: POINTER)
feature

color: COLOR

width: INTEGER

style: INTEGER

cap_style: INTEGER

join_style: INTEGER

di_units: INTEGER

di_width: REAL

SOLID_PEN: INTEGER

DASH_PEN: INTEGER

DOT_PEN: INTEGER

DASHDOT_PEN: INTEGER

DASHDOTDOT_PEN: INTEGER

NULL_PEN: INTEGER

NORMAL_WIDTH: INTEGER

THICK_WIDTH: INTEGER

PIXEL_UNIT: INTEGER

POINT_UNIT: INTEGER

MILLIMETER_UNIT: INTEGER
end -- class PEN

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES