[Roman_LN]

Есть форма Form1: TForm1;
На ней объект MATRIX1: TStringGrid;
Убираю выделение на MATRIX1

Код:

procedure TForm1.MATRIX_1(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
 State: TGridDrawState);
begin
with MATRIX1 do
 begin
   if gdSelected in state then
   begin
     Canvas.Brush.Color:=clwhite;
     Canvas.FillRect(Rect);
     Canvas.Font:=Font;
     DrawText(canvas.Handle, PChar(Cells[ACol, ARow]), -1, Rect,
     DT_NOPREFIX or DT_SINGLELINE);
   end;
 end;
end;

добавил новый файл:StringGrid.pas

Код:

uses
 Forms,
 matrix in 'matrix.pas' {Form1},
 StringGrid in 'StringGrid.pas';

Цель: сделать оформление объектов формы в новом файле, в данном случае убирать выделение с StringGrid в файле StringGrid.pas, как это сделать?