[gelöst] Stringgrid Selection

[DAP]

Hallo,

ich selectiere einen Bereich in einem Stringgrid per Programmcode wie folgt:

Code: Alles auswählen

 
 
  StringGrid1.Selection := TGridRect(Rect(1,1,2,2));
  StringGrid1.Row := 2;
  StringGrid1.Col := 2;
 
 

Das läuft soweit. Wenn man jetzt versucht die Markierung mit der Kombination
Shift Taste und den Pfeiltasten zu erweitern, erkennt er nicht die bereits
selektierten Zellen.

Gibt es einen Schalter oder einen Befehl, um das korrekte Verhalten zu erzwingen?

Gruß DAP

[wp_xyz]

Könnte ein Bug sein. Du solltest dieses Verhalten im BugTracker melden.

Als Zwischenlösung habe ich mit Hilfe des Debuggers folgendes gefunden: Offenbar ist das mit "Selection := ..." definierte Zellrechteck nur eine visuelle Auswahl,die sich anders verhält als wenn man sie mit Mausklick oder Shift erzeugt hat. Insbesondere wird in "SetSelection" das Flag "SelectActive" zurückgesetzt, so dass das Grid nicht mehr weiß, dass der Selektierungsmodus aktiv ist. Von Hand kann man das folgendermaßen korrigieren:

Code: Alles auswählen

 
type
  TMyGrid = class(TCustomDrawGrid);
 
procedure Grid_SelectCells(AGrid: TCustomDrawGrid; const ARect: TGridRect);
begin
  // erste Ecke der Auswahl
  AGrid.Row := ARect.Left;
  AGrid.Col := ARect.Top;
  // Selektierungsmodus aktivieren
  TMyGrid(AGrid).SelectActive := true;
  // zweite Ecke der Auswahl
  AGrid.Row := ARect.Right;
  AGrid.Col := ARect.Bottom;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Grid_SelectCells(StringGrid1, TGridRect(Rect(1,1, 2,2)));
end;
 

[DAP]

Hallo wp_xyz,

vielen Dank, Deine Lösung funktioniert.

Einen Bugreport habe ich noch nie erstellt, ist
das kompliziert und wie geht das?

Danke nochmals für die superschnelle Lösung.

DAP

[wp_xyz]

Du gehst auf http://mantis.freepascal.org, meldest dich an und klickst dann auf "Report an issue". Da beschreibst du das Problem und wie man es nachvollziehen kann. Ähnlich wie hier. Dann solltest du üblicherweise ein Demo-Projekt (*.pas, *.lfm, *.lpi, *.lpr als zip) anfügen (hier: Formular mit Grid, im FormCreate dein Code aus dem ersten Posting) and erklären, wie man den Fehler erzeugen kann. Auch meinen Code als temporäre Lösung erwähnen. Das alles auf Englisch. Warnung: die Seite ist ziemlich gewöhnungsbedürftig, vor dem Abschicken den Report mindestens 3x durchlesen, man hat hinterher keine Möglichkeit mehr etwas zu korrigieren, und kann nur noch weitere Notizen anhängen.

Wenn's dir zu kompliziert ist, kann ich es aber auch für dich erledigen.

[wp_xyz]

Ich habe den Bug-Report jetzt doch selber geschrieben, weil ich auch gleich einen Patch anfügen konnte (Entfernen einer Zeile aus grids.pas): http://mantis.freepascal.org/view.php?id=25835.

[DAP]

Ich habe den Bug-Report jetzt doch selber geschrieben, weil ich auch gleich einen Patch anfügen konnte (Entfernen einer Zeile aus grids.pas): http://mantis.freepascal.org/view.php?id=25835.

vielen dank wp_xyz, dass hätte ich nicht so hinbekommen.

DAP

[wp_xyz]

Und schon ist der Bug behoben.

Wenn ich da an meine Bug-Reports denke, die ich für Delphi geschrieben habe...

[Christian]

Ich glaub mein Record war mal bei 4 minuten vom absenden des reports bis zum schliessen desselbigen (und den bug hab nicht ich behoben)