|
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊ置ｿｽｿｽｿｽｿｽﾟるたｿｽﾟ画像ｿｽｿｽﾌマｿｽEｿｽXｿｽJｿｽ[ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾉゑｿｽ
|
ｿｽ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/15(ｿｽｿｽ) 13:58:08
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽﾂ具ｿｽｿｽｿｽWindows XP Delphi 6 PersonalｿｽﾅゑｿｽｿｽB
ｿｽ鞫懶ｿｽ分奇ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽ鞫懶ｿｽﾌ包ｿｽｿｽｿｽｿｽﾊ置ｿｽｿｽｿｽｿｽﾟるたｿｽﾟのカｿｽ[ｿｽ¥ｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽﾌ表ｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽか。
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽScrollBoxｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾌ擾ｿｽｿｽImageｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽﾄ、
Form2.SetViewForm(BMPｿｽ鞫懶ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌフｿｽｿｽｿｽpｿｽXｿｽﾆフｿｽ@ｿｽCｿｽｿｽｿｽｿｽ);
Form2.ShowModalｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ}ｿｽEｿｽXｿｽﾌ移難ｿｽｿｽﾉつゑｿｽｿｽﾄゑｿｽｿｽｿｽcｿｽｿｽｿｽAｿｽﾜゑｿｽｿｽﾍ会ｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ}ｿｽEｿｽXｿｽﾌ厄ｿｽｿｽｿｽcｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾉ変ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ。
ｿｽﾚ的ｿｽﾍ縦ｿｽｿｽｿｽ¥ｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽﾄ画像ｿｽﾌ擾ｿｽﾅ包ｿｽｿｽｿｽｿｽﾊ置ｿｽｿｽｿｽｿｽﾟゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽﾌようｿｽﾉゑｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾅは、ｿｽｿｽﾊにｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽJｿｽNｿｽJｿｽNｿｽﾆ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
procedure TForm2.imgViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Xa:=Trunc(X); Ya:=Trunc(X);
VerticalLine(Xa,Ya);
end;
//ｿｽcｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
procedure TFormｿｽQ.VerticalLine(XX,YY:integer);
begin
imgView.Canvas.MoveTo(XX, 0);
imgView.Canvas.LineTo(XX, ｿｽｿｽｿｽｿｽ);
end;
ｿｽQｿｽlｿｽﾆゑｿｽｿｽﾄ「ｿｽ謨ｶｿｽ文ｿｽvｿｽ@http://www.vector.co.jp/soft/dl/win95/net/se119753.html
ｿｽﾌｿｽｿｽCｿｽｿｽｿｽJｿｽ[ｿｽ¥ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2006/08/15(ｿｽｿｽ) 22:12:41
ｿｽｿｽｿｽﾌ１ｿｽFBevelｿｽｿｽgｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ２ｿｽFPen.Modeｿｽｿｽ pmXORｿｽﾉ。
deldel 2006/08/16(ｿｽｿｽ) 11:12:53
Bevel1ｿｽﾍ会ｿｽｿｽｿｽｿｽABevel2ｿｽﾍ縦ｿｽｿｽｿｽﾌ形ｿｽﾉゑｿｽｿｽﾄ・ｿｽEｿｽE
procedure TForm1.FormCreate(Sender: TObject);
begin
Bevel1.Enabled := False;
Bevel2.Enabled := False;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Bevel1.Top := Image1.Top + Y;
Bevel2.Left := Image1.Left + X;
end;
ｿｽｿｽｿｽc 2006/08/17(ｿｽｿｽ) 13:33:14
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽ‾ｿｽAｿｽﾈでゑｿｽｿｽ轤ｪｿｽxｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾟて画像ｿｽｿｽｿｽｿｽｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾉ抵ｿｽｿｽしｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽIｿｽﾈ包ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽ{ｿｽｿｽｿｽｿｽｿｽかｿｽｿｽﾈゑｿｽｿｽｿｽｿｽxｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽｿｽﾆゑｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌキｿｽ[ｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾌで、ｿｽQｿｽlｿｽｿｽｿｽｿｽｿｽﾈど集ｿｽﾟて、ｿｽｿｽｿｽｿｽｿｽxｿｽ[ｿｽXｿｽﾉゑｿｽｿｽﾎゑｿｽｿｽﾗ具ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽﾜゑｿｽｿｽかｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽﾍ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽSｿｽｿｽｿｽﾌ厄ｿｽ 2006/08/17(ｿｽｿｽ) 15:18:11
> ｿｽQｿｽlｿｽﾆゑｿｽｿｽﾄ「ｿｽ謨ｶｿｽ文ｿｽvｿｽ@http://www.vector.co.jp/soft/dl/win95/net/se119753.html
ｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽcｿｽﾅゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽuｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽACPUｿｽgｿｽpｿｽｿｽ100%ｿｽﾉなゑｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾆ不ｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽｿｽｿｽ^ｿｽCｿｽ}ｿｽ[0.01ｿｽbｿｽPｿｽｿｽ(ｿｽｿｽｿｽｿｽｿｽﾍ適ｿｽｿｽ)ｿｽﾅ、ｿｽ}ｿｽEｿｽXｿｽJｿｽ[ｿｽ¥ｿｽｿｽｿｽﾊ置ｿｽEｿｽｿｽｿｽﾄ描ｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽだろうｿｽｿｽｿｽH
ｿｽｿｽｿｽﾄ本ｿｽｿｽ
BevelｿｽｿｽｿｽｿｽﾈゑｿｽｿｽAShapeｿｽｿｽgｿｽｿｽｿｽｿｽ
procedure TForm1.FormCreate(Sender: TObject);
begin
Shape1.Top := 0;
Shape1.Height := Image1.Height;
Shape1.Width := 1;
Shape2.Left := 0;
Shape2.Height := 1;
Shape2.Width := Image1.Width;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Shape1.Left := X;
Shape2.Top := Y;
end;
ｿｽｿｽｿｽXｿｽAｿｽJｿｽNｿｽJｿｽNｿｽｿｽｿｽｿｽｿｽ痰､ｿｽiｿｽﾎ）
ｿｽｿｽﾉゑｿｽ 2006/08/18(ｿｽｿｽ) 00:42:48
ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ¥ｿｽﾈ単ｿｽｿｽｿｽｿｽｿｽﾉ鯉ｿｽｿｽｿｽｿｽﾄ意外ｿｽﾆ難しｿｽｿｽｿｽﾅゑｿｽｿｽｿｽB
ｿｽﾄなわけｿｽﾅ趣ｿｽｿｽvｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽ閧ｻｿｽｿｽｿｽﾈのでコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽrｿｽbｿｽgｿｽ}ｿｽbｿｽvｿｽｿｽpｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽ{ｿｽbｿｽNｿｽXｿｽiｿｽｿｽｿｽﾜゑｿｽｿｽ@ｿｽ¥ｿｽtｿｽｿｽｿｽj
http://hp.vector.co.jp/authors/VA015390/delphi/ScrollBMPBox001.zip
ｿｽｿｽｿｽc 2006/08/19(ｿｽy) 13:43:48
ｿｽSｿｽｿｽｿｽﾌ厄ｿｽ ｿｽAｿｽｿｽﾉゃさｿｽｿｽAｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽqｿｽｿｽｿｽgｿｽﾍなゑｿｽｿｽｿｽｿｽﾆ本ｿｽｿｽｿｽfｿｽｿｽｿｽﾂゑｿｽKｿｽ竄ｵｿｽｿｽｿｽ轤ｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽﾇ会ｿｽｿｽﾔ趣ｿｽｿｽ発鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾜ、ｿｽKｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾓ外ｿｽﾆ難しｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽﾚは、ｿｽﾄ用ｿｽｿｽｿｽ[ｿｽ`ｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽQｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽSｿｽｿｽｿｽﾌ厄ｿｽｿｽｿｽｿｽｿｽ
ｿｽﾈゑｿｽﾙど、ｿｽｿｽｿｽﾌ暦ｿｽﾍ１ｿｽOｿｽOｿｽｿｽｿｽﾌＣｿｽoｿｽtｿｽgｿｽpｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。ｿｽCｿｽﾃゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾙ擾ｿｽﾆゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽﾋ。ｿｽｿｽｿｽ黷ｾｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽB
ｿｽｿｽﾉゃさｿｽｿｽ@ｿｽｿｽｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
