(NonVCL) ListView Ownerdraw Column Index

[EWeiss]

Wie komme ich in Report View an den Column Header Index wenn ich mit der Maus drüberfahre.

Delphi-Quellcode:

    WM_MOUSEMOVE:
      begin
        DC := GetDC(WinHandle);
        HeaderItemCount := Header_GetItemCount(WinHandle);
        for HeaderItem := 0 to HeaderItemCount - 1 do
        begin
          if (HeaderItem = Header_GetFocusedItem(WinHandle)) then
          begin
            try
              GdipCheck(GdipCreateFromHDC(DC, Graphics));
              Header_GetItemRect(WinHandle, HeaderItem , @HeaderItemRect);

              SkinEngine.PaintButton(Graphics, 3, ImgBack, HeaderItemRect.Left, HeaderItemRect.Top,
                HeaderItemRect.Right, HeaderItemRect.Bottom, BS_PUSHBUTTON);
            finally
              if Graphics <> 0 then
                GdipCheck(GdipDeleteGraphics(Graphics));
            end;
          end;
        end;
        ReleaseDC(WinHandle, DC);
      end;

Header_GetFocusedItem schlägt im Report View (MultiSelect) schon bei 0 an egal wo ich mich gerade auf dem Header befinde.
Ich benötige den Index einmal zum zeichnen und zum Sortieren der Liste.

ListView_GetColumn funktioniert auch nicht im Report View. (MultiSelect)

gruss

[EWeiss]

Sorry Thread war unnötig
Nach dem schreiben bin ich selber auf die Lösung gekommen.

Manchmal ist man einfach nur Blöd

Delphi-Quellcode:

    WM_MOUSEMOVE:
      begin
        DC := GetDC(WinHandle);
        HeaderItemCount := Header_GetItemCount(WinHandle);
        for HeaderItem := 0 to HeaderItemCount - 1 do
        begin
          try
            GdipCheck(GdipCreateFromHDC(DC, Graphics));
            Header_GetItemRect(WinHandle, HeaderItem , @HeaderItemRect);

            GetCursorPos(CurPos);
            ScreenToClient(Handle, CurPos);

            if PtInRect(HeaderItemRect, CurPos) then
            begin
              TmpRect := HeaderItemRect;
              TmpRect.Right := HeaderItemRect.Right - HeaderItemRect.Left;
              SkinEngine.PaintButton(Graphics, 4, ImgBack, TmpRect.Left, TmpRect.Top,
                TmpRect.Right, TmpRect.Bottom, BS_PUSHBUTTON);
            end;
          finally
              if Graphics <> 0 then
                GdipCheck(GdipDeleteGraphics(Graphics));
          end;
        end;
        ReleaseDC(WinHandle, DC);
      end;

gruss

[freimatz]

Zitat von EWeiss:

Sorry Thread war unnötig
Nach dem schreiben bin ich selber auf die Lösung gekommen.

Finde ich nicht. Vielleicht googelt mal einer. Und dann ist es gut dass man nicht nur das Problem findet, sondern auch die Lösung. Daher Danke für Deinen Beitrag.

[EWeiss]

Zitat von freimatz:

Zitat von EWeiss:

Sorry Thread war unnötig
Nach dem schreiben bin ich selber auf die Lösung gekommen.

Finde ich nicht. Vielleicht googelt mal einer. Und dann ist es gut dass man nicht nur das Problem findet, sondern auch die Lösung. Daher Danke für Deinen Beitrag.

Ah jo

Ich habe zwar den Index nicht bekommen dafür aber den Rect.
Zum Zeichnen reicht das erst mal.
Den Index hole ich mir an anderer stelle.

gruss