TPicture mit eigener BMP-Extension

[Dennis07]

Ja, nun ist das aber ja genau nicht das, was ich will.
Mein Problem entstand ja erst durch die abgeänderte extension. Ich darf die BMP-Endung nicht verwenden, die Dateien sind aber im BMP-Format.
Kann ich nicht dem TPicture sagen, es soll die TEX-Datei wie eine BMP-Datei behandeln?

[Bummi]

intern wird eh in einem Stream geladen, nimmt sich also nichts.
Du kannst MyGraphic.pas aus Posting #6 auch problemlos so umbauen dass Du *.TEX als Bitmap direkt per Image1.Picture.LoadfromFile('Pfad\beispiel.TEX') laden kannst.

EDIT:
oberes (#13) angepasst (ohne sichtbare Streams)

[haentschman]

Zitat:

Nein, der Timer wird natürlich auch erst im OnShow-Ereignis aktiviert, und zwar nachdem die Bilder in den RAM geladen wurden...

...dann ist der Part gut. Kontrolliere trotzdem nochmal ob sich nicht im OI ein Häckchen verirrt hat. Ich glaube, daß die Lösung einfacher ist als die vielen Beispiele. So viele, eigentlich funktionierende, Varianten können nicht irren...

[Dennis07]

Zitat von haentschman:

...dann ist der Part gut. Kontrolliere trotzdem nochmal ob sich nicht im OI ein Häckchen verirrt hat. Ich glaube, daß die Lösung einfacher ist als die vielen Beispiele. So viele, eigentlich funktionierende, Varianten können nicht irren...

Nein, da kann ich dich beruhigen. Bevor ich mir die Mühe mache und hier im Forum einen Post schreibe, habe ich solche Fehlerquellen bereits überprüft...
Danke aber trotzdem, häufig tauchen meine Fehler nähmlich wegen solchen Unaufmerksamkeiten auf.

Zitat von Bummi:

intern wird eh in einem Stream geladen, nimmt sich also nichts.
Du kannst MyGraphic.pas aus Posting #6 auch problemlos so umbauen dass Du *.TEX als Bitmap direkt per Image1.Picture.LoadfromFile('Pfad\beispiel.TEX') laden kannst.

Wie kann ich es denn so umbauen?
Danke;

[Bummi]

Halte ich zwar für oversized nur um eine Endung laden zu können, eigentlich eher dafür gedacht ein eigenes Format zu implementieren, aber der Anhang tut was Du willst.

Delphi-Quellcode:

uses TEXBMP.pas;

procedure TForm2.Button1Click(Sender: TObject);
begin
  Image2.Picture.LoadFromFile('C:\Bilder\Bummi.TEX');
end;

[Dennis07]

hm, okay.
Naja, Speicherplatz ist mir egal, die letzendliche Größe spielt bei dieser anwendung keine Rolle (bin aktuell schon bei 1,5MB...)
Okay, ich probiere es heute abend mal aus.
Danke bis hierhin schonmal für eure Hilfe.

[Bummi]

Speicherplatz??? Ich meinte eher den Aufwand ...

EDIT:
ein einfaches

Delphi-Quellcode:

initialization
    TPicture.RegisterFileFormat('TEX', 'BMP mit Endung TEX', TBitmap);

langt auch schon ... also faktischer Aufwand 0