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