VPF::C++builder 6, Stringgrid, Закраска ячеек в StringG

pavelslap

Дата 27.11.2009, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 27.11.2009

Репутация: нет
Всего: нет

Добрый день, ув. программисты! Вопрос именно по билдеру 6, т.к. в других версиях синтаксис может отличаться. Мне нужно по нажатии кнопки Button1, закрасить определённые ячейки в StringGrid, в котором уже сгенерирован двухмерный массив mas[X][Y].
Я пытался обрабатывать событие OnDrawCell, т.к. в нём есть необходимые параметры для закраски, но в таком случае:
1) Ячейки закрашиваются сразу после запуска программы, а мне надо по нажатии Button;
2) Поверх закрашеннных ячеек невозможно вывести текст.
Я работал вот с этим кодом:

Код


void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State)
{
 TStringGrid *p=(TStringGrid*)Sender;
 if (p->Cells[ACol][ARow]==" ") {
  p->Canvas->Brush->Color=clRed;
 } else {
  p->Canvas->Brush->Color=clGreen;
 }
 p->Canvas->FillRect(Rect);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 StringGrid1->Cells[1][2]=" ";
}

Помогите, пожалуйста его преобразовать, дополнить, или предложите свой вариант. Искренне надеюсь на Вас и Ваш форум. Заранее спасибо!

artsb

Дата 27.11.2009, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64

Цитата(pavelslap @ 27.11.2009, 23:00

)

1) Ячейки закрашиваются сразу после запуска программы, а мне надо по нажатии Button;

Для этого можно использовать флаг: при старте он равен false и значит ничего не отрисовываем, после нажатия на кнопку флаг равен true - рисуем.

Цитата(pavelslap @ 27.11.2009, 23:00

)

2) Поверх закрашеннных ячеек невозможно вывести текст.

Текст нужно рисовать "в ручную" после заливки:

Код


p->Canvas->TextOutA(0,0, p->Cells[ACol][ARow]);

Это сообщение отредактировал(а) artsb - 27.11.2009, 23:14

--------------------

Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.

pavelslap

Дата 27.11.2009, 23:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 27.11.2009

Репутация: нет
Всего: нет

Спасибо за ответ, но можно поподробнее, как сделать флаг

artsb

Дата 27.11.2009, 23:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64

В закрытой области класса формы:

Код


// Unit1.h
 private:
  bool flag;

Далее в конструкторе формы:

Код


flag = false;

При нажатии на кнопку:

Код


flag = true; // либо flag = !flag;

В OnDrawCell:

Код


if(flag) {
 // заливаете ячейку нужным цветом
 // рисуете текст
}

Это сообщение отредактировал(а) artsb - 27.11.2009, 23:23

--------------------

artsb

Дата 28.11.2009, 09:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64

По поводу первого.
Ещё как вариант можно сделать так:
Создаёте обработчик OnDrawCell. Потом выбираете на форме StringGrid1 и в ObjectInspector'е на вкладке Events напротив строки OnDrawCell всё стираете. В обработчике нажатия на кнопку пишете:

Код


StringGrid1->OnDrawCell = StringGrid1DrawCell;
StringGrid1->Repaint(); // если понадобится

Потом можно в нужном месте написать:

Код


StringGrid1->OnDrawCell = NULL;

И ячейки опять не будут закрашиваться.

--------------------

pavelslap

Дата 28.11.2009, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 27.11.2009

Репутация: нет
Всего: нет

Большое спасибо!

pavelslap

Дата 28.11.2009, 12:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 27.11.2009

Репутация: нет
Всего: нет

Очень долго мучался и решил спросить насчёт TextOutA. Он не хочет выводить текст поверх закрашенных ячеек..

//---------------------------------------------------------------------------

Код


