manua6.PDF

Size: px

Start display at page:

Download "manua6.PDF"

さやがうん
7 years ago
Views:

1 Object Pascal A6-1

2 A6-2 Delphi (X1,Y1) (X2,Y2) (X1,Y1) (X2,Y2) With

3 1 2 (0,0) A6-3

4 A6-4

5 A6-5

6 (X1,Y1) (X2,Y2) claqua clblue clblack cldkgray clfuchsia clgray clgreen cllime clltgray clmaroon clnavy clpurple clsilver clolive clred clteal clwhite clyellow A6-6

7 A6-7 pssolid psdot psdashdotdot psdash psdashdot psclear,,,,,,, (X1,Y1) (X2,Y2)

8 A6-8

9 PSamplea61.dpr A6-5 Pen Brush Delphi A6-9

10 岡本安晴 ; 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

楕円状に沿った弓形を描く procedure CopyRect(Dest: TRect; Canvas: TCanvas; Source: TRect); Canvas のイメージの一部を別の Canvas にコピーする procedure Draw(X, Y: Integer;

11 岡本安晴 ; 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

Integer); PenPos の値を(X,Y)とする procedure Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Longint); 扇形を描画する procedure PolyBezier(const Points: array

12 岡本安晴 ; 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

TRect; Graphic: TGraphic ); ビットマップアイコンメタファイルのいずれかのグラフィックを指定した四角形に収まるように描画する function TextExtent(const Text: string): TSize; Canvas に Text

13 Canvas Text A6-13

14 岡本安晴 ; Canvas のプロパティ Brush 背景の描画や塗り潰しに使う色と模様を指定する CopyMode CopyRect によってイメージをコピーするときの方法を指定する Font テキストを書くときのフォントを指定する Pen ペンを指定する PenPos ペンの現在位置を示す Pixels Canvas 上のピクセル位置の色を示す TextFlags テキストの描画方法を指定する A6-14

15 A6-15

16 A6-16

17 A6-17

18 A6-18

19 A6-19

20 A6-20

21 A6-21

22 A6-22

23 A6-23

24 Delphi Inprise Corporation, Delphi Object Pascal 1999 Delphi CQ 1997 A6-24

untitled

untitled 2000.12.15;2001.3.1 Object Pascal 7-1 2000.12.15;2001.3.1 7-2 2000.12.15;2001.3.1 7-6 va 7-3 2000.12.15;2001.3.1, 7-4 2000.12.15;2001.3.1 7-5 2000.12.15;2001.3.1 7-6 2000.12.15;2001.3.1 Object Pascal 7-7