VPF::Как убрать стандартное выделение пунктиром

GenaNa

Дата 23.12.2009, 21:30 (ссылка)

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

Загрузка ...

Новичок

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

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

Тема http://forum.vingrad.ru/topic-72825.html очень похожа, но ответа нет - предлагается выделить всю строку или использовать другие компоненты.
Нужно убрать именно выделение активной ячейки StringGrid пунктиром по контуру.

В событии OnDrawCell не убирается (можно только убрать стандартное выделение цветом).

Подскажите, пожалуйста, решение проблемы

Amphiluke

Дата 23.12.2009, 22:22 (ссылка)

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

Загрузка ...

☽

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

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

Цитата(GenaNa @ 24.12.2009, 00:30

)

В событии OnDrawCell не убирается

Разве не работает? smile

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Options := StringGrid1.Options + [goEditing];
  StringGrid1.DefaultDrawing := False;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with StringGrid1.Canvas do
  begin
    if gdFixed in State then
    begin
      Brush.Color := clBtnFace;
      FillRect(Rect);
      Pen.Color := clBlack;
      MoveTo(Rect.Right, Rect.Top);
      LineTo(Rect.Right, Rect.Bottom);
      LineTo(Rect.Left, Rect.Bottom);
      Pen.Color := clBtnHighLight;
      MoveTo(Rect.Left, Rect.Bottom - 1);
      LineTo(Rect.Left, Rect.Top);
      LineTo(Rect.Right - 1, Rect.Top);
      Pen.Color := clBtnShadow;
      LineTo(Rect.Right - 1, Rect.Bottom - 1);
      LineTo(Rect.Left - 1, Rect.Bottom - 1);
      Pen.Color := clBtnText;
    end
    else
    begin
      Brush.Color := clWindow;
      FillRect(Rect);
    end;

    TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);
  end;
end;

GenaNa

Дата 24.12.2009, 03:00 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Amphiluke @ 23.12.2009, 22:22)

Разве не работает?

Спасибо, выделение исчезает даже только при использовании этих строк:
smile

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Options := StringGrid1.Options + [goEditing];
  StringGrid1.DefaultDrawing := False;
end;

Правда, пришлось прорисовывать в OnDrawCell все, что раньше делал DefaultDrawing

Это сообщение отредактировал(а) GenaNa - 24.12.2009, 03:00

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