Перемещение Image

@Prog_L · Регистрация: 27.02.2015

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

Нужно,чтобы шашки перемещались.
Файл cpp

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <pngimage.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "pngextra"
#pragma link "pngimage"
#pragma package(smart_init)
#pragma link "pngimage"
#pragma resource "*.dfm"
#define  dyn_count 12
TForm1 *Form1;
TImage *dynImages[dyn_count];
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
   int pushedId = -1;
    int  x0, y0;
          bool move;
void __fastcall TForm1::N8Click(TObject *Sender)
{
Form1->N8->Checked = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N9Click(TObject *Sender)
{
Form1->N9->Checked = true;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
for (int i = 2; i < dyn_count; i++)
{
 dynImages[i] = new TImage(this);
 dynImages[i]->Parent = this;
 dynImages[i]->Tag = i;
 dynImages[i]->OnMouseDown = XXX_MouseDown;
 dynImages[i]->OnMouseUp = XXX_MouseUp;
 dynImages[i]->OnMouseMove = XXX_MouseMove;
 dynImages[i]->Cursor = crHandPoint;
 }
 
Timer1->Enabled=true;
 
Form1->Color = StringToColor("0xFFFAFA");
}
//---------------------------------------------------------------------------
 
 
 
 
void __fastcall TForm1::XXX_MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
pushedId = ((TImage*)Sender)->Tag;
     move=true;
    x0=X;
    y0=Y;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::XXX_MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if(move)
 {
 dynImages[pushedId]->Left += X - x0;
 dynImages[pushedId]->Top += Y - y0;
 }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::XXX_MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  move = false;
}
//---------------------------------------------------------------------------

Файл h

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
63
64
65
66
67
68
69
70
71
72
73
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Menus.hpp>
#include <jpeg.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Buttons.hpp>
#include "pngimage.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TImage *Image1;
        TMainMenu *MainMenu1;
        TImage *Image2;
        TMenuItem *N1;
        TMenuItem *N2;
        TMenuItem *N3;
        TMenuItem *N4;
        TMenuItem *N5;
        TMenuItem *N6;
        TMenuItem *N7;
        TMenuItem *N8;
        TMenuItem *N9;
        TMenuItem *N10;
        TMenuItem *N11;
        TMenuItem *N12;
        TMenuItem *N13;
        TComboBox *ComboBox1;
        TDBGrid *DBGrid1;
        TLabel *Label1;
        TMemo *Memo1;
        TLabel *Label2;
        TTimer *Timer1;
        TLabel *Label3;
        TSpeedButton *SpeedButton1;
        TSpeedButton *SpeedButton2;
        TImage *Image3;
        TImage *Image4;
        TImage *Image5;
        TImage *Image6;
        TImage *Image7;
        TImage *Image8;
        TImage *Image9;
        TImage *Image10;
        TImage *Image11;
        TImage *Image12;
        TImage *Image13;
        void __fastcall N8Click(TObject *Sender);
        void __fastcall N9Click(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall XXX_MouseDown(TObject *Sender,
          TMouseButton Button, TShiftState Shift, int X, int Y);
        void __fastcall XXX_MouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
        void __fastcall XXX_MouseMove(TObject *Sender, TShiftState Shift,
          int X, int Y);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

@gunslinger · 25.04.2015, 12:23

Здесь Прорисовать шахматное поле в builder c++ может что найдешь.

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@gunslinger place status here 3190 / 2227 / 640 Регистрация: 20.07.2013 Сообщений: 6,023
	25.04.2015, 12:23
	Здесь Прорисовать шахматное поле в builder c++ может что найдешь. 1