Multiple Select im DBAdvGrid

[Kostas]

Hallo Zusammen,

die Komponenten IBObjects unterhalten im TIB_Query (ähnlich FDQuery) ein Liste der markierten Datensätze.
Ich kann also bei Doppelklick auf eine Row im TIB_Grid den Datensatz markieren und das Grid
weiterscrollen und weitere Datensätze markieren. Die Liste bleibt erhalten beim scrollen
und auch die Markierungen im TIB_Grid. Ich kann sogar dynamisch ein WHERE PLZ STARTING WITH 8
absetzen, drei Datensätze markieren und danach ein WHERE PLZ STARTING WITH 9 absetzen und weitere 10 Datensetze markieren. Wenn ich danach das dynamische WHERE entferne sehe ich alle Datensätze und die markierten Datensätze sind im Grid immer noch markiert. Jetzt kann ich die Liste der markierten
Datensätze durchlaufen und irgendwas damit anstellen.

Ich versuche schmerzhaft IBO zu verlassen und das gleiche mit FireDac und dem DBAdvGrid
durchzuführen. In der Doku habe ich nichts gefunden. Im Forum einiges über Bookmark.
Es geht wohl mit gedruckter Strg oder Shift-Taste. Doch sobald das Grid gescrollt wird,
ist die Markierung wieder weg. Ja selbst wenn ein refresh ausgeführt wird, ist nichts mehr gebookmarkt.

Ich hätte erwartet das zumindest das DBAdvGrid welches so mächtig ist, das per Default beinhaltet.
Doch in der Doku Fehlanzeige. Noch zudem hat DBAdvGrid ein seltsames Verhalten. Wenn ich die Strg
drucke, wird nicht der aktuelle Datensatz markiert auf den ich gerade klicke sondern der vorherige Datensatz. So ein Mist.

Muss ich also die Liste der markierten Datensätze selbst verwalten
oder geht es doch irgendwie?

Gruß Kostas

[Kostas]

Eine Antwort für mich falls ich wieder einmal danach suchen sollte oder auch für weitere interessierte.

So wie es aussieht gibt ein keine integrierte Lösung.
Nach dem Beispiel "DBAdvGrid ADOSelection sample" funktioniert es so:

In das DBAdvGrid ein neues Feld über Columns anlegen. Das neue Feld bekommt als Property Editor=edDataCheckBox zugewiesen.

Nach jedem checken soll die komplette row farbig markiert werden. Dafür muss das Grid neu gezeichnet werden.

Delphi-Quellcode:

procedure TfrmAdressen.grAdressenCheckBoxClick(Sender: TObject; ACol,
  ARow: Integer; State: Boolean);
begin
  inherited;
  grAdressen.RepaintRow(ARow);
end;

Die row einfärben:

Delphi-Quellcode:

procedure TfrmAdressen.grAdressenGetCellColor(Sender: TObject; ARow,
  ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
var
  state: boolean;
begin
  if grAdressen.GetCheckBoxState(1,ARow,state) then
  begin
    if state then
    begin
      ABrush.Color := clRed;
      AFont.Color := clWhite;
      AFont.Style := [fsBold];
    end
    else
    begin
      ABrush.Color := clWindow;
      AFont.Color := clWindowText;
      AFont.Style := [];
    end;
  end;

end;

Um nun auf alle markierte rows schnell zugreifen zu können:

Delphi-Quellcode:

procedure TfrmAdressen.Button1Click(Sender: TObject);
var
  i,j: integer;
  state: boolean;
  bookmark:string;
begin
  ListBox1.Items.Clear;
  grAdressen.BeginUpdate;
  qrAdressen.DisableControls;
  j := 0;
  qrAdressen.First;
  for i := 1 to grAdressen.RowCount - 1 do
  begin
    if grAdressen.GetCheckBoxState(1,i,state) then
    begin
      if state then
      begin
        qrAdressen.MoveBy(i - 1 - j);
        listbox1.items.Add(qrAdressen.FieldByName('ADRESSID').AsString + ' : '+ qrAdressen.FieldByName('vornamen').AsString);
        j := i - 1;
      end;
    end;
  end;
  qrAdressen.EnableControls;
  grAdressen.EndUpdate;

end;

Über diesen Weg können beliebige Rows markiert werden ohne die Strg Taste und ohne Verlust der Selektion
beim scrollen. Was nicht geht, wie in meiner Beschreibung zu oberst, die selection zu
behalten bei einer Änderung der Where Bedingung. In diesem Fall muss das Ergebnis zwischengespeichert werden.

Gruß Kostas