Erkennen ob Scrollbar in Listview sichtbar ist

[backdraft]

Hallo,

gibt es eine Funktion die ich aufrufen kann, um zu erkennen, ob die Scrollbar sichtbar ist, oder nicht?

[marabu]

Hallo Oliver,

jetzt schon:

Delphi-Quellcode:

function HasScrollBar(hwnd: HWND): Boolean;
begin
  Result := not (GetWindowLong(hwnd, GWL_STYLE) and (WS_HSCROLL or WS_VSCROLL) = 0);
end;

Grüße vom marabu

[backdraft]

Hey cool, funktioniert. Bekomm ich jetzt auch noch irgendwie die breite der Scrollbar?

[toms]

Hi,

Solltest du mittels der GetSystemMetrics API herausfinden koennen.

[MrKnogge]

Hi,

falls du nur die Spaltenbreite beim anzeigen der vertikalen Scrollbar anpassen möchtst, um zu verhindern, dass die horizontale ebenfalls sichtbar wird, so hilft folgendes:
Listview1.Columns[X].width := ColumnHeaderWidth; // Columns[X] ist die Spalte welche Autosize auf true hat. gruss

[Jens Schumann]

Hallo,
ich habe in den Tifen meines Archives noch eine Lösung gefunden

Delphi-Quellcode:

function HasScrollBarEx(hwnd: HWND; ScrollBarOrientation : Integer): Boolean;
var 
  ScrollBarInfo : TSCROLLBARINFO;
begin
  FillChar(ScrollBarInfo,SizeOf(TScrollBarInfo),0); 
  ScrollBarInfo.cbSize:=SizeOf(TSCROLLBARINFO);
  If GetScrollBarInfo(hwnd,ScrollBarOrientation,ScrollBarInfo) then
    Result:=Not ScrollBarInfo.rgstate[0] AND STATE_SYSTEM_INVISIBLE=STATE_SYSTEM_INVISIBLE
      else
        Result:=False;
end;

Wird aufgerufen mit HasScrollBarEx(Hanlde,OBJID_HSCROLL) oder HasScrollBarEx(Hanlde,OBJID_VSCROLL)