在C++Builder中利用Timage控制項可以輕鬆地讀入並顯示圖象,但Timage控制項本身不可以接收輸入焦點,也沒帶有捲軸,在顯示超出顯示地區範圍的大圖象時,需要對Timage控制項進行加強。本文提出兩種最容易實現且有效方法,滿足不同應用的需求。
----方法一:增加捲軸。
----增加捲軸可以通過將Timage放在TScrollBox控制項中來實現。步驟如下:
----(1)、在表單中放置一個TScrollBox控制項,調整好其尺寸。
----(2)、設定TScrollBox控制項的AutoScroll屬性為True。
----(3)、在TScrollBox控制項是放置一個Timage控制項。
----(4)、設定Timage控制項的屬性:AutoSize為True,Left為0,Top為0。經以上增強之後,如果Timage的圖象比顯示視窗大,捲軸會自動出現,如果圖象小於顯示視窗,捲軸自動消失,實現了大圖象的瀏覽。
----方法二:圖象漫遊。
----圖象漫遊是指不用捲軸,通過鍵盤或者滑鼠控製圖象的移動,從而在較小的顯示地區內可以瀏覽圖象的任何部分。下面以滑鼠控製為例說明。
----(1)、在表單中放置一個Tpanel控制項,調整好其尺寸。
----(2)、在Tpanel控制項是放置一個Timage控制項。
----(3)、設定Timage控制項的AutoSize屬性為True,Left屬性為0,Top屬性為0。
----(4)、在TForm1的類定義中加兩個私人變數:intiX0,iY0;
----(5)、響應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)、運行時按住滑鼠左鍵拖動,圖象將跟隨移動。
----(7)、如果通過鍵盤控制,只需參考滑鼠控制的代碼,加入鍵盤控制即可。
----(8)、實際應用時,根據需要加入邊界限制,保證圖象不會被移出顯示地區之外。