| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Увеличение области картинки. [D7, WinXP]

MakedoneZ ©   (2005-09-27 12:36:00) 

Дело такое...

Мне надо чтоб когда я выделял(мышкой создавал прямоугольник) какую-то область на экране,эта область автоматически увличивалась,в смысле масштаба.

Мне надо "вписать" некоторую область TImage,в TRect,далее эту область внести в свойство Picture,обекта TImage.
Но как это осуществить,я не знаю.

---

MakedoneZ   (2005-09-27 13:34:00) [1]

> песлала только сегодня, еще не дошло :-)

Издевайтесь.

---

Irinka   (2005-09-27 13:32:00) [2]

песлала только сегодня, еще не дошло :-)

---

MakedoneZ   (2005-09-27 13:25:00) [3]

>
> Image1.Picture.SaveToFile(FileName);

Не а...
Так я сохраню ее всю.
А мне надо сохранить в файл ту область,которую я выделю при помощи мышки.
Мне как бы надо выделить мышкой верхний левый угол,нижний правый,и затем занести получившийся прямоугольник с поместившейся в него частью картинки в TRect,а его в свою очередь,сохранить в графический файл.

PS.
> полностью программку переслала вам по почте :-)

Ничего нет в почте.
Я то уж подумал,раз в жизни,девушка ради меня. :)

---

Irinka   (2005-09-27 13:05:00) [4]

нужно подключить модуль JPEG:


uses JPEG


потом как обычно:


Image1.Picture.SaveToFile(FileName);


---

Irinka   (2005-09-27 12:59:00) [5]

полностью программку переслала вам по почте :-)

---

MakedoneZ   (2005-09-27 12:58:00) [6]

Спасибо за предыдущее.
Если можно,еще вопрос:
Как сохранить в графический файл,некоторую область картинки формата JPEG,которая находится в Image.

---

Irinka   (2005-09-27 12:47:00) [7]

наиболее важной части программы:


// переменные
var
 Srect, Drect, PosForme: TRect;
 iWidth, iHeight, DmX, DmY: Integer;
 iTmpX, iTmpY: Real;
 C: TCanvas;
 Kursor: TPoint;

...

// Увеличиваем экран, если приложение не свёрнуто в иконку
if not IsIconic(Application.Handle) then
begin
 // Получаем координаты курсора
 GetCursorPos(Kursor);

 // PosForm представляет прямоугольник с координатами Form (image control).
 PosForme := Rect(Form1.Left, Form1.Top, Form1.Left + Form1.Width, Form1.Top + Form1.Height);

 //Показываем magnified screen если курсор за пределами формы.
 if not PtInRect(PosForme, Kursor) then
 begin

   // Далее код можно использовать для увеличения выбранной
   // части экрана. С небольшими модификациями его можно
   // использовать для уменьшения
   // экрана
   iWidth := Image1.Width;
   iHeight := Image1.Height;
   Drect := Bounds(0, 0, iWidth, iHeight);
   iTmpX := iWidth / (Slider.Position * 4);
   iTmpY := iHeight / (Slider.Position * 4);
   Srect:=
   Rect(Kursor.x, Kursor.y, Kursor.x, Kursor.y);
   InflateRect(Srect, Round(iTmpX), Round(iTmpY));

   //Получаем обработчик(handle) окна рабочего стола.
   C := TCanvas.Create;
   try
     C.Handle := GetDC(GetDesktopWindow);
     //Передаём часть изображения окна в TImage.
     Image1.Canvas.CopyRect(Drect, C, Srect);
   finally
     C.Free;
   end;
 end;
 // Обязательно обрабатываем все сообщения Windows.
 Application.ProcessMessages;
end; // IsIconic



---

Jeer   (2005-09-27 12:44:00) [8]

Copy and resize a graphic. StretchDraw
Copy part of a canvas. CopyRect
F1

---

Наверх