rysowanie wielu bitmap w jednym TImage w ScrollBox(Delphi 7)

0

Witam,

Chciałbym narysować w ScrollBox dwie bitmapy (TImage) obok siebie. próbowałem z następującym kodem:

procedure TForm1.FormCreate(Sender: TObject);

begin

Image1.Left := 0;
Image1.Top := 0;
Image1.Picture.LoadFromFile('obrazek1.bmp'); 
Image1.Left := 255;
Image1.Top := 0;
Image1.Picture.LoadFromFile('obrazek2.bmp'); 
end;

ale jedyne co mi wyświetla to obrazek2, przesunięty. Co robię nie tak?.

Pozdrowienia.

0

Na ten sam Image ładujesz jeden obrazek i zaraz potem drugi? Który obrazek ostatecznie zobaczysz?

0

No właśnie. A w jaki sposób mógłbym dodać drugi obrazek zachowując pierwszy?. Wszystko się dzieje w ScrollBox.
Czy muszę wykorzystać jakąś metodę lub własność ScrollBox?.

0
var bmp:TBitmap;
//...
  bmp:=TBitmap.Create;
  bmp.LoadFromFile('obrazek1.bmp'); 
  Image1.Canvas.Draw(0,0,bmp);
  bmp.LoadFromFile('obrazek2.bmp'); 
  Image1.Canvas.Draw(255,0,bmp);
  bmp.Free;
//oczywiście Image1 musi posiadać odpowiednie wymiary

Albo dla każdego obrazka zastosować osobne Image.

0

Dzięki, o to mi właśnie chodziło.

1 użytkowników online, w tym zalogowanych: 0, gości: 1