Kann mir das einer mit ListBoxDrawItem und odFocused erklären

[Sir Rufo]

Tstststs ... anstatt stundenlang die Haare zu raufen und irgendwas auszuprobieren, hätten ein paar gezielte Strg-Clicks auf DrawFocusRect zunächst hierhin gebracht:

Delphi-Quellcode:

unit Vcl.Graphics;
...
procedure TCanvas.DrawFocusRect(const Rect: TRect);
begin
  Changing;
  RequiredState([csHandleValid, csBrushValid]);
  Winapi.Windows.DrawFocusRect(FHandle, Rect);
  Changed;
end;

Dann hierhin:

Delphi-Quellcode:

unit Winapi.Windows;
...
function DrawFocusRect; external user32 name 'DrawFocusRect';

Und schließlich hierhin: MSDN: DrawFocusRect function
Und was finden wir da?

Zitat von MSDN: DrawFocusRect function:

Because DrawFocusRect is an XOR function, calling it a second time with the same rectangle removes the rectangle from the screen.

Aha, damit ist also auch geklärt, warum das explizite Löschen des Canvas eher kontraproduktiv als hilfreich ist

[Popov]

Nun, ich gebe zu, dass ich mir alles angeguckt habe, nur nicht die DrawFocusRect Funktion. Hielt ich nicht für nötig.

Trotzdem sehe ich hier nicht die Antwort auf meine Verwirrung. Vielleicht sehe ich es einfach nur nicht. Das DrawFocusRect Xor zeichnet ist mir klar und auch, dass ein erneutes Zeichnen es wieder löscht. Das habe ich ja auch gemacht. In einem der Beispiel habe ich es vor FillRect gemacht, dann mal danach und zuletzt ganz am Ende.

Wie auch, nach meinem Verständnis sollte von dem Rahmen schon in den ersten Beispielen nichts mehr übrig sein.

Oder habe ich dich missverstanden?

[Sir Rufo]

Das sich 2x XOR aufhebt, funktioniert nur dann, wenn ich das, was das erste XOR verändert hat, vor dem 2. XOR nicht verändere.

Das hast du aber immer gemacht (mit FillRect, TextRect, etc.)

Darum ist es am sichersten alles auf den Canvas zu klatschen, ganz am Ende DrawFocusRect (ja, den Rahmen malen lassen) und das Control macht auch nochmal DrawFocusRect und schwupps ist der Rahmen weg

[Popov]

Das mache ich ja auch, ist ja inzwischen auch nicht das Problem. Und ich muß zugeben, dass ich damals durch harte Versuche selbst drauf gekommen bin. Zuletzt habe ich Blut gespuckt. Denn entweder hatte nie ein anderer je dieses Problem, weil das Entfernen des Rahmens so simpel ist und jeder einen angeborenen Instinkt hat es immer zuletzt zu plazieren, oder es ich weiß es nicht.

Wenn du dir aber das Beispiel 2 anguckst, dann lösche ich da vor FillRect den Rahmen. Aber auch das sehe ich nicht als das Problem an, denn Xor zeichnen verändert nicht die Eigenschaften der Pixel. Wenn also zu Anfang der Prozedur bereits ein Rahmen existiert, dann wird er spätestens nach FillRect weg sein. Xor hin, Xor her.

Wenn ich also (nach meiner Logik) am Ende der Prozedur selbst ein Xor Rahmen zeichne und das System danach wieder einen Xor Rahmen zeichnet, dann ist er weg. Somit müßte nach meinem Verständnis nach dem Ende der Prozedur wieder ein Xor Rahmen gezeichnet werden. Nur ich sehe nicht wo.

[Bummi]

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type

  TListbox=Class(StdCtrls.TListBox)
    procedure CNDrawItem(var Message: TWMDrawItem);  message CN_DRAWITEM;
  End;


  TForm3 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
  private
    Fcanvas:TCanvas;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
var
 i:Integer;
begin
    Fcanvas := TCanvas.Create;
    for I := 1 to 10 do
      Listbox1.Items.Add('testdfdsf');
end;

procedure TForm3.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
 with  TListBox(Control).Canvas do
      begin
      if odSelected in State  then Brush.Color := clLime else Brush.Color := $EEEEEE;
      Fillrect(rect);
      Textout(rect.Left,rect.Top,TListBox(Control).Items[Index]);
      end;

end;

{ TListbox }


procedure TListbox.CNDrawItem(var Message: TWMDrawItem);
var
 w:TOwnerDrawState;
begin
  w := TOwnerDrawState(LoWord(Message.DrawItemStruct^.itemState));
  Exclude(w , odFocused);
  Message.DrawItemStruct^.itemState :=  Message.DrawItemStruct^.itemState and ( $FFFF0000 + Word(w));
  inherited;
end;

end.

[Sir Rufo]

Zitat von Popov:

Das mache ich ja auch, ist ja inzwischen auch nicht das Problem. Und ich muß zugeben, dass ich damals durch harte Versuche selbst drauf gekommen bin. Zuletzt habe ich Blut gespuckt. Denn entweder hatte nie ein anderer je dieses Problem, weil das Entfernen des Rahmens so simpel ist und jeder einen angeborenen Instinkt hat es immer zuletzt zu plazieren, oder es ich weiß es nicht.

Wenn du dir aber das Beispiel 2 anguckst, dann lösche ich da vor FillRect den Rahmen. Aber auch das sehe ich nicht als das Problem an, denn Xor zeichnen verändert nicht die Eigenschaften der Pixel. Wenn also zu Anfang der Prozedur bereits ein Rahmen existiert, dann wird er spätestens nach FillRect weg sein. Xor hin, Xor her.

Wenn ich also (nach meiner Logik) am Ende der Prozedur selbst ein Xor Rahmen zeichne und das System danach wieder einen Xor Rahmen zeichnet, dann ist er weg. Somit müßte nach meinem Verständnis nach dem Ende der Prozedur wieder ein Xor Rahmen gezeichnet werden. Nur ich sehe nicht wo.

zu finden ist das hier:

Delphi-Quellcode:

unit Vcl.StdCtrls;
...
procedure TCustomListBox.CNDrawItem(var Message: TWMDrawItem);
var
  State: TOwnerDrawState;
begin
  with Message.DrawItemStruct{$IFNDEF CLR}^{$ENDIF} do
  begin

    ... // unwichtiger Krams ... wenigstens für diese Betrachtung :o)

    if Integer(itemID) >= 0 then
      DrawItem(itemID, rcItem, State) // <-- hier wird auch das OnDrawItem-Event ausgelöst
    else
      FCanvas.FillRect(rcItem);
    if (odFocused in State) and not TStyleManager.IsCustomStyleActive then

      DrawFocusRect(hDC, rcItem); // <-- da ist der schlimme Finger

    FCanvas.Handle := 0;
  end;
end;

[Popov]

Siehst du, ich wußte, dass es einfach ist. Wo der "Schlimme Finger" war/ist, wußte/weiß ich, ich hab nur bei den zwei Dutzend mal wo ich mir die Prozedur angesehen habe die DrawItem Zeile nicht wahrgenommen.

Ok, Frage beantwortet. Danke euch.