SCAR Code:
Procedure OnTimer2(Sender: TObject);
var
i: integer;
Images: Array [0..3] Of TImage;
b2, w2, h2: Integer;
begin
For I := 0 To 1 Do
Begin
Images[I] := TImage.Create(FrmDesign);
Images[I].Parent := FrmDesign;
Case I Of
0: Begin
Images[I].Width := 128;
Images[I].Height := 128;
Images[I].Left := 515;
Images[I].Top := 210;
b2 := loadbitmap(AppPath + 'portal1.bmp');
getbitmapsize(b2, w2, h2);
copycanvas(getbitmapcanvas(b2), Images[I].canvas, 0, 0, w2,
h2, 0, 0, w2, h2);
End;
1: Begin
Images[I].Width := 128;
Images[I].Height := 128;
Images[I].Left := 515;
Images[I].Top := 210;
b2 := loadbitmap(AppPath + 'portal3.bmp');
getbitmapsize(b2, w2, h2);
copycanvas(getbitmapcanvas(b2), Images[I].canvas, 0, 0, w2,
h2, 0, 0, w2, h2);
End;
2: Begin
Images[I].Width := 128;
Images[I].Height := 128;
Images[I].Left := 515;
Images[I].Top := 210;
b2 := loadbitmap(AppPath + 'portal6.bmp');
getbitmapsize(b2, w2, h2);
copycanvas(getbitmapcanvas(b2), Images[I].canvas, 0, 0, w2,
h2, 0, 0, w2, h2);
End;
3: Begin
Images[I].Width := 128;
Images[I].Height := 128;
Images[I].Left := 515;
Images[I].Top := 210;
b2 := loadbitmap(AppPath + 'portal7.bmp');
getbitmapsize(b2, w2, h2);
copycanvas(getbitmapcanvas(b2), Images[I].canvas, 0, 0, w2,
h2, 0, 0, w2, h2);
I:=0;
end;
end;
end;
end;