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