基於Delphi的圖像漫游

在開發多媒體應用中,經常會遇到需要在有限區域內顯示大圖像的情況,有不少文章對此提出過解決方法,如通過調用Windows的API函數,直接讀寫內存等。這些方法有某些優點,但實現起來較為復雜,且易出錯。筆者在實踐中通過仔細摸索,利用Delphi的強大的面向對象可視化開發環境開發了一種交互式圖像漫游方法。

Delphi中,鼠標的消息響應是通過元件的OnMouseDown、OnMouseU p和OnMouseMove事件實現的,通過對此三個事件編程,可控制圖像在有限區域內移動。考慮到所移動的圖像的邊界應總在該區域外,因此圖像的左上角坐標應小於該區域對應坐標,圖像右下角坐標應大於該區域對應坐標(除非圖像大小比該區域小)。圖1

具體方法是:

1、新建一工程Project1,在Form1中依次放入Panel1、Panel2和I mage1元件,注意Pa nel2和Image1分別在Panel1和Panel2上,再將一La bel1元件加入Panel2中,調整Panel1尺寸為適當大小,並修改各元件屬性為:

元件
屬性名
屬性值
Panel1
BevelInner:
bvRaised
BevelOuter: bvNone
BorderStyle: bsSingle
Panel2
Align:
alClient
Image1
AutoSize:
True
Picture:
”Apple.bmp”
Label1
Align:
alClient
Transparent : True

注意:此處Label1的作用不是顯示字符,而是利用它響應鼠標消息 ,如果不用Label1而直接利用Image1的鼠標事件響應,則會由於其OnMo useDown事件的激活與Image1的自身坐標移動事件沖突而使圖像發生閃爍甚至不能移動。

2、在implementation後加入變量聲明:

origin:Tpoint;
image_left:integer;
image_top:integer;
visa1:Tpoint; (鼠標當前位置相對圖像右下角的坐標)
visa2:Tpoint; (鼠標當前位置相對圖像左上角的坐標)
canmove:boolean;

編寫Label1鼠標響應事件:

procedure TForm1.Label1MouseDown(Sender: TObject; Button
: TMouseButton;S hift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
begin
origin.x:=X;
origin.y:=Y;
image_left:=image1.left;
image_top:=image1.top;
visa1.x:=X-(image1.width-panel2.width+image1.left);
visa1.y:=Y-(image1.height-panel2.height+image1.top);
visa2.x:=X-image1.left;
visa2.y:=Y-image1.top;
canmove:=true;
end;
end;
procedure TForm1.Label1MouseMove(Sender: TObject; Shift:
TShiftState; X, Y: Integer);
begin
if canmove then
begin
if X< visa1.x then X:=visa1.x;
if X>visa2.x then X:=visa2.x;
if Y< visa1.y then Y:=visa1.y;
if Y>visa2.y then Y:=visa2.y;
image1.left:=image_left+(X-origin.x);
image1.top:=image_top+(Y-origin.y);
end;
end;
procedure TForm1.Label1MouseUp(Sender: TObject; Button:
TMouseButton;Shi ft: TShiftState; X, Y: Integer);
begin
canmove:=false;
end;