Ĺadny brzuch
Miałem TImage i Picture ładowany z TDXImageList(wiem że błąd bo to aplikacja niegraficzna) dlatego zmieniłem TDXImageList na TImageList. Do TImage miałem doczepiony onclick i teraz jak podbieram BitMape z TImageList to niechce wywoływać onclick TImag'a.
Dlaczego tak jest i jak to zmienić?
//Mała literówka :)
////Pomyłka - jak klikne to wywołuje onclick tylko nie zmienia Picture, w onclick jest napisane że ma zmienić obrazek(jeżeli był 1 to na 2, a jeżeli był 2 to na 1). I nie zmienia tego obrazka. Prubowałem Picture.Free, ale dziwny błąd mi się pokazuje.
"Priviled instruction" :unsure: i program się nie uruchamia :(
Użytkownik mariuszlorenc edytował ten post 16 czerwiec 2005, 09:01
napisales dosyc chaotycznie, postaraj sie nieco sprecyzowac
Mam IImage i TImageList. Do TImageList załadowałem dwie bitmapy. W TImage.onclick dodałem że jeżeli jest wyświetlona botmapa nr1 to ma wyświetlić bitmape nr2 i na odwrót. Jednak jak pobieram bitmape z TImageList to przy onclick mi nie zmienia bitmapy, ale funkcja onclick jest wywoływana. Dlaczego tak jest? Prubowałem dodać TImage.Picture.Free, ale mi wyskakuje dziwny błąd i program się nie uruchamia(przy TForm1.OnShow jest też wywołływana funkcja TImage.onclick).
pokaż kod, a nie coś tam ściemniasz ;)
procedure TFORMA.C_REPEATClick(Sender: TObject); begin if KOLO = False then begin FORMA.C_REPEAT.Picture.Free;//TO POWODUJE BŁĄD FORMA.ImageList.GetBitmap(3,FORMA.C_REPEAT.Picture.Bitmap); KOLO := True; end else begin FORMA.C_REPEAT.Picture.Free;//TO POWODUJE BŁĄD FORMA.ImageList.GetBitmap(2,FORMA.C_REPEAT.Picture.Bitmap); KOLO := False; end; end;
Zaznaczyłem co robi błąd. Bez tych funkcji nie zmienia Picture w TImage(z nimi też :P ).W reszcie kodu jest to tylko wywoływane :)
1. usun to free
2. moze laduj do bitmapy tymaczoswej moze pomoze?
daj zamiast FORMA.C_REPEAT.Picture.Free;
FORMA.C_REPEAT.Picture := nil;
Bełdzio - Chylę czoła :) Problem rozwiązany.
tylko, żebyś o podłogę nie zachaczył ;) he he 2 dzień bez kompilatora, a jeszcze mózg pracuje ;)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Dlaczego tak jest i jak to zmienić?
//Mała literówka :)
////Pomyłka - jak klikne to wywołuje onclick tylko nie zmienia Picture, w onclick jest napisane że ma zmienić obrazek(jeżeli był 1 to na 2, a jeżeli był 2 to na 1). I nie zmienia tego obrazka. Prubowałem Picture.Free, ale dziwny błąd mi się pokazuje.
"Priviled instruction" :unsure: i program się nie uruchamia :(
Użytkownik mariuszlorenc edytował ten post 16 czerwiec 2005, 09:01
napisales dosyc chaotycznie, postaraj sie nieco sprecyzowac
Mam IImage i TImageList. Do TImageList załadowałem dwie bitmapy. W TImage.onclick dodałem że jeżeli jest wyświetlona botmapa nr1 to ma wyświetlić bitmape nr2 i na odwrót. Jednak jak pobieram bitmape z TImageList to przy onclick mi nie zmienia bitmapy, ale funkcja onclick jest wywoływana. Dlaczego tak jest? Prubowałem dodać TImage.Picture.Free, ale mi wyskakuje dziwny błąd i program się nie uruchamia(przy TForm1.OnShow jest też wywołływana funkcja TImage.onclick).
pokaż kod, a nie coś tam ściemniasz ;)
procedure TFORMA.C_REPEATClick(Sender: TObject); begin if KOLO = False then begin FORMA.C_REPEAT.Picture.Free;//TO POWODUJE BŁĄD FORMA.ImageList.GetBitmap(3,FORMA.C_REPEAT.Picture.Bitmap); KOLO := True; end else begin FORMA.C_REPEAT.Picture.Free;//TO POWODUJE BŁĄD FORMA.ImageList.GetBitmap(2,FORMA.C_REPEAT.Picture.Bitmap); KOLO := False; end; end;
Zaznaczyłem co robi błąd. Bez tych funkcji nie zmienia Picture w TImage(z nimi też :P ).W reszcie kodu jest to tylko wywoływane :)
1. usun to free
2. moze laduj do bitmapy tymaczoswej moze pomoze?
daj zamiast FORMA.C_REPEAT.Picture.Free;
FORMA.C_REPEAT.Picture := nil;
Bełdzio - Chylę czoła :) Problem rozwiązany.
tylko, żebyś o podłogę nie zachaczył ;) he he 2 dzień bez kompilatora, a jeszcze mózg pracuje ;)