Einzelnen Beitrag anzeigen

Benutzerbild von haentschman
haentschman
Online

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.275 Beiträge
 
Delphi 12 Athens
 
#1

DevExpress: Expand/Collapse Button fehlen?

  Alt 22. Sep 2021, 07:18
Moin...

Ich habe schon einige Grids mit Gruppierungen (Unbound Grid) gemacht. (Bild1) Jetzt wollte ich ein "altes" DBGrid gruppieren (Bild2)... Die Gruppierung ist schon in Ordnung. Aber die Buttons für Expand/Collapse fehlen.

Helft mir die Einstellung zu finden...

PS: Die Properties der Grids sind indentisch bis auf den Group Footer. (Bild3)
PS: Die Tante gibt mir nur Einträge <> VCL
PS: dcoGroupsAlwaysExpanded = True

Danke

Lösung:
1. dcoGroupsAlwaysExpanded = False
Was auch immer die Visualisierung/Gruppierung im DataController zu suchen hat...
2. Expand Level 1 der Gruppierung
3. Bild Neu
Delphi-Quellcode:
class procedure TToolsDevExpress.ExpandLevel(View: TcxGridTableView; Level: Integer; State: Boolean);
var
  I: Integer;
begin
  View.BeginUpdate;
  try
    View.DataController.Groups.FullExpand;
    for I := View.DataController.RowCount - 1 downto 0 do
    begin
      if View.DataController.GetRowInfo(I).Level = Level then
      begin
        View.DataController.Groups.ChangeExpanding(I, not State, True);
      end;
    end;
  finally
    View.EndUpdate;
  end;
end;
...schön daß wir drüber gesprochen haben.
Miniaturansicht angehängter Grafiken
grid1.png   grid2.png   properties.png   neu.png  

Geändert von haentschman (22. Sep 2021 um 08:19 Uhr)
  Mit Zitat antworten Zitat