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:

procedure Tfrm_karte.clb_andere_extrasDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  clb: TCheckListBox;
begin
  clb := TCheckListBox(Control);
  if clb.Enabled then
  begin
    if clb.itemEnabled[index] then
    begin
      if odSelected in State then
      begin
        clb.Canvas.Brush.Color := clHighlight;
        clb.Canvas.Font.Color := clWhite;
      end
      else
      begin
        clb.Canvas.Brush.Color := gi_Color.ofeld;
        clb.Canvas.Font.Color := clWindowText;
      end;
    end
    else
    begin
      clb.Canvas.Brush.Color := gi_Color.rfeld;
      clb.Canvas.Font.Color := clBtnText;
    end
  end
  else
  begin
    clb.Canvas.Brush.Color := gi_Color.rfeld;
    clb.Canvas.Font.Color := clBtnText;
  end;
  clb.Canvas.FillRect(Rect);
  clb.Canvas.TextOut(Rect.left, Rect.top, clb.Items[Index]);
end;