DELPHI圖形編輯技巧二則

2022-07-14 23:09:04 字數 950 閱讀 9928

、介面色彩漸變效果的實現介面色彩漸變效果是通過用漸變的畫刷刷繪依次相鄰的矩形塊實現的。下面列舉例項說

1.新建個表單,假設其width為500,設定個按鈕button1,按此按鈕將把表單置為自左

向右由黃變白的漸變效果。

2. button1按鈕的**如下·

procedure tobject);

var i,j:lnteger; dct:trect

begin

j: 二

//獲得表單高度

for i:二o to 255 do

//此處設定rgbo 中個顏色值

begin

canvas. brush. co1or: 二rgb(255,255,i);

//每次畫矩形的畫刷顏色

dct: 二rect (i 士 2,0,(i + 1) 士 2,j) ;

//每次刷繪的矩形區域

canvas. fi llrect (dct) ;

//填充顏色

end end 二、圖形整體拉出效果

單純的圖形整體拉出效果比較簡單,動態地改變圖形區域的大小就可以實現,但事先應將圖形的"stretch" 設定為 utrue" 。

舉例說明下拉效果-

1.在表單上放置**,高度為200,屬性 "height" 設為0,"stretch" 設定為true。新增 utimer" 構件..

interval "設為200,"enab1e" 設為tureo

2. 在timer1timer中新增**·

procedure tform1. timer1timer(sender: tobject);

begin

二 //設定增量

if 二 200 then 二false;

//圖形整體拉出完畢

end以上兩例在windows95,delphi3.0環境下執行通過。(山東楊波)

教學故事二則

在剛帶小學五年級時,發生了一件這樣的事。我想給學生調換一下位置,課間時幾個女同學說 老師你調誰到我們女生附近都行,就是不能調a同學。我問 為什麼呢?她們說 老師他愛撒謊,還愛學著別人講話,別人說什麼他就說什麼,可煩了。我又問 你們怎麼知道他撒謊?女同學 有一次,他騙老師。通過女同學的這幾句話我知道了...

《寓言二則》反思

劉家橋小學楊麗霞 第一課時 亡羊補牢 亡羊補牢 這是一篇寓言故事,文章短小精悍,簡明有趣,但寓意深刻。根據學生學習的基礎,結合教材的特點,設計教案。1 開課時以看圖猜寓言的遊戲方式引入,既激發了學生的學習興趣,又引發學生回憶寓言的特點,為學習新寓言做好鋪墊。2 教學時以學生為主體,借助多 教學,特別...

古代寓言二則

閱讀下面的語段,回答問題。鄭人買履 鄭人有欲買履者,先自度其足,而置之其坐。至之市,而忘操之。已得履,謂曰 吾忘持度!反歸取之。及反,市罷,遂不得履。人曰 何不試之以足?曰 寧信度,無自信也。刻舟求劍 楚人有涉江者,其劍自舟中墜於水。遽契其舟,曰 是吾劍之所從墜。舟止,從其所契者入水求之。舟已行矣,...