Symbole (Icons) suchen mit Delphi

[TOC]

Hi!

Hab vor einiger Zeit mal ein Programm geschrieben mit dem man Symbole (Icons) aus einer Exe-Datei oder Dll heraussuchen kann. Du kannst einzelne Dateien oder ganze Verzeichnisse rekursiv nach Symbolen absuchen lassen. Die Symbole werden dann angezeigt. Wenn Du eines oder mehrere auswählst kannst Du sie natürlich auch als *.ico-Datei abspeichern. Wenn Du doppelt auf ein Symbol klickst dann öffnet sich ein Fenster in dem das große 32*32-Pixel und das kleine 16*16-Pixel Symbol angezeigt wird.

Da es diverse Unterschiede zwischen verschiedenen Delphi-Versionen gibt findest Du im Anhang zwei Versionen, eine für Delphi 3.0 und eine für Delphi 7.0.

Das Programm ist, wie alle meine Programme, natürlich OpenSource!

-------------------------------------------------------------------------------------------------

Hi!

Hier kommt Version 0.8 von Symbole.exe!

Änderungen:

1.) Das Programm schreibte seine Daten nun unter dem Schlüssel 'HKEY_CURRENT_USER\SoftWare\TocWare\Symbole' in die System-Registrierung.

2.) Mit dem Menüpunkt 'Registrierung aufheben' kannst Du den Eintrag in Deine System-Registrierung wieder löschen.

3.) Höhe der Statuszeile etwas vergrößert damit der Text nit mehr so gequetcht aussieht

4.) In der Delphi 7 Version steht die Eigenschaft 'Font/Style' der Statuszeile nun auf fsBold.

5.) Das Delphi-Forum 'd4x.de' gibts nit mehr und deshalb stehts auch nit mehr im Internet-Menü!

Derzeit kann ich Euch nur bitten den fehlerhaften Schlüssel 'HKEY_CURRENT_USER\Symbole' von Hand zu löschen (mit RegEdit.exe), Sorry!

-------------------------------------------------------------------------------------------------

Hinweis: Dieses Programm verwendet einige meiner selbst gebastelten Komponenten, die Du benötigst um das Projekt zu öffnen und neu zu kompilieren. Eine aktuelle Version meiner Komponenten im Packet findest Du hier : Tocs Komponenten als Paket.

Grüße von TOC!

[bigg]

Aua,

das programm ist schrecklich. die farben, die musik.
Spielereien, die man imho nicht benötigt.

Schade eigentlich, ich werde es nicht benutzen.

[PierreB]

Hi TOC,

dieses Programm ist ebenso wie dein MiniPlayer ein voller Erfolg !
Das Suchen geht recht schnell und alle Icons werden erkannt ! Speichern und alles funktioniert wunderbar. Design ist zwar etwas gewöhnungsbedürftig aber es kommt auf die Funktion an. Wirklich, super Arbeit !

Schöne Grüße,

[TOC]

Hi PierreB!

Zitat von PierreB:

Das Suchen geht recht schnell und alle Icons werden erkannt ! Speichern und alles funktioniert wunderbar. Design ist zwar etwas gewöhnungsbedürftig aber es kommt auf die Funktion an. Wirklich, super Arbeit !

Cool! Freut mich das es Dir gefällt ! JaJa, ich weiß, die Farben und die Sounds sind Geschmacksache. Aber wir leben ja im Zeitalter der Grafikkarten mit 32-Bit Farben (und mehr!). Ich seh´ einfach nit ein das meine Programme Schwarz/Weiß/Grau sein sollen wie die kommerzielen Windows-Programme, Kicher!

Sag mir bitte Bescheid wenn Du einen Fehler findest oder wenn Du sonstige Anregungen hast.

Grüße von TOC

[alcaeus]

Moin TOC,




...



*augenausreib*

Ich habe nichts, absolut nichts gegen "farbenfrohe" Software, aber das grelle Rot schmerzt mir immer noch in den Augen. Die Sounds sind auch so ein Fall fuer sich. Eventuell solltest du dir das nochmal durch den Kopf gehn lassen.

Zur Funktionalitaet: ja, ganz nett.

