Others

In this example: Code File: Unit unit1; interfaceuses windows, messages, extensions, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) memo1: tmemo; Procedure formcreate (Sender: tobject)

The following is the same four paragraphs Program However, three message structures are used: Twmmousemove, twmmouse, tmessage Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs;

In this example: Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; button2: tbutton; procedure

// Brush var G: tgpgraphics; P: tgppen; begin G: = tgpgraphics. create (canvas. handle); P: = tgppen. create (aclred, 2); {parameter 1 color; parameter 2 is the pen width, and the pen width is optional. The default value is 1} G. drawellipse (p, 11,

In this example: Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, extctrls; Type tform1 = Class (tform) memo1: tmemo; memo2: response; Panel1:

// Fill and stroke var G: tgpgraphics; P: tgppen; SB: tgpsolidbrush; begin G: = tgpgraphics. create (canvas. handle); SB: = tgpsolidbrush. create (makecolor (255,255,255); P: = tgppen. create (makecolor (255, 0, 0), 6); G. fillrectangle (SB, 0, 0,

Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; button2: tbutton; procedure button1click (Sender: tobject); Procedure button2click (

In this example: Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; button2: tbutton; procedure

In this example: Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, extctrls; Type tform1 = Class (tform) Panel1: tpanel; edit1: tedit; button1:

// Output text var G: tgpgraphics; SB: tgpsolidbrush; fontfamily: tgpfontfamily; Font: tgpfont; begin G: = tgpgraphics. create (canvas. handle); SB: = tgpsolidbrush. create (makecolor (255,); fontfamily: = tgpfontfamily. create (' '); Font: =

In this example: Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs; Type tform1 = Class (tform) Procedure formpaint (Sender: tobject ); procedure formresize

Beginpath {path start} endpath {path end} strokepath {drawing path} fillpath {fill path} strokeandfillpath {draw and fill path} // graphic commands available in the path include:

// Polygon stroke and fill var G: tgpgraphics; P: tgppen; SB: tgpsolidbrush; PTS: array [0 .. 4] of tgppoint; begin G: = tgpgraphics. create (canvas. handle); SB: = tgpsolidbrush. create (makecolor (255,255,255); P: = tgppen. create (makecolor (255,

// Display the image var G: tgpgraphics; IMG: tgpimage; begin G: = tgpgraphics. create (self. canvas. handle); IMG: = tgpimage. create ('C: \ temp \ x.jpg '); G. drawimage (IMG, 10, 10); {parameters 2 and 3 are coordinates} IMG. free; G. free; end;

Perform and sendmessage directly send messages to the form; Postmessage puts a message into a message queue. Because application. onmessage only receives messages in the queue,Therefore, the message sent by perform and sendmessage cannot be

In this example: Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) memo1: tmemo; memo2: tmemo; button1: tbutton;

Procedure: 1. Add a timagelist: imagelist1 and load some icons; 2. Add two tpopupmenu: popupmenu1 and popupmenu2, and add some menu items respectively; 3. Add a ttoolbar control: toolbar1. Right-click the control and choose new button from the

// Pen alignment var G: tgpgraphics; P: tgppen; SB: tgpsolidbrush; rect: tgprect; begin G: = tgpgraphics. create (canvas. handle); P: = tgppen. create (makecolor (255,255,), 5); SB: = tgpsolidbrush. create (makecolor (255,255,255, 0); p.

// Dotted line style var G: tgpgraphics; P: tgppen; begin G: = tgpgraphics. create (canvas. handle); P: = tgppen. create (makecolor (255,255,), 3); G. drawline (p, 11, 11,333, 11); {solid line} p. setdashstyle (dashstyledashdot); {set the dotted

In this example: Code file: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, extctrls; Type tmyshape = Class (tshape) protected procedure cmmouseenter (VAR message: tmessage);