Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 01.04.2018
Сообщений: 11
1

Переместить объект на Image

20.05.2018, 14:28. Просмотров 382. Ответов 1
Метки нет (Все метки)

Задача: есть прямоугольник, надо реализовать возможность его передвигать. Знаю, что есть много тем по данной проблеме, но пытаюсь обойтись без полигонов и TPoint.
Примечание: может быть, не очень красивая и правильная реализация, но на события OnMouseDown и OnMouseUp приходятся, так сказать, два действия, поэтому использовал CheckBox1 для разделения
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "trayicon"
#pragma resource "*.dfm"
TForm1 *Form1;
int r; //r - размер
int W,A,S,D;//Глобальные переменные
bool paint=false;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
if(CheckBox1->Checked==true){
Image1->Canvas->Rectangle(X, Y, X+45*r, Y+20*r);
paint=false;
}
if(CheckBox1->Checked==false){
S=X;
D=Y;
}
}
//---------------------------------------------------------------------------
//Создание прямоугольника
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
int r=TrackBar1->Position; 
Image1->Canvas->Brush->Style= bsClear; 
Image1->Canvas->Rectangle(W, A, W+45*r, A+20*r); 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(CheckBox1->Checked==false){
W=X;
A=Y;
}
if(CheckBox1->Checked==true){
paint=true;
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if(paint){
Image1->Canvas->Rectangle(X, Y, X+45*r, Y+20*r);
}
}
//---------------------------------------------------------------------------
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2018, 14:28
Ответы с готовыми решениями:

Как программно переместить объект на передний план?
Форма, на форме 4 графика. Хочу сделать кнопку Zoom, т.е. чтобы выбраный график увеличивался на всю...

Объект Image
Подскажите пожалуйсто свойство объекта Image аналогичное свойству display в JavaScript. Это...

Преобразовать объект gtk.Image или gtk.gdb.Pixbuf в PIL.Image
Делаем скриншот, дальше требуется его обрезать/перерисовать/еще что нибудь, в gtk.image таких...

При нажатии на Label, переместить Image
у меня есть Image и под ним Label, как можно сделать что при нажатии на Label, Image переместился в...

1
257 / 204 / 87
Регистрация: 27.09.2010
Сообщений: 1,192
21.05.2018, 00:25 2
есть простой метод.
если на Image1 наложен Image2 - прямоугольник, то можно воспользоваться
моим примером там я перемещаю лейбл при нажатой кнопке мышы.
можно и под Image приспособить.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
void __fastcall TForm1::LabelINOMouseMove(TObject *Sender, TShiftState Shift,   //
      int X, int Y)                                                             //
{                                                                               //
     TPoint dp;                                                                 //
 int dx, dy; //01.01.2017
 int i = Form1->NodChoise-1;                                                    //
    if(InoDown == true)  //
    {                                                                           //
   dp=LabelINO->ScreenToClient(Mouse->CursorPos);                               //
   dx=pt.x -dp.x;                                                               //
   dy=pt.y-dp.y;                                                                //
   LabelINO->Left=LabelINO->Left-dx;                                            //
   LabelINO->Top=LabelINO->Top-dy;                                              //                                  //
   pt=LabelINO->ScreenToClient(Mouse->CursorPos);                               //
 
    }                                                                           //
}                                                                               //
//---------------------------------------------------------------------------
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2018, 00:25

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Переместить объект
Добрый день. Я начал осваивать javascript и столкнулся с проблемой - не работает функция moveObjTo....

Переместить объект
Добрый день. Я начал осваивать javascript и столкнулся с проблемой - не работает функция moveObjTo....

Слои канваса: как переместить image на задний фон?
У меня на сцену добавлено несколько image. Один из них закрывает все остальные. Как его можно...

Переместить объект в правый угол
uses graphabc, abcobjects; var picture: string; xp, yp: integer; pictureobject: pictureabc; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.