关于超想
本站导航
邮件列表
  首页 | 本站产品 | Delphi资料 | 免费资源 | 程序人生 | 软件工程 | 网站设计 | 推荐网站
你所在的位置 -> 主页 -> 超想软件 -> 编程资料 -> delphi -> 开发技巧 -> 图形图像 ->详细
相关内容  
 
 
在程序运行期设置QUERY控件的PARAMS
 
【新品推荐】

  详细内容
 

Delphi中对Jpeg格式文件的处理
作者: 杨德军 评价: 上站日期: 2001-05-09
内容说明:
来源:

  (1).在 Uses 中加入 JPEG 单元;   
 (2).定义一个全程变量,例如 var AJPEG : TJPEGImage;   
 (3).在 Form 的 OnCreate 事件中加入 :   
  Canvas.Pen.Color:=clBlack;  
  Canvas.Pen.Style:=psSolid;  
  Canvas.Brush.color:=clBtnFace;  
  Canvas.Brush.Style:=bsSolid; //此上是设置 Canvas 的一些属性,便于以后    
                 //Clear Form and Load a new JPEG file;   
  AJpeg:=TJpegImage.Create;//动态生成AJpeg;  
  AJpeg.LoadFromFile('D:\Temp.jpg') //生成 AJpeg 后,调入 JPEG 文件 ;   
 (4).在 Form 的 OnPain 事件中加入  
   Canvas.Rectangle(2,2,560,430); //画一个黑框的矩形将图片围住;   
   x:=10; y:=10;  
   Form1.Canvas.Draw(x,y,AJpeg); //以(x,y)为左上角输出 JPEG 文件;   
    //实际上其作用是当图形被破坏是使图形恢复;               
 (5).在'Load'或'Browse'按钮的 OnClick 事件中加入:    
 begin  
  if OpenPictureDialog1.Execute then  
  begin  
   AJpeg.Free;         //释放旧AJpeg;   
   AJpeg:=TJpegImage.Create;  //产生一个新的AJpeg;   
   AJpeg.LoadFromFile(OpenPictureDialog1.Filename); //载入JPEG文件;   
  end;  
  Canvas.Rectangle(2,2,560,430); //将Form Clear;   
  x:=10;  
  y:=10;  
  Form1.Canvas.Draw(x,y,AJpeg);  //显示新的AJpeg;   
 end; 

 
你所在的位置 -> 主页 -> 超想软件 -> 编程资料 -> delphi -> 开发技巧 -> 图形图像 ->详细
  首页 | 本站产品 | Delphi资料 | 免费资源 | 程序人生 | 软件工程 | 网站设计 | 推荐网站
声明:本站内容除注明原创以外均从网上摘抄,如有侵权请指明。
  如果您对我们的网站有什么意见或者建议,请与我们联系
powered by 建站易上手- V2.0