ListView GetGroupRect

[Björn Ole]

Ich hab mittlerweile herausgefunden, dass das Rect die Maße enthält, die auch GetTextExtentPoint32 zurückliefert, also GetTextExtentPoint32 = (Rect.Right - Rect.Left). Die Breite des Rects entspricht der Textbreite in normaler Schrift, z.B. in einem Item des ListViews. Dummerweise wird der Text der GroupHeader etwas in die Breite gezogen (sieht man sehr gut im Bild, vgl. Textbreite erster GroupHeader - erstes Item), sodass das Rect immer zu kurz ist. Wie ich das umgehe, konnte ich nicht herausfinden.

Ich addiere jetzt einfach einen Bruchteil der Breite drauf, das reicht für meine Bedürfnisse.

Des Weiteren gibt ListView_GetGroupRect nur das Rect für HeaderAlign = taLeftAlign zurück. Ist ein anderes HeaderAlign eingestellt, befindet sich das Rect an der Stelle, an der der Header mit taLeftAlign stehen würde. Das rechne ich jetzt auch noch um, sodass die anderen Aligns auch funtkionieren.

Delphi-Quellcode:

procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  bMouseOverGroupLabel: boolean;
  i, labelWidth: Integer;
  r: TRect;
begin
  // if cursor is over group label, change cursor icon
  // and set header index for mouse up
  bMouseOverGroupLabel := false;
  for i := 0 to ListView1.Groups.Count - 1 do
  begin
    if ListView_GetGroupRect(ListView1.Handle, i, LVGGR_LABEL, r) = 1 then
    begin
      // adjust label width
      r.Right := r.Right + 10 + Round((r.Right - r.Left) * 0.06);
      labelWidth := r.Right - r.Left;
      
      // if header is not taLeftAlign, we need to recalc rect.left and rect.right
      case ListView1.Groups[i].HeaderAlign of
        taCenter: // reposition rect to center
          begin
            r.Left := (ListView1.ClientWidth - labelWidth) div 2;
            r.Right := (ListView1.ClientWidth + labelWidth) div 2;
          end;
        taRightJustify: // reposition rect to right
          begin
            r.Left := ListView1.ClientWidth - (labelWidth) - 12;
            r.Right := ListView1.ClientWidth - 12;
          end;
      end;

      bMouseOverGroupLabel := (r.Top < Y) and (r.Bottom > Y) and (r.Left < X) and (r.Right > X);
      if bMouseOverGroupLabel then
      begin
        ListView1.Cursor := crHandPoint;
        FGroupHeaderIndex := i;
        Break;
      end;

    end;
  end;
  
  if not bMouseOverGroupLabel then
  begin
    ListView1.Cursor := crDefault;
    FGroupHeaderIndex := -1;
  end;
end;

Abschließend sei noch zu erwähnen, dass der ganze Spaß erst ab Vista läuft.