Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   object yyz: TMenuItem Bitmap.Data = {Ascii... (https://www.delphipraxis.net/163931-object-yyz-tmenuitem-bitmap-data-%3D-%7Bascii.html)

ATS3788 22. Okt 2011 01:49

object yyz: TMenuItem Bitmap.Data = {Ascii...
 
Hallo
Ich weiß eine ungewöhnliche Frage.
Aber vielleicht hat ja jemand eine Idee.

Also ich möchte ein Menü dynamisch erstellen
und Bitmaps laden
Delphi läd dies in Form von Hex

in der dfm Datei sieht das so aus

Delphi-Quellcode:
 object yyz: TMenuItem
      Bitmap.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        20000000000000040000130B0000130B00000000000000000000505050961B58
        42FF13593FFF0E5A3EFF0E5A3EFF0E5A3EFF0E5A3EFF0E5A3EFF0E5A3EFF0E5A
        3EFF0E5A3EFF0E5A3EFF0E5A3EFF0E5A3EFF0E5A3E96FFFFFF00555555FFADAD
        ADFF156144FF309168FF309168FF309168FF309168FF309168FF309168FF3091
        68FF309168FF309168F

Kann ich die Daten für die Bitmap für mich
irgendwie verwenden um eine Bitmap zu laden.

Vielleicht hat ja jemand eine Idee
Martin

Sir Rufo 22. Okt 2011 02:08

AW: object yyz: TMenuItem Bitmap.Data = {Ascii...
 
Alles was man Laden möchte, muss vorher auch abgespeichert werden.

Willst du allen Ernstes eine Bitmap in einen Text umwandeln, dann speichern um dieses wieder zu laden und von Text wieder in Binärdaten umzuwandeln?

Die Delphi IDE macht das, weil das Format für die DFM auf Text eingestellt ist, nicht weil es besonders geschickt für Bitmaps ist.

ConnorMcLeod 22. Okt 2011 06:00

AW: object yyz: TMenuItem Bitmap.Data = {Ascii...
 
Beschäftige Dich mal mit Resourcen. Stichworte wie $R, RC, RES, BRCC32, LoadFromResourceName und so. Das ist der richtige Weg.

ATS3788 22. Okt 2011 07:32

AW: object yyz: TMenuItem Bitmap.Data = {Ascii...
 
Liste der Anhänge anzeigen (Anzahl: 1)
Habe mir eine Lösung mit
Streams erarbeitet, werde
es morgen veröffentlichen.

So habe die Datei Hochgeladen.

Für alle die Bitmaps ohne eine Res
verwalten wollen.

Wenn ich irgendwo ein Fehler gemacht oder Unklar ist,
bitte bei mir melden.

Furtbichler 22. Okt 2011 12:52

AW: object yyz: TMenuItem Bitmap.Data = {Ascii...
 
Also wenn ich sowas mache, dann pack ich die kleinen Bitmaps vorher in eine TImageList.

ATS3788 22. Okt 2011 18:46

AW: object yyz: TMenuItem Bitmap.Data = {Ascii...
 
Danke für eure Anregungen, ich wollte es aber
mal anders machen und es gefällt mir die Bítmap Daten
in ein Array zu schaffen und über einen Stream
einzulesen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:32 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz