Object Pascal A6-1
A6-2 Delphi (X1,Y1) (X2,Y2) (X1,Y1) (X2,Y2) With
1 2 (0,0) 1 2 1 A6-3
A6-4
A6-5
(X1,Y1) (X2,Y2) claqua clblue clblack cldkgray clfuchsia clgray clgreen cllime clltgray clmaroon clnavy clpurple clsilver clolive clred clteal clwhite clyellow A6-6
A6-7 pssolid psdot psdashdotdot psdash psdashdot psclear,,,,,,, (X1,Y1) (X2,Y2)
A6-8
PSamplea61.dpr A6-5 Pen Brush Delphi A6-9
岡本安晴 2000.12.28;2001.3.4 Canvas のメソッド procedure Arc(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer); 楕円状に曲がった曲線を描く procedure Chord(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer); 楕円状に沿った弓形を描く procedure CopyRect(Dest: TRect; Canvas: TCanvas; Source: TRect); Canvas のイメージの一部を別の Canvas にコピーする procedure Draw(X, Y: Integer; Graphic: TGraphic); ビットマップ アイコン メタファイルのいずれかのグラフィックを Canvas に描く procedure Ellipse(X1, Y1, X2, Y2: Integer); 楕円を描く procedure FillRect(const Rect: TRect); Brush の値によって四角形の領域を塗り潰す procedure FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle); Brush の値によって領域を塗り潰す A6-10
岡本安晴 2000.12.28;2001.3.4 procedure LineTo(X, Y: Integer); PenPos プロパティで与えられる現在のペンの位置から点(X,Y)まで直線を引く 直線を 引いた後の PenPos の値は(X,Y)となる procedure MoveTo(X, Y: Integer); PenPos の値を(X,Y)とする procedure Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Longint); 扇形を描画する procedure PolyBezier(const Points: array of TPoint); ベジェ曲線を描く procedure PolyBezier(const Points: array of TPoint); ベジェ曲線を描き PenPos の値を最後のエンドポイントの位置とする procedure Polygon(Points: array of TPoint); Pen の値によって閉じた多角形を描き 内部を Brush の値で塗り潰す procedure Polyline(Points: array of TPoint); 連続する点を結ぶ A6-11
岡本安晴 2000.12.28;2001.3.4 procedure Rectangle(X1, Y1, X2, Y2: Integer); 長方形を描く procedure RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer); 角の丸い長方形を描く procedure StretchDraw(const Rect: TRect; Graphic: TGraphic ); ビットマップ アイコン メタファイルのいずれかのグラフィックを指定した四角形に 収まるように描画する function TextExtent(const Text: string): TSize; Canvas に Text の内容を描いた場合の幅と高さを返す function TextHeight(const Text: string): Integer; Canvas に Text の内容を描いた場合の高さを返す procedure TextOut(X, Y: Integer; const Text: string); Canvas 上の位置(X,Y)から Text の内容を書き出す procedure TextRect(Rect: TRect; X, Y: Integer; const Text: string); 指定された四角形の領域内に Text の内容を書き出す 四角形の外にはみ出した部分は表 示されない A6-12
Canvas Text A6-13
岡本安晴 2000.12.28;2001.3.4 Canvas のプロパティ Brush 背景の描画や塗り潰しに使う色と模様を指定する CopyMode CopyRect によってイメージをコピーするときの方法を指定する Font テキストを書くときのフォントを指定する Pen ペンを指定する PenPos ペンの現在位置を示す Pixels Canvas 上のピクセル位置の色を示す TextFlags テキストの描画方法を指定する A6-14
A6-15
A6-16
A6-17
A6-18
A6-19
A6-20
A6-21
A6-22
A6-23
Delphi Inprise Corporation, 1999. Delphi Object Pascal 1999 Delphi CQ 1997 A6-24