捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论:LedScreen v2.5 (模拟液晶显示屏)
zhuli_321 27257 2006/11/21 21:43:36
要显示汉字,有办法吗?
rockbig 7760 2004/8/13 7:51:54
d7下打开运行,提示没有lcdanimator控件,在那里可以下载阿
skanchen 4662 2004/5/7 19:55:38
为什么我在D7下运行老说我没有dcu文件啊??
blueway 4077 2004/4/17 23:16:43
简直酷毙了,太谢谢了!
lisgo 3740 2004/4/4 13:35:34
hao
bitter 2363 2004/2/19 16:36:00
汉字变为点阵,很多字模软件都是这样做的,canvas 绘到stringgrid

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DB, ADODB;

type
  TForm1 = class(TForm)
    Button1: TButton;
    a: TStringGrid;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  b: TDrawGrid;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,dc:Integer;
  c: Cardinal;
begin

  dc := GetDC(handle);
  form1.Canvas.Font.Name := Memo1.Font.Name;
  form1.Canvas.Font.Size := Memo1.Font.Size;
  form1.Canvas.TextOut(0,0,'汪浩');


  a.Canvas.Pen.Color := rgb(255,0,0);
  a.Canvas.Brush.Color:= rgb(255,0,0);
  //memo1.Lines.Clear;
  for i := 0 to 31 do
  begin
    //memo1.Lines.Add(');
    for j := 0 to 31 do
    begin
      c := GetPixel(dc,j,i);
      //Sleep(10);
      //ShowMessage(IntToStr(c));
      if c=0 then
      begin
        a.Canvas.FillRect(a.CellRect(j,i));
        memo1.Lines[i] := memo1.Lines[i]+'*';
      end
      else
        memo1.Lines[i] := memo1.Lines[i]+' ';
    end;
  end;
end;

end.

fly_hong_924 2231 2004/2/13 22:43:57
不支持汉字的。有什么办法可以让其支持汉字?希望能得到指点。
tintin1943 2209 2004/2/13 12:31:58
支持汉字吗?
第一页 上一页 下一页 最后页 有 8 条纪录 共1页 1 - 8
 用户名:
 密 码:
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表