VPF::Связка OnrawCell и Button'a - Форум программистов

MerCus

Дата 25.9.2008, 06:12 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

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

проблема такая:
надо чтобы по нажатию кнопки одна из яйчеек StringGrid'a окрашивалась в красный цвет, а при закрытии формы, окраска ячейки исчезала.
Окрашивание происходит только в процедуре OnDrawCell. можно ли сделать, чтобы по нажатию кнопки выполнялась данная процедура, а при закрытии наоборот?

aktuba

Дата 25.9.2008, 08:09 (ссылка)

(голосов:1)

Загрузка ...

Смышленный

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

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

Можно.

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

ivan219

Дата 25.9.2008, 09:28 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

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

Цитата(MerCus @ 25.9.2008, 06:12

)

надо чтобы по нажатию кнопки одна из яйчеек StringGrid'a окрашивалась в красный цвет, а при закрытии формы, окраска ячейки исчезала.

Какаето здесь несуразица при закрытии формы всё исчезнет.

Код


var
  Form1: TForm1;
  Flag: Boolean;
implementation

{$R *.dfm}

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 if (ACol = 1) and (ARow = 1) and Flag then
  begin
   StringGrid1.Canvas.Brush.Color := clRed;
   StringGrid1.Canvas.FillRect(Rect);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Flag := not Flag;
 StringGrid1.Repaint;
end;

end.

Это сообщение отредактировал(а) ivan219 - 25.9.2008, 09:30

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

Мой первый сайт и моя первая программа!!!!!

MerCus

Дата 26.9.2008, 00:54 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо огромное!
я имел ввиду, что при закрытии формы с красной ячейкой цвет её сохраняется, и потом когда эту же форму ещё раз открываешь она красная, а этого не должно быть, но я уже всё сам сделал, а вам ещё раз большое спасибо за помощь!!!

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