Hallo,
nach dem die abenteuerliche Konvertierung von ESC-Sequenzen nach RTF einigermassen funktioniert ( nochmals Danke ) ist nun der Wunsch aufgekommen, gleich das Firmenlogo auch noch zu integrieren.
Da ich sehr wenig Zeit zur Verfügung habe stelle ich nun diese "Wie kann ich?" Frage:
Wie kann ich in der RichText Komponente eine Grafik (aus Datei ) einfügen ?
Vielen Dank
Samuel Herzog
Das Logo muss in die Datei eingefügt werden und kann nicht einfach als
Wasserzeichen in PaintPage hinzugefügt werden.
Mein Abwendung muss rtf-dateien erzeugen aber nicht ausdrucken.
Das Drucken wird von einer weitern Anwendung erledigt auf welche ich keinen Einfluss habe.
Gruss
Hier scheint wirklich nicht gerade viel los zu sein....
Anyway, eine Lösung muss her!
Ich bin nun mal so weit :
Das Logo wird in WPRichEdit an der richtigen Stelle eingefügt und auch angezeigt. Anschliessend rufe ich SavetoFile auf und will mir die Rtf-datei mit Word anschauen.
Leider ist dann kein Logo mehr zu sehen.
Method zum einfügen des Bildes sieht etwa so aus:
procedure TDMAcceptance.InsertImage(var Source: TImage;var WPRichText: TWPRichText;const _x,_y:integer;const _PageNo:integer);
begin
_obj := TWPOImage.Create(WPRichText);
_obj.Picture.Assign(Source.Picture);
_obj.WidthTW :=MulDiv(Source.Width, 1440, Screen.PixelsPerInch);
_obj.HeightTW :=MulDiv(Source.Height, 1440, Screen.PixelsPerInch);
WPRichText.SetPageNumber(_PageNo);
WPRichText.Textobjects.InsertAtXY(_obj,_x,_y);
end;
Was muss man sonst noch berücksichtigen ?
Danke.
Konnte wegen Grippe leider nicht vorher antworten ...
Ich nehme an das logo soll in einen header eingefügt werden?
Machen Sie dies bitte so:
uses WPEmOBJ, WPObj;
// anfang der Konvertierung
str.LoadFromFile(Edit1.Text);
WPRichText1.Clear;
// Eingefügt:
WPRichText1.WorkOnText := wpHeader;
_obj := TWPOImage.Create(WPRichText1);
_obj.LoadFromFile('c:\4.bmp'); // das logo
WPRichText1.Textobjects.Insert(_obj);
WPRichText1.InputString(#9);
WPRichText1.SetTabPos(WPRichText1.Header.PageWidth-
WPRichText1.Header.LeftMargin-WPRichText1.Header.RightMargin-10,tkRight,false);
WPRichText1.InputTextField(wpoPageNumber);
WPRichText1.InputString('/');
WPRichText1.InputTextField(wpNumPages);
WPRichText1.WorkOnText := wpBody;
// nun weiterSchöne Weihnachten,
Julian Ziersch