Listbox Items unselektierbar machen ohne Enabled property

[API]

{Listbox1.Style := lbOwnerDrawFixed}

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with TListbox(Control) do
  begin
    if odSelected in State then
    begin
      Canvas.Brush.Color := Color;
      Canvas.Font.Color := Font.Color;
    end;

    Canvas.FillRect(Rect);

    Rect.Left := Rect.Left + 2;

    DrawText(Canvas.Handle,
      PChar(Items[Index]),
      -1,
      Rect,
      DT_SINGLELINE or DT_VCENTER);
  end;
end;

Falls du den Focus Rahmen noch wegbringen möchtest, wird's wohl komplizierter...

[richard_boderich]

@API

genau darum geht es.

mfg Richard

[API]

oder so?

Delphi-Quellcode:

with (Control as TListBox) do
  begin
    Canvas.Brush.Color := Color;
    Canvas.Font.Color := Font.Color;
    canvas.FillRect(rect);
    DrawText(Canvas.Handle,
      PChar(Items[Index]),
      -1,
      Rect,
      DT_SINGLELINE or DT_VCENTER);
    if odSelected in state then
      Canvas.DrawFocusRect(rect);
  end;

[richard_boderich]

@API

Also das scheint meistens zu funktionieren, jedoch hatte ich beim Test hier 1 mal eine Doppelzeichnung des item selectframes.
Trotzdem vielen Dank für deine Hilfe.

mfG Richard