TListView SubItem Position genau feststellen

[Captnemo]

Ich Antworte mir mal selbst, da ich eine Lösung jetzt gefunden habe. (Für alle, die sowas mal suchen)

Quelle: http://www.delphisource.net/365.html

Delphi-Quellcode:

const
   LVM_FIRST               = $1000;
   LVM_GETSUBITEMRECT      = LVM_FIRST + 56;
   LVIR_BOUNDS             = 0;
   
function ListView_GetSubItemRect(hwndLV: HWND; iItem, iSubItem: Integer;
   code: DWORD; prc: PRect): BOOL;
begin
   if prc <> nil then
   begin
     prc^.Top := iSubItem;
     prc^.Left := code;
   end;
   Result := BOOL(SendMessage(hwndLV, LVM_GETSUBITEMRECT, iItem, Longint(prc)));
end;

Aufruf:

Delphi-Quellcode:

var
  wr: TRect;
  li: TListItem;
begin
  li:=ListView1.Items.Add;
  li.SubItems.Add('');
  ListView_GetSubItemRect(ListView1.Handle,
                          li.Index,             //Index der jeweiligen Zeile
                          1,                    //Caption mitzählen
                          LVIR_BOUNDS,
                          @wr);
  //In wr haben wir nun das TRect des SubItems
end;