| Вопрос: FlatScrollBar | Добавлено: 08.04.04 10:50 |
Автор вопроса:  Novichek
|
|
Помогите... Мне в проекте нужно использовать FlatScrollBar вместе с RichText и ListView (т.е. вместо стандартной полосы прокрутки использовать FlatScroll), но я не знаю как это сделать :( А встроенный FlatScrollBar в ListView не работает, как и Command1.appearance = Flat |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #1 | Добавлено: 09.04.04 11:06 |
|
Ну так используй его, кто мешает? Подключи осх, нарисуй scrollbar и используй. MSDN есть? Там это расписано. Используй SendMessage, EM_LINESCROLL, EM_GETLINECOUNT. Хотя странно, что стандартный не работает В общем, если не разберешься и надо конкретнее - пиши. Ща просто времени нет |
||
|
Номер ответа: 2 Автор ответа:  Novichek Вопросов: 19 Ответов: 60 |
Профиль | | #2 | Добавлено: 09.04.04 13:33 |
|
Неа, MSDN'a нема Тут пока время было, нашл как делать плоские кнопки из 3D '----------------------------------------------------------- Option Explicit Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Const BS_FLAT = &H8000 'плоская кнопка или нет Private Const GWL_STYLE = (-16) Private Const BS_CHECKBOX = &H2& Private Const BS_AUTORADIOBUTTON = &H9& Private Const BS_LEFT = &H100 Private Const BS_RIGHT = &H200 Private Const BS_CENTER = &H300 Private Const BS_TOP = &H400 Private Const BS_BOTTOM = &H800 Private Sub Form_Load() Dim tmp As Long 'вот тут будем хранить стиль tmp = GetWindowLong(Command1.hWnd, GWL_STYLE) 'получим его tmp = tmp + BS_FLAT 'изменим (то есть добавим BS_FLAT) Call SetWindowLong(Command1.hWnd, GWL_STYLE, tmp) 'объясним кнопке End Sub ' еще можно выравнивать текст... Private Sub Form_Load() Dim tmp As Long 'вот тут будем хранить стиль tmp = GetWindowLong(Command1.hWnd, GWL_STYLE) 'получим его tmp = tmp + BS_LEFT + BS_BOTTOM 'изменим Call SetWindowLong(Command1.hWnd, GWL_STYLE, tmp) 'объясним кнопке End Sub |
||
Страница: 1 |