Delphi World - Изображение контрола сохранить в файл
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Изображение контрола сохранить в файл

Билл Гейтс спросил меня, наверное, уже тысячу раз:
- Хочешь сохранить изменения?
Когда же он, наконец, спросит:
- Хочешь изменить сохранения?


procedure TForm1.GrabControl(const aControl: TControl;
 const FileName: string);
var
  B: TBitmap;
  srcRect,dstRect: TRect;
begin
  B:=TBitmap.Create;
  with dstRect do begin
    Left:=0;
    Top:=0;
    Right:=aControl.Width+1;
    Bottom:=aControl.Height+1;
  end;
  with srcRect do begin
    Left:=aControl.Left;
    Right:=aControl.Left+aControl.Width;
    Top:=aControl.Top;
    Bottom:=aControl.Top+aControl.Height;
  end;

  B.Width:=aControl.Width;
  B.Height:=aControl.Height;

  B.Canvas.CopyRect(dstRect,Self.Canvas,srcRect);

  // сохранить с палитрой 256 цветов
  B.PixelFormat:=pf8bit;
  B.SaveToFile(FileName);

  B.Free;
end;

...
  GrabControl(Memo1,'memo_pic.bmp');
  GrabControl(Edit1,'edit_pic.bmp');

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования