Фото формы

← →
Vadim840 © (2003-02-12 12:59) [0]

у меня такой вопрос

uses clipbrd;

procedure TShowVRML.Kopieren1Click(Sender: TObject);
var bitmap:tbitmap;
begin

bitmap:=tbitmap.create;
bitmap.width:=200;
bitmap.height:=300;
try
with bitmap.Canvas do
CopyRect (clientrect,canvas,clientrect);
clipboard.assign(bitmap);
finally
bitmap.free;
end;
end;

при этом в буфер копируется кусок формы: 0-200; 0-300, что надо изменить, чтобы получить кусок 70- 200; 90-300?

← →
pasha676 (2003-02-12 13:56) [1]

ЭЭЭЭ... Вы головой думаете, что пишете или просто откудай-то примеры копируете и бездумно их ставите. Даже не зная тематики вопроса можно с уверенностью сказать, что функция непосредственно копирования CopyRect. Набираем ее в дельфях и давим F1. Там достаточно прозрачно написано, последний клиентрект - это клиентрект соурса. Очевидно изменяя его, мы сможем копировать разные части.

Фото формы Найти похожие ветки