Unit unit1;
Interface
Uses Windows, Messages, Sysutils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Extctrls, Stdctrls, Buttons
Type tfmmain = class (tform) Procedure formpaint (sender: TOBJECT); END;
VAR fmmain: tfmmain;
IMPLEMENTATION
Uses math; {$ r * .dfm}
Procedure C (X, Y: Integer; Acanvas: Tcanvas); Stdcall; Begin Inc (A, 2); Acanvas.pen.Width: = 5; if Odd (A MOD 31) Then Acanvas.pen.color: = CLWHITE ELSE Acanvas.pen.color: = CLBLACK; Acanvas.Moveto (X, Y); Acanvas.LineTo (X, Y); END;
Procedure Tfmmain.FormPaint (Sender: Tobject); Begin Linedda (0, 20, Width, 20, @ C, Longint (canvas)); LinedDA (0, 0, Width, Height, @ C, Longint (canvas)); end ;
End.
