|
ｿｽ@ｿｽｿｽSleepｿｽﾌ難ｿｽｿｽｿｽﾉつゑｿｽｿｽｿｽ
|
ｿｽ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
ｿｽ¥ｿｽmｿｽLｿｽl 2005/03/11(ｿｽｿｽ) 14:04:47
SleepｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽD
Image1.Canvas.Draw(0,0,BMP1);
sleep(500);
Image1.Canvas.Draw(0,0,BMP2);
sleep(500);
Image1.Canvas.Draw(0,0,BMP3);
ｿｽｿｽｿｽﾎらくｿｽﾒゑｿｽｿｽｿｽｿｽｿｽCｿｽﾈゑｿｽｿｽｿｽｿｽｿｽCｿｽｿｽBMP3ｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽD
ｿｽｿｽｿｽﾌ？ｿｽﾈゑｿｽｿｽCDelphiｿｽUｿｽ@personalｿｽﾅゑｿｽｿｽD
ｿｽﾉゑｿｽｿｽｿｽ 2005/03/11(ｿｽｿｽ) 14:21:53
Sleepｿｽﾌ各ｿｽsｿｽﾌ前ｿｽﾉ、
Application.ProcessMessages;
ｿｽｿｽｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽ¥ｿｽmｿｽLｿｽl 2005/03/11(ｿｽｿｽ) 15:18:46
ｿｽｿｽｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽD
ｿｽﾉゑｿｽｿｽﾌゑｿｽｿｽｿｽﾌアｿｽhｿｽoｿｽCｿｽXｿｽﾉ従ｿｽｿｽｿｽC
ｿｽﾈ会ｿｽｿｽﾌようｿｽﾉ修ｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽD
Image1.Canvas.Draw(0,0,BMP1);
Application.ProcessMessages;
sleep(500);
Image1.Canvas.Draw(0,0,BMP2);
Application.ProcessMessages;
sleep(500);
Image1.Canvas.Draw(0,0,BMP3);
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽﾈ前ｿｽﾆ変ゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾊとなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽD
ｿｽﾓゑｿｽｿｽｿｽｿｽｿｽｿｽ 2005/03/11(ｿｽｿｽ) 15:24:35
ｿｽｿｽｿｽｿｽｿｽｿｽ
Image1.Invalidate;
ｿｽｿｽｿｽｿｽｿｽﾄみてはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽH
ｿｽ¥ｿｽmｿｽLｿｽl 2005/03/11(ｿｽｿｽ) 17:49:21
ｿｽｿｽｿｽｿｽｿｽﾉとゑｿｽｿｽｿｽｿｽﾆ，ｿｽﾈ会ｿｽｿｽﾌようｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽD
Image1.Canvas.Draw(0,0,BMP1);
Image1.Invalidate;
sleep(500);
Image1.Canvas.Draw(0,0,BMP2);
Image1.Invalidate;
sleep(500);
Image1.Canvas.Draw(0,0,BMP3);
ｿｽcｿｽOｿｽﾈゑｿｽｿｽｿｽCｿｽｿｽｿｽﾊはゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽD
ｿｽﾓゑｿｽ 2005/03/11(ｿｽｿｽ) 18:01:45
Image1.Refresh;
ｿｽﾅは？
Syake 2005/03/11(ｿｽｿｽ) 18:12:37
Image1.Canvas.Draw(0,0,BMP1);
Image1.UpDate;
sleep(500);
Image1.Canvas.Draw(0,0,BMP2);
Application.ProcessMessages;
Image1.UpDate;
sleep(500);
Image1.Canvas.Draw(0,0,BMP3);
Image1.UpDate;
ｿｽﾈゑｿｽﾎ。
ｿｽﾓゑｿｽｿｽｿｽｿｽｿｽｿｽ 2005/03/11(ｿｽｿｽ) 18:12:55
> ｿｽcｿｽOｿｽﾈゑｿｽｿｽｿｽCｿｽｿｽｿｽﾊはゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽD
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽAｿｽﾓゑｿｽｿｽｿｽｿｽが擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽRefreshｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾉゑｿｽｿｽｿｽ 2005/03/11(ｿｽｿｽ) 18:14:48
BMP1,BMP2,BMP3ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽIｿｽ`ｿｽﾍなゑｿｽｿｽﾅゑｿｽｿｽｿｽﾋ＾ｿｽOｿｽG
Delphi7 Pro, WinXP Pro, Pentium4 3.0GHz, Memory 1GBｿｽﾅ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽA
ｿｽEApplication.ProcessMessages;ｿｽﾌ場合ｿｽAOK
ｿｽEImage1.Invalidate;ｿｽﾌ場合ｿｽANGｿｽiｿｽｿｽｿｽｿｽｿｽ轤ｭｿｽAWM_PAINTｿｽﾈどのｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽﾅ、Sleepｿｽｿｽｿｽﾉ趣ｿｽｿｽsｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽj
ｿｽEImage1.Refresh;ｿｽﾌ場合ｿｽAOK
ｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾉゑｿｽｿｽｿｽ 2005/03/11(ｿｽｿｽ) 18:18:10
ｿｽﾇ趣ｿｽｿｽｿｽｿｽB
Updateｿｽﾌ場合ｿｽAOKｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAImage1.Update;ｿｽﾍ、Parentｿｽﾉ対ゑｿｽｿｽｿｽUpdateｿｽｿｽｿｽｿｽﾌと難ｿｽｿｽｿｽｿｽﾅ、ｿｽﾅ終ｿｽIｿｽﾉゑｿｽFormｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽﾉ対ゑｿｽｿｽﾄ、UpdateWindowｿｽｿｽﾄび出ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾆ冗長ｿｽｿｽｿｽﾆ。
ｿｽﾓゑｿｽｿｽｿｽｿｽｿｽｿｽ 2005/03/11(ｿｽｿｽ) 18:18:27
ｿｽｿｽｿｽﾌ環具ｿｽｿｽﾅゑｿｽRefreshｿｽｿｽUpdateｿｽｿｽOKｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ場合ｿｽﾍどゑｿｽｿｽｿｽﾅゑｿｽ謔ｳｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
Syake 2005/03/11(ｿｽｿｽ) 18:18:39
ｿｽｿｽｿｽｿｽｿｽB
Application.ProcessMessages;
ｿｽｿｽｿｽﾊ目なゑｿｽAUpDateｿｽｿｽﾊ目ゑｿｽｿｽﾈ。(^_^;)
ｿｽ¥ｿｽmｿｽLｿｽl 2005/03/11(ｿｽｿｽ) 18:46:56
ｿｽﾝなゑｿｽｿｽｿｽCｿｽｿｽｿｽいｿｽｿｽﾈ回答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽD
RefreshｿｽCUpdateｿｽｿｽｿｽﾉ趣ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽﾟでゑｿｽｿｽｿｽｿｽD
> BMP1,BMP2,BMP3ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽIｿｽ`ｿｽﾍなゑｿｽｿｽﾅゑｿｽｿｽｿｽﾋ＾ｿｽOｿｽG
ｿｽｿｽｿｽｿｽﾍ，ｿｽｿｽﾔ最擾ｿｽｿｽﾉチｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽﾌで托ｿｽｿｽvｿｽﾅゑｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾌ托ｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾅミｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽD
ｿｽﾈ会ｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾌ全ｿｽｿｽｿｽﾅゑｿｽｿｽD
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Forms, ExtCtrls, Controls;
type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private ｿｽ骭ｾ }
public
{ Public ｿｽ骭ｾ }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
BMP1,BMP2,BMP3 : TBitmap;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.DoubleBuffered:=true;
BMP1:=TBitmap.Create;
BMP2:=TBitmap.Create;
BMP3:=TBitmap.Create;
BMP1.LoadFromFile('bmp01.bmp');
BMP2.LoadFromFile('bmp02.bmp');
BMP3.LoadFromFile('bmp03.bmp');
Image1.Canvas.Draw(0,0,BMP1);
Image1.Refresh;
sleep(500);
Image1.Canvas.Draw(0,0,BMP2);
Image1.Refresh;
sleep(500);
Image1.Canvas.Draw(0,0,BMP3);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
BMP1.Free;
BMP2.Free;
BMP3.Free;
end;
end.
ｿｽﾓゑｿｽｿｽｿｽｿｽｿｽｿｽ 2005/03/11(ｿｽｿｽ) 19:03:47
OnCreateｿｽﾉ擾ｿｽｿｽｿｽｿｽﾌはまゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
OnCreateｿｽﾌ趣ｿｽｿｽ_ｿｽﾅはフｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽ{ｿｽ^ｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽﾈどで趣ｿｽｿｽｿｽｿｽｿｽﾄはどゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽ¥ｿｽmｿｽLｿｽl 2005/03/11(ｿｽｿｽ) 19:22:48
ｿｽﾓゑｿｽｿｽｿｽｿｽｿｽさゑｿｽCｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽD
ｿｽAｿｽhｿｽoｿｽCｿｽXｿｽﾊゑｿｽﾉゑｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽ無ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽD
> OnCreateｿｽﾉ擾ｿｽｿｽｿｽｿｽﾌはまゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
> OnCreateｿｽﾌ趣ｿｽｿｽ_ｿｽﾅはフｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽB
delphiｿｽｿｽnｿｽﾟゑｿｽｿｽﾎゑｿｽｿｽｿｽﾆはゑｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ
ｿｽSｿｽRｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽD
ｿｽ答ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝなゑｿｽｿｽｿｽCｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽD
Mr.XRAY 2005/03/11(ｿｽｿｽ) 19:33:58
ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽCｿｽﾂゑｿｽｿｽﾅゑｿｽ...
ｿｽｿｽﾊゑｿｽCanvasｿｽﾖの描ｿｽｿｽﾍ重ｿｽﾋ描ｿｽｿｽﾌ趣ｿｽｿｽﾉ使ｿｽpｿｽｿｽｿｽﾜゑｿｽｿｽD
ｿｽﾜゑｿｽｿｽCｿｽPｿｽｿｽﾌ画像ｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽ骼橸ｿｽﾍ，Pictureｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽD
ｿｽｿｽｿｽｿｽﾌ目的ｿｽｿｽｿｽﾇゑｿｽｿｽ轤ｩｿｽﾍわかｿｽｿｽﾜんが，ｿｽ痰ｦｿｽﾎ以会ｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽC
ｿｽTｿｽCｿｽYｿｽﾌ違うｿｽrｿｽbｿｽgｿｽ}ｿｽbｿｽvｿｽﾅ難ｿｽｿｽさｿｽｿｽｿｽﾄみゑｿｽﾆ違いｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽD
(ｿｽﾅゑｿｽｿｽｿｽｿｽBMP01ｿｽｿｽｿｽﾔサｿｽCｿｽYｿｽﾌ大きｿｽｿｽｿｽｿｽﾌにゑｿｽｿｽｿｽﾆ，ｿｽﾈゑｿｽBetter)
// ｿｽPｿｽｿｽﾌ画像ｿｽﾌ表ｿｽｿｽｿｽﾈゑｿｽ
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Assign(BMP1);
Image1.Refresh;
sleep(500);
Image1.Picture.Assign(BMP2);
Image1.Refresh;
sleep(500);
Image1.Picture.Assign(BMP3);
Image1.Refresh;
end;
// Canvasｿｽﾍ重ｿｽﾋ擾ｿｽｿｽｿｽｿｽｿｽ
procedure TForm1.Button2Click(Sender: TObject);
begin
if Image1.Picture.Graphic<>nil then Image1.Picture.Graphic:=nil;
Image1.SetBounds(0,0,ClientWidth,ClientHeight);
Image1.Canvas.Draw(0,0,BMP1);
Image1.Refresh;
sleep(500);
Image1.Canvas.Draw(0,0,BMP2);
Image1.Refresh;
sleep(500);
Image1.Canvas.Draw(0,0,BMP3);
Image1.Canvas.Font.Size:=20;
Image1.Canvas.TextOut(10,10,'ｿｽeｿｽXｿｽg');
end;
