Рисунок в Timage

@Vergil · Регистрация: 11.11.2009

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

Здравствуйте. Суть в том, что создаются динамически Timage, сколько задает пользователь. При нажатии image должен заполнятся картинкой в зависимости от выбранного с помощью RadioButton'a.

Вот сделанное.

C++

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{for (int i = 0; i < 81; i++)
{ if (i%9==0 && i!=0) { X=X+60; Y=-51;}
 dynImages[i] = new TImage(this);
 dynImages[i]->Parent = this;
 dynImages[i]->Tag = i;
 dynImages[i]->BringToFront();
 dynImages[i]->Picture->LoadFromFile(AnsiString().sprintf("f.bmp",i+1));
 dynImages[i]->Left = X;
 Y=Y+59;
 dynImages[i]->Top = Y;
 dynImages[i]->OnClick = ImClick;}}
//---------------------------------------------------------------------------
void __fastcall TForm1::ImClick(TObject *Sender)
{int pushedId = -1;
if(Form1->RadioButton1->Checked){};
((TImage*)FindComponent("Image"+String(Tag)))->Picture->LoadFromFile("1.bmp");}
//---------------------------------------------------------------------------

Но не знаю, как закончить. Как реализовать заполнение. в таком коде появляется ошибка и ничего не меняется.
Если использовать ShowMessage(Name); Выдает Form1

C++

void __fastcall
TForm1::SpeedButton1Click(TObject *Sender)
{
 if(dynamic_cast<TSpeedButton *>(Sender))
 {
  int i=((TSpeedButton *)(Sender))->Tag;
  switch(i)
  {
   case 0:
    .... //Код для кнопки 1
   break;
   case 1:
    .... //Код для кнопки 2   
   break;
  }
  .......// Общий код
 }
}

И как правильно удалить Image?

@Vergil · 27.05.2013, 18:27 **[ТС]**

Все решил.

C++

void __fastcall TForm1::ImClick(TObject *Sender)
{pushedId = ((TImage*)Sender)->Tag;
if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("1.bmp");
if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("2.bmp");
if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("3.bmp");
if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("s.bmp");
if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("s1.bmp");
if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("p.bmp");}
 //---------------------------------------------------------------------------

Есть ли способ как-то оптимизировать RadioButton? Что бы не такая громоздкая конструкция с условиями получалась?

AntonChik · 28.05.2013, 10:16

оптимизировать можно создавая RadioButton-ы тоже динамически, хотя можно перебрать и все статичные.
а здесь

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

if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("1.bmp");
if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("2.bmp");
if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("3.bmp");
if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("s.bmp");
if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("s1.bmp");
if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("p.bmp");}

на результат повлияет только последняя строка

@nick42 · 28.05.2013, 11:44

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

Есть ли способ как-то оптимизировать RadioButton?

Используйте RadioGroup__

C++

1
2
3

  String Fl[]= { "1","2","3","s","s1","p" };
  int dx = RadioGroup1->ItemIndex ;
  dynImages[dx]->Picture->LoadFromFile(Fl[dx]+".bmp");

@Vergil · 29.05.2013, 13:32 **[ТС]**

Забыл Поменять номера) Спасибо за подсказку. Буду осваивать группу.
Кто мне объяснит почему мои темы переносят из раздела для начинающих? Я бы не сказал, что тут есть что-то сложное... Просто еще недостаток знаний связанный с тем, что сам учусь. А хорошей книги с примерами еще не нашел.

LK · 29.05.2013, 19:38

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

Кто мне объяснит почему мои темы переносят

- потому, что для реализации используется билдер:

C++

1
2
3

void __fastcall TForm1::FormCreate(TObject *Sender)
{
// и дальше, по тексту

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

А хорошей книги с примерами еще не нашел.

Вам - сюда:
Библиотека VCL и сопутствующие материалы
Путеводитель по книжкам про C++ Builder

@Vergil · 21.06.2013, 06:58 **[ТС]**

Столкнулся все же с нужностью удаления сего чуда. Точнее пересоздание. Допустим нажимаю на кнопку, и если такие Image существуют, то их удалить и снова создаем... Подскажите, как реализовать.

AntonChik · 21.06.2013, 08:09

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

и если такие Image существуют

такие это какие?
удалять так же как создавать, только вместо

C++

1	dynImages[i] = new TImage(this);

так

C++

1	delete dynImages[i];

хотя может и не надо их удалять(и пересоздавать), можно просто грузить в них новые картинки

AntonChik 1090 / 588 / 121 Регистрация: 11.11.2008 Сообщений: 1,544
	28.05.2013, 10:16	3
	оптимизировать можно создавая RadioButton-ы тоже динамически, хотя можно перебрать и все статичные. а здесь Сообщение от Vergil if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("1.bmp"); if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("2.bmp"); if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("3.bmp"); if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("s.bmp"); if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("s1.bmp"); if (Form1->RadioButton1->Checked)dynImages[pushedId]->Picture->LoadFromFile("p.bmp");} на результат повлияет только последняя строка 1

@Vergil 43 / 37 / 17 Регистрация: 11.11.2009 Сообщений: 246
	29.05.2013, 13:32 [ТС]	5
	Забыл Поменять номера) Спасибо за подсказку. Буду осваивать группу. Кто мне объяснит почему мои темы переносят из раздела для начинающих? Я бы не сказал, что тут есть что-то сложное... Просто еще недостаток знаний связанный с тем, что сам учусь. А хорошей книги с примерами еще не нашел. 0

@Vergil 43 / 37 / 17 Регистрация: 11.11.2009 Сообщений: 246
	21.06.2013, 06:58 [ТС]	7
	Столкнулся все же с нужностью удаления сего чуда. Точнее пересоздание. Допустим нажимаю на кнопку, и если такие Image существуют, то их удалить и снова создаем... Подскажите, как реализовать. 0

	21.06.2013, 08:09

Рисунок в Timage

Решение