中国触摸屏网
首页
触摸屏
一体机
触摸显示器
供求商机
产品展示
厂商资料
资讯中心
触摸软件
触摸论坛
触摸屏资讯 | 触控一体机 | 触摸屏屏幕 | 触摸屏机柜 | 触摸显示器 | 触摸控制器 | 自助终端 | 呼叫系统 | 触摸屏软件| 全国经销商
触摸屏外设 | 考勤排队机 | 触摸屏新品 | 解决之方案 | 选购与维护 | 驱动与软件 | 数字城市 | POS 系统 |LED电子大屏| 触摸屏论坛
导航: 首页 >> 选购与维护 >> 触摸屏技术 >> 正文 全国触摸屏销售热线:(点击查看)
全国触摸屏经销商 全国触摸屏经销商
·广东广州 ·广东深圳
·福建福州 ·福建厦门
·福建泉州 ·湖南长沙
·江西南昌 ·上 海 市
·江苏南京 ·江苏苏州
·江苏无锡 ·北 京 市
·山东济南 ·山西太原
·重 庆 市 ·四川成都
·云南昆明
·>>> 经销商加入指南
触摸屏编程图象处理的一些小技巧  
触摸屏编程图象处理的一些小技巧
副标题:触摸屏编程图象处理的一些小技巧
日期:2007-10-15 21:02:03     来源:eNet硅谷动力   编辑:51Touch 
  触摸屏大家是经常用到的,但不一定知道的是通过鼠标的单击和移动是怎样才能实现触摸屏的种种功能。下面就让我们来简单介绍在触摸屏编程过程中图形、图象处理技术的一些小技巧。

  1.怎样使窗体全屏显示,即根据显示器的大小来确定窗体的大小,这里介绍三种方法来实现:

  (1)BorderStyle := bsNone;

  WindowState := wsMaximized;

  (2)BorderStyle := bsNone;

  Left := 0;

  Top := 0;

  Width := Screen.Width;

  Height := Screen.Height;

  (3)BorderStyle:=bsNone;

  SetBounds(0,0,Screen.Width,Screen.Height);

  2.实现按ESC键使全屏窗体退出全屏,则要根据ESC的键值27来实现,代码如下:

  procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);

  begin

  if key=27 then

  close;//关闭窗口;

  end;

  另外一定要把Form1的keypreview设置成为True;keypreview默认为False。

  3.当鼠标移动到某组件区域范围内(如Image组件),如何改变鼠标的形状呢?主要是设置相应组件的cursor属性,具体方法如下:

  (1)如果是要使用系统已定义的光标,可用:Image1.cursor:=已定义光标名;

  (2)如果是使用自定义的光标,可用以下方法:

  将制作好光标调入

   const

   newcur = 1;(必须大于0)

  screen.cursors[newcur]:= loadicon()或Loadcursorfromfile(); //调入的图标的扩展名必须为ani,ico,cur

  image1.cursor:=newcur;

  4.在查看较大图象时,如果窗体比图象小,就不能完全显示图象。如果将较大的图象压缩来显示到窗体上的话,图象就会模糊不清。将图象的一部分显示到窗体上,需要时用鼠标移动图象来浏览其他部分,这样可以浏览全部图象有可以达到清晰的效果。如果要使鼠标移动图象,需要用到三个事件,即:OnMouseDown、OnMouseUp、OnMouseMove,具体代码如下:

  procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

   Shift: TShiftState; X, Y: Integer);

  begin

   moveFlag:=true;

   OX:=X;

   OY:=Y;

  end;

  procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

   Y: Integer);

  begin

  if moveFlag then

   begin

   image1.Left:=image1.Left+(X-OX);

   image1.Top:=image1.Top+(Y-OY);

   end;

  end;

  procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;

   Shift: TShiftState; X, Y: Integer);

  begin

   moveFlag:=False;

  end;

  5.如何实现跟随鼠标轨迹在透明的Image组件上绘制不规则曲线(即在触摸屏的背景图片上做标记),并且绘线的同时没有闪烁现象,首先让我们实现Image组件在画线是保持透明,这里用image1.Canvas.Brush.Color来实现;而根据鼠标轨迹绘制不规则曲线,主要用到TCanva的两个重要方法:MoveTo、LineTo。具体代码如下:

  procedure TForm1.DrawShape(TopLeft, BottomRight: TPoint; AMode: TPenMode);

  begin

  with image1.Canvas do

  begin

   Pen.Mode := AMode;

   pen.Color:=clred;

   pen.Width:=10;

   MoveTo(TopLeft.X, TopLeft.Y);

   LineTo(BottomRight.X, BottomRight.Y);

  end;

  end;

  procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

   Y: Integer);

  begin

  if Drawing then

  begin

  MovePt := Point(X, Y);

   DrawShape(Origin, MovePt, pmcopy);

  origin:=movept;

  end;

  end;

  procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

   Shift: TShiftState; X, Y: Integer);

  begin

  Drawing := True;

  image1.Canvas.MoveTo(X, Y);

  Origin := Point(X, Y);

  MovePt := Origin;

  end;

  procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;

   Shift: TShiftState; X, Y: Integer);

  begin

  if Drawing then

  DrawShape(Origin, Point(X, Y), pmCopy);

  Drawing := False;

  end;

  procedure TForm1.FormCreate(Sender: TObject);

  begin

  panel1.DoubleBuffered:=true;//在Image1所在的容器设置双缓冲,防止画线时闪烁。

  image1.Canvas.Brush.Color:=panel1.Color;

  image1.Canvas.FillRect(rect(0,0,image1.Width,image1.Height));//实现绘线的同时保持Image1的透明性。

  end;
