Работа с TScrollBox

← →
Th © (2003-01-16 20:11) [0]

Кто знает, как заставить TScrollBox, а точнее TScrollingWinControl НЕ СКРЫВАТЬ свои TControlScrollBar"ы когда нет нужды с скроллинге, а делать их предположим Disabled (а ля Photoshop)?

← →
Th © (2003-01-17 13:39) [1]

Неужели никто этим вопросом не интересовался?? ;)

← →
Delirium^.Tremens © (2003-01-17 13:52) [2]

ShowScrollBar()

← →
Delirium^.Tremens © (2003-01-17 14:04) [3]

Нет, не помогает ShowScrollBar(), он (ScrollBox) его сразу отключает.

← →
Игорь Шевченко © (2003-01-17 14:20) [4]

А что говорят исходные тексты ?

← →
Th © (2003-01-17 14:59) [5]

Они говорят следующее: в TScrollingWinControl есть две функции
одна NeedScrollbarVisible определяет надо ли показывать Scrollbar и UpdateScrollBars по результатам работы NeedScrollBarVisible отображает (илбо скрывает) ScrollBar. Обе функции объявлены как private и естественно не virtual, что сами понимаете и обламывает все. Поэтому и задаю вопрос.

← →
Th © (2003-01-17 15:04) [6]

Кстати для экспериментов с исходным кодом удобно включить компиляцию VCL при компиляции проекта - я когда-то в 3 делфи это делал, а как непомню. Подскажите, как это сделать?

← →
Th © (2003-01-17 15:23) [7]

Так все-таки как VCL перекомпилировать??

← →
Игорь Шевченко © (2003-01-17 15:24) [8]

← →
Th © (2003-01-17 15:27) [9]

Большое спасибо, Игорь

> Обе функции объявлены как private и естественно не virtual,
> что сами понимаете и обламывает все.

Теперь понятно. Можно написать аналог, унаследовав его от TWinControl с требуемым поведением. Самый безопасный способ.

Вот пришлось так и делать ;( и все из-за одной строки перед вызовом SetScrollInfo
в оригинале: ScrollInfo.fMask := SIF_ALL;
а мне надо: ScrollInfo.fMask := SIF_ALL or SIF_DISABLENOSCROLL;

Еще небольшой вопрос:
Под Win9x у меня в программах работали ScrollBar"ы со стилем FLAT, а под WinXP они почему-то стали игнорировать свойство Style и отрисовываться всегда как REGULAR.
Единственное, что смог поэтому поводу в Delphi Help найти, это вот:
List views only support flat scroll bars if the system has version 472 or later of comctl32.dll.
Получается, что в XP эта библиотека имеет более ранюю версию, чем в 9x или я чего-то не понимаю. ;(

Th © (17.01.03 17:13)

В XP версия, естественно, более поздняя. Но рекомедую посмотреть, что говорится по поводу FlatScrollbars и WinXP в MSDN. В частности, про функции InitializeFlatSB и прочие...

Работа с TScrollBox Найти похожие ветки