TCheckListbox, per MouseMove den Check-Status setzen

[taaktaak]

Moin, Moin.

Habe mich immer wieder geärgert, wie umständlich es bei einer größeren Menge von Einträgen ist, den Check-Status zu verändern. Meist gibt es dann zusätzliche Buttons und/oder Tastenkombinationen, die diese Tätigkeit beschleunigen helfen. Heute habe ich mal nach einer alternativen Lösung gesucht und etwas gebastelt, das mir im Ergebnis recht bedienbar erscheint und das ich hier (mit beipielhaftem Code) vorstellen möchte.

Bedienung:
Eine vertikale Bewegung mit gedrückter linker Maustaste über den Listeneinträgen setzt den Check-Status, die Bewegung mit gedrückter rechter Maustaste hebt den Check-Status auf. Die Funktionalität ist nur rechts der dargestellten Checkboxen über dem Texteintrag verfügbar.

Delphi-Quellcode:

var DownLeft  : Boolean; // Kontrollvariablen
    DownRight : Boolean; // (unitglobal) 
    LastIdx   : Integer; // ..
    Modified  : Boolean; // .

procedure TfoMain.clbMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
  DownLeft :=(Button=mbLeft );
  DownRight:=(Button=mbRight);
  LastIdx  :=-1;
  Modified :=false;
end;

procedure TfoMain.clbMouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);
var Idx : Integer;
begin
  if X>15 then                            // nicht im Bereich der Checkboxen
    if DownLeft  or
       DownRight then

      with TCheckListbox(Sender) do begin
    
        Idx:=ItemAtPos(Point(X,Y),true);
        if (Idx>=0) and                   // nur Zeilen mit Inhalt
           (Idx<>LastIdx) then begin      // jede Zeile nur 1x behandeln
     
          if DownLeft then begin
            
            if not(Modified) then Modified:=(Checked[Idx]=false);
            Checked[Idx]:=true
            end
                      else begin
            
            if not(Modified) then Modified:=(Checked[Idx]=true);
            Checked[Idx]:=false
            end;

          LastIdx:=Idx
          end
        end
end;

procedure TfoMain.clbMouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
  DownLeft :=false;
  DownRight:=false;
  if Modified then begin
    // wenn CheckStatus verändert
    // z.B. OnClickCheck-Event aufrufen
    end
end;

[Luckie]

Wie wäre es mit einem kleinem Demo Programm?

[taaktaak]

Na gut, Copy&Paste ist natürlich ein bisserl mühsam. Da ich aber (auch) faul bin, gibt es keine Demo, sondern nur die neueste Version von rzIniViewer nebst Beispiel-INI. In der CLB für die Sections-Auswahl ist das "MouseMoveCheckStateChange" bereits implementiert.

Edit 02.02.2010 -
Aufgrund des geradezu beispiellosen Ansturms auf das Demoprogramm wollen wir das Attachment besser löschen und durch einen speicherplatzsparenden Link auf rzIniViewer ersetzen. Ab voraussichtlich 03.02.2010 wird dort die Version 1.1 zur Verfügung stehen, mit der dann das hier vorgestellte Feature getestet werden kann.