|
ｿｽ@ｿｽｿｽｿｽuｿｽｿｽﾉゑｿｽlｿｽvｿｽｿｽｿｽ供ゑｿｽTScrollBMPBoxｿｽﾉつゑｿｽｿｽﾄ趣ｿｽｿｽｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽｿｽc 2006/08/20(ｿｽｿｽ) 20:39:51
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽ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
ｿｽｿｽﾉゑｿｽ 2006/08/20(ｿｽｿｽ) 22:35:46
ｿｽ¥ｿｽ[ｿｽ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;
ｿｽｿｽｿｽc 2006/08/21(ｿｽｿｽ) 12:53:00
ｿｽｿｽﾉゑｿｽ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
ｿｽｿｽﾉゑｿｽ 2006/08/21(ｿｽｿｽ) 15:10:44
ｿｽｿｽｿｽﾏ擾ｿｽｿｽ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
ｿｽｿｽｿｽc 2006/08/21(ｿｽｿｽ) 15:43:09
ｿｽｿｽﾉゑｿｽlｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ黷ｩｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌ会ｿｽﾇとコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾆゑｿｽｿｽｿｽｿｽTｿｽOｿｽ理会ｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽ黷ｾｿｽｿｽｿｽﾌゑｿｽｿｽﾆで（ｿｽｿｽｿｽｿｽm(_ _)mｿｽjｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽﾌゑｿｽｿｽﾏにつままれたｿｽ謔､ｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
