ソス@ソスソスソスuソスソスノゑソスlソスvソスソスソス供ゑソスTScrollBMPBoxソスノつゑソスソスト趣ソスソスソス
|
ソスEC/C++
ソスEDelphi
ソスEVisual BasicソスソスソスSソスソス
ソス@(VB2-VB6ソスソス.NETソスソスソスp)
ソスEVisual Basic(VB2-VB6)
ソスEVisual Basic .NET
ソスEVisual C++
ソスEpapy's softwarelibrary
ソスソスソスツゑソスソスソスソスソスbソスノなゑソスソストゑソスソスワゑソスソスB
ソスOソスソスフ撰ソスソスソスソスAソスソスソスソスソスソスソスフカソス[ソス¥ソスソスソスレ難ソスソスノつゑソスソストの趣ソスソスソスナ「ソスソスノゑソスlソスvソスソスTScrollBMPBoxソスソスソスソス供ゑソスソスソスソスソスソスソスソスソスソスpソスソスソスソスソストゑソスソスソスソスソスソスソスソストゑソスソスソスワゑソスソスB
ソスソスツ趣ソスソス竄ウソスソスソストゑソスソスソスソスソスソスソスソスソスソスソスソスフでゑソスソスソスソスA
ソスソスソスニゑソスソスホ撰ソスソスソスソスソスソスフカソス[ソス¥ソスソスソスフポソスWソスVソスソスソスソスソスヘ取得ソスナゑソスソスワゑソスソスソスソスAソス鞫懶ソスフゑソスソスフ撰ソスホ位置ソスノ包ソスソスソスソスソスソス驛会ソスCソスソスソスソスソスソスソスソスソスソスソスソスフでゑソスソスソス
ソスXソスNソスソスソス[ソスソスソスソスソストゑソスソスソスニゑソスソスAソスJソス[ソス¥ソスソスソスソスX,Yソスヘゑソスソスソスソスワでゑソスソスフとゑソスソスフ会ソスハの搾ソスソスWソスナゑソスソスソスソスソスAソス鞫懶ソスフ撰ソスホ位置ソスニは異なゑソスフは会ソスソスワゑソスソスソスソスA
ソスソスソスLソスフようソスノコソスソスソス|ソス[ソスlソスソスソスgソスノ追会ソスソスソスソストゑソスソスソストみゑソスソスフでゑソスソスソスソスAソス鞫懶ソスフ撰ソスホポソスWソスVソスソスソスソスソス得ゑソスソスソス@ソスヘどのようソスノゑソスソスソスフゑソスソスソスソスソスソストゑソスソスソスソスソスソスソスソスネゑソスソスナゑソスソス蛯、ソスソスソスB
procedure TScrollBMPBox.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
//-----------------------------------------------------ソスヌ会ソス
if Form2.Tag=1 then//ソスソスソスソスソスソスソスフカソス[ソス¥ソスソスソスソスソスフフソスソスソスO
begin
bufferBMP.Canvas.MoveTo(0, aBufMouseDownPos.Y);
fBMP.Canvas.MoveTo(0, aBufMouseDownPos.Y);
bufferBMP.Canvas.LineTo(fBMP.Width , aBufMouseDownPos.Y );
fBMP.Canvas.LineTo(fBMP.Width , aBufMouseDownPos.Y );
//------------------------------------------------------
end;
ソスソスしソスソスソスソスソス閧「ソスソスソスソスソスソスソスワゑソスソスB
ソス¥ソス[ソスXソスソスソスソストゑソスソスソスソスソスソスソスソスソスホ包ソスソスソスソスソスニ思ソスソスソスワゑソスソスソスソスABMPLeft,BMPTopソスソスソス¥ソスソスソスソスソスソスソスフ搾ソスソスソスソスソスWソスナゑソスソスB
ソス]ソスソスソスト以会ソスソスフようソスノなゑソスワゑソスソスB
unit hScrollBMPBox;
public
property OnMouseMove; //ソスヌ会ソス
unit Unit1;
private
procedure ScrollBMPBoxMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); //ソスヌ会ソス
procedure TForm1.FormCreate(Sender: TObject);
ScrollBMPBox.OnMouseMove:= ScrollBMPBoxMouseMove; //ソスヌ会ソス
procedure TForm1.ScrollBMPBoxMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
caption:= 'X:' + inttostr(x + ScrollBMPBox.BMPLeft) +
' Y:' + inttostr(y + ScrollBMPBox.BMPTop);
end;
ソスソスノゑソスlソスソスソスソスソスフゑソスソスwソスソスソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
ソスワゑソスソスワゑソスソスAソスnソスソスソスメの作成ソスソスソス黷スソスRソスソスソス|ソス[ソスlソスソスソスgソスソスソスソスソスソスソスソスソスす能ソスヘゑソスネゑソスソスソスホ、ソスワゑソスソスト会ソスヘゑソスソスソス¥ソスヘゑソスネゑソスソスソスソス゚、ソスナ擾ソスソスソスImageソスソス¥ソスソスtソスソスソストみゑソスソスソスAソスuソスソスソスソスソスソスEソスEソスEソスvImageソスソスソスネゑソスソストゑソスネゑソスソス¥ソスソスソスソスソスソスだろうソスHソスHソスニゑソスソスソスソスソスヤでゑソスソスB
ソスソスソスト、ソスソスソスソスソスフ場合property OnMouseMove; //ソスヌ会ソスソスソスunit hScrollBMPBoxソスヨ追会ソスソスAForm1ソスヘフソス@ソスCソスソスソスIソスソスノゑソスソストゑソスソスト、ソス鞫懶ソスソスFormソスQソスノ趣ソスソスソスソスソスソストゑソスソスソスフで、
procedure ScrollBMPBoxMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); //ソスヌ会ソスソスニ趣ソスソスsソスソスソスソスFormソスQソスソス
ScrollBMPBox.OnMouseMove:= ScrollBMPBoxMouseMove; //ソスヌ会ソスソスソスFormソスQソスノ趣ソスソスソスソスソスソスワゑソスソスソスソスB
ソスGソスソスソス[ソスヘ出ソスワゑソスソスが画像FormソスQソスフタソスCソスgソスソスソスoソス[ソスノ表ソスソスソスソスソスソスヘゑソスソスナゑソスソスソスソスAソスソスソスワゑソスソスソスB
property OnMouseMove;ソスナ宣言ソスソスソスソスソスソスソスsソスソスソスヘ擾ソスソスソスソスネゑソスソストゑソスソスソスソスソスフでゑソスソス蛯、ソスソスソスB
ソスソスソスxソスソスソスフ低いソスソスソスソスナゑソスソスンまゑソスソスソスBソスソスしソスソスソスソスソス閧「ソスソスソスソスソスソスソスワゑソスソスB
ソスソスソスマ擾ソスソスqソスソスソスソスソスソスソスソスソスソスソス... orz
>property OnMouseMove;ソスナ宣言ソスソスソスソスソスソスソスsソスソスソスヘ擾ソスソスソスソスネゑソスソストゑソスソスソスソスソスフでゑソスソス蛯、ソスソスソスB
ソスヘゑソスソスAソスソスソスソスヘ単ソスソスForm1ソスソスソスソスOnMouseMoveソスCソスxソスソスソスgソスソスgソスソスソスソス謔、ソスノゑソスソス驍セソスソスソスフゑソスフでゑソスソスAソスソスソスヤは継ソスソスソスOソスソスTControlソスナ趣ソスソスソスソスソスソスソストゑソスソスワゑソスソスB
ソスrソスbソスgソス}ソスbソスvソスソスpソスXソスNソスソスソス[ソスソスソス{ソスbソスNソスXソスiソスソスソスワゑソスソス@ソス¥ソスtソスソスソスj
http://hp.vector.co.jp/authors/VA015390/delphi/ScrollBMPBox002.zip
ソスソスノゑソスlソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
ソスソスソスソスソスソスワゑソスソスソスソスB
ソスソスソス黷ゥソスソスAソスソスソスソスソスソスソスツコソスソスソス|ソス[ソスlソスソスソスgソスフ会ソスヌとコソスソスソス|ソス[ソスlソスソスソスgソスニゑソスソスソスソスTソスOソス理会ソスナゑソスソスソス謔、ソスノゑソスソストゑソスソスソスソスワゑソスソスB
ソスヌゑソスソスソスソスト、ソスソスソス黷セソスソスソスフゑソスソスニで(ソスソスソスソスm(_ _)mソスjソスソスソスソスネゑソスソスニゑソスソスナゑソスソスソスフゑソスソスマにつままれたソス謔、ソスネ気ソスソスソスソスソストゑソスソスワゑソスソスB
ソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスソスソスB