DELPHI/Часто задаваемые вопросы и ответы на них/ОС и железо



На главную

Подписка

Новости

Главная / DELPHI / Часто задаваемые вопросы и ответы на них / ОС и железо / TPaintBox в буфер обмена

TPaintBox в буфер обмена
Автор: Xavier Pacheco
var
  pbRect: TRect;
begin
  pbRect := Rect(0, 0, PaintBox1.Width, PaintBox1.Height);
  BitMap := TBitMap.Create;
  try
    Bitmap.Width := PaintBox1.Width;
    Bitmap.Height := PaintBox1.Height;
    BitMap.Canvas.CopyRect(pbRect, PaintBox1.Canvas, pbRect);
    ClipBoard.Assign(BitMap);
  finally
    BitMap.Free;
  end;
end;
Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru

Источник получения информации: http://www.delphiworld.narod.ru