Delphi TImege
Здравствуйте, Програмеры.
Как правильно скопировать часть изображения из TImege?
Приемник типа TImege или TPaintBox.
← Февраль 2005 → | ||||||
2
|
||||||
12
|
||||||
17
|
||||||
23
|
||||||
За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Здравствуйте, Програмеры.
Как правильно скопировать часть изображения из TImege?
Приемник типа TImege или TPaintBox.
Здравствуйте, Александр.
Вы писали 19 февраля 2005 г., 0:08:29:
PS: файл Jpeg. метод TCanvas.CopyRect не работает.
Хаю ду ю ду 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;
Здравствуйте, Александр.
Вы писали 19 февраля 2005 г., 16:29:25:
Таким образом копируется вся канва, а мне надо участок выделеный
пользователем. Суть такая, открывается файл, любой(bmp, gif, jpeg)
пользователь выбирает участок на нем и сохранят в jpeg. Все нормально
пока не изменю степень сжатия, начинает глючить.
Хаю ду ю ду janalex?
Смотрю и вижу, как ты печатаешь умные вещи и дай-ка, думаю,
тоже что-нибудь напечатаю:
TCanvas.CopyRect -> F1 -> Example