Delphix (90) of Delphi and DirectX: tdib. drawmorphed ();

In this example:

Code File:

Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, Dib, stdctrls; Type tform1 = Class (tform) dxpaintbox1: bytes; button1: tbutton; button2: tbutton; button3: tbutton; Procedure button1click (Sender: tobject); Procedure destroy (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} const C1 = clred; C2 = clyellow; var W, H: integer; Procedure tform1.button1click (Sender: tobject); begin W: = dxpaintbox1.clientwidth; H: = cursor; dxpaintbox1.dib. setsize (W, h, 24); dxpaintbox1.dib. fill (C1); dxpaintbox1.dib. canvas. brush. style: = bsclear; dxpaintbox1.dib. canvas. font. color: = c2; dxpaintbox1.dib. canvas. font. name: = 'arial black'; dxpaintbox1.dib. canvas. font. size: = 36; dxpaintbox1.dib. canvas. font. style: = [fsbold]; dxpaintbox1.dib. canvas. textout (20, 10, 'delphix '); dxpaintbox1.repaint; end; Procedure tform1.button2click (Sender: tobject); begin dxpaintbox1.dib. drawmorphed (dxpaintbox1.dib, 0, 0, W, H, 0, 0, C2); dxpaintbox1.repaint; end; Procedure tform1.button3click (Sender: tobject); begin dxpaintbox1.dib. drawmorphed (dxpaintbox1.dib, 0, 0, W, H, 0, 0, C1); dxpaintbox1.repaint; end.
 
   
 

Form file:

 Object form1: tform1 left = 0 Top = 0 caption = 'form1 'clientheight = 134 clientwidth = 273 color = clbtnface font. charset = default_charset font. color = clwindowtext font. height =-11 font. name = 'tahoma 'font. style = [] oldcreateorder = false pixelsperinch = 96 textheight = 13 object dxpaintbox1: tdxpaintbox left = 8 Top = 8 width = 257 Height = 89 autostretch = false center = false keepaspect = false stretch = false viewwidth = 0 viewheight = 0 end object button1: tbutton left = 8 Top = 103 width = 75 Height = 25 caption = 'button1' taborder = 0 onclick = button1click end object button2: tbutton left = 109 Top = 103 width = 75 Height = 25 caption = 'button2' taborder = 1 onclick = button2click end object button3: tbutton left = 190 Top = 103 width = 75 Height = 25 caption = 'button3' taborder = 2 onclick = button3click endend