当前位置:主页   - 电脑 - 程序设计 - Delphi
字存为字符图片
来源:网络转载   作者:未知   更新时间:2008-12-17
收藏此页】    【字号    】    【打印】    【关闭

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

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.


其它资源
来源声明

版权与免责声明
1、本站所发布的文章仅供技术交流参考,本站不主张将其做为决策的依据,浏览者可自愿选择采信与否,本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络,其版权为原权利人所有。由于来源之故,有的文章未能获得作者姓名,署“未知”或“佚名”。对于这些文章,有知悉作者姓名的请告知本站,以便及时署名。如果作者要求删除,我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创,本站拥有所有权利。
4、如对本站发布的信息有异议,请联系我们,经本站确认后,将在三个工作日内做出修改或删除处理。
请参阅权责声明