увеличение изображения

@kosmod · Регистрация: 25.07.2012

Студворк — интернет-сервис помощи студентам

Ребят привет.....помогите решить небольшую проблемку...???
как реализовать увеличение изображения при наведении мыши, изображения №№1,2....?????????????
файл прилагается. огромное спасибо

@r@di0 · 31.07.2012, 23:03

Может каждый пиксел заменять на четыре того же цвета?

@kosmod · 31.07.2012, 23:04 **[ТС]**

желательно бы по принципу лупы

@r@di0 · 01.08.2012, 00:17

Ну, можно увеличивать и отдельный участок, но это скорее нужно делать средствами WinApi.

Не по теме:

Иначе этим инструментом смогут пользоваться только слоупоки

@kosmod · 01.08.2012, 23:01 **[ТС]**

а по конкретнее можно написать, с готовым кодом

@MansMI · 03.08.2012, 08:02

kosmod, используя TBitmap.ScanLine, сумеешь перекрасить, зеркально отобразить и пр. картинку?

murderer · 03.08.2012, 11:07

Создаешь два одинаковых Image один сверху, другой снизу. На том, который сверху делаешь свойства stretch=true, transparent=true и на OnMouseMove ставишь такой код.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var
  InRect,OutRect: TRect;
begin
  Image2.Canvas.FillRect(Image2.ClientRect);
  InRect.Left  :=x;
  InRect.Top   :=y;
  InRect.Right :=x+16;
  InRect.Bottom:=y+16;
  OutRect:=InRect;
  inc(OutRect.Right,32);
  inc(OutRect.Bottom,32);
  Image2.Canvas.Rectangle(OutRect);
  inc(OutRect.Left);
  inc(OutRect.Top);
  dec(OutRect.Right);
  dec(OutRect.Bottom);
  Image2.Canvas.CopyRect(OutRect,Image1.Canvas,InRect);
end;

@kosmod · 04.08.2012, 00:13 **[ТС]**

к сожалению, не увеличивает...пишет ошибку

Добавлено через 7 минут
люди, помогите разобраться с кодом!!!

@r@di0 · 04.08.2012, 00:32

murderer, насколько быстро это работает?

Добавлено через 15 минут
Вы просто растягиваете прямоугольную область. Мне кажется, это будет работать слишком медленно для нормальной работы пользователя.
И вроде ТС говорил про лупу, а она круглая )

murderer · 04.08.2012, 09:40

И вроде ТС говорил про лупу, а она круглая )

Можно попробовать так:
1) Рисуем в отдельный битмап чёрный круг на белом фоне - это маска
2) Рисуем в отдельный битмап исходное изображение
3) Накладываем маску на исходное изображение через SRCAND
4) Инвертируем маску чкркз DSTINVERT
5) Рисуем в отдельный битмап увеличеное изображение
6) Накладываем маску на увеличеное изображение через SRCAND
7) Накладываем увеличеное изображение на исходное через SRCPAINT
8) Выводим то, что получилось на экран

Вот исходник - там лупа квадратная.

murderer · 04.08.2012, 11:44

Теперь лучше.
-Увеличение/уменьшение колесом мыши
-Выход - Escape

@kosmod · 04.08.2012, 17:44 **[ТС]**

спасибо, конечно, а теперь как это все скомпоновать в одно целое (см.1 тему)

@r@di0 · 04.08.2012, 17:53

Не по теме:

Сообщение от kosmod

спасибо, конечно, а теперь как это все скомпоновать в одно целое (см.1 тему)

Вы бы уж сразу писали: "Сделайте всё за меня"

murderer · 04.08.2012, 18:28

к сожалению, не увеличивает...пишет ошибку

Это потому что у тебя jpg-картинка. Надо вначале получить из неё битмап. При создании формы:

Delphi
1
2
3
4
5
bmp:=TBitmap.Create;
bmp.Width:=Image1.Picture.Graphic.Width;
bmp.Height:=Image1.Picture.Graphic.Height;
bmp.Canvas.Draw(0,0,Image1.Picture.Graphic);
Image1.Picture.Bitmap.Assign(bmp);

@kosmod · 04.08.2012, 19:01 **[ТС]**

как добавить все это в Diagnostic12.rar , куда именно вставить????

Добавлено через 25 минут
наверное, btm???

Добавлено через 17 секунд
для делфи

Добавлено через 2 минуты
так что ли???

var
btm: TBitmap;
// создаем битовую карту
btm := TBitMap.create;

// Указываем размеры BitMap равные размерам Image
btm.Height:=Image1.Height;
btm.Width:=Image1.Width;

