?? wzjh43.htm
字號:
<html><head><title>DELPHI圖形編輯技巧二則</title><meta content="text/html;CHARSET=gb2312" http-equiv="Content-Type"><style type="text/css">.font { FONT-SIZE: 9pt; LINE-HEIGHT: 13pt}.bfont { FONT-SIZE: 11pt; LINE-HEIGHT: 13pt}A:link { COLOR: #0080c0; CURSOR: hand; FONT-STYLE: normal; TEXT-DECORATION: none}A:visited { COLOR: #0080c0; FONT-STYLE: normal; TEXT-DECORATION: none}A:active { COLOR: rgb(255,0,0); FONT-STYLE: normal; TEXT-DECORATION: none}A:hover { COLOR: red; TEXT-DECORATION: underline}</style><script LANUGAGE="JavaScript"><!--function pop(pageurl) { varpopwin=window.open(pageurl,"popWin","scrollbars=yes,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no,width=650,height=450"); return false;}//--></script><style type="text/css">TD { FONT-FAMILY: "宋體"; FONT-SIZE: 9pt}BODY { FONT-FAMILY: "宋體"; FONT-SIZE: 9pt}SELECT { FONT-FAMILY: "宋體"; FONT-SIZE: 9pt}A { COLOR: white; FONT-FAMILY: "宋體"; FONT-SIZE: 9pt; TEXT-DECORATION: none}A:hover { COLOR: #3300ff FONT-FAMILY: "宋體"; FONT-SIZE: 9pt; TEXT-DECORATION: underline}</style><SCRIPT language=Javascript1.2 src="best.js"></SCRIPT><SCRIPT language=JavaScript><!--- hide script from old browsersvar ie=0;browserName=navigator.appName.substring(0,27);if (browserName=="Microsoft Internet Explorer") {ie=1;} if (ie) {document.bgColor="#ffffff";}// -- End Hiding Here --></SCRIPT><META content="Microsoft FrontPage 4.0" name=GENERATOR><SCRIPT>var Flag=0</SCRIPT><body link="#008000" vlink="#008000" bgcolor="#FFFFFF"><div align="center"><center><table border="0" width="750" bgcolor="#DFEFFF"> <tr> <td width="100%"> <table border="0" width="100%" cellspacing="1"> <tr bgcolor="#FFFFFF"> <td width="100%" height="133"> <p align="center"><strong> DELPHI圖形編輯技巧二則</strong></p> <div align="center"> <center> <table border="0" width="650" bgcolor="#5BADFF" cellspacing="1" cellpadding="2"> <tr> <td width="100%" bgcolor="#FFFFFF" colspan="6"><br> 一、界面色彩漸變效果的實現 <br> 界面色彩漸變效果是通過用漸變的畫刷刷繪依次相鄰的矩形塊實現的。下面列舉實例說明: <br> 1.新建一個表單,假設其Width為500,設置一個按鈕Button1,按此按鈕將把表單置為由左向右由黃變白的漸變效果。 <br> 2.Button1按鈕的代碼如下: <br> procedure TForm1.Button1Click(Sender: TObject); <br> var i,j:Integer; <br> Dct:TRect; <br> begin <br> j:=Form1.height; <br> //獲得表單高度 <br> for i:=0 to 255 do <br> //此處設置RGB()中一個顏色值 <br> begin <br> Canvas.Brush.Color:=RGB(255,255,i); <br> //每次畫矩形的畫刷顏色 <br> Dct:=Rect(i＊2,0,(i＋1)＊2,j); <br> //每次刷繪的矩形區域 <br> Canvas.FillRect(Dct); <br> //填充顏色 <br> end; <br> end; <br> 二、圖形整體拉出效果 <br> 單純的圖形整體拉出效果比較簡單,動態地改變圖形區域的大小就可以實現,但事先應將圖形的“Stretch”設置為“True”。 <br> 舉例說明下拉效果: <br> 1.在表單上放置一圖片,高度為200,屬性“Height”設為0,“Stretch”設置為True。添加“Timer”構件, “Interval”設為200,“Enable”設為Ture。 <br> 2.在Timer1Timer中添加代碼: <br> procedure TForm1.Timer1Timer(Sender: TObject); <br> begin <br> Image1.Height:=Image1.Height＋20; <br> //設置增量 <br> if image1.Height=200 then Timer1.Enabled:=FALSE; <br> //圖形整體拉出完畢 <br> end; <br> 以上兩例在Windows95,Delphi3.0環境下運行通過。(山東 楊波) <br> <br> </td> </tr> </table> </center> </div> </td> </tr> </table> </td> </tr></table> <td width="100%" height="50" colspan="2"> </td> </center></div></body></html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -