AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

ListView GetGroupRect

Ein Thema von Björn Ole · begonnen am 18. Sep 2010 · letzter Beitrag vom 19. Sep 2010
 
Benutzerbild von Björn Ole
Björn Ole

Registriert seit: 10. Jul 2008
166 Beiträge
 
Delphi XE Professional
 
#2

AW: ListView GetGroupRect

  Alt 19. Sep 2010, 18:30
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.
Angehängte Grafiken
Dateityp: png ListView_GetGroupRect.png (30,0 KB, 11x aufgerufen)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz