Obrazki na tło

0

Robię sobie tło na formie w sposób następujący :

Form1.Canvas.Draw(0, 0, Tlo);

Dałem to w OnPaint, żeby odrysowywało tło po tym, jak forma zostanie zakryta przez inną formę, a potem odkryta - gdyby tego nie było, to zostawałaby dzira w tle. Tlo jak wiadomo, jest typu TBitmap, i musi zostać w pamięci, żeby można było je odrysowywać w OnPaint. Takie rozwiązanie zabiera mnóstwo pamięci, więc teraz mam pytanie :

Jak zrobić, żeby rysować na canvasie JPEGa, lub w jakiś inny sposób zmniejszyć rozmiar zajmowanej przez grafikę pamięci?

0

Nie lepiej TImage z JPEGiem?

0

Nie lepiej TImage z JPEGiem?

Nie lepiej ;)

uses Jpeg;
var 
  jotpeg : TJpegImage;
  bitmapa : TBitmap;
:
:
bitmapa := TBitmap.Create;
jotpeg := TJpegImage.Create;
jotpeg.ŁadujZDysku(plik);

bitmapa.Assign(jotpeg);
kanwas.rysuj(bitmapa);

bitmapa.free; // ŁF
jotpeg.free;  // ŁF
// oczywiście.. :) u.A.
 

Pozdrawiam!

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