1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure TForm1.MonthCalendar1Click(Sender: TObject);
var i: integer;
    Value : TListItem;
    s: string;
begin _i:=0; // Global(integer)
Datum.Text := FormatDatetime('dd.mm.yyyy',MonthCalendar1.Date);
_CalendarClick:=True; //Globale Var(in CustomDraw verwendet)
Value := tListitem.Create(listview1.items); _item
for I := 0 to ListView1.Items.Count - 1 do
    begin
    if ListView1.FindCaption (0,Datum.Text,true,true,true) <> nil then
       begin
       s:=(ListView1.items.item[i].Caption);
       Value := ListView1.FindCaption (0,Datum.Text,true,true,true);
       if (Value <> Nil)  And (value.caption=s) then
          begin _items[i]:=True; // Global(_items)
          Label2.Caption := '<'+Value.caption+'>'; // Nur zur Kontrolle
          showmessage('<'+IntToStr(i)+'>  '+ListView1.items.item[i].Caption+
                      '  <'+BoolToStr(_items[i])+'>');
          end else _items[i]:=False;
       end;
    end;
ListView1.Invalidate;
end;

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if (_CalendarClick) And (_items[_i]) then
   ListView1.Canvas.Brush.Color:=clGreen
   else
   if Odd(Item.Index) then
      ListView1.Canvas.Brush.Color:=clSilver;
      else ListView1.Canvas.Brush.Color:=clWindow;
inc(_items[_i]);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

procedure TForm1.FormShow(Sender: TObject);
begin
if (_NoBeleg=False) And (_CalendarClick=False) then
   begin 
   //ListView1.Items[_Belege-1].Selected := TRUE; // _Belege(Global) = Anzahl(Einträge)
   //ListView1.Items[_Belege-1].MakeVisible(False); // auskommentiert, denn nur diese Ansicht zeigt alles fehlerfrei
   ListView1.SetFocus;
   end;
end;

procedure TForm1.MonthCalendar1Click(Sender: TObject);
var i: integer;
    Value : TListItem;
    s: string;
begin _i:=0; for i:=0 to 500 do _items[i]:=False;
Datum.Text := FormatDatetime('dd.mm.yyyy',MonthCalendar1.Date);
_CalendarClick:=True; //Globale Var
Value := tListitem.Create(listview1.items);
for I := 0 to ListView1.Items.Count - 1 do
    begin
    if ListView1.FindCaption (0,Datum.Text,true,true,true) <> nil then
       begin
       s:=(ListView1.items.item[i].Caption);
       Value := ListView1.FindCaption (0,Datum.Text,true,true,true);
       if (Value <> Nil)  And (value.caption=s) then
          begin _items[i]:=True;
          Label2.Caption := '<'+Value.caption+'>';
          ListView1.Items[i].Selected := TRUE;
          end else _items[i]:=False;
       end;
    end;
ListView1.Invalidate;
Summe.SetFocus;
end;

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if (_CalendarClick) And (_items[_i]) then
   begin
   ListView1.Canvas.Brush.Color:=clGreen;
   {if (ListView1.Items[_i].Selected) then
       hier alle selektierten items nach oben(Top) verschieben?? Und in FormShow alle=MakeVisible??}
   end else
       if Odd(Item.Index) then
          ListView1.Canvas.Brush.Color:=clSilver
          else ListView1.Canvas.Brush.Color:=clWindow;
inc(_i);
end;