在C++Builder中利用Timage控件可以輕松地讀入并顯示圖象,但Timage控件本身不可以接收輸入焦點(diǎn),也沒帶有滾動條,在顯示超出顯示區(qū)域范圍的大圖象時(shí),需要對Timage控件進(jìn)行加強(qiáng)。本文提出兩種最容易實(shí)現(xiàn)且有效的方法,滿足不同應(yīng)用的需求。
----方法一:增加滾動條。
----增加滾動條可以通過將Timage放在TScrollBox控件中來實(shí)現(xiàn)。步驟如下:
----(1)、在窗體中放置一個(gè)TScrollBox控件,調(diào)整好其尺寸。
----(2)、設(shè)置TScrollBox控件的AutoScroll屬性為True。
----(3)、在TScrollBox控件是放置一個(gè)Timage控件。
----(4)、設(shè)置Timage控件的屬性:AutoSize為True,Left為0,Top為0。經(jīng)以上增強(qiáng)之后,如果Timage的圖象比顯示窗口大,滾動條會自動出現(xiàn),如果圖象小于顯示窗口,滾動條自動消失,實(shí)現(xiàn)了大圖象的瀏覽。
----方法二:圖象漫游。
----圖象漫游是指不用滾動條,通過鍵盤或者鼠標(biāo)控制圖象的移動,從而在較小的顯示區(qū)域內(nèi)可以瀏覽圖象的任何部分。下面以鼠標(biāo)控制為例說明。
----(1)、在窗體中放置一個(gè)Tpanel控件,調(diào)整好其尺寸。
----(2)、在Tpanel控件是放置一個(gè)Timage控件。
----(3)、設(shè)置Timage控件的AutoSize屬性為True,Left屬性為0,Top屬性為0。
----(4)、在TForm1的類定義中加兩個(gè)私有變量:intiX0,iY0;
----(5)、響應(yīng)Timage控件的OnMouseDown和OnMouseMove事件。
void__fastcallTForm1::Image1MouseDown(Tobject*Sender,
TMouseButtonButton,TShiftStateShift,intX,intY)
{
iX0=X;
iY0=Y;
}
void__fastcallTForm1::Image1MouseMove
(Tobject*Sender,TShiftStateShift,intX,intY)
{
intiDeltaX,iDeltaY;
if(Shift.Contains(ssLeft))
{
iDeltaX=X-iX0;
iDeltaY=Y-iY0;
if(iDeltaY)
Image1->Left+=iDeltaX;
if(iDeltaY)
Image1->Top+=iDeltaY;
}
}
----(6)、運(yùn)行時(shí)按住鼠標(biāo)左鍵拖動,圖象將跟隨移動。
----(7)、如果通過鍵盤控制,只需參考鼠標(biāo)控制的代碼,加入鍵盤控制即可。
----(8)、實(shí)際應(yīng)用時(shí),根據(jù)需要加入邊界限制,保證圖象不會被移出顯示區(qū)域之外。
----以上兩種方法在本人開發(fā)的軟件當(dāng)中多次應(yīng)用,效果很好。