Einzelnen Beitrag anzeigen

Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
1.099 Beiträge
 
Delphi 10 Seattle Enterprise
 
#7

Re: TMS TAdvStringGrid mehrere Zeilen markieren mit der Maus

  Alt 12. Jan 2010, 15:38
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
  Mit Zitat antworten Zitat