Hallo!

Ich möchte ein Icon in die Zwischenablage kopieren, mit Clipboard.Assign(aIcon); funktioniert das aber nicht. Ich kann das Icon natürlich zuvor in ein Bitmap konvertieren und dieses der Zwischenablage zuweisen, dabei verliere ich aber die eigenschaft Transparent. aber es muss doch auch direkt gehen!

Das wird vermutlich nicht funktionieren, dazu müßte es ein eigenes Zwischenablageformat für Icons geben.

Lt.

docs.microsoft.com/d...hg/clipboard-formats

ist dem aber nicht so

Der Internet Explorer kannte ein Format dafür:

docs.microsoft.com/e...is/aa359736(v=vs.85) hat folgendes geschrieben:

CFSTR_MIME_X_ICON TEXT("image/x-icon"), Internet Explorer 9. Windows icon (.ico) MIME type.

Die Frage ist aber was du damit machen möchtest. Möchtest du ein Icon für eine andere Anwendung kopieren oder innerhalb deiner eigenen? Bei einer fremden Anwendung könntest du dort eins kopieren, wenn möglich, und schauen welches Format verwendet wird.

jaenicke hat folgendes geschrieben :

Die Frage ist aber was du damit machen möchtest. Möchtest du ein Icon für eine andere Anwendung kopieren

Ja, genau das. In die Windows-Zwischenablage. Ich würde ja auch das Bitmap-Format akzeptieren, wenn Transparent bei der Konvertierung erhalten bleibt.

Irfan View kann das. Habe ich vor Jahren verwendet um herauszufinden wie die ContentId's sind um zu identifizieren was man vor sich hat.

Man kann die Formate auch selbst mit EnumClipboardFormats durchgehen, wenn das Zielprogramm das gewünschte Format selbst dort abgelegt hat:
docs.microsoft.com/e...enumclipboardformats

Sinspin hat folgendes geschrieben :

Irfan View kann das.

Mein Programm soll's aber auch können!

jaenicke hat folgendes geschrieben :

Man kann die Formate auch selbst mit EnumClipboardFormats durchgehen

Ist also nicht so einfach, wie ich hoffte.

Die Zwischenablage ist eine recht komplexe Struktur. Microsoft hat einiges geändert über die Jahre was Zugriff und Benachrichtigung von lauschenden Prozessen angeht, das war mal wirklich grausig.
Aber die Zwischenablage in der Lage alles an Daten zu halten und transportieren was es gibt. Sogar parallele Daten sind möglich. Zum Beispiel eine HTML und eine Text Version des gleichen Dokumentes.

Nicht nur das, man kann sogar nur einen Verweis auf den Inhalt hinterlegen. Erst wenn der Inhalt dann wirklich benötigt wird, muss er geliefert werden. Dadurch kann man auch große Datenmengen sehr schnell in die Zwischenablage kopieren.

jaenicke hat folgendes geschrieben :

Man kann die Formate auch selbst mit EnumClipboardFormats durchgehen, wenn das Zielprogramm das gewünschte Format selbst dort abgelegt hat: docs.microsoft.com/e...enumclipboardformats

Da blicke ich leider nicht durch. Und es ist nicht das Zielprogramm, das das Icon in der Zwischenablage ablegt, sondern mein Delphi-Programm. Das Zielprogramm soll das Icon dann von dort einlesen.

jaenicke hat folgendes geschrieben :

Nicht nur das, man kann sogar nur einen Verweis auf den Inhalt hinterlegen. Erst wenn der Inhalt dann wirklich benötigt wird, muss er geliefert werden.

Gut und schön, aber das hilft mir nicht weiter! Dass die Zwischenablage Icons nicht so ohne Weiteres verarbeiten kann, finde ich schon seltsam. Schliesslich sind Icons ja eine "typische" Windows-Sache und kein exotisches Datenformat!

Wie also bereite ich die Zwischenablage vor?

Soll der Anwender dann mit einem anderen Programm interagieren oder soll es nur innerhalb deines Programms zum Kopieren des Icons benutzt werden?
Wenn du ein anderes Programm kennst, welches das Icon-Format unterstützt, dann kannst du mit dem FreeClipboardViewer das Format dir anschauen.

Du kannst auch selber ein Clipboard-Format erstellen: Register and use a custom clipboard format in Delphi (Stichwörter: Get/SetAsHandle).

Aber was genau funktioniert bei Clipboard.Assign(aIcon) denn nicht?
Ich habe in der Doku zu Clipboard.Assign nachgeschaut und gesehen, daß alle TPersistent-Klassen unterstützt werden sollten, also auch TIcon.
Oder wird eine Exception erzeugt?

Und warum sollte eine transparente Bitmap nicht funktionieren? Mit TBitmap.TransparentColor kann man doch bestimmen, welche Pixel als transparent angesehen werden.
Oder wird diese Transparenz dann nicht in die Zwischenablage übernommen?

Keine Ahnung mit welcher Delphi Version du arbeitest und was da alles schon enthalten ist. Damals, mit Delphi 7, habe ich mir was eigenes geschrieben und fand da MSDN Clipboard sehr hilfreich.

Th69 hat folgendes geschrieben :

