Klika bitmap - tworzenie

0

Chciał bym stworzyć kilka bitmap (ilość określa zmienna "ile_bitmap")

var
bitmapa : TBitmap;
ile_bitmap,i : //hmm ale co tu dac :))) moze integer?
begin
i tui
end;

i aby je ustawić jedna koło drugiej
(ale pamiętajcie że TBitmap nie ma left :)))))
czyli bitmap[i].left := bitmap[i - 1].left + bitmap[i - 1].width; - coś w tym stylu :)))

Jeżeli ktoś wie o co mi chodzi i zna odp. na te pytanie to niech odpowie :))))))))))) {hello}

0

Sprobuj moze tak

[...]
const
Ile_Bmp = 10;
[...]
var
Bitmapy: array of TBitmap;
n: Integer;
[...]
SetLength(Bitmapy,IleBmp);
for n:=0 to Ile_Bmp-1 do
begin
Bitmapy[n]:=TBitmap.Create;
//tutaj parametry typu Width, Height itp
end;
[...]

pamietaj potem tylko o petli, ktora by zwolnila te bitmapy :) Co do ulozenia ich obok siebie, to naczym one maja lezec?
--sys:> logout....

0

Raczej na canvasie form8 :)))

0

Jezli zrobisz tak jak pisalem wyzej to do rysowania mozna by zastosowac tak petelke

var
I,X: Integer;
[...]
X:=0;
for I:=0 to Ile_Bmp-1 do
begin
if I&gt0 then X:=X+Bitmapy[I-1].Width;
Form1.Canvas.Draw(X,0,Bitmapy[I]);
end;

Do konca za kod nie odpowiadam, bo niesprawdzalem, ale wydaje mi sie ze bedzie OKiej. W zamian oczekuje zaproszenia na {browar} hehehe....

--sys:> logout....

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