Jak wyświetlić kilka bitmap na jedym komponencie image tak abym mógł wybrać miejdce w chcę ustawić te bitmapy(jak wyświetlić kilka bitmap obok siebie)?
0
0
Poczytaj o Canvas, a konkretnie o [code]CopyRect [/code] i podobnych
0
Cześć :-)
Coś mi na noc lepiej główka pracuje więc gratisowo skleciłem
ten kodzik (sprawdzałem)
var
kl :Integer;
Procedure TForm1.Button1Click(Sender: TObject);
var
tmpImage :TImage; //tymczasowa zmienna komponentu TImage
Begin
tmpImage:=TImage.Create(nil); //kreuje tymczasową zmienną
tmpImage.AutoSize:=true; //ustawia opcję dopasowania rozmiaru ...
//...do obrazka
try
tmpImage.Picture.LoadFromFile('1.bmp'); //wczytuje obrazek z pliku
except
tmpImage.Free; //zwalnia tymczasową zmienną
Exit;
end;
//tu rysujesz bitmapkę w konkretnej pozycji...
Image1.Canvas.Draw(kl,0,tmpImage.Picture.Graphic);
kl:=kl+ tmpImage.Width; //dodanie pozycji o szerokość bitmapki
tmpImage.Free; //zwalnia tymczasową zmienną
End;
{
PS. Nie zapomnij o rozmiarze TImage1 umieszczonym na formie.
Albo od razu zrób go wielgachnym :-)
albo powiększaj go wraz z zawartością przybywających bitmapek
}