VPF::StringGrid - Форум программистов

simprimat

Дата 9.4.2011, 08:34 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте! Подскажите плиз, как сделать так чтобы выделенные мышкой строки, заполнялись звёздочками? Нашёл только событие StringGrid1SelectCell, но в этом случае заполняется только одна ячейка, а надо чтобы нажал кнопку мыши, выделил с нажатой кнопкой строку, отпустил, и эта строка заполнилась звёздочками.

kiLLProg

Дата 9.4.2011, 11:01 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int start_col, start_row;
int end_col, end_row;


//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  int Column1;

  StringGrid1->MouseToCell(X, Y, end_col, end_row);
  if ((end_col == start_col) && (end_row == start_row))
    return;

  for(Column1 = end_col; end_col > start_col-1; --end_col)
    StringGrid1->Cells[end_col][end_row] = "*";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1MouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
{
  StringGrid1->MouseToCell(X, Y, start_col, start_row);
}

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