Code: Alles auswählen
Procedure TForm3.ListView1KeyDown(Sender: TObject; Var Key: Word;
Shift: TShiftState);
Var
index, i: Integer;
Begin
// STRG + A = Alles Markieren
index := ListView1.ItemIndex;
If (ssCtrl In shift) And (key = ord('A')) Then Begin
For i := 0 To ListView1.Items.Count - 1 Do Begin
ListView1.Items[i].Selected := true;
End;
exit;
End;
If key = ord('N') Then Begin
For i := 0 To ListView1.Items.Count - 1 Do Begin
If ListView1.Items[i].Selected Then Begin
fListViewData[i].Direction := IndexDoNothing;
End;
End;
ListViewSelectItemIndex(ListView1, index);
End;
If key = ord('R') Then Begin
For i := 0 To ListView1.Items.Count - 1 Do Begin
If ListView1.Items[i].Selected Then Begin
fListViewData[i].Direction := IndexLeftToRight;
End;
End;
ListViewSelectItemIndex(ListView1, index);
End;
If key = ord('L') Then Begin
For i := 0 To ListView1.Items.Count - 1 Do Begin
If ListView1.Items[i].Selected Then Begin
fListViewData[i].Direction := IndexRightToLeft;
End;
End;
ListViewSelectItemIndex(ListView1, index);
End;
UpdatePanelInfo;
End;
Verein
Links