Soll der Anwender dann mit einem anderen Programm interagieren oder soll es nur innerhalb deines Programms zum Kopieren des Icons benutzt werden?

Es soll dann ausserhalb meines Programmes allgemein verfügbar sein, zB. soll man es mit IcoFX (ein Programm zum Erzeugen und Bearbeiten von Icons) aus der Zwischenablage laden können.

Th69 hat folgendes geschrieben :

Wenn du ein anderes Programm kennst, welches das Icon-Format unterstützt, dann kannst du mit dem FreeClipboardViewer das Format dir anschauen.

Zuerst möchte ich versuchen, es so hinzubekommen.

Th69 hat folgendes geschrieben :

Du kannst auch selber ein Clipboard-Format erstellen:

Ziemlich verwirrend... Welchen Datentyp muss ich denn in RegisterClipboardFormat angeben?

Th69 hat folgendes geschrieben :

Aber was genau funktioniert bei Clipboard.Assign(aIcon) denn nicht? Ich habe in der Doku zu Clipboard.Assign nachgeschaut und gesehen, daß alle TPersistent-Klassen unterstützt werden sollten, also auch TIcon. Oder wird eine Exception erzeugt?

Mit Clipboard.Assign(aIcon) erhalte ich die Meldung

Zitat:

Zwischenablage unterstützt keine Symbole.

Th69 hat folgendes geschrieben :

Und warum sollte eine transparente Bitmap nicht funktionieren? [...] Oder wird diese Transparenz dann nicht in die Zwischenablage übernommen?

Ich habe alles versucht, was mit Transparenz zusammenhängt - erfolglos. Es ist wohl so, dass die Transparenz nicht in die Zwischenablage übernommen wird.

galagher hat folgendes geschrieben :

Es soll dann ausserhalb meines Programmes allgemein verfügbar sein, zB. soll man es mit IcoFX (ein Programm zum Erzeugen und Bearbeiten von Icons) aus der Zwischenablage laden können.

IcoFX kann nur die Bilddaten eines einzelnen Formats (z.B. 256x256 mit alpha) aus einem Icon in die Zwischenablage kopieren oder daraus laden. Ein ganzes Icon kann es von dort gar nicht laden.

IcoFX verwendet 32-Bit Bitmaps mit Alphakanal. Lazarus kann damit gut umgehen, bei Delphis TBitmap ist der Support etwas... verbesserungswürdig. Deshalb würde ich für Delphi eher Bibliotheken wie Graphics32 verwenden.

jaenicke hat folgendes geschrieben :

IcoFX kann nur die Bilddaten eines einzelnen Formats (z.B. 256x256 mit alpha) aus einem Icon in die Zwischenablage kopieren oder daraus laden. Ein ganzes Icon kann es von dort gar nicht laden.

Ich weiss, was du meinst - stimmt, ja.

Wenn das also nicht einfach mit Boardmitteln geht, dann belasse ich es erstmal so, wie es ist. Alternativ kann ich ja das Icon als Datei speichern.
Ich nehme mit Erstaunen zur Kenntnis, dass die Windows-Zwischenablage das Icon-Format nicht (ohne weiteren Aufwand) unterstützt.

Warum verwendest du denn nicht einfach ein PNG? Das kannst du inkl. Transparenz mit Bordmitteln per Assign in die Zwischenablage packen und das wird von IcoFX auch korrekt transparent verwendet.

Man kann zwar auch ein Bitmap mit Alphakanal z.B. in ein TImage werfen, dann wird das auch transparent dargestellt (wenn man Transparent auf False hat), aber das Assign für die Zwischenablage kann das offenbar nicht.

Aber wie geschrieben:
Mit einem PNG klappt es mit IcoFX und anderen problemlos.

jaenicke hat folgendes geschrieben :

Warum verwendest du denn nicht einfach ein PNG?

Weil die Quelle ein Icon ist! Ich müsste also zunächst einen Weg finden, das Icon in ein PNG zu konvertieren, da bin ich gerade dabei, aber noch ohne Erfolg.

Ich kenne leider keine sinnvolle Variante ein Icon mit Delphi zu öffnen oder zu editieren. TIcon kann das nur sehr rudimentär. Ich habe danach aber auch noch nie gesucht.

jaenicke hat folgendes geschrieben :

Ich kenne leider keine sinnvolle Variante ein Icon mit Delphi zu öffnen oder zu editieren. TIcon kann das nur sehr rudimentär. Ich habe danach aber auch noch nie gesucht.

Ich habe danach gesucht und das hier gefunden: torry.net/pages.php?id=84, siehe dort TIconDialog, das öffnet den "Anderes Symbol"-Dialog von Windows. Mit etwas Umbau des Codes funktioniert die Komponente auch mit Delphi 10.3.
Diese Icons möchte ich - wie gesagt - in die Zwischanablage kopieren.

Aber das ist eben nicht so einfach. Denn der Dialog wählt ja nur das Icon aus, aber du brauchst danach ja noch die Auswahl innerhalb der Icon-Datei welches Format du haben möchtest.

Wäre es da nicht einfacher das Icon schlicht komplett an IcoFX zu übergeben? Dort hast du diese Auswahl, kannst kopieren und einfügen, automatisch resizen für neue Formate, ...