Delphi and DirectX Delphix (): Tdib. Drawmono ();

This example effect chart:

Code files:

Unit Unit1;
Interface
Uses
Windows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,
Dialogs, DIB, Stdctrls;
Type
TForm1 = Class (Tform)
Dxpaintbox1:tdxpaintbox;
Button1:tbutton;
Procedure Button1Click (Sender:tobject);
Procedure Formcreate (Sender:tobject);
End
Var
Form1:tform1;
Implementation
{$R *.DFM}
Const
C1 = Clblack;
C2 = Cllime;
Var
W,h:integer;
Procedure Tform1.formcreate (Sender:tobject);
Begin
W: = Dxpaintbox1.clientwidth;
H: = Dxpaintbox1.clientheight;
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 (' Delphix ');
Dxpaintbox1.repaint;
End
Procedure Tform1.button1click (Sender:tobject);
Begin
DXPaintBox1.DIB.DrawMono (dxpaintbox1.dib, 0, 0, W, h, 0, 0, C1, C1, C2);
Dxpaintbox1.repaint;
End
End.