对这篇文章您有更多的想法? 请去论坛发表意见吧   
“触摸屏编程图象处理的一些小技巧” 的相关新闻
触摸屏编程图象处理的一些小技巧
触摸屏及相关厂家
广东洪毅触摸设备
台湾嵩达光电科技
广东深越光电技术
台湾理义科技股份
北京联控兴业科技
台湾宇宙光电股份
3M中国触控系统部
南京华睿川电子科技
捷蔚光电科技上海公司
>> 触摸屏相关厂商加入
站内搜索 站内搜索
软件开发 软件开发
Toucher2.2在线演示
时代广场软件首页
荣威触摸屏查询软件首页
眉山经济贸易委员会软件首页
推荐新闻 推荐新闻
友达、华映将推新品,电
触摸屏浏览器Toucher V4
触控屏技术能否开启手机
专门为零售商开发的触摸
触摸屏浏览器Toucher触摸
在便携设备中应用电容式
KTV市场触摸屏 又掀娱乐
加入收藏网站地图联系我们  |  广告联系全国销售网络
    网站广告、经销商加盟、触摸屏软件销售:028-85108892 13183843395 028-66219290 联系人:张小姐 传真:028-85108892 全国各地经销商如下:
   广 州   020-87599875 深 圳   0755-21949677 福 州   0591-87818596 厦 门   0592-5615268 泉 州   0595-88150378
   湖 南   15863470449 江 西   0791-6283683 上 海   13916222245 南 京   025-83610010 苏 州   0512-65581867
   无 锡   0510-88658230 北 京   010-62631382 山 西   0351-8390152 济 南   13396407999 四 川   028-81934978
   云 南   0871-5109466 重 庆   023-68609756 其 他… 13183843395   >>> 经销商加入指南  
电子邮件: 51touch(A)126.com 请将地址中的"(A)"改成"@",避免垃圾邮件出此下策,望谅
版权所有 Copyright(C)2003-2008 中国触摸屏网 地址:成都市高升桥东路2号高盛中心1109室 电话:028-85108892 13183843395 028-66219290 

在线咨询QQ: 

触摸屏、触摸屏软件、触控一体机咨询 43361182 触摸屏、触摸屏软件、触控一体机咨询 893008608 MSN 帐号:touch8(A)gmail.com 将"(A)"改成"@"即可
"));