Hi,

ich schreibe grad an einem programm welches mir meine *.dfm dateien in Quellcode convertieren, den ich dann einfach beim Create des Forms aufrufen kann.

Klappt auch alles wunderbar, nur bei den TImage sachen hab ich probleme
Wenn einem TImage z.B. ein Bitmap zugewiesen ist, dann steht in der DFM sowas:

object Image1: TImage
Left: 10
[...]
Picture.Data = {
589199505019AFCC52253
[...]
}

ich nehme mal an, dass das einfach die pixel farben für jedes pixel sind, ABER.. gibt es da eine bessere möglichkeit als das via Scanline sehr mühevoll pixel für pixel zu zeichnen?

Also... ich würde das bei der convertierung halt in ne Scanline-funktion umwandeln, aber das ist irgedwie doch ziemlich umständlich...

jemand ne idee?

Aya

Nimm die GExperts, dort gibt es den Experten "Components To Code"

Wandle die hexadezimalen Angaben einfach in binäre um und pack das in einen Stream. Dabei lass die Bytes bis 424D (exklusive) weg und lade das ganze mit LoadFromStream in ein TBitmap-Objekt .

*dezent auf dfmedit hinweist*
dort habe ich schon eine solche Funktion zum pas-erstellen (zwar ohne bitmaps, aber sind einige spezielle Sachen berücksichtigt [z.b. parent-zuweisung]) und habe dort weitere Möglichkeit drin, die data-werte zu laden (ReadComponentRes)...
ansonsten ist der optimalste weg imho der von jaenicke (habe den nicht gewählt, da ich das ganze noch reversed brauchte)
ich vemute mal, dass du die Funktion auch für TurboDelphi brauchst dafür hatte ich meine auch geschrieben

Gruß Frank

Wozu ist dass denn gut? Ich meine, es gibt den Formular-Designer, um die Formulare schön zu gestalten. Wieso willst du das in die PAS-Datei einfügen?

Ein weiteres Problem nach den Bitmaps sind PNGs. Da wird die komprimierte Bilddatei in die DFM eingefügt, es wird schwieriger, diese der Bitmap zuzuweisen. Und hast du auch vor, Icons etc. zu intigrieren?

Ich will damit nur ausdrücken, dass du unheimlich viele Einzelheiten beachten musst. Es wird sicher nicht einfach!

Hi,

jaenicke hat folgendes geschrieben:

Wandle die hexadezimalen Angaben einfach in binäre um und pack das in einen Stream. Dabei lass die Bytes bis 424D (exklusive) weg und lade das ganze mit LoadFromStream in ein TBitmap-Objekt .

Danke, das werde ich mal ausprobieren, klingt gut soweit

mkinzler hat folgendes geschrieben:

Nimm die GExperts, dort gibt es den Experten "Components To Code"

Die GExpoerts können soetwas nicht, zitat der webseite:

Zitat:

Note: This expert will not work with binary properties such as bitmaps, but it can create commented or uncommented property creation code so you can fix this by hand. Also, it will not work perfectly with some components with subcomponents such as TTeeChart/TDataSet/TTreeView and third party tabsheets that do not descend from TTabSheet.

_frank_ hat folgendes geschrieben:

*dezent auf dfmedit hinweist* dort habe ich schon eine solche Funktion zum pas-erstellen (zwar ohne bitmaps, aber sind einige spezielle Sachen berücksichtigt [z.b. parent-zuweisung]) und habe dort weitere Möglichkeit drin, die data-werte zu laden (ReadComponentRes)... ansonsten ist der optimalste weg imho der von jaenicke (habe den nicht gewählt, da ich das ganze noch reversed brauchte) ich vemute mal, dass du die Funktion auch für TurboDelphi brauchst dafür hatte ich meine auch geschrieben

Ich hab das ja alles schon selbst geschrieben, mir geht es einzig nur um die Bitmap-daten
Das Parent Handling etc ist ja kein thema.. ausserdem würde deins bei mir nicht gehen, da ich sehr sehr viel mit eigenen komponenten arbeite = viele spezialfälle.

Yogu hat folgendes geschrieben:

Wozu ist dass denn gut? Ich meine, es gibt den Formular-Designer, um die Formulare schön zu gestalten. Wieso willst du das in die PAS-Datei einfügen?

Ich will mein programm mit FPC compiliren und es nicht alles erst für Lazarus konvertieren.. = ich mache das was der Formulardesigner macht einfach von hand... so kann ich in Delphi gemütlich meine Formulare weiter designen und vor dem compilen mit FPC drücke ich einmal nen knopf und er aktuallisiert konvertiert die ui in FPC Format (natürlich in IFDEFs so das ich bei der Delphi-variante nix kaputt mache)

Aya

So,

das mit dem Stream hat jetzt geklappt. War etwas tricky die bytes in richtiger reihenfolge in den Stream zu schreiben, aber hat dann funktioniert

Aya~