// These snippets get the width of the scrollbars, as defined BY THE USER// on the Display Properties screen Appearance tab. The code below is// for a string grid, but any component that has scrollbars should work as// well.//// by Robert E. Baker (robertbaker@bigfoot.com)//// For a vertical scrollbarif ScrollBarVisible(StringGrid1.Handle, WS_VSCROLL) then
ScrollBarWidth := GetSystemMetrics(SM_CXVSCROLL)
else
ScrollBarWidth := 0;
// For a vertical scrollbarif ScrollBarVisible(StringGrid1.Handle, WS_HSCROLL) then
ScrollBarWidth := GetSystemMetrics(SM_CXHSCROLL)
else
ScrollBarWidth := 0;
// The code for the ScrollBarVisible function is below:function ScrollBarVisible(Handle : HWnd; Style : Longint) : Boolean;
begin
Result := (GetWindowLong(Handle, GWL_STYLE) and Style) <> 0;
end;
Статья Как получить ширину ScrollBar раздела Компоненты и Классы Компоненты может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.