Zitat von
Medium:
Der OpenPictureDialog war ein guter Ort um genau hinzuschauen. Dort wird die Funktion GraphicFilter() der
Unit Graphics verwendet, und diese wiederum nutzt dies:
function GetFileFormats: TFileFormatsList;
Und dort bekommst du dann eine Referenz auf die Liste in der Graphics-
Unit.
Drivel, eben diese Funktion ist privat, Du kannst sie von außerhalb der
Unit nicht aufrufen.
Die einzige Möglichkeit wäre diesen Filtersting zu parsen, wenn ich bedenke, dass die Extensions ordentlich in einer Liste vorhanden sind, sträuben sich mir allerdings die Haare. Da haben die Damen und Herren aus dem Hause Borland, CodeGear, Embarcadigenskirchen, oder wo Delphi demnächst (wenn überhaupt noch) hergestellt wird, mal wieder ganze Arbeit geleistet.
Noch ein Tipp: Kopiere die Datei Graphics.pas, füge dem Interface-Abschnitt die Forward-Deklaration für GetFileFormats hinzu und füge diese geänderte Datei Deinem Projekt hinzu.