3 <title>KOL Help: TGraphicTool object (main frame)
</title>
7 <body bgcolor=
"#FFFFEF" text=
"#000000" link=
"#008080" vlink=
"#008000" alink=
"#808000">
8 <p><font face=
"Courier" color=
"#800080"><b>TGraphicTool( unit
<a href=kol_pas.htm
>KOL.pas
</a> )
9 <font face=
"Wingdings">ï
</font> <a href=tobj.htm
>TObj
</a>
10 <font face=
"Wingdings">ï
</font> <a href=_tobj.htm
>_TObj
</a>
13 TGraphicTool = object(
<a href=tobj.htm
target=
"_top">TObj
</a> )
15 Incapsulates all GDI objects: Pen, Brush and Font.
16 <h3 align=
"center"><font color=
"#FF8080">TGraphicTool properties
</font></h3>
19 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>Handle
</b></font>: THandle;
</font>
20 <font face=
"Webdings" size=
7>Ñ</font>
22 Every time, when accessed, real GDI object is created (if it is
23 not yet created). So, to prevent creating of the handle, use
24 <a href=#handleallocated
target=
"main">HandleAllocated
</a> instead of comparing Handle with value
0.
28 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>Color
</b></font>: TColor;
</font>
30 Color is the most common property for all Pen, Brush and
31 Font objects, so it is placed in its common for all of them.
33 <a name=
"brushbitmap"></a>
35 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>BrushBitmap
</b></font>: HBitmap;
</font>
37 Brush bitmap. For more info about using brush bitmap,
38 see Delphi or Win32 help files.
40 <a name=
"brushstyle"></a>
42 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>BrushStyle
</b></font>:
<a href=kol_pas.htm#tbrushstyle
target=
"_top">TBrushStyle
</a>;
</font>
46 <a name=
"brushlinecolor"></a>
48 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>BrushLineColor
</b></font>: TColor;
</font>
50 Brush line color, used to represent lines in hatched brush. Default value is clBlack.
52 <a name=
"fontheight"></a>
54 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>FontHeight
</b></font>:
<b>Integer
</b>;
</font>
56 Font height. Value
0 (default) seys to use system default value,
57 negative values are to represent font height in
"points
", positive
58 - in pixels. In XCL usually positive values (if not
0) are used to
59 make appearance independent from different local settings.
61 <a name=
"fontwidth"></a>
63 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>FontWidth
</b></font>:
<b>Integer
</b>;
</font>
65 Font width in logical units. If FontWidth =
0, then as it is said
66 in Win32.hlp,
"the aspect ratio of the device is matched against the
67 digitization aspect ratio of the available fonts to find the closest match,
68 determined by the absolute value of the difference.
"
70 <a name=
"fontpitch"></a>
72 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>FontPitch
</b></font>:
<a href=kol_pas.htm#tfontpitch
target=
"_top">TFontPitch
</a>;
</font>
74 Font pitch. Change it very rare.
76 <a name=
"fontstyle"></a>
78 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>FontStyle
</b></font>:
<a href=kol_pas.htm#tfontstyle
target=
"_top">TFontStyle
</a>;
</font>
80 Very useful property to control text appearance.
82 <a name=
"fontcharset"></a>
84 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>FontCharset
</b></font>:
<a href=kol_pas.htm#tfontcharset
target=
"_top">TFontCharset
</a>;
</font>
86 Do not change it if You do not know what You do.
88 <a name=
"fontquality"></a>
90 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>FontQuality
</b></font>:
<a href=kol_pas.htm#tfontquality
target=
"_top">TFontQuality
</a>;
</font>
94 <a name=
"fontorientation"></a>
96 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>FontOrientation
</b></font>:
<b>Integer
</b>;
</font>
98 It is possible to rotate text in XCL just by changing this
99 property of a font (tenths of degree, i.e. value
900 represents
100 90 degree - text written from bottom to top).
102 <a name=
"fontweight"></a>
104 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>FontWeight
</b></font>:
<b>Integer
</b>;
</font>
106 Additional font weight for bold fonts (must be
0.
.1000). When set to
107 value
<> 0, fsBold is added to
<a href=#fontstyle
target=
"main">FontStyle
</a>. And otherwise, when set to
0,
108 fsBold is removed from
<a href=#fontstyle
target=
"main">FontStyle
</a>. Value
700 corresponds to Bold,
111 <a name=
"fontname"></a>
113 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>FontName
</b></font>:
<b>String
</b>;
</font>
117 <a name=
"penwidth"></a>
119 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>PenWidth
</b></font>:
<b>Integer
</b>;
</font>
121 Value
0 means default pen width.
123 <a name=
"penstyle"></a>
125 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>PenStyle
</b></font>:
<a href=kol_pas.htm#tpenstyle
target=
"_top">TPenStyle
</a>;
</font>
129 <a name=
"penmode"></a>
131 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>PenMode
</b></font>:
<a href=kol_pas.htm#tpenmode
target=
"_top">TPenMode
</a>;
</font>
135 <a name=
"geometricpen"></a>
137 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>GeometricPen
</b></font>:
<b>Boolean
</b>;
</font>
139 True if Pen is geometric. Note, that under Win95/
98 only pen styles
140 psSolid, psNull, psInsideFrame are supported by OS.
142 <a name=
"penbrushstyle"></a>
144 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>PenBrushStyle
</b></font>:
<a href=kol_pas.htm#tbrushstyle
target=
"_top">TBrushStyle
</a>;
</font>
146 Brush style for hatched geometric pen.
148 <a name=
"penbrushbitmap"></a>
150 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>PenBrushBitmap
</b></font>: HBitmap;
</font>
152 Brush bitmap for geometric pen (if assigned Pen is functioning as
153 its style = BS_PATTERN, regadless of
<a href=#penbrushstyle
target=
"main">PenBrushStyle
</a> value).
155 <a name=
"penendcap"></a>
157 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>PenEndCap
</b></font>:
<a href=kol_pas.htm#tpenendcap
target=
"_top">TPenEndCap
</a>;
</font>
159 Pen end cap mode - for
<a href=#geometricpen
target=
"main">GeometricPen
</a> only.
161 <a name=
"penjoin"></a>
163 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>PenJoin
</b></font>:
<a href=kol_pas.htm#tpenjoin
target=
"_top">TPenJoin
</a>;
</font>
165 Pen join mode - for
<a href=#geometricpen
target=
"main">GeometricPen
</a> only.
167 <a name=
"logfontstruct"></a>
169 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>LogFontStruct
</b></font>: TLogFont;
</font>
171 by Alex Pravdin: a property to change all font structure items at once.
173 <h4 align=
"center"><font color=
"black">Properties, inherited from
<a href=
"tobj.htm" target=
"_top">TObj
</a></font></h4>
174 <h3 align=
"center"><font color=
"#FF8080">TGraphicTool methods
</font></h3>
175 <a name=
"changed"></a>
177 <font face=
"Courier" color=
"#800080"><b>procedure
</b> <font color=
"#808000"><b>Changed
</b></font>;
</font>
178 <font face=
"Webdings" size=
7>N</font>
181 <a name=
"gethandle"></a>
183 <font face=
"Courier" color=
"#800080"><b>function
</b> <font color=
"#808000"><b>GetHandle
</b></font>: THandle;
</font>
184 <font face=
"Webdings" size=
7>N</font>
187 <a name=
"destroy"></a>
189 <font face=
"Courier" color=
"#800080"><b>destructor
</b> <font color=
"#808000"><b>Destroy
</b></font>;
<b>virtual
</b>;
</font>
192 <a name=
"handleallocated"></a>
194 <font face=
"Courier" color=
"#800080"><b>function
</b> <font color=
"#808000"><b>HandleAllocated
</b></font>:
<b>Boolean
</b>;
</font>
196 Returns True, if handle is allocated (i.e., if real GDI
199 <a name=
"releasehandle"></a>
201 <font face=
"Courier" color=
"#800080"><b>function
</b> <font color=
"#808000"><b>ReleaseHandle
</b></font>:
<b>Integer
</b>;
</font>
203 Returns
<a href=#handle
target=
"main">Handle
</a> value (if allocated), releasing it from the
204 object (so, it is no more knows about this handle and its
205 <a href=#handleallocated
target=
"main">HandleAllocated
</a> function returns False.
207 <a name=
"assign"></a>
209 <font face=
"Courier" color=
"#800080"><b>function
</b> <font color=
"#808000"><b>Assign
</b></font>( Value:
<a href=kol_pas.htm#pgraphictool
target=
"_top">PGraphicTool
</a> ):
<a href=kol_pas.htm#pgraphictool
target=
"_top">PGraphicTool
</a>;
</font>
211 Assigns properties of the same (only) type graphic object,
212 excluding
<a href=#handle
target=
"main">Handle
</a>. If assigning is really leading to change
213 object, procedure
<a href=#changed
target=
"main">Changed
</a> is called.
215 <a name=
"assignhandle"></a>
217 <font face=
"Courier" color=
"#800080"><b>procedure
</b> <font color=
"#808000"><b>AssignHandle
</b></font>( NewHandle:
<b>Integer
</b> );
</font>
219 Assigns value to
<a href=#handle
target=
"main">Handle
</a> property.
221 <a name=
"isfonttruetype"></a>
223 <font face=
"Courier" color=
"#800080"><b>function
</b> <font color=
"#808000"><b>IsFontTrueType
</b></font>:
<b>Boolean
</b>;
</font>
225 Returns True, if font is True Type. Requires of creating of a
<a href=#handle
target=
"main">Handle
</a>,
226 if it is not yet created.
228 <h4 align=
"center"><font color=
"black">Methods, inherited from
<a href=
"tobj.htm" target=
"_top">TObj
</a></font></h4>
229 <h3 align=
"center"><font color=
"#FF8080">TGraphicTool events
</font></h3>
230 <a name=
"onchange"></a>
232 <font face=
"Courier" color=
"#800080"><b>property
</b> <font color=
"#808000"><b>OnChange
</b></font>:
<a href=kol_pas.htm#tongraphicchange
target=
"_top">TOnGraphicChange
</a>;
</font>
234 Called, when object is changed.
236 <h4 align=
"center"><font color=
"black">Events, inherited from
<a href=
"tobj.htm" target=
"_top">TObj
</a></font></h4>
237 <h3 align=
"center"><font color=
"#FF8080">TGraphicTool fields
</font></h3>
238 <h4 align=
"center"><font color=
"black">Fields, inherited from
<a href=
"tobj.htm" target=
"_top">TObj
</a></font></h4>
240 <p align=
"center">[
<a href=index.htm
>Index
</a> ]
</p>
241 <p align=
"center"><font face=
"Comic Sans MS"><small>This help is generated
22-Sep-
2005 by KOL Help generator, (C)
2000-
2001 by Vladimir Kladov
<br>Modified (C)
2003 by Alexander Bartov
</small></font></p>