TStringGrid.Options

[Tossi]

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

[Hansa]

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.