Сделать прозрачную рамку на Image

@goodnastya · Регистрация: 21.03.2016

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

Добрый день! т.к. новенькая в с++, помогите пож-ста разобраться. у меня есть масштабирование лупой, где на форме 2 Image, в одном из них сама картинка, в другом - увеличенный, меняющийся фрагмент первой (когда по Image1 двигается мышка). Как мне сделать так, чтобы на Image1 при передвижении мыши появлялась двигающаяся прозрачная рамка, размером как Image2?
это можно сделать с помощью Canvas?
додумалась только до этого минимума, только с помощью какого свойства квадрату задать прозрачность, и сделать так, чтобы не оставалось следов от проведения?

C++
1
2
3
4
TCanvas *Canvas = Image1->Canvas;
       Canvas->Brush->Color = clBackground;
       Canvas->Pen->Style = psDash;
       Canvas->Rectangle(X-70, Y-70,X+70,Y+70);

@nick42 · 06.04.2016, 21:54

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

с помощью какого свойства квадрату задать прозрачность, и сделать так, чтобы не оставалось следов от проведения?

... всем любителям канваса...
(Попробуйте этот пример; может я вас неверно понял).

@gunslinger · 06.04.2016, 22:26

Без Canvas: Мышь в виде перекрестия на весь PaintBox (Image)
С Canvas: можно использовать CopyRect, либо TStream, либо файл.
Последний вариант:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
String filename = "temp.bmp";
 
