|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
StringGrid красим ячейки мышкой
Всем привет! есть код:
Код:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin With TstringGrid(Sender) Do begin If (gdSelected in State)and(ACol=Col)And(ARow=Row) then begin Canvas.Brush.Color:= clRed ; Canvas.FillRect(Rect); Canvas.DrawFocusRect(Rect); end else If (gdSelected in State) then begin Canvas.Brush.Color:= clRed ; Canvas.FillRect(Rect); Canvas.DrawFocusRect(Rect); Canvas.DrawFocusRect(Rect); end; end; Выделенные ячейки закрашиваются в красный цвет. 1) Как сделать чтоб ячейки оставались закрашенными, после перехода в другую ячейку? 2) Как сделать исключение при закраске - при выделении красных ячеек они красятся в белый и наоборот Последний раз редактировалось Admin, 29.04.2010 в 18:01. |
#2
|
||||
|
||||
Раз цвета всего 2 - завеби булевый массив размером с сетку и там паралелльно помечай красная у тебя ячейка или белая
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
||||
|
||||
Цитата:
*опередил, блин...* Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |