[gelöst] Wo finde ich TCustomStringGrid?

[kralle]

Moin,

wo finde ich das "TCustomStringGrid"?

Gruß Heiko

[theo]

Manchmal hast du schon echt merkwürdige Fragen für jemand, der schon 14 Jahre dabei ist.

Am gleichen Ort wo TStringGrid ist, nämlich in Grids (grids.pas)
TCustomXYZ ist fast immer der direkte Vorfahr von TXYZ.
Der Unterschied liegt meistens nur im publishen von Eigenschaften für den Objekinspektor.

Ausserdem kann man so etwas allgemein auch über "Suche Bezeichner" durch Rechtsklick im Nachrichtenfenster finden (via Code Browser). Siehe z.B. viewtopic.php?p=120881#p120881

[Niesi]

Lege Dir ein TStringGrid auf eine Form.

Klicke im Quelltext mit der rechten Maustaste auf TStringGrid und wähle "Find Declaration ...".

Die Unit "Grids" wird geöffnet.

Klicke rechts auf "TCustomStringGrid" und wähle "Find Declaration ..." ...

Edit: Für Anfänger auch nützlich sind

https://lazarus-ccr.sourceforge.io/docs ... ggrid.html

https://wiki.freepascal.org/Grids_Reference_Page

[kralle]

Hallo Theo,

Manchmal hast du schon echt merkwürdige Fragen für jemand, der schon 14 Jahre dabei ist.

14 Jahre? Pascal Erstkontakt Mitte der 80er Jahre.
Aber ich habe es nie gelernt. Ich habe mir immer wenn ich eine Tool brauchte, die nötigen Codezeilen für das was ich nicht wusste, zusammen gesucht.

Am gleichen Ort wo TStringGrid ist, nämlich in Grids (grids.pas)
TCustomXYZ ist fast immer der direkte Vorfahr von TXYZ.
Der Unterschied liegt meistens nur im publishen von Eigenschaften für den Objekinspektor.

Okay, deshalb gibt es keine Komponenten die so heißt.

Ausserdem kann man so etwas allgemein auch über "Suche Bezeichner" durch Rechtsklick im Nachrichtenfenster finden (via Code Browser)

Egal in welches Suchfenster/-feld ich "TCustomStringGrid" eingebe, es wird nichts dazu gefunden.

Das heißt jetzt aber doch auch, dass das hier auch für das Stringgrid gilt:

Code: Alles auswählen

DBGrid1.Options := DBGrid1.Options + [dgAutoSizeColumns];

nur das die Option nicht im Objektinspektor angezeigt wird - oder?


Gruß Heiko

[kralle]

oin,

Lege Dir ein TStringGrid auf eine Form.

Klicke im Quelltext mit der rechten Maustaste auf TStringGrid und wähle "Find Declaration ...".

Die Unit "Grids" wird geöffnet.

Klicke rechts auf "TCustomStringGrid" und wähle "Find Declaration ..." ...

Das funktioniert alles so weit, aber als ich den Tipp fand, das "TCustomStringGrid" die Spaltenbreite an den Inhalt automatisch anpassen kann, suchte ich nach einer Visuellen Komponente mit diesem Namen.

Edit: Für Anfänger auch nützlich sind

https://lazarus-ccr.sourceforge.io/docs ... ggrid.html

https://wiki.freepascal.org/Grids_Reference_Page

Da sieht man schön wer von wem abstammt, aber nicht wer als Visuelle Komponente vorliegt und wer nicht.

Gruß Heiko

[theo]

Egal in welches Suchfenster/-feld ich "TCustomStringGrid" eingebe, es wird nichts dazu gefunden.

Bei mir schon:

lazcodebrowser.png (82.1 KiB) 4642 mal betrachtet

Das heißt jetzt aber doch auch, dass das hier auch für das Stringgrid gilt:

Code: Alles auswählen

DBGrid1.Options := DBGrid1.Options + [dgAutoSizeColumns];

nur das die Option nicht im Objektinspektor angezeigt wird - oder?

Wahrscheinlich.

