函式引數介紹

2021-04-19 07:43:38 字數 1952 閱讀 7482

//宣告:

createpen(

style, width: integer;

color: colorref

): hpen;

//style 引數可選值:

ps_solid = 0;

ps_dash = 1;

ps_dot = 2;

ps_dashdot = 3;

ps_dashdotdot = 4;

ps_null = 5;

ps_insideframe = 6;

//舉例: procedure tform1.formpaint(sender: tobject); var penstyle: integer; penhandle: hpen; begin penstyle := radiogroup1.itemindex; penhandle := createpen(penstyle, 1, clred); canvas.pen.handle := penhandle; rectangle(canvas.handle, 20, 20, 96,160); deleteobject(penhandle); end; procedure tform1.radiogroup1click(sender: tobject); begin self.refresh; end;

//效果圖:

//測試 ps_solid 與 ps_insideframe 的區別

procedure tform1.formpaint(sender: tobject);

var penhandle: hpen;

begin

penhandle := createpen(ps_solid, 20, clred);

canvas.pen.handle := penhandle;

rectangle(canvas.handle, 20, 20, 96,132);

penhandle := createpen(ps_insideframe, 20, clred);

canvas.pen.handle := penhandle;

rectangle(canvas.handle, 120, 20, 196,132);

penhandle := createpen(ps_solid, 1, clred);

canvas.pen.handle := penhandle;

rectangle(canvas.handle, 220, 20, 296,132);

deleteobject(penhandle);

end;

//效果圖:

WinMain函式引數介紹

winmain函式的定義 winmain函式的原型宣告如下 int winapi winmain hinstance hinstance,當前視窗例項 hinstance hprevinstance,前乙個視窗例項 lpstr lpcmdline,命令列引數 int ncmdshow 視窗顯示狀態 ...

函式介紹 初識函式(定義,呼叫,引數介紹)

函式就是盛放 的容器,把實現某一功能的一組 丟到乙個函式中,就做成了乙個小工具。具備某一功能的工具就是函式。事先準備工具的過程就是函式的定義。遇到應用場景拿來就用就是函式的呼叫沒用函式之前面臨的問題 1 冗餘,程式組織結構不清晰 可讀性差 2 擴充套件性差def 函式名 引數1,引數2,引數3.文件...

Perl函式及引數介紹

子例程,函式 子例程,函式的作用域是指在程式中能夠看到它的位置範圍。子例程是全域性的,可以放在指令碼中的任意位置,甚至放在其他指令碼檔案中。當使用來自其他檔案的子例程時,應當使用關鍵字do,require或use將它載入到指令碼裡。若要呼叫乙個子例程,使用者可以在子例程前加上 符號,或在子例程前加上...