捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
LedScreen v2.5 (模拟液晶显示屏)
关键字:Led Screen 液晶 显示屏 动画 LCD
来 自:转载,jacques.voirin@iname.com
平 台:Win9x,Win2k/NT,WinXP 下载所需:0 火柴
深浅度:中级 完成时间:2001/8/1
发布者:netbat 发布时间:2004/2/13
编辑器:D5,6/CB5 语  种:ENGLISH
分 类:图形 下载浏览:2171/16687
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
图片如果打不开,说明流量不够了,请稍候下载……
LedScreen,一款功能比较强大的模拟液晶显示的组件。
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
LEDFont 改进版
guest 2005/7/17 下+2071/浏+14828 评+7
仿LED显示控件 (更新自mosane的LED显示控件…
jeanvixue 2005/6/15 下+1945/浏+13543 评+2
仿真数字 LED 显示控件
mosane 2005/4/4 下+2444/浏+14578 评+5
LedScreen v2.5 (模拟液晶显示屏)
netbat 2004/2/13 下+2171/浏+16688 评+9
相关评论
共有评论9条 当前显示最后6条评论
bitter 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.

lisgo 2004/4/4 13:35:34
hao
blueway 2004/4/17 23:16:43
简直酷毙了,太谢谢了!
skanchen 2004/5/7 19:55:38
为什么我在D7下运行老说我没有dcu文件啊??
rockbig 2004/8/13 7:51:54
d7下打开运行,提示没有lcdanimator控件,在那里可以下载阿
zhuli_321 2006/11/21 21:43:36
要显示汉字,有办法吗?
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表