TMS TAdvStringGrid mehrere Zeilen markieren mit der Maus

[Kostas]

Zitat von exilant:

Vielleicht hilf das hier.

Die Selektierung läst sich folgendermassen aufheben:

Delphi-Quellcode:

procedure TForm1.Unselect;
var t : tgridrect;
begin
   t.Left := MyGrd.col;   t.Right  := MyGrd.col;
   t.top  := MyGrd.row;   t.bottom := MyGrd.row;
   MyGrd.Selection := t;
end;

Danach ist nur noch die vorher angewählte Zelle selektiert.

Hallo exilant,
ich habe das Problem lösen können.

Es liegt an der Eigenschaft Look.
Office 2007, Windows Vista und Windows 7 entfernen die Auswahl nicht!
Alle andere Looks gehen wie z.B.: Windows XP

Mann sucht sich einen Wolf und dann ist es so etwas Super Gemeines.
Ob es jetzt ein Bug ist ober by Design der Komponente ist mich nicht klar.
Auf jeden Fall Fuck auf Vista und nehme XP Themes.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Memo1.lines.clear;
  for i := 1 to Grid.RowCount-1 do
  begin
    if Grid.RowSelect[i] then
    begin
      Grid.RowSelect[i]:=false;
      Memo1.lines.add(Grid.cells[1,i]);
    end;{if}
  end;

end;

Gruß kostas