字存为字符图片

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□

□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□

□□□□□□□□□□■■■□□□□□□□□□□□□□□□□□□□□□

□□□□□□□□□■■■■□□□□■■■■■■■□■■□□□□□□□

□□□□□□□□■■■■■□□■■■■■■■■■■■■■□□□□□□

□□□□□□□■■■■■□□□■■■□□□□□■■■■■□□□□□□

□□□□□□■■■■■□□□□□□□□□□□■■■■■□□□□□□□

□□□□□□■■■■□□□□□□□□■■■■■■□□□□□□□□□□

□□■■■■■■■■■■■■□□□□□■■■■□□□□□□□□□□□

□■■■■■■■■■■■■■□□□□□□■■■□□□□□□□□□□□

□■■■□■■■■□■■■■■■■■■■■■■■■■■■■■■■□□

□□□□□■■■□□■■■□■■■■■■■■■■■■■■■■■□□□

□□□□□■■■■□■■■□■■□□□□■■■■□□□■■■□□□□

□□□□□■■■■□■■■□□□□□□□■■■■□□□□□□□□□□

□□□□□□■■■■■■□□□□□□□□■■■■□□□□□□□□□□

□□□□□□□■■■■■□□□□□□□□■■■■□□□□□□□□□□

□□□□□□□■■■■■■□□□□□□□■■■■□□□□□□□□□□

□□□□□□■■■■■■■■□□□□□□■■■■□□□□□□□□□□

□□□■■■■■■■□□■■□□□□□■■■■□□□□□□□□□□□

□□■■■■■■□□□□□■■■■■■■■■■□□□□□□□□□□□

□□□■■■□□□□□□□□□■■■■■■■□□□□□□□□□□□□

□□□□□□□□□□□□□□□□□■■■□□□□□□□□□□□□□□

□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□

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 }

public

{ Public declarations }

end;

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

begin

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;

end

else

st := st + '□';

end;

memo1.Lines.Add(st)

end;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

label1.Caption := edit1.Text;

end;

procedure TForm1.FormClick(Sender: TObject);

begin

FontDialog1.Font := label1.Font;

if FontDialog1.Execute then

label1.Font := FontDialog1.Font;

end;

end.

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航