如何给Image画边框?

如何给Image画边框? 问题点数：20、回复次数：1Top

1 楼zx_wang（wzx）回复于 2002-04-10 15:51:35 得分 20

uses   QGraphics;  
   
      form1.Canvas.Pen.Width   :=   2;  
      form1.Canvas.Pen.Color   :=   clHighLight;  
      form1.Canvas.MoveTo(image1.Left,image1.Top);  
      form1.Canvas.LineTo(image1.Left,image1.Top+image1.Height   );  
      form1.Canvas.Pen.Color   :=   clshadow;  
      form1.Canvas.LineTo(image1.Left   +image1.width,image1.Top+image1.Height);  
      form1.Canvas.LineTo(image1.Left   +image1.width,image1.Top);  
      form1.Canvas.LineTo(image1.Left,image1.Top);Top

相关问题

• top
• canvas
• image
• 画边框
• lineto
• pen
• left
• form
• width
• height

• 帖主：simonvc
• zx_wang

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载