TMS-TAdvStringGrid, Objects, Sort

[kretabiker]

Moin,

ich habe deinen Source mal 1:1 übernommen - keine Fehlermeldung. Was hast du denn noch für Projekteinstellungen?

Ich hatte mal ähnlich gelagerte Probleme beim TAdvStringGrid, da hat mir der TMS-Support empfohlen, die Initialisierung des Grids mit Daten aus dem FormCreate rauszunehmen und zu einem späteren Zeitpunkt zu machen, z.B. im FormShow. Das hat in meinem Fall tatsächlich geholfen.

[kretabiker]

zwei kleine Änderungen habe ich vorgenommen:

1. In der Routine AddObjects lasse ich zusätzlich in Spalte 1 des Grids ein paar Integer-Werte schreiben, um die Sortierung zu sehen - passt, sortiert wird munter, Fehlermeldung: keine.
2. Vom auskommentierten Sourcecode in der Routine Sort habe ich den Part mit nil-Setzen der Objekte wieder aktiviert, Fehlermeldung: Keine - auch nicht mit einem Free-en statt nil-en

[ConstantGardener]

Hast Du das Grid gruppiert?

Wenn ja pack das Item mal in die zweite Spalte! Die Erste wird beim group "zerschossen" glaube ich mich zu errinnern.

cu cg

[hoika]

Hallo,
ist nicht gruppiert.
Das TCustomGrid.Objects wird vom TAdvStringGrid intern benutzt, ja,
dafür hat das TAdvStringGrid ja enin überladenes (reintroduced?) Property Objects,
was die Aufrufe in CellProperties.GridObjects umleitet.

Was habe ihr denn beide für eine Version des Grids?

[kretabiker]

Mein Grid ist Version 8.2.0.1 (Oktober 2016 - wie, sollte ich das ganze Jahr kein Update gemacht haben?). Delphi Berlin 10.1 Berlin

[hoika]

Hallo,
meine ist viel älter ...

Aber ich benutze das an anderer Stelle auch.
QSort statt QSortIndexed bringt auch nichts.

Objects[1, statt Objects[0 geht auch nicht.

[hoika]

Hallo,
so, auf der Suche nach ClearCellProperties habe ich jetzt das

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  SG.BeginUpdate;
  SG.Clear;  // <<-- hier
  SG.EndUpdate;

  inherited ;
end;

und erledigt !

Vielen Danke an alle.