Wie im Demo füge ich Bilder über InsertOnPaint ein:
Code
procedure TCSKWPTDokument.InsertPicture(fn: string);
begin
fWPRichText.TextObjects.InsertNewObject(wpobjImage, fn);
fWPRichText.ReformatAll(false, true);
end;
procedure TCSKWPTDokument.WPRichTextTextObjectPaint(Sender: TObject;
pobj: TWPTextObj; toCanvas: TCanvas; XRes, YRes, X, Y, W, H, BASE: integer;
PageRef: TWPVirtPage; Modes: TWPTextObjectPaintModes;
const CanvasExtraAttr: TWPPaintExtraParams;
var ContinueMode: TWPTextObjectPaintResult);
var
fn: string;
begin
if (pobj.ObjType = wpobjImage) and (pobj.ObjRef = nil) then
begin
fn := pobj.Source;
try
if (fn <> '') and FileExists(fn) then
begin
pobj.LoadObjFromFile(fn);
pobj.ObjRef.StreamName := pobj.Source;
pobj.GetWHFromContents(1);
end;
except
showmessage('Bild kann nicht verarbeitet werden !');
pobj.Destroy;
end;
end;
end;
Alles anzeigen
Das funktioniert auch für bmp, jpg, png, nicht aber für z.B. bei gif oder tif
Gibt es einen Weg, auch diese Formate in einem wpobjImage abzulegen?
Ciao
Stefan