how to examine the current Imagesize [downsampling]

fliegermichl

Hello,

if i have a tablecell that contains one image, WPTools does scale the image so it it has a correct size. if i resize the Cell the image is displayed well with respect to the new size.

if i save that file (RTF) and open it in MS Word then i can see that word does'nt scale the image but cut it on cell boundaries (what a stupid program zzz)

my idea was to scale the image itself so that it's Rectangle meets the current cell size.

But where can i read that current cell Size?

best regards
Michael

support

Hi,

Scaling the image can be done by changing TextObj.W and TextOb.H.

But I understood from your telefone call You want to downsample the image to produce a smaller file.

The processing of the image can be done in event PrepareImageforSaving:

JPEG Downsampling:

Code

procedure TWPTBXForm.WPRichText1PrepareImageforSaving(
  RTFData: TWPRTFDataCollection; Writer: TWPCustomTextWriter;
  TextObject: TWPTextObj; var DontSave: Boolean);
var jpeg: TJPEGImage; bit: TBitmap;
begin
  if (TextObject.IsImage) then
  begin
    bit := TBitmap.Create;
    bit.Width := MulDiv( TextObject.ParentPar.CharPos[ TextObject.ParentPosInPar ].Width,
           Screen.PixelsPerInch, RTFData.RTFProps.FFontXPixelsPerInch);


    bit.Height := MulDiv( TextObject.ParentPar.CharPos[ TextObject.ParentPosInPar ].Height,
           Screen.PixelsPerInch, RTFData.RTFProps.FFontYPixelsPerInch);
    TextObject.ObjRef.Paint(bit.Canvas, bit.Canvas.ClipRect, TextObject, [] );
    if bit.Width<TextObject.ObjRef.Graphic.Width then
    begin
    jpeg := TJPEGImage.Create;
    jpeg.Assign(bit);
    jpeg.CompressionQuality := 75;
    jpeg.Compress;
    TextObject.ObjRef.Graphic := jpeg;
    jpeg.Free;
    end;
    bit.Free;
  end;
end;

Alles anzeigen

Regards,

Julian

fliegermichl

Julian,

thank you very much. Now the Pictures are displayed in word as they should.

it would be nice if i could have a TWPTextObj.DisplayWidth and TWPTextObj.DisplayHeight property for such cases

Thank you again

regards
Michael