[kralle]

Mein Fehler. Habe es im Code-Explorer eingegeben und nicht im Code-Browser.
Die Darstellung war so klein, das ich nur "Code-" sehen konnte.

Es gibt zwar das hier

Code: Alles auswählen

  procedure AutoSizeColumn(aCol: Integer);
    procedure AutoSizeColumns;     

beim "TCustomStringGrid", aber nicht bei "TStringGrid".
Hier gibt es nur "goColSizing", aber das erlaubt nur das Ändern der Breite.

Ich habe mir dann ein Procedure aus dem Netz geladen, die es angeblich kann, aber auch die schafft es nicht.

Code: Alles auswählen

procedure grdColWidth(grd: TStringGrid; min: Word);
var i, j, tmp, max: Word;
const dx = 5;

begin
  with grd do begin
    for j := 0 to (ColCount -1) do begin         // alle Spalten
      max := 0;
      for i := 0 to (RowCount - 1 ) do begin     // alle Zeilen
       tmp := Canvas.TextWidth(Cells[j, i]);
       if tmp > max then max := tmp
      end;
      if max > min then                          // nur wenn Minimalbreite überschritten wird,
      ColWidths[j] := max + GridLineWidth + dx  // ... dann Spalte verbreitern
     end
  end
end; 

Gruß Heiko

Code: Alles auswählen

[wp_xyz]

Das heißt jetzt aber doch auch, dass das hier auch für das Stringgrid gilt:

Code: Alles auswählen

DBGrid1.Options := DBGrid1.Options + [dgAutoSizeColumns];

nur das die Option nicht im Objektinspektor angezeigt wird - oder?

Wieso soll denn TStringGrid eine Eigenschaft haben, die zu TDBGrid gehört? Richtig ist dass TStringGrid einen Satz von Optionen (vom Typ TGridOptions) von TCustomGrid erbt. In TCustomGrid sind diese Options als protected deklariert, also von außen nicht sichtbar; TStringGrid deklariert die Options dann als published, so dass sie im Objekt-Inspektor sichtbar werden. TDBGrid (das auch von TCustomGrid abgeleitet ist) hat zwar ebenfalls Options, jedoch sind die ein anderer Typ: TDBGridOptions, haben also trotz der Namensgleichheit überhaupt nichts mit den Options des StringGrid zu tun. Und vor allem: beide Grids stammen von TCustomGrid ab, aber das heißt nicht dass TStringGrid auf irgendwelche Properties zugreifen kann, die in TDBGrid eingeführt wurden.

Um bei einem TStringGrid die Spaltenbreite an den Text anzupassen, kannst du die Methode AutoSizeColumn(ColumnIndex) anwenden (oder AutoSizeColumns() für alle Spalten).

[theo]

beim "TCustomStringGrid", aber nicht bei "TStringGrid".

Wie kommst du darauf?
TStringGrid erbt alles von TCustomStringGrid.

[kralle]

Moin,

Wieso soll denn TStringGrid eine Eigenschaft haben, die zu TDBGrid gehört?

War nur als Beispiel.

Um bei einem TStringGrid die Spaltenbreite an den Text anzupassen, kannst du die Methode AutoSizeColumn(ColumnIndex) anwenden (oder AutoSizeColumns() für alle Spalten).

Beides interessiert mein StringGrid nicht. Es ist auch egal, ob die Option "goColSizing" aktiv ist oder nicht.
Die Spaltenbreite bleibt gleich. Auch "DefaultColWitdh" kann ich auf beliebige Werte setzen.

Gruß Heiko

[kralle]

Hier mal das Programm als ZIP.
Vielleicht bin ich wirklich zu blöd.

Gruß Heiko

[fliegermichl]

Wenn du AutosizeColumns aufrufst, bevor du das Grid füllst, was erwartest du dann für ein Ergebnis?

[kralle]

Danke.

Wenn du AutosizeColumns aufrufst, bevor du das Grid füllst, was erwartest du dann für ein Ergebnis?

Ich habe schon an meinem Verstand gezweifelt.

Gruß Heiko