logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

DELPHI: Jak wyświetlić ikone w TImage pobraną z TImageList ?

al555 04 Lip 2005 18:59 2036 2
REKLAMA
  • #1 1628734
    al555
    Poziom 20  
    Posty: 485
    Pomógł: 32
    Ocena: 8
    Czy można wyświetlić ikone w TImage pobraną z TImageList ? Wiem że można pobrac z pliku ale jak to zrobić z TImageList ??

    Będę wdzięczny za pomoc !
  • REKLAMA
  • Pomocny post
    #2 1628835
    one_eddie
    Poziom 25  
    Posty: 973
    Pomógł: 62
    Ocena: 14
    Jesli dobrze pamietam TImageList posiada metode: GetBitmap( pozycja, bitmapa); no i zaloze sie (tez nei pamietam dokladnie) ze TImage posiada metode SetImage

    // edit: dokladnie mozna zrobic to tak (wybacz jesli beda bledy nie jestem specialista od delphi)

    Var image : TImage;
        imgList : TImageList;
        bmp : TBitmap;
    Begin
      imgList.GetBitmap( 1, bmp );
      image.Picture.Bitmap := bmp;
    
      { lub odrazu tak }
      imgList.GetBitmap( 1, image.Picture.Bitmap );
    End;
  • #3 1635791
    al555
    Poziom 20  
    Posty: 485
    Pomógł: 32
    Ocena: 8
    Jeszcze raz dzięki one_eddie za pomoc.

    Wszystko już działa ale chciałem się podzielić jedną uwagą gdyby ktoś tutaj w przyszłości szukał pomocy...

    Jeśli dynamicznie ( w programie ) zmieniasz obrazek w obiekcie TImage pobierając go z TImageList to przed kolejnym użyciem kodu który podał one_eddie należy wyczyścić obiekt TImage.



    
    Image2.Picture := nil;
    


    Jeśli tego nie zrobimy to w zalezności jakie będą obrazki albo nie będziemy widzieć zmian, albo obrazki będą nam się paskudnie nakładać.

    Straciłem na ten drobiazg prawie cały dzień, więc może komuś pomoge. A podpowiedź zanalazłem na
    http://forum.ks-ekspert.pl/lofiversion/index.php?t48331.html.

    Myśle że komuś to pomoże - a może nawet mi, jakbym sobie zapmniał w przyszłości !!

    Pozdrawiam...
    ____

    Kilka słów kluczowych dla wyszukiwarek: Delphi TImage TImageList Refresh Repaint free nil
REKLAMA