Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Uwe Raabe,
24. Mai 2020
Du machst es einem Menschen mit Rot/Grün-Schwäche aber echt schwer...
... und doch zu kompliziert. Da du nur eine Größe für die Bilder hast, geht es auch einfacher:
procedure TForm1.LoadCustomImage(const Path, ImageName: string);
var
index: Integer;
fileName: string;
begin
fileName := ExtractFilePath(ParamStr(0)) + Path + '\' + ImageName + '.png';
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Uwe Raabe,
24. Mai 2020
Dann wäre es vielleicht mal Zeit für etwas Code um das nachzuvollziehen.
Ob die VirtualImageList sich per Index oder Name mit der ImageCollection verbindet, sollte im Rest des Programms eigentlich egal sein. Wichtig ist doch nur die Reihenfolge der Bilder innerhalb der VirtualImageList (aktuell zumindest noch).
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Uwe Raabe,
24. Mai 2020
Ein Add fügt halt immer an. Der übergebene Index ist ja auch der in der ImageCollection und nicht der in der VirtualImageList. Wie schon gesagt, wäre Insert der bessere Ansatz.
Ich bin mir auch nicht sicher, ob dir bewusst ist, daß eine TVirtualImageList auch eine Teilmenge der Bilder einer TImageCollection enthalten kann und die Reihenfolge beliebig ist. Daher gibt es auch die Möglichkeit,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Uwe Raabe,
24. Mai 2020
Na ja, es ist ja auch schon etwas komplex. Man fügt der VirtualImageList ja nicht ein bestimmtes Bild zu, sondern einen Eintrag (bzw. dessen Index oder Name) der ImageCollection. Dieser besteht dann wiederum aus mehreren Bildern, die zwar alle in etwa das gleiche darstellen, eben nur in verschiedenen Größen. Je nach Erfordernis (DPI) wird dann in der VirtualImageList die passende Größe ausgewählt...