Czy wie ktoś jak umieścić na formie bitmapę?
Chodzi mi o to że bitmapa jest o wiele mniejsza od formy i chcę aby pokryła formę w sposób jedna bitmapa obok drugiej aż pokryje całą formę.
Za pomocą komponentu Image mogę tylko rozciągnąć bitmapę do szerokosci i wysokosci formy a mi nie o to chodzi.
[stuk]
Zobacz do program files\common files\borland shared, powinno tam byś kilka przykładów, m.in właśnie z tym, o co Ci chodzi. [cya]
PS. Mogę się mylić, bo nie mam przy sobie Delphi :-( .
procedure TMainForm.FormPaint(Sender: TObject);
var
Bitmap : TBitmap;
I, J: Integer
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('C:\bmp.bmp');
for I := 0 to Width div Bitmap.Width do
begin
for J := 0 to Height div Bitmap.Height do
Canvas.Draw(i * Bitmap.Width, J * Bitmap.Height, Bitmap);
end;
Bitmap.Free;
end;
Dzięki Rene. Działa
A anonimowi dziękuję ale chyba nie umiałem znaleźć
[browar]
dla mnei za duzo kodu :P
lol : tbitmap;
begin
lol := tbitmapcreate;
lol.autosize := true; //jezeli naprawde istnieje bo nie pamiteam czy mozna w bitmap
lol.loadfromfile('plik.bmp');
formx.canvas := lol.canvas; :)
//lub
form.canvas.copyrect( i takie tam parametry
i o co chodzi?
No niestety ale wyskakuje mi błąd właśnie w tym miejscu:
lol.autosize := true;
O ile dobrze zrozumiałem zamiast tego wpisu mogłem umieścić ten drugi:
form.canvas.copyrect( i takie tam parametry
ale nie wiem jakie to parametry by miały być?
Aha a ten błąd to mówi mi że nie zna polecenia Autosize
spróbuj z komponentem coolform
Właśnie chodzi o to żeby nie używać niestandardowych komponentów.
Dzięki wszystki za odzew, Zostanę przy odpowiedzi kolegi Rene która działa.
Myślałem tylko że skoro można mniej kodu wpisać to sprubuję ale niestety nic z tego.
Niemniej kod z posu kolegi Rene działa i polecam go wszystkim którzy coś takiego chcą zrobić.
[cya]