Zum Source: als ich Unit1...Unit12 gesehn hab, habe ich mir die Muehe erspart, das Projekt in Delphi auch nur zu oeffnen.

Zitat von TOC:

Ich seh´ einfach nit ein das meine Programme Schwarz/Weiß/Grau sein sollen wie die kommerzielen Windows-Programme, Kicher!

Ich auch nicht, aber es gibt bessere Wege, dies zu loesen: http://alcaeus.gigl.org/tbx

Greetz
alcaeus

[TOC]

Hi!

Zitat von alcaeus:

Ich habe nichts, absolut nichts gegen "farbenfrohe" Software, aber das grelle Rot schmerzt mir immer noch in den Augen. Die Sounds sind auch so ein Fall fuer sich. Eventuell solltest du dir das nochmal durch den Kopf gehn lassen.
alcaeus

Wenn Du die Hintergrundfarbe unter den Symbolen meinst, die ist einstellbar: Menü 'Optionen/Hintergrundfarbe setzen'!

Grüße von TOC!

[freak24]

Ich kann bigg nur zustimmen: Wegen der Optik und diesen Spielereien ist das Programm wirklich nicht länger als eine Minute zu benutzen.
Die Funktionen sind ok. Einlesen geht sehr schnell. Es wäre schön, wenn ich den Dateinamen beim Abspeichern wählen könnte, oder noch besser den Windows Dialog zum speichern benutzen könnte. (Das gilt auch für das Öffnen von ganzen Ordnern). Schön wäre auch wenn ich ein Icon direkt per Rechtsklick (Popupmenü?) speichern könnte.
Außerdem werden zwar die 32 Bit Icons angezeigt, aber nur als 16 Farben (4 Bit) Icons abgespeichert...
Aha! Noch ein Bug: Optionen -> Quickload bearbeiten. Wenn ich das auswähle dann kommt eine Messagebox die mit sagt:

Zitat:

Stil des Listenfeldes (Listbox1) muss virtuell sein, damit Count gesetzt werden kann.

Und den Quellcode kann ich auch nicht öffnen, da mit TocsComponents fehlen

Grüße,
Lars

[TOC]

Hi!

Zitat von freak24:

(Das gilt auch für das Öffnen von ganzen Ordnern).

Schön wäre auch wenn ich ein Icon direkt per Rechtsklick (Popupmenü?) speichern könnte.

Außerdem werden zwar die 32 Bit Icons angezeigt, aber nur als 16 Farben (4 Bit) Icons abgespeichert...
Aha! Noch ein Bug: Optionen -> Quickload bearbeiten. Wenn ich das auswähle dann kommt eine Messagebox die mit sagt:

Zitat:

Stil des Listenfeldes (Listbox1) muss virtuell sein, damit Count gesetzt werden kann.

Und den Quellcode kann ich auch nicht öffnen, da mit TocsComponents fehlen

Delphi 3.0 hat leider noch keinen 'Ordner öffnen' Dialog. Bei Delphi 7.0 könnte man sowas wohl machen, werd ich mal checken. Ich mein so einen Dialog mit Directory-Tree.

Hast Du in Deinem Delphi 5.0 die 3.0 oder 7.0 Version vom Programm verwendet?
Ich hab nur 3.0 und 7.0! Für 5.0 kann ich deshalb keinen Support machen, sorry !

Das mit den Farben der Icons werd ich nochmal checken...

Meine Komponenten findest Du hier : Klick

Ansonsten: Danke für die Fehlermeldung und Deine Anregungen. Mal sehen was ich davon realisieren kann.

Grüße von TOC!

[MathiasSimmack]

Zitat von TOC:

Delphi 3.0 hat leider noch keinen 'Ordner öffnen' Dialog. Bei Delphi 7.0 könnte man sowas wohl machen, werd ich mal checken.

Falls du SHBrowseForFolder meinst: Da gibt´s was von der RatzIO-Farm.

[phlux]

Muhahaha, danke für den Augenkrebs wie wäre es mit nem dezenten SkyBlue oder Moneygreen, die werte nutz ich ab und zu selbst mal in meinen programmen, aber rot?? :stier:
aua meine augen!