INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

title: "Brush GDI 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 BRUSH
inherit

GDI_RESOURCE
end

GDI_RESOURCE_IDS
end
creation

load,
make_hatched,
make_pattern,
make_solid
feature

make_solid (a_color: COLOR)
-- makes a solid brush

make_hatched (hatch_style: INTEGER; a_color: COLOR)
-- makes a hastched brush with specified hatch style

make_pattern (a_pattern: PICTURE)
-- Creates a brush whose pattern is specified by a picture.
-- Pictures used as fill patterns should be 8 pixels by 8 pixels.
-- If such a picture is larger, the system creates a fill pattern using
-- only the bits corresponding to the first 8 rows and 8 columns
-- of pixels in the upper-left corner of the bitmap.
feature

set_style (a_style: INTEGER)
require
valid_brush_style: a_style >= solid_brush and a_style <= null_brush

set_color (a_color: COLOR)

set_hatch (hatch_style: INTEGER)
require
valid_hatch_style: hatch_style >= horizontal_hatch and hatch_style <= diagonalcross_hatch

set_pattern (a_pattern: PICTURE)

load (rc: RESOURCE_CONTAINER; code: INTEGER)

build (rc: RESOURCE_CONTAINER; p: POINTER)
feature

style: INTEGER

hatch: INTEGER

pattern: PICTURE

color: COLOR

SOLID_BRUSH: INTEGER

HATCH_BRUSH: INTEGER

PATTERN_BRUSH: INTEGER

PICTURE_BRUSH: INTEGER

NULL_BRUSH: INTEGER

HORIZONTAL_HATCH: INTEGER

VERTICAL_HATCH: INTEGER

DIAGONAL_HATCH: INTEGER

BACKDIAGONAL_HATCH: INTEGER

CROSS_HATCH: INTEGER

DIAGONALCROSS_HATCH: INTEGER
end -- class BRUSH

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES