In Lazarus V2.0.10 habe ich bei TCheckGroup einen Bug gefunden.
Bugticket ist erstellt:
https://bugs.freepascal.org/view.php?id=38157
Formular mit dem code:
Code: Alles auswählen
TForm1 = Class(TForm)
Button1: TButton;
CheckGroup1: TCheckGroup;
Procedure Button1Click(Sender: TObject);
Procedure FormCreate(Sender: TObject);
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
CheckGroup1.Items.Insert(0, 'Nr 1');
CheckGroup1.Checked[0] := True;
end;
Procedure TForm1.FormCreate(Sender: TObject);
Var i: Integer;
Begin
For i := 0 To CheckGroup1.Items.Count - 1 Do
CheckGroup1.Checked[i] := True;
end;
In FormCreate werden alle Häkchen gesetzt.
Button1 fügt 1 Item hinzu und setzt Checked[0] auf True.
Ergebnis:
Das Insert fügt zwar in der Liste zu Anfang ein Item hinzu, jedoch werden die Checked[] nicht mit verschoben, dadurch ist das letzte Checked[4] FALSE.
Dankeschön, Markus.