18.11.2006, 11:59
|
|
Местный
|
|
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
|
|
Примерно так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
bm: TBitmap;
p: PPoint;
l: TList;
i, j: integer;
begin
bm := TBitmap.Create;
bm.LoadFromFile( 'c:\windows\пузыри.bmp' );
l := TList.Create;
for i := 0 to bm.Width do
for j := 0 to bm.Height do
begin
New( p );
p^.X := i;
p^.Y := j;
l.Add( p );
end;
Randomize;
while l.Count > 0 do
begin
i := Random( l.Count );
p := l[i];
Form1.Canvas.Pixels[p^.X,p^.Y] := bm.Canvas.Pixels[p^.X,p^.Y];
l.Delete( i );
Application.ProcessMessages;
Sleep( 1 );
Caption := IntToStr( l.Count );
end;
l.Free;
bm.FreeImage;
end;
|