jvDrawPolygon(多角形描画)

多角形を描画します。

[構文]
 
Function jvDrawPolygon(ByVal jid As Long, ByVal close As Long, ByVal mode As Long, ByVal point As String) As Long
 
C言語
int jvDrawPolygon(int jid, int close, int mode, char *point);
 
JAVA
int jvDrawPolygon(int jid, int close, int mode, String point);
 
Delphi
Function jvDrawPolygon(jid, close, mode: Longint; point: PAnsiChar): Longint;
 

設定項目

内容

jid

jvCreateで取得したジョブID

close

閉じた多角形/開いた多角形 (設定値参照)

mode

座標間をつなぐ線の種類 (設定値参照)

point

全座標(1/100mm単位)のカンマ区切りデータ

 
リターンコード
 

定数

内容

 

0

正常終了

JV_ERR_JOBID

-3

ジョブIDエラー

JV_ERR_PARAMETER

-2

パラメータエラー

JV_ERR_CREATEPEN

-50

CREATEPENエラー

JV_ERR_MEMORY

-4

メモリ関連エラー

JV_ERR_DRAW_POLYGON

-61

多角形描画エラー

JV_ERR_DRAW_POLYBEZIER

-63

多角形描画エラー

 
[設定値]
 
close には次の値を設定します。
 

定数

内容

JV_POLY_CLOSE

1

閉じる

JV_POLY_OPEN

0

開く

 
mode には次の値を設定します。
 

定数

内容

JV_POLYGON

1

直線

JV_BEZIER

0

ベジェ曲線

 
[解説]
 
線の種類、線の幅、塗り潰しパターンなどのプロパティはjvSetLongで設定します。 
   
[コーディング例]
 
Dim jid&, ret&
jid = jvCreate(JV_PRINTER, form1.hWnd, Printer.hDC, 0, 0, 0, "")
ret = jvSetForm(jid, "c:\JiveReport\採用実績.jfm", 1,"", 100, 0, 0)
ret = jvStartDoc(jid, "採用実績表", "")
ret = jvDrawPolygon(jid, JV_POLY_CLOSE,
JV_POLYGON, "0,0,1000,1000,2000,1000")
|
ret = jvEndPage(jid)
ret = jvEndDoc(jid)
ret = jvClose(jid)