Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by amigage,
1. Mär 2019
Du hast Recht, es funktioniert :thumb:
Also, erst die ImageList transparent setzen lassen und dann ganz normal die Listview füllen.
Jetzt habe ich es verstanden. Sorry, wenn ich dich aufgrund meiner Unwissenheit genervt haben sollte :wink:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by amigage,
1. Mär 2019
Hallo und danke für den Quellcode.
Leider hilft mir das nicht 100%ig weiter. Wie oben beschrieben, benötige ich die Grafiken in einem Listview, der die Images über den ImageIndex steuert.
In Deinem Beispiel, wird der Inhalt der ImageList in eine BMP und PNG Datei gespeichert, wobei letztere dann in ein TImage geladen wird.
Erstens, wäre die Lösung über einen MemoryStream eleganter, aber...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by amigage,
28. Feb 2019
Sorry @EWeiss. Deinen Sourcecode habe ich nicht wirklich wahrgenommen.
Den werde ich mir natürlich einmal anschauen, denn genau das möchte ich, dass die Grafiken in der Imagelist zur Laufzeit transparent gesetzt werden.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by amigage,
28. Feb 2019
Muss ich aber, weil ich die die Grafiken eigentlich in einem Listview verwenden will. Das mit dem Button war erst einmal ein Test, die Grafiken generell transparent zu bekommen.
Mein eigentliches Anliegen ist folgendes:
Der Anwender soll als "Customizing" im Programm seine eigenen Symbole auswählen können, die in einem Listview als grafische Unterstützung einer Ordnerstruktur angezeigt werden...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by amigage,
27. Feb 2019
Wo meinst Du?
TImageList hat keine solche Methode.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by amigage,
27. Feb 2019
ImageList1.DrawingStyle ist auf dsTransparent gesetzt.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by amigage,
27. Feb 2019
Hallo,
ich bin am Verzweifeln und habe schon einige Stunden im Netz recherchiert, aber keine wirkliche Lösung gefunden, die mein simples Problem löst.
Ich habe eine TImageList, die mit transparenten Bitmaps gefüllt ist. Nun möchte ich ein TImage mit einem Bitmap aus der Imagelist transparent füllen.
procedure TForm1.Button2Click(Sender: TObject);
var
IconData : TBitmap;
TransColor...