|
ｿｽ@ｿｽｿｽｿｽXｿｽｿｽｿｽ[ｿｽYｿｽﾉ包ｿｽｿｽｿｽｿｽ鞫懶ｿｽｿｽ}ｿｽEｿｽXｿｽﾅ一緒ｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽ
|
ｿｽ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
ｿｽ艪ｽｿｽｿｽｿｽﾒー 2011/06/02(ｿｽｿｽ) 16:56:33
ｿｽｿｽｿｽLｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽﾌ画像ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽ動的ｿｽﾈコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾅ作成ｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾃゑｿｽ ｿｽｿｽｿｽ轤ｵｿｽﾈゑｿｽｿｽｿｽcｿｽﾉ重ｿｽﾋて包ｿｽｿｽﾗてゑｿｽｿｽｿｽｿｽﾄ、ｿｽ}ｿｽEｿｽXｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽ鞫懶ｿｽｿｽ齒擾ｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ
(ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾌパｿｽX¥data¥ｿｽｿｽ 0.bmpｿｽ`9.bmpｿｽﾌ画像ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽ)
ｿｽ皷橸ｿｽAｿｽﾚ的ｿｽﾌ擾ｿｽｿｽｿｽｿｽﾍでゑｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾈのでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾍまゑｿｽｿｽﾜゑｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽAｿｽ痰ｦｿｽﾎ、ｿｽｿｽﾔ会ｿｽｿｽｿｽｿｽ逑ｮｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽAｿｽﾆてゑｿｽJｿｽNｿｽJｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽXｿｽｿｽｿｽ[ｿｽYｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽXｿｽpｿｽCｿｽ_ｿｽ¥ｿｽｿｽｿｽeｿｽBｿｽ^ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽﾄ、ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽﾇゑｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
(ｿｽOｿｽﾉゑｿｽｿｽｿｽ竄ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB)
ｿｽﾂ具ｿｽｿｽFWindowsXP SP3 Delphi7 professional
ｿｽﾈ会ｿｽｿｽRｿｽ[ｿｽhｿｽﾅゑｿｽｿｽB
public
{ Public ｿｽ骭ｾ }
Orgpoint:Tpoint;
Drawing: Boolean;
IM:Array of TImage; //Imageｿｽﾌ撰ｿｽ
procedure IMMouseDown(Sender:TObject; Button:TMouseButton; Shift:TShiftState; X,Y:Integer);
procedure IMMouseMove(Sender:TObject; Shift:TShiftState; X,Y:Integer);
procedure IMMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.DoubleBuffered := True; //ｿｽOｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽﾂゑｿｽｿｽhｿｽ‾
end;
procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
TPath:String;
begin
TPath:=ExtractFilePath(Application.EXEName)+'data¥'; //ｿｽ鞫懶ｿｽﾌ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽpｿｽX
SetLength(IM,10); //ｿｽｿｽｿｽIｿｽCｿｽｿｽｿｽ[ｿｽWｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽpｿｽzｿｽｿｽ成
For I:=0 to 9 do begin //ｿｽｿｽｿｽIｿｽCｿｽｿｽｿｽ[ｿｽWｿｽｿｽ成ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽﾗてゑｿｽｿｽｿｽ
IM[I]:=TImage.Create(Self); //Imageｿｽ成
IM[I].Parent:=Self; //Imageｿｽ成
IM[I].Picture.LoadFromFile(TPath+inttostr(I)+'.bmp');//ｿｽ鞫懶ｿｽﾇ搾ｿｽ
IM[I].Visible:=True; //ｿｽeｿｽｿｽ ｿｽﾝ抵ｿｽ
IM[I].Width:=70;
IM[I].Height:=100;
IM[I].Left:=100;
IM[I].Top:=I*20+10; //ｿｽc20ｿｽﾃゑｿｽ ｿｽﾃらしｿｽﾈゑｿｽｿｽｿｽ鞫懶ｿｽｿｽ¥ｿｽｿｽ
IM[I].Name:='I'+inttostr(I);
IM[I].OnMouseDown:=IMMouseDown; //ｿｽ}ｿｽEｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽ
IM[I].OnMouseMove:=IMMouseMove;//ｿｽ}ｿｽEｿｽXｿｽ動ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽ
IM[I].OnMouseUp:=IMMouseUp;//ｿｽ}ｿｽEｿｽXｿｽ離ゑｿｽｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽ
end;
end;
//ｿｽ}ｿｽEｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽ
procedure TForm1.IMMouseDown(Sender:TObject; Button:TMouseButton; Shift:TShiftState; X,Y:Integer);
var
N,SX,SY:Integer;
Han:Boolean;
begin
Drawing:=True;
OrgPoint:=Point(x,y);
end;
//ｿｽ}ｿｽEｿｽXｿｽ動ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽ
procedure TForm1.IMMouseMove(Sender:TObject; Shift:TShiftState; X,Y:Integer);
var
PN:Array of TPoint;
S:String;
I,J:Integer;
begin
if Drawing=True then begin
S:=TImage(Sender).Name; //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽﾌ厄ｿｽｿｽO
J:=StrToInt(Copy(S,2,1)); //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽﾌ番搾ｿｽｿｽｿｽ謫ｾ
SetLength(PN,10-J); //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽｿｽｿｽｿｽﾌ画像ｿｽｿｽ齒擾ｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾟの擾ｿｽｿｽｿｽ
For I:=J to 9 do begin
PN[I-J]:=TImage(IM[I]).Parent.ScreenToClient(TImage(IM[I]).ClientToScreen(Point(X, Y))) ;
TImage(IM[I]).Left:=PN[I-J].X-Orgpoint.x;
TImage(IM[I]).Top:=PN[I-J].Y-Orgpoint.y;
end;
end;
end;
//ｿｽ}ｿｽEｿｽXｿｽ離ゑｿｽｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽ
procedure TForm1.IMMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Drawing:=False;
end;
ｿｽｿｽｿｽｿｽｿｽｿｽ 2011/06/04(ｿｽy) 08:59:05
SetLength(PN,10-J); //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽｿｽｿｽｿｽﾌ画像ｿｽｿｽ齒擾ｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾟの擾ｿｽｿｽｿｽ
For I:=J to 9 do begin
PN[I-J]:=TImage(IM[I]).Parent.ScreenToClient(TImage(IM[I]).ClientToScreen(Point(X, Y))) ;
TImage(IM[I]).Left:=PN[I-J].X-Orgpoint.x;
TImage(IM[I]).Top:=PN[I-J].Y-Orgpoint.y;
end;
ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽPｿｽｿｽｿｽｿｽｿｽﾆに描ｿｽ謔ｵｿｽﾄゑｿｽｿｽ驍ｩｿｽｿｽﾅは？
ｿｽｿｽUｿｽoｿｽbｿｽNｿｽOｿｽｿｽｿｽEｿｽｿｽｿｽhｿｽﾉ移難ｿｽｿｽｿｽﾌ擾ｿｽﾔゑｿｽ`ｿｽ謔ｵｿｽﾄ、
ｿｽｿｽﾅ茨ｿｽCｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽﾎマｿｽVｿｽﾉなゑｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
KHE00221 2011/06/04(ｿｽy) 16:07:50
>S:=TImage(Sender).Name; //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽﾌ厄ｿｽｿｽO
>J:=StrToInt(Copy(S,2,1)); //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽﾌ番搾ｿｽｿｽｿｽ謫ｾ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽ@ｿｽﾈので Down ｿｽﾅ費ｿｽｿｽfｿｽｿｽｿｽｿｽ
Move ｿｽﾅ移難ｿｽｿｽﾌ度ｿｽﾉ ｿｽｿｽｿｽfｿｽｿｽｿｽｿｽKｿｽvｿｽﾈゑｿｽ
>SetLength(PN,10-J); //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽｿｽｿｽｿｽﾌ画像ｿｽｿｽ齒擾ｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾟの擾ｿｽｿｽｿｽ
>For I:=J to 9 do begin
>PN[I-J]:=TImage(IM[I]).Parent.ScreenToClient(TImage(IM[I]).ClientToScreen(Point(X, Y))) ;
>TImage(IM[I]).Left:=PN[I-J].X-Orgpoint.x;
>TImage(IM[I]).Top:=PN[I-J].Y-Orgpoint.y;
PN ｿｽzｿｽｿｽﾉゑｿｽｿｽｿｽKｿｽvｿｽﾈゑｿｽｿｽｿｽｿｽｿｽH
For I:=J to 9 do
ｿｽ@begin
PN :=TImage(IM[I]).Parent.ScreenToClient(TImage(IM[I]).ClientToScreen(Point(X, Y))) ;
TImage(IM[I]).Left := PN.X-Orgpoint.x;
TImage(IM[I]).Top := PN.Y-Orgpoint.y;
ｿｽｿｽｿｽIｿｽmｿｽﾛゑｿｽｿｽｿｽﾈゑｿｽ Down ｿｽｿｽ
>ｿｽ}ｿｽEｿｽXｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽ鞫懶ｿｽｿｽ齒擾ｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ
ｿｽｿｽｿｽﾌ画像ｿｽｿｽｿｽ齒擾ｿｽﾉ難ｿｽｿｽｿｽｿｽﾌは難ｿｽｿｽ
ｿｽｿｽｿｽﾌまま難ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ@ｿｽXｿｽｿｽｿｽ[ｿｽYｿｽ@ｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽｿｽﾇ・ｿｽEｿｽEｿｽEｿｽE
KHE00221 2011/06/04(ｿｽy) 16:10:47
ｿｽｿｽｿｽｿｽﾄ位置ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄ擾ｿｽﾉ擾ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽJｿｽ[ｿｽhｿｽｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽE
ｿｽ艪ｽｿｽｿｽｿｽﾒー 2011/06/05(ｿｽｿｽ) 08:11:17
ｿｽｿｽｿｽｿｽｿｽlｿｽAKHE00221ｿｽlｿｽ@ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
ｿｽｿｽｿｽwｿｽEｿｽ頂ゑｿｽｿｽｿｽｿｽAIMMouseMoveｿｽﾌなゑｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽ2ｿｽｿｽﾉ茨ｿｽ処暦ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽ¥ｿｽzｿｽﾈ擾ｿｽﾉ鯉ｿｽｿｽﾊゑｿｽｿｽﾅて、ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽPｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽI
KHE00221ｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽAPNｿｽﾍ配ｿｽｿｽﾉゑｿｽｿｽｿｽKｿｽvｿｽSｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽｿｽｿｽﾊな擾ｿｽｿｽｿｽｿｽﾍ省ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ！
ｿｽｿｽｿｽｿｽｿｽｿｽﾟゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽSｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽ繧ｰｿｽﾜゑｿｽｿｽB
PS.WindowsXPｿｽtｿｽｿｽｿｽﾌスｿｽpｿｽCｿｽ_ｿｽ¥ｿｽｿｽｿｽeｿｽBｿｽAｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。ｿｽﾅ擾ｿｽｿｽﾌカｿｽ[ｿｽhｿｽｿｽzｿｽ骼橸ｿｽ_ｿｽﾅ擾ｿｽｿｽｿｽｿｽﾌゑｿｽｿｽXｿｽsｿｽ[ｿｽhｿｽｿｽｿｽｿｽﾉ奇ｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽB
