TStringGrid -[goRowSelect] wird nicht visualisiert

[hoika]

Hallo,

folgender Code schaltet goRowSelect ein oder aus (per CheckBox).
Problem:
wird RowSelect eingeschaltet, wird brav die ganze Zeile markiert,
wird es ausgeschaltet, bliebt die Zeile markiert, bis man in eine Zelle klickt.
Danach ist nur diese eine Zelle markiert, wie erwartet.
BeginUpdate/EndUpdate, Refresh, Repaint, nichts hilft.

Das sollte für das TMS-TAdvStringGrid sein, aber auch das normale TStringGrid reagiert so.

Hat jemand eine Lösung?

Danke

Delphi-Quellcode:

  if CheckBox1.Checked then
  begin
    AdvStringGrid1.Options := AdvStringGrid1.Options-[goRowSelect];
    StringGrid1.Options := StringGrid1.Options-[goRowSelect];
  end
  else
  begin
    AdvStringGrid1.Options := AdvStringGrid1.Options+[goRowSelect];
    StringGrid1.Options := StringGrid1.Options+[goRowSelect];
  end;

[Harry Stahl]

Ergänze nach dem Click einfach wie folgt:

Delphi-Quellcode:

 for L := AdvStringGrid1.ColCount-1 downto AdvStringGrid1.FixedCols
      do AdvStringGrid1.Col := L;

Das funktioniert sowohl mit dem StringGrid als auch mit dem TMS-AdvStringGrid

[Volker Z.]

Hallo,

geht das in Deine Richtung?

Delphi-Quellcode:

procedure TForm1.SetRowSelect (const Value : Boolean; const Grid : TDrawGrid);
var
  l, t : Integer;
begin
  l := Grid.Col;
  t := Grid.Row;

  Grid.Selection := TGridRect (Rect (l, t, l, t));
  if Value then
    Grid.Options := Grid.Options + [goRowSelect]
  else
    Grid.Options := Grid.Options - [goRowSelect]
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  SetRowSelect (CheckBox1.Checked, StringGrid1);
  SetRowSelect (CheckBox1.Checked, AdvStringGrid1);
end;

Gruß

[EDIT]Kein roter Kasten[/EDIT]

[Captnemo]

Zitat von Harry Stahl:

Ergänze nach dem Click einfach wie folgt:

Delphi-Quellcode:

 for L := AdvStringGrid1.ColCount-1 downto AdvStringGrid1.FixedCols
      do AdvStringGrid1.Col := L;

Das funktioniert sowohl mit dem StringGrid als auch mit dem TMS-AdvStringGrid

Würde da nicht einfach nur
AdvStringGrid1.Col := AdvStringGrid1.FixedCols reichen?
Da FixedCols ja die Anzahl der fixierten Spalten ist, würde diese Zahl als Index verwendet immer die erste Zelle innerhalb der Zeile selektieren. Warum erst von größten Spalte runterzählen?

[idefix2]

Weil col eine Property ist, bei deren Zuweisung noch andere Dinge passieren (z.B. eben markieren/Markierung löschen, wie hier gefragt - falls die Lösung so funktioniert )

[Captnemo]

Zitat von idefix2:

Weil col eine Property ist, bei deren Zuweisung noch andere Dinge passieren (z.B. eben markieren/Markierung löschen, wie hier gefragt - falls die Lösung so funktioniert )

Soll das eine Erklärung sein, warum man nacheinander von der größten col her selektieren soll?

[hoika]

Hallo,

der Code von Harry klappt, danke!

Das hier klappt nicht, warum auch immer.
AdvStringGrid1.Col := AdvStringGrid1.FixedCols


Heiko