Как изменить цвет линий сетки TStringGrid?

Question

Я только что закончил переход с D7 на XE2, и я заметил, что сетки по умолчанию очень слабы (это не помогает мне настроить контраст на моем мониторе на высокий уровень), как вы можете видеть на скриншоте ниже:

Это была моя попытка повторно цвет линии темнее, установив TStringGrid «s OnDrawCell событие:

procedure TfrmBaseRamEditor.DrawStrGrid(Sender: TObject; ACol, ARow: Integer; 
             Rect: TRect; State: TGridDrawState); 
begin 
    sgrSenden.Canvas.Pen.Color := clDkGray; 
    // "Set the Style property to bsClear to eliminate flicker when the object 
    // repaints" (I don't know if this helps). 
    sgrSenden.Canvas.Brush.Style := bsClear; 
    // Draw a line from the cell's top-right to its bottom-right: 
    sgrSenden.Canvas.MoveTo(Rect.Right, Rect.Top); 
    sgrSenden.Canvas.LineTo(Rect.Right, Rect.Bottom); 
    // Make the horizontal line. 
    sgrSenden.Canvas.LineTo(Rect.Left, Rect.Bottom); 
    // The other vertical line. 
    sgrSenden.Canvas.LineTo(Rect.Left, Rect.Top); 
end; 

Но это дает результат еще менее желательно, обратите внимание, особенно на границу активной ячейки:

Есть ли способ, чтобы сделать эти сетки линий темнее или толще таким образом, чтобы не выглядеть некрасиво, как моя попытка?

Answer 1

В соответствии с ответом на вопрос this, я просто задал имущество TStringGrid по gdsClassic.

Answer 2

Я также хотел использовать другой цвет на линиях сетки (однако, в Delphi 6). К сожалению, цвет линий не может быть задан индивидуально. Я исследовал обработку TStringGrid (Grid.pas) блок и обнаружил, что Delphi устанавливает цвет линии для clSilver с выражением в процедуре TCustomGrid.Paint:

LineColor := clSilver; 

Если цвет фона уже есть clSilver, то LineColor установлен в clGray.

Я не понимаю, почему они не реализовали свойство для цвета линии сетки.