[ aleksandarpopov @ 10.03.2006. 18:10 ] @
Pozdrav!
Ne mogu da skontam kako da iz koda, programski uklonim sliku tj. bitmap iz TImage kontrole npr. ucitam neki bitmap iz fajla i dodam ga u komponentu, zatim treba da uklonim taj bitmap tj. komponenta treba da je prazna dok joj ne ucitam drugi bitmap, ali ne znam kako, koji metod da koristim ...?
Hvala, pozdrav!
[ badam @ 10.03.2006. 19:52 ] @
Code:
  Image1.Picture.Bitmap.ReleaseHandle;
  Form1.repaint
[ delalt @ 10.03.2006. 20:26 ] @
Probaj i ovako:

Code:
Image1.Picture := nil;
[ aleksandarpopov @ 11.03.2006. 22:07 ] @
Hvala, razmisljao sam o postavljanju na nil, ali nisam bio siguran....
Ipak mislim da je prvo resenje bezbednije!
Hvala, poz!
[ delalt @ 12.03.2006. 08:55 ] @
Kod mene to prvo rješenje ne radi (koristim D2005).
Evo probaj ovaj kod, jedan i drugi način:
Code:
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if Image1.Picture.Bitmap.Empty  then
   begin
    Image1.Picture.LoadFromFile('c:\Proba\slika1.bmp');
   end else
    begin
   //  Image1.Picture := nil;
     Image1.Picture.Bitmap.ReleaseHandle;
     Form1.repaint;
    end;
end; 
[ aleksandarpopov @ 13.03.2006. 13:28 ] @
Uradio sam sa ReleaseHandle, radi....
Zaboravio sam da probam umesto, form repaint, da stavim image repaint, valda ce proci tako...
Hvala, pozdrav!
[ Rapaic Rajko @ 13.03.2006. 14:10 ] @
Pravo i sigurno resenje je postavljanje na nil. To zato sto je Picture u ovom slucaju property, pa se kroz set metodu vrsi provera na nil, pa ako jeste, oslobadja se postojeci bitmap (ili neka druga grafika). Sve ima u source-u, pa ko hoce da pogleda, taj ce i nadje...

Rajko


[Ovu poruku je menjao Rapaic Rajko dana 13.03.2006. u 15:12 GMT+1]
[ aleksandarpopov @ 14.03.2006. 21:21 ] @
Ok, hvala
Poz