Page 1 of 1
Problem with printing resized image
Posted: Thu Oct 02, 2008 8:37 am
by prosoft
I insert image from clipboard to document. (printscreen 1024x800). I change this size to 100x100 pixels by property page. Image is showen right. Now I do print document and image is printed with height 100 px but width is original (1024 pix).
Thanks Josef.
Posted: Thu Oct 02, 2008 6:18 pm
by Sergey Tkachenko
This problem will be fixed in the next TRichView update.
If you have TRichView source code, this is a quick fix:
Open CRVFData.pas, and change the procedure PaintAsBitmap:
Code: Select all
procedure PaintAsBitmap(X, Y: Integer; DrawItem: TRVDrawLineInfo;
Item: TCustomRVItemInfo);
var bmp: TBitmap;
begin
bmp := TBitmap.Create;
try
bmp.Width := Item.GetImageWidth(RVStyle);
bmp.Height := Item.GetImageHeight(RVStyle);
Item.PrintToBitmap(bmp, False, GetParentControl as TCustomRichView, DrawItem,
-1, rvcmColor);
RV_PictureToDevice(Canvas, X+Item.GetBorderWidth, Y+Item.GetBorderHeight,
Item.GetImageWidth(RVStyle), Item.GetImageHeight(RVStyle), nil, bmp, False);
finally
bmp.Free;
end;
end;