у меня такая проблема:
есть ричедит:
RichEdit1: TRichEdit
, в нем есть текст
Даем ему zoom:
Richedit1.perform(EM_SETZOOM, 150, 100);
где EM_SETZOOM = WM_USER + 225
потом делаем "снимок"
function RichEditToBMP(RichEdit_: TRichEdit): TBitmap;
var
LogX: Integer;
rc: TRect;
Range: TFormatRange;
Bmp: TBitmap;
begin
Bmp:=TBitmap.Create;
Bmp.Canvas.Brush.Color:=RichEdit_.Color;
LogX := Screen.PixelsPerInch;
rc := Classes.Rect(RichEdit_.ClientRect.Left * 1440 div LogX, RichEdit_.ClientRect.Top * 1440 div LogX,
RichEdit_.ClientRect.Right * 1440 div LogX, RichEdit_.ClientRect.Bottom * 1440 div LogX);
SetBkMode(Bmp.Canvas.Handle, Transparent);
Bmp.Width:=RichEdit_.ClientWidth;
Bmp.Height:=RichEdit_.ClientHeight;
Range.hdc:=Bmp.Canvas.Handle;
Range.hdcTarget:=Range.hdc;
Range.rc:=rc;
Range.chrg.cpMin:=0;
Range.chrg.cpMax:=-1;
RichEdit_.Perform(EM_FORMATRANGE, Integer(True), Integer(@Range));
RichEdit_.Perform(EM_FORMATRANGE, 0, 0);
result:= Bmp;
end;
но получаем НЕ УВЕЛИЧЕННЫЙ зумом текст(((
Помогите советом ПЛЗ!!!!
