Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Delphi TImege

Здравствуйте, Програмеры.

Как правильно скопировать часть изображения из TImege?
Приемник типа TImege или TPaintBox.

Ответить   Fri, 18 Feb 2005 21:03:10 +0600 (#318899)

 

Ответы:

Хаю ду ю ду janalex?

Смотрю и вижу, как ты печатаешь умные вещи и дай-ка, думаю,
тоже что-нибудь напечатаю:

TCanvas.CopyRect -> F1 -> Example

Ответить   Fri, 18 Feb 2005 23:08:29 +0500 (#318920)

 

Здравствуйте, Александр.

Вы писали 19 февраля 2005 г., 0:08:29:

PS: файл Jpeg. метод TCanvas.CopyRect не работает.

Ответить   Sat, 19 Feb 2005 14:56:28 +0600 (#319231)

 

Хаю ду ю ду janalex?

Смотрю и вижу, как ты печатаешь умные вещи и дай-ка, думаю,
тоже что-нибудь напечатаю:

Ну раз jpeg тода так:

procedure TForm1.Button1Click(Sender: TObject);
var
Picture: TPicture;
begin
Picture := TPicture.Create;
Picture.Assign(Image1.picture);
PaintBox1.Width := Picture.Width;
PaintBox1.Height := Picture.Height;
PaintBox1.Canvas.Draw(0, 0, Picture.Graphic);
Picture.Free;
end;

Ответить   Sat, 19 Feb 2005 15:29:25 +0500 (#319298)

 

Здравствуйте, Александр.

Вы писали 19 февраля 2005 г., 16:29:25:

Таким образом копируется вся канва, а мне надо участок выделеный
пользователем. Суть такая, открывается файл, любой(bmp, gif, jpeg)
пользователь выбирает участок на нем и сохранят в jpeg. Все нормально
пока не изменю степень сжатия, начинает глючить.

Ответить   Sun, 20 Feb 2005 00:44:02 +0600 (#319673)