void __fastcall TForm1::Image1MouseEnter(TObject *Sender)
{
  Image1->Picture->SaveToFile(filename);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseLeave(TObject *Sender)
{
  Image1->Picture->LoadFromFile(filename);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
  Image1->Picture->LoadFromFile(filename);
  TCanvas *canvas = Image1->Canvas;
  canvas->Brush->Style = bsClear;  // фигура будет рисоваться без заполнения
  canvas->Pen->Style = psDash;
  canvas->Pen->Color = clRed;
  int size = 70;
  canvas->Rectangle(X-size-1,Y-size-1,X+size+1,Y+size+1);
  Image2->Canvas->CopyRect(Rect(0,0,Image2->Width,Image2->Height),Image1->Canvas,Rect(X-70,Y-70,X+70,Y+70));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  DeleteFile(filename);
}

@goodnastya · 06.04.2016, 23:17 **[ТС]**

nick42, спасибо большое за ответ, только мне нужно, чтобы стрелка мыши оставалась

Добавлено через 2 минуты
gunslinger, и вам спасибо огромное! только у меня остаются следы от рамки при ее перемещении. подскажите пож-ста, как от этого избавиться?

@nick42 · 07.04.2016, 08:16

Учитывая..

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

т.к. новенькая в с++

поясняю: я убрал курсор специально (последняя строчка в обработчике Image1MouseMove - Image1->Cursor = crNone;). Можно этого не делать, но я считал, что так удобнее. Если вы обратили внимание, - по нажатию правой кнопки мыши квадрат исчезает. Можно это доработать таким образом, что когда квадрат невидим, то курсор - перекрестие (crCross). И сам квадрат можно сделать цвета Black, а Pen-Mode - pmNotXor, тогда его контур будет гарантированно виден на поверхности любого цвета. В общем - вариантов достаточно, было бы желание всё это пробовать... .

@gunslinger · 07.04.2016, 09:17

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

@goodnastya · 08.04.2016, 10:54 **[ТС]**

nick42, очень благодарна за пояснения, просто к сожалению у меня не запускается проект, кот вы скинули, но в принципе по коду все понятно. только можно еще спрошу у вас, моя фигура двигается только по горизонтали и на одном уровне, хотя в вашем .exe она перемещается как надо, где мне посмотреть, чтобы сделать так, чтобы она перемещалась по всей картинке? в свойствах этого не нашла. из вашего кода я использовала Image1MouseMove, FormMouseMove и Image1ContextPopup

Добавлено через 15 минут
gunslinger, вы правы, из вашего кода использую только

C++
1
2
3
4
5
6
7
TCanvas *canvas = Image1->Canvas;
  canvas->Brush->Style = bsClear; 
  canvas->Pen->Style = psDash;
  canvas->Pen->Color = clRed;
  int size = 70;
  canvas->Rectangle(X-size-1,Y-size-1,X+size+1,Y+size+1);
  Image2->Canvas->CopyRect(Rect(0,0,Image2->Width,Image2->Height),Image1->Canvas,Rect(X-70,Y-70,X+70,Y+70));

т.к у меня для лупы прописан другой код и картинка загружается немного по-другому
if(OpenPictureDialog1->Execute())
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
но разве иная загрузка файла и его закрытие могут влиять на Canvas?

@gunslinger · 08.04.2016, 16:29

Нужно видеть код, который срабатывает при перемещении мыши по Image.

@nick42 · 08.04.2016, 16:38

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

где мне посмотреть, чтобы сделать так, чтобы она перемещалась по всей картинке?

Я думаю, - это от невнимательности (может и ошибаюсь); просто, бывает, копируя схожие строки кода, забывают корректировать имена переменных. Возможно, в обработчике mousemove при корректировке координат оба раза используется X вместо Y. Пока другого объяснения не имею.

@goodnastya · 08.04.2016, 17:58 **[ТС]**

gunslinger, посмотрите пож-ста, если вас не затруднит. код такой

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
     ZoomIt(Image1->Picture,Image2->Picture,X,Y,7-bZoom->Position);
 
  TCanvas *canvas = Image1->Canvas;
  canvas->Brush->Style = bsClear;  
  canvas->Pen->Style = psDash;
  canvas->Pen->Color = clBlack;
  int size = 70;
  canvas->Rectangle(X-size-1,Y-size-1,X+size+1,Y+size+1);
  Image2->Canvas->CopyRect(Rect(0,0,Image2->Width,Image2->Height),Image1->Canvas,Rect(X-70,Y-70,X+70,Y+70));
 
     Label2->Caption = "Координаты мыши: X="+String(X)+" Y="+String(Y);
}
void __fastcall TForm1::ZoomIt(TObject *Source,TObject *Target,
                        int X,int Y,int Zoom )
{
  int Sw, Sh, Tw, Th, Dw, Dh, SX1, SX2, SY1, SY2 , TX1, TX2, TY1, TY2;
 
   TPicture *so = (TPicture *)Source ;
   TPicture *ta = (TPicture *)Target ;
 
  Sw = so->Bitmap->Width; Sh = so->Bitmap->Height;
  Tw = ta->Bitmap->Width; Th = ta->Bitmap->Height;
  Dw = Tw / 2; Dh = Th / 2;
  TX1 = 0; TX2 = Tw; TY1 = 0; TY2 = Th;
  SX1 = X - Dw / Zoom;  SY1 = Y - Dh / Zoom;
  SX2 = X + Dw / Zoom;  SY2 = Y + Dh / Zoom;
  if (SX1 < 0)   { TX1 = TX1-(SX1*Zoom);     SX1 = 00; }
  if (SX2 > Sw)  { TX2 = TX2+(Sw-SX2)*Zoom;  SX2 = Sw; }
  if (SY1 < 0)   { TY1 = TY1-(SY1*Zoom);     SY1 = 00; }
  if (SY2 > Sh)  { TY2 = TY2+(Sh-SY2)*Zoom;  SY2 = Sh; }
  ta->Bitmap->Canvas->Brush->Color = clBlack;
  ta->Bitmap->Canvas->FillRect(Rect(0,0,Tw,Th));
  ta->Bitmap->Canvas->CopyRect(Rect(TX1,TY1,TX2,TY2),
     so->Bitmap->Canvas,Rect(SX1,SY1,SX2,SY2)) ;

не уверена, что нужен был для ЗумИт, но он в маусмув используется, решила на всякий случай

Добавлено через 1 минуту
gunslinger, делала так же и без 12 строки

Добавлено через 4 минуты
nick42, эх, вроде как надо

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
     ZoomIt(Image1->Picture,Image2->Picture,X,Y,7-bZoom->Position);
 
 
     Shape3->Height = 137;
     Shape3->Width  = 137;
     Shape3->Left = X;  Shape1->Top = Y;
     Shape3->Enabled = false;
     Shape3->Visible = !Shape3->Tag;
     Shape3->Parent = Form1;
     Shape3->BringToFront();
 
     Label2->Caption = "Координаты мыши: X="+String(X)+" Y="+String(Y);
}

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

@gunslinger · 08.04.2016, 18:12

Так у тебя рамка рисуется и никак не убирается.
Сравни свой код и мой.
У меня перед каждой отрисовкой рамки исходное изображение заново подгружается.
У тебя же рамка рисуется и остается.
Код надо внимательней смотреть.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .

Сделать прозрачную рамку на Image

Решение

Решение

@goodnastya 0 / 0 / 0 Регистрация: 21.03.2016 Сообщений: 14
	06.04.2016, 23:17 [ТС]
	nick42, спасибо большое за ответ, только мне нужно, чтобы стрелка мыши оставалась Добавлено через 2 минуты gunslinger, и вам спасибо огромное! только у меня остаются следы от рамки при ее перемещении. подскажите пож-ста, как от этого избавиться? 0

@gunslinger place status here 3186 / 2220 / 640 Регистрация: 20.07.2013 Сообщений: 6,014
	08.04.2016, 16:29
	Нужно видеть код, который срабатывает при перемещении мыши по Image. 1

@gunslinger place status here 3186 / 2220 / 640 Регистрация: 20.07.2013 Сообщений: 6,014
	08.04.2016, 18:12
	Так у тебя рамка рисуется и никак не убирается. Сравни свой код и мой. У меня перед каждой отрисовкой рамки исходное изображение заново подгружается. У тебя же рамка рисуется и остается. Код надо внимательней смотреть. 1