// рисуем на BitMap
btm.Canvas.Draw(0,0,Image1.Picture.Graph ic);

// переносим содержимое битовой карты на экран
Image1.Picture.Assign(btm);

//освобождаем оперативную память
btm.Free;

@kosmod · 04.08.2012, 19:48 **[ТС]**

подкорректируйте, плиз

murderer · 04.08.2012, 19:51

Основное написал - дальше разберёшься.

@kosmod · 04.08.2012, 19:51 **[ТС]**

лупа не работает...

murderer · 04.08.2012, 19:56

Проблема с USB носителем->начать и поводи мышкой

@kosmod · 04.08.2012, 20:22 **[ТС]**

пропали картинки

Добавлено через 3 минуты
в чем проблема?

Добавлено через 13 минут
ругается на строку
BitBlt(Image2.Canvas.Handle,0,0,Image2.C lientWidth,Image2.ClientHeight,DstDC,0,0 ,SRCCOPY);

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@r@di0 103 / 92 / 20 Регистрация: 24.01.2009 Сообщений: 519
	31.07.2012, 23:03
	Может каждый пиксел заменять на четыре того же цвета? 0

@kosmod 1 / 1 / 0 Регистрация: 25.07.2012 Сообщений: 35
	31.07.2012, 23:04 [ТС]
	желательно бы по принципу лупы 0

@r@di0 103 / 92 / 20 Регистрация: 24.01.2009 Сообщений: 519
	01.08.2012, 00:17
	Ну, можно увеличивать и отдельный участок, но это скорее нужно делать средствами WinApi. Не по теме: Иначе этим инструментом смогут пользоваться только слоупоки 0

@kosmod 1 / 1 / 0 Регистрация: 25.07.2012 Сообщений: 35
	01.08.2012, 23:01 [ТС]
	а по конкретнее можно написать, с готовым кодом 0

@MansMI 1617 / 1182 / 553 Регистрация: 08.01.2012 Сообщений: 4,561
	03.08.2012, 08:02
	kosmod, используя TBitmap.ScanLine, сумеешь перекрасить, зеркально отобразить и пр. картинку? 0

@kosmod 1 / 1 / 0 Регистрация: 25.07.2012 Сообщений: 35
	04.08.2012, 00:13 [ТС]
	к сожалению, не увеличивает...пишет ошибку Добавлено через 7 минут люди, помогите разобраться с кодом!!! 0

@r@di0 103 / 92 / 20 Регистрация: 24.01.2009 Сообщений: 519
	04.08.2012, 00:32
	murderer, насколько быстро это работает? Добавлено через 15 минут Вы просто растягиваете прямоугольную область. Мне кажется, это будет работать слишком медленно для нормальной работы пользователя. И вроде ТС говорил про лупу, а она круглая ) 0

@kosmod 1 / 1 / 0 Регистрация: 25.07.2012 Сообщений: 35
	04.08.2012, 17:44 [ТС]
	спасибо, конечно, а теперь как это все скомпоновать в одно целое (см.1 тему) 0

@kosmod 1 / 1 / 0 Регистрация: 25.07.2012 Сообщений: 35
	04.08.2012, 19:01 [ТС]
	как добавить все это в Diagnostic12.rar , куда именно вставить???? Добавлено через 25 минут наверное, btm??? Добавлено через 17 секунд для делфи Добавлено через 2 минуты так что ли??? var btm: TBitmap; // создаем битовую карту btm := TBitMap.create; // Указываем размеры BitMap равные размерам Image btm.Height:=Image1.Height; btm.Width:=Image1.Width; // рисуем на BitMap btm.Canvas.Draw(0,0,Image1.Picture.Graph ic); // переносим содержимое битовой карты на экран Image1.Picture.Assign(btm); //освобождаем оперативную память btm.Free; 0

@kosmod 1 / 1 / 0 Регистрация: 25.07.2012 Сообщений: 35
	04.08.2012, 19:51 [ТС]
	лупа не работает... 0

murderer 4190 / 1838 / 221 Регистрация: 06.10.2010 Сообщений: 4,124
	04.08.2012, 19:56
	Проблема с USB носителем->начать и поводи мышкой 0

@kosmod 1 / 1 / 0 Регистрация: 25.07.2012 Сообщений: 35
	04.08.2012, 20:22 [ТС]
	пропали картинки Добавлено через 3 минуты в чем проблема? Добавлено через 13 минут ругается на строку BitBlt(Image2.Canvas.Handle,0,0,Image2.C lientWidth,Image2.ClientHeight,DstDC,0,0 ,SRCCOPY); 0