![]() |
|
#1
|
|||
|
|||
![]() Есть форма 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; Код:
uses Forms, matrix in 'matrix.pas' {Form1}, StringGrid in 'StringGrid.pas'; |