📄 readme.txt
字号:
WAISS TW3DCanvas Component V1.5
Freeware
This is a component that acts as a 3D canvas. It supports most of the
methods of the delphi TCanvas Component. All drawing methods sent to
the component will be rendered in a 3D manor (extruded or embossed)
including Text,Circles etc...
To install copy the .pas file to a directory and install it into a package.
property///////////////////////////////////////////////////////
drawstyle // how to draw the image ((dsNormal-Not implemeted use the canvas property
// dsInlaid,dsRaised,dsNormal
HighLightColor // the color to use to draw tthe highlight
ShadowColor // the color to draw the shadow;
methods/////////////////////////////////////////////////////////
These are the standard TCanvas methods that are implemented
in TW3DCanvas
procedure TextOut(X, Y: Integer;Text: string);
procedure Ellipse(X1, Y1, X2, Y2: Integer);
procedure Chord(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);
procedure Rectangle(X1, Y1, X2, Y2: Integer);
procedure Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Longint);
procedure RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer);
procedure Arc(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);
procedure FrameRect(Rect: TRect);
procedure Polygon(Points: array of TPoint);
procedure Polyline(Points: array of TPoint);
Procedure LineTo(X, Y: Integer);
Note: You can access all of the underlying Canvas procedures by
using the canvas property (In order to set the Pen.Width you have to
do this).
To draw normaly on this component just use the underlying Canvas property.
This component is freeware. You are Free to do with it what you wish.
If you make any major enhancments please send me the code. Thank you.
My URL is http://www.waiss.com
or
http://members.xoom.com/WAISS
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -