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

Вниз

Коллеги подскажите как заданную ячейку в String Grid   Найти похожие ветки 

 
smartleds   (2007-12-06 14:28) [0]

пометить цветом (лучше красным).
У меня есть таблица от 1 до 256
k:=1;
for i:=0 to 7 do
  For j:=0 to 31 do
  begin
form2.StringGrid1.Cells[j,i]:=inttostr(k);
  k:=k+1;
 end;
Мне нужно пометить цветом заданные ячейки. Номера ячеек для окраски будут вычислены пользователем в программе.


 
Германн ©   (2007-12-06 14:32) [1]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=168
Грид немножко другой, но общая идея такая же.


 
smartleds   (2007-12-06 14:56) [2]

Спасибо, полезная ссылка, разобрался. Один вопрос , если на окрашенную ячейку я кликаю мышкой, то краска пропадает , как ее зафиксировать?


 
smartleds   (2007-12-06 14:59) [3]

Даже не только на эту ячейку , но и вообще на таблицу, окрашенные ячейки остаются как прежде белыми.


 
Dib@zol ©   (2007-12-06 14:59) [4]

Обрабатывать OnPaint надо, вестимо.


 
Германн ©   (2007-12-06 14:59) [5]


> если на окрашенную ячейку я кликаю мышкой, то краска пропадает
> , как ее зафиксировать?

Зафиксировать никак. Но в OnDrawCell передается параметр State: TGridDrawState. Его можно и нужно учитывать при перерисовке.


 
Германн ©   (2007-12-06 15:00) [6]


> smartleds   (06.12.07 14:59) [3]
>
> Даже не только на эту ячейку , но и вообще на таблицу, окрашенные
> ячейки остаются как прежде белыми.
>

Значит не разобрался таки.


 
Anatoly Podgoretsky ©   (2007-12-06 15:03) [7]

Какой цвет задан для состояния Selected такой и будет.



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

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

Наверх




Память: 0.48 MB
Время: 0.017 c
2-1196752240
Kolan
2007-12-04 10:10
2007.12.30
Как преобразовать Integer Delphi цвет в Hex для PhotoShop?


6-1176735518
Dmitry_177
2007-04-16 18:58
2007.12.30
Остановить выполнение accept или recv


3-1188310105
rar
2007-08-28 18:08
2007.12.30
Загрузить картинку в базу Oracle


15-1196024180
FearG0
2007-11-25 23:56
2007.12.30
Portable Delphi


15-1196438884
QWE
2007-11-30 19:08
2007.12.30
Хочется поучаствовать в разработке реального проекта