□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ □□□□□□□□□□□□□□□□□□□□□□□□□□□ ■■■ □□□□□□□□□□□□□□□□□□□ □□□□□□□□□□ ■■■■■■■■■■■■■■■■■■ □ ■■ □□□□ ■■■■■■ □ ■■■■■■■■■■■■■■■ □□ ■■■■■■ □ □ ■■ □□□□ ■■■■■ □ □ □ □ □ □ □ □ ■ ■ ■ □ □ □ □ □ □ □ □ □ ■ ■ ■ □ □ □ □ □ □ □ □ □ □ ■■■■ □ □ □□□□□□ ■■■■■■ □□□□□□□□□□□ ■■■■■■■■■■■■■■■■ □□□ ■■ □ □ □ □ □ □ ■■■■■■■■■■■■■■■ □□□□□ ■ ■ □ □ □ □ □ □ ■ ■ ■ □ ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ ■ ■ ■ ■ ■■■■■ □□□□□□□ ■■■■■ □ ■ ■ □ ■ □□□ ■ ■ ■ □ □ □ ■ ■ ■ □ □ □ □ □ □ ■■■ ■ □ ■■■ □□□□□□□ ■■■■ □ □ □ □ □ □ □ □ □ □ □ ■ ■ ■ ■ ■ □ □ □ □ □ ■ ■■■ □□□□□□□□□□□□□□□□ ■■■■■ □□□□□□□ ■■■■ □□□□□□□□□□□□□□□ □ ■■■■■■■■■■ □□□□□□□□□□□□□□□ ■■■■■■■■■ □□□□□ ■■ ■■ □□□□□□□□□□□□□ ■■■■■■■ □□ ■■ □□□□ ■■■■ □□□□□□□□□□□□ ■■ ■■■■ □□□□□ ■■■■■■■■■■■ □□□□□□□□□□□□□ ■ ■ □□□ □ □ □ ■ ■ ■ ■ ■■ □ □ □ □ □ □ □ □ □ □ □ □ □ □ □ □ □ ■ □ □ □ □ □ ■ □ □ □ □ □ □ □ □ □ □ □ □ □ □ □ □ □ □ □ □ □ □□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□
Unit unit3;
Interface
Uses Windows, Messages, Sysutils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Stdctrls;
type TForm1 = class (TForm) Memo1: TMemo; Button1: TButton; Label1: TLabel; Edit1: TEdit; FontDialog1: TFontDialog; procedure Button1Click (Sender: TObject); procedure Edit1Change (Sender: TObject); procedure FormClick (Sender: TObject) PRIVATE {Private Declarations}}
Var Form1: TFORM1;
IMPLEMENTATION
{$ R * .dfm}
Procedure TForm1.Button1Click (Sender: TOBJECT); VAR i, J, W, H, L, T: Integer; St: string; begin with label1 do beg, l: = left; t: = top; w: = width; h : = Height; end; memo1.lines.clear; for j: = t 5 to h t - 5 do begin st: = '; for i: = l to l w do begin if self.canvas.pixels [i, j] = CLBLACK THEN BEGIN ST: = ST '■';; canvas.pixels [i 200, j]: = CLBLACK; ELSE ST: = ST '□'; end; memo1.Lines. Add (st) end;
END;
Procedure tform1.edit1change (sender: TOBJECT); begin label1.caption: = Edit1.Text;
Procedure TFORM1.FORMCLICK (Sender: TOBJECT); Begin
FONTDIALOG1.FONT: = label1.font; if fontdialog1.execute1 Label1.font: = fontdialog1.font;
END;
End.
C # code
Private
Void
Button5_click
Object
Sender, Eventargs E)
...
