Vælg en kolonne i en stringgrid.

Er ikke helt sikker på at vi snakker om en TStringGrid. Det eneste jeg kan finde om RowSelect er vedr. TListViews. Kan du prøve at uddybe?

Hej hrc

I en TSringGrid kan man sætte goRowSelect under options i denne komponent, det bevirker at hele linjen hvor man står bliver sat til en farve og når man bevæger sig op/ned så ændre den sig.

mvh
Jesper

UPS, lige en kommentar mere!!

Den skal virke på samme måde MEN bare til højre/venstre istedet.

mvh
Jesper

Jeg kan ikke komme på andet end at sætte DefaultDraw til false og så tegne det selv - noget i retning af dette:

unit FMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TfrmMain = class(TForm)
    sgGrid: TStringGrid;
    procedure sgGridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
    procedure sgGridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    fSelectedCol : integer;
  public
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.sgGridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
                                  State: TGridDrawState);
begin
  with (Sender as TStringGrid) do begin
    if (FixedCols > aCol) or (FixedRows > aRow) then begin
      Canvas.Brush.Color := clBtnFace;
      Canvas.FillRect(Rect);
    end
    else if ACol = fSelectedCol then begin
      Canvas.Brush.Color := clBlue;
      Canvas.FillRect(Rect);
    end
    else begin
      Canvas.Brush.Color := clWindow;
      Canvas.FillRect(Rect);
    end;
  end;
end;

procedure TfrmMain.sgGridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
begin
  fSelectedCol := aCol;
  (Sender as TStringGrid).Refresh; // Ellers tegner den ikke alle kolonner op.
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  fSelectedCol := sgGrid.FixedCols; // Gem kolonne så OnCellDraw ved hvor den skal markere
end;

end.

Så skal du naturligvis også tegne/skrive i felterne selv - noget mere bøvl, men det er det eneste jeg kan komme på.

hrc >>  Guns N' Roses DO rocks :-)

anyway,

procedure TForm1.Button1Click(Sender: TObject);
var
  t: TGridRect;
begin

  t.left:=1;
  t.right:=1;
  t.top:=stringgrid1.fixedrows;
  t.bottom:=stringgrid1.RowCount;
  stringgrid1.selection:=t;
end;

Stoney

stoney - Jeg så godtnok TGridRect men troede at det var pixel-koordinaterne eller lignende. Det ser jo ud til at løse opgaven.

P.s. "rocks" skulle være "sucks", ikke? En typisk tastefejl :-) Vi har det røde og blå album (illusion I & II), men den fænger altså ikke hos mig. Håber det tæller op at jeg synes Delphi er et fedt programmeringssprog.