#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
const int A=16, B=3, X=(A+5)*(B+3)%5+7, Y=(B+5)*(A+3)%7+5;   //X=8,Y=10
      int hor,ver,current;
      int mas[X][Y];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{

}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Button2->Enabled=true;
   flag = false;
    srand((unsigned)time(NULL));
    for(hor=0;hor<X;hor++) {
     for(ver=0;ver<Y;ver++) {
      StringGrid1->Cells[hor][ver]=rand()%(1+A*B-A)+A;
     }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   Button2->Enabled=false;
   flag = true;
   int max=0;

   for(ver=0;ver<Y;ver++){
    for(hor=0;hor<X;hor++){
        if(StringGrid1->Cells[hor][ver]>max)max=StrToInt(StringGrid1->Cells[hor][ver]);
    }
    for(hor=0;hor<X;hor++){
        if(StringGrid1->Cells[hor][ver]==max){
         StringGrid1->Cells[hor][ver]=current;
         //StringGrid1->Canvas->TextOutA(hor,ver,IntToStr(current));
        }
    }
    max=0;
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
    if(flag) {
       StringGrid1->Canvas->Brush->Color=clGreen;
       StringGrid1->Canvas->FillRect(Rect);
    }
}
//---------------------------------------------------------------------------

Он применяется там, где комментарии.
Обьясните, пожалуйста, почему не работает...
Я естественно снял комментарии))

Это сообщение отредактировал(а) pavelslap - 28.11.2009, 12:20

artsb

Дата 28.11.2009, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64

Так вы неправильно написали smile

Код


void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
    if(flag) {
       StringGrid1->Canvas->Brush->Color=clGreen;
       StringGrid1->Canvas->FillRect(Rect);
       StringGrid1->Canvas->TextOutA(Rect.Left, Rect.Top, StringGrid1->Cells[ACol][ARow]); // <- здесь
    }
}

Это сообщение отредактировал(а) artsb - 28.11.2009, 13:28

--------------------

pavelslap

Дата 28.11.2009, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 27.11.2009

Репутация: нет
Всего: нет

Спасибо, теперь всё работает, а вот как - это другой вопрос.

Код


void __fastcall TForm1::Button2Click(TObject *Sender)
{
   Button2->Enabled=false;
   flag = true;
   int max=0;

   for(ver=0;ver<Y;ver++){
    for(hor=0;hor<X;hor++){
        if(StringGrid1->Cells[hor][ver]>max)max=StrToInt(StringGrid1->Cells[hor][ver]);
    }
    for(hor=0;hor<X;hor++){
        if(StringGrid1->Cells[hor][ver]==max){
         StringGrid1->Cells[hor][ver]=StringGrid1->Cells[hor][ver];
        }
    }
    max=0;
   }
}

Из-за вот этой строки всё стало работать:

Код


StringGrid1->Cells[hor][ver]=StringGrid1->Cells[hor][ver];

Добавлено через 6 минут и 22 секунды
А, и ещё. Как выровнять по центру текст в ячейках StringGrid?

artsb

Дата 28.11.2009, 15:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64

Цитата(pavelslap @ 28.11.2009, 14:48

)

StringGrid1->Cells[hor][ver]=StringGrid1->Cells[hor][ver];

а какой толк от неё?

Цитата(pavelslap @ 28.11.2009, 14:48

)

Как выровнять по центру текст в ячейках StringGrid?

Тогда надо использовать не TextOutA, а DrawText:

Код


DrawText(StringGrid1->Canvas, StringGrid1->Cells[ACol][ARow].c_str(), -1, &Rect, DT_CENTER);

--------------------

pavelslap

Дата 28.11.2009, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 27.11.2009

Репутация: нет
Всего: нет

У меня остался последний вопрос:
Вначале я заливаю весь stringgrid серым цветом. Затем несколько ячеек я выделяю зелёным.
Как очистить StringGrid от зелёных ячеек, при нажатии кнопки чтобы затем снова закрасить ячейки зелёным ?

Это сообщение отредактировал(а) pavelslap - 28.11.2009, 17:21

artsb

Дата 28.11.2009, 18:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64

Если вы их закрашиваете по какому-то условию, то в обработчике нажатия кнопки сначала изменяете условия. А потом просто вызываете StringGrid1->Repaint();

--------------------

pavelslap

Дата 28.11.2009, 19:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 27.11.2009

Репутация: нет
Всего: нет

Спасибо!

M
dumb

если вопрос решен, то жмем "Пометить как решенный" (вверху справа)

artsb

Дата 28.11.2009, 20:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64

Пожалуйста ;)

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »