Zawsze kiedy wstawiam na forme Image1 wiem ,że zmarnuje sporo czasu.........
Ten kłopotliwy problem pomijają wszystkie publikacje o Delphi jakie posiadam
a jest to zjawisko z jakim spotykamy się gdy trzeba coś szybko i sprawnie
zrobić w grafice.
Przykład:
-na Form kładziemy Image1 oraz ImageList1 i Button
-do ImageList wczytujemy jeden prosty plik BMP
-pod Button umieszczamy przenoszenie grafiki z zastosowaniem funkcji transparent.
Odpalamy i .............. oczywiście transparent nie działa a Image1 zmieniło tło na białe?
Czy ktoś znalazł na to proste rozwiązanie?
Może coś przegapiłem w tym skomplikowanym kodzie:
procedure TForm1.Button1Click(Sender: TObject);
begin
ImageList1.Draw(Image1.Canvas,0,0,0,True);
Image1.Transparent:=True;
Image1.Refresh;
end;