CheckListBoxDrawItem und TOwnerDrawState

[Popov]

Irgendwie sehe ich momentan das Problem nicht, allerdings habe ich noch nie in CheckListBox OnDrawItem genutzt

Delphi-Quellcode:

procedure TForm1.CheckListBoxDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TCheckListBox) do
  begin
    if odSelected in State then

In der letzten Zeile kommt die Fehlermeldung

Code:

[Fehler] uMain.pas(115): '[' erwartet, aber 'THEN' gefunden

[Bummi]

Liegt an Deinem With ... die Checklistbox hat auch State

property State[Index: Integer]: TCheckBoxState read GetState write SetState;

einfach den Parameter umbenennen

Delphi-Quellcode:

procedure TForm2.CheckListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; aState: TOwnerDrawState);
begin
  with (Control as TCheckListBox) do
  begin
    if odSelected in aState then
      begin

      end;
  end;
end;

[p80286]

Könnte irgendjemand so freundlich sein und diesen Thread allen schicken die dieses "With" immer noch nutzen?

Bitte!

Gruß
K-H

[Popov]

Danke, hab mir irgendwas in die Richtung gedacht, da sonst nichts verkehrt war.