질문 : stretchblt함수를 사용하여, 점차적으로 커지거나 작아지는 그림을

표현하였는데, 이상하게 노트북 이나 어느 특정 컴퓨터에서는 너무 늦게 작동이

됩니다. 제 생각으로는 팔레트 쪽의 어떤 명령이나, stretchblt함수의 작동을

지정해주는 명령이 있을것 같은데, 조언 바랍니다.



- 구현한 소스 -



procedure TForm1.BitBtn1Click(Sender: TObject);

var

i, j : integer;

x1, y1, x2, y2 : integer;

begin

for i := 1 to 500 do

begin

x1 := 0;

y1 := 0;

x2 := i;

y2 := i;

stretchblt(image2.canvas.handle, x1, y1, x2, y2, image1.canvas.handle, 0, 0, image1.width, image1.height, SRCCOPY);

image2.Refresh;

for j := 0 to 10 do application.ProcessMessages;

end;

showmessage('End...!');

end;