捐赠 | 广告 | 注册 | 发布精品源码 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
【精品源码】 delphi黑板支持轨迹回放
关键字:delphi黑板支持轨迹回放
来 自:精品
平 台:Win2K/2003/NT/XP 下载所需:80 火柴
深浅度:中级 完成时间:2013/7/11
发布者:ozhy1 (奖励50火柴) 发布时间:2013/7/11
编辑器:Delphi7 语  种:简体中文
分 类:图形 下载浏览:5/6334
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
图片如果打不开,说明流量不够了,请稍候下载……
支持画笔,点擦除,框选擦除,轨迹回放
procedure TForm1.PageImgMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  ii,jj:Integer;
  i,j:integer;

begin



      //橡皮点擦 方式一

      if G_move=1 then
      begin
          for ii:=X  to X+30 do
          for jj:=Y  to Y+30 do
          begin
          PageImg.Canvas.Pixels[ii,jj]:=clblack ;
          end;
         
      Memo1.Lines.Add('x:'+inttostr(x)+' ;Y:'+inttostr(y));
      GroupBox1.Caption:=inttostr(Memo1.Lines.Count);
      q_pen.Append;
      q_pen.FieldByName('x').AsInteger:=x;
      q_pen.FieldByName('y').AsInteger:=y;
      q_pen.FieldByName('type').AsInteger:=G_move;
      q_pen.Post;


      end;

      //橡皮框擦
      if G_move=0 then
      begin
        if   (x>sx) and(y>sy) and(x< PageImg.Width  ) and(y< PageImg.Height )
        then begin

          Shape1.Width:=x-sx;
          Shape1.Height:=y-sy;



        end;
      end ;
 
      //画笔  直线
      if G_move=2 then
      begin
     Memo1.Lines.Add('x:'+inttostr(x)+' ;Y:'+inttostr(y));
      GroupBox1.Caption:=inttostr(Memo1.Lines.Count);

      PageImg.Canvas.MoveTo(pt.X,pt.Y);
      PageImg.Canvas.LineTo(x,y);
      pt.X:=x;
      pt.Y:=y;


      q_pen.Append;
      q_pen.FieldByName('x').AsInteger:=x;
      q_pen.FieldByName('y').AsInteger:=y;
      q_pen.FieldByName('cut').AsInteger:=1;
      q_pen.FieldByName('type').AsInteger:=G_move;
      q_pen.Post;

      end;

end;
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
没有相关文章
相关评论
共有评论1条 当前显示最后1条评论
zhdove 2013/11/7 13:43:07
这个程序也要80个火柴??????
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表