Delphi-PRAXiS - Delphi TStringGrid.Options

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi TStringGrid.Options (https://www.delphipraxis.net/67172-tstringgrid-options.html)

TStringGrid.Options

Hallo Leute,
ich hab ein Problem mit den Stringrid.Options ich habe folgenden Code:

procedure TfrmVerlaengern.btnAnsichtClick(Sender: TObject);
begin
myOptions := sgListe.Options;
if btnAnsicht.Tag = 0 then
begin
if not(goColSizing in sgListe.Options) then
sgListe.Options := sgListe.Options + [goColSizing];
btnAnsicht.Caption := 'Beenden';
btnAnsicht.Tag := 1;
sgListe.Color := clRed;
end
else
begin
if (goColSizing in sgListe.Options) then
sgListe.Options := sgListe.Options - [goColSizing];
btnAnsicht.Caption := 'Ansicht';
btnAnsicht.Tag := 0;
sgListe.Color := clwhite;
Schreibe_Einstellungen
end;
end;

Ich will die Spaltenbreiten einfach eistellen können. So weit so gut, aber ich bekomme immer ein Exception "Gitteindex außerhalb des gültigen Bereichs". Es stimmt aber alles, RowCount und ColCount stimmen. Wer kann mir weiterhelfen#

mfg
Tossi

Re: TStringGrid.Options

Zitat:

Zitat von Tossi

Ich will die Spaltenbreiten einfach eistellen können. So weit so gut, aber ich bekomme immer ein Exception "Gitteindex außerhalb des gültigen Bereichs". Es stimmt aber alles, RowCount und ColCount

Letzteres stimmt eben nicht ! Das hat mit Spaltenbreiten überhaupt nichts zu tun. Vergesse die Breite und der Fehler wird weiterhin genauso auftreten. Irgendwo setzt Du den Index (also Col oder Row) auf einen falschen Wert.