Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hobbycoder,
24. Jun 2017
Mach ich des Öfteren auch. Allerdings war der Code sehr überschaubar, dass ich annahm, einen Testprojekt sei nicht notwendig.
Tja...ich hatte nur ein Assign vergessen ;-)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hobbycoder,
23. Jun 2017
Danke Holger,
ich habe das jetzt noch mal in einem neuen Projekt gemacht. Und natürlich funktioniert's ;-)
Warum es vorher in meine Zielprojekt nicht funktioniert hat ich auch herausgefunden. Jetzt muss ich das nur noch so abändern, dass ich die Bitmap.Height und .Width übergeben kann. :-)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hobbycoder,
23. Jun 2017
mach ich gleich mal. Aber dass der Stream nicht leer ist, habe ich schon geprüft, und sichergesellt (s. einem der oberen Posts).
Aber ich probier das jetzt mit einem neuen Projekt mal aus.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hobbycoder,
23. Jun 2017
Ich hab das mal so ziemlich unverändert übernommen. Ich erhalte leider nur eine leere, weiße Bitmap in (ca. A4-Größe)
Der einzige Unterschied ist, dass ich die Bitmap bereit in meinem Objekt habe, und demnach nicht übergeben muss, und dass ich das Richedit aus einem MemoryStream lade.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hobbycoder,
23. Jun 2017
Hab aber grad heraus gefunden, dass, wenn ich nach dem LoadFromStream ein Applicaiton.processMessages mache, dann wird die Bitmap korrekt erstellt ;-)
Nur ein Application.ProcessMessages in einem Object......ist nicht wirklich eine gute Idee.
Wie kann ich dem RichEdit sage, dass es seinen geladenen Stream aufbereiten soll, damit ich danach das Bitmap erstellen kann?
und wenn ich das...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hobbycoder,
23. Jun 2017
Hab ich gemacht:
var
MyRTF: TRichEdit;
frm: TForm;
img: HDC;
begin
self.FArbeitenBitmap.Height:=Height;
self.FArbeitenBitmap.Width:=Width;
frm:=TForm.Create(Application);
try
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hobbycoder,
23. Jun 2017
Habe ich grad mal versucht...keine Änderung.
Folgende Code funktioniert auf dem Formular und liefert mir eine Bitmap siehe Anhang 1:
var
img: HDC;
begin
richedit1.Lines.LoadFromStream(t.Arbeiten);
t.ArbeitenBitmap.Height:=richedit1.Height;
t.ArbeitenBitmap.Width:=richedit1.Width;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hobbycoder,
23. Jun 2017
Danke, das löst schon mal der erste Problem.
Leider bekomme ich so
var
MyRTF: TRichEdit;
img: HDC;
begin
self.FArbeitenBitmap.Height:=Height;
self.FArbeitenBitmap.Width:=Width;
MyRTF:=TRichEdit.CreateParented(HWND_MESSAGE);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hobbycoder,
22. Jun 2017
Hi,
ich möchte aus einem RTF-Text eine Bitmap mit vorgegebenen Maßen erzeugen. Der RTF-Text liegt als MemoryStream in einem Object.
Mein erster Gedanke war, mir in einer Procedure im Object temporär ein TRichEdit zu erzeugen und dann (wie hier ) mir daraus eine das ganze in ein Bitmap zu kopieren.
var
MyRTF: TRichEdit;
begin
self.FArbeitenBitmap.Height:=Height;
...