как сделать скриншот memo1 ?

[alman12]

как сделать скриншот memo1 в delphi ?

[alman12]

как сохранить текст в memo1 как jpg в delphi ?

[Smitt&Wesson]

Не понял. При чём здесь memo и скриншот? Вам нужен снимок с экрана?

[Аватар]

При чём здесь memo и скриншот?

Пусть это будет мемошот

var xMemoDC: HDC;
    xBitmap: TBitmap;
begin
  xMemoDC:=GetDC(Memo1.Handle);
  xBitmap:=TBitmap.Create;
  xBitmap.Width:=Memo1.ClientWidth;
  xBitmap.Height:=Memo1.ClientHeight;
  BitBlt(xBitmap.Canvas.Handle,0,0,xBitmap.Width,xBitmap.Height,xMemoDC,0,0,SrcCopy);
  xBitmap.SaveToFile('e:\Мемошот.bmp');
  xBitmap.Free;
  ReleaseDC(Memo1.Handle,xMemoDC);
end;

ADD

В jpg использовать TJPEGImage
__________________

[XE5]

Две темы, для усиления message? Далеко пойдёте

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp:TbitMap;
begin
  bmp:=TbitMap.Create;
  bmp.Width:=Memo1.Width;
  bmp.Height:=Memo1.Height;
  BitBlt(bmp.Canvas.Handle,0,0,Memo1.Width,Memo1.Height,getdc(form1.handle),Memo1.Left,Memo1.Top,SRCCOPY);
  bmp.SaveToFile('d:/1.bmp');
  bmp.Free;
end;

[raxp]

...вариации:

1- взять текст из memo, создать bitmap в памяти и вывести на его канвас, сохранить с компрессией, загрузив через класс jpegimage или через GDI+
2- сделать скриншот формы на которой memo ...через GetWindowDC получить контекст окна, BitBlt сделать снимок нужного окна.

[raxp]

http://programmersforum.ru/showthread.php?t=256484

[alman12]

Cпасибо брат

[alman12]

спасибо тебе брать болщое , но я не смог сохранит как jpeg можещ помочь ?

[raxp]

http://www.delphisources.ru/pages/fa...save_jpeg.html

...скачайте себе Delphi-World/