Forum: Win32/Win64 API (native code)
Delphi
by KodeZwerg,
11. Apr 2018
Quarks
Ich habe mal in dein Projekt geschaut, eine schnellere Variante kenne ich auch nicht.
Wenn es Dir um Zeitersparniss in vielen CheckListBoxen geht, würd ich für jede eine CheckListBox nutzen, somit entfällt der Zeitraubende Faktor beim neu befüllen.
Ich hatte Anfangs gedacht das CheckListBoxen pro Tab die gleichen sind, nur halt anders markiert/gecheckt werden sollen.
Forum: Win32/Win64 API (native code)
Delphi
by KodeZwerg,
11. Apr 2018
Da nimm CheckListBox.Checked := CheckedMask;
Dein Aufruf über items.checked löst ein Neuzeichnen aus, bin ich fast fest von überzeugt.
Forum: Win32/Win64 API (native code)
Delphi
by KodeZwerg,
11. Apr 2018
Für "CheckListBox.Checked := True/False" Variante braucht man kein Begin/EndUpdate da Einträge nicht verändert werden, nur die Box, oder irre ich mich?
Forum: Win32/Win64 API (native code)
Delphi
by KodeZwerg,
11. Apr 2018
Ich habe es gerade mal ausprobiert und stelle keine Neuzeichnungen fest.
Ich hab 50 Einträge in eine CheckListbox abgelegt und so den Checked-Wert verändert:
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
for i := 0 to CheckListBox1.Items.Count-1 do
begin
CheckListBox1.Checked := not CheckListBox1.Checked;