Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.06.22;
Скачать: CL | DM;

Вниз

Как убрать выделение последней выбранной ячейки StringGrid?   Найти похожие ветки 

 
Magos   (2008-05-28 10:20) [0]

Подскажите, пожалуйста, как убрать выделение цветом последней активной ячейки в StringGrid? а то после работы с ним ячейка окрашивается в синий цвет. Спасибо.


 
Painter   (2008-05-28 11:06) [1]

Можно рисовать самому, на событии OnDrawCell. Там хоть в синий, хоть в clWindow, в соответствии с Вашими пожеланиями :)


 
Magos   (2008-05-28 11:19) [2]

ну это будет цвет нарисованной ячейки,а я говорю о выделении последней активной


 
{RASkov} ©   (2008-05-28 11:34) [3]

> [2] Magos   (28.05.08 11:19)

А выделенная активная последняя - это не нарисованная ячейка? :)


 
Magos   (2008-05-28 11:48) [4]

имеет StringGrid, состоящий из 10 столбцов и одной строки. Мышью или клавой выбирается ячейка и если после этого выбрать другой элемент (пусть будет другой грид или поле эдит, неважно) т.е. грид становится не активным, то ячейка которая была выбрана до этого выделяется в неактивном уже гриде синим цветом.
Все ячейки одного цвета, но та которая была активная последняя становится выделенным синим...
Вроде объяснил...


 
{RASkov} ©   (2008-05-28 12:09) [5]

> [4] Magos   (28.05.08 11:48)

См событие [1]
+ проверку параметра State на gdSelected и .... вобщем примерно вот так:
procedure TForm.StringGridOnDrawCell(..);
begin
 if not Sender is TStringGrid then Exit;
 with TStringGrid(Sender) do begin
  if gdSelected in State and Focused then
   Canvas.Brush.Color:=clHighlight
  else Canvas.Brush.Color:=Color;
  Canvas.FillRect(Rect);
....Дальше "в ручки" рисуем содержимое ячейки...
 end;
end;



Страницы: 1 вся ветка

Текущий архив: 2008.06.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
2-1211991044
rena
2008-05-28 20:10
2008.06.22
выход из процедуры


2-1211698255
may be I am noob...
2008-05-25 10:50
2008.06.22
Юлианов День


2-1211883511
dumka
2008-05-27 14:18
2008.06.22
Сумма прописью в отчете


2-1211652384
programmer90
2008-05-24 22:06
2008.06.22
Free Pascal на Delphi -"поймать и удержать"


2-1211988642
Smile
2008-05-28 19:30
2008.06.22
Отменить Font.Style