Уважаемый посетитель!
Так как в Вашем браузере запрещено использование JavaScript для web-страниц, меню сайта Вам не доступно.
Для навигации по сайту используйте пожалуйста карту сайта.

Сделать стартовой Добавить в избранное Обратная связь

партнеры

SQL.RU

Детский Дворик - Портал детских фотографий

ГавГав.Инфо - портал для собаководов-любителей и профессиональных кинологов

Хосе Рауль Капабланка, кубинский шахматист, чемпион мира в 1921—27 г.г.

информация

реклама

« Глава 2 Оглавление Глава 4 »

Глава 3
"Сплит-бар" своими руками

Иногда, при рисовании визуальной части проекта, берет досада на родной и любимый PowerBuilder – что ж так не развита палитра компонентов то? Вот незадача! Рисуем на форме рядышком два DW, а вот как сделать так, чтобы пользователь мог менять их размеры? Да не просто менять, а чтобы если одно делается шире, то другое сужается? Если мне память не изменяет, то ли в Delphi, то ли в Visual Basic есть такая штучка – сплит-бар называется. Кладешь ее на форму, и говоришь, что вот тебе левый объект, вот тебе правый объект. И больше ни о чем не задумываешься. Эх, в РВ бы такую! А ведь можно и сделать. Как? Да просто!

ШАГ 1. СОЗДАЕМ User Object

Ну, о создании нового приложения я умолчу, думаю, каждый с этим сам справится. Итак, приступим. Создаем новый User Object inherited from UserObject. Зададим ему следующие свойства:

BorderStyle = StyleRaised!
Width = 20
Pointer = SizeWE!
Цвет подбирайте себе по вкусу. Добавим Instance Variables:

Теперь описываем события.
Событие mousedown, Event ID события pbm_lbuttondown
Событие mousemove, Event ID события pbm_mousemove
Событие mouseup, Event ID события pbm_lbuttonup
Ну вот и готов наш User Object.

ШАГ 2. ИСПОЛЬЗУЕМ СПЛИТ-БАР

На форму кладем два DW – dw_1 и dw_2 рядом друг с другом и выравниваем их по высоте. Кладем между ними User Object – наш сплит-бар st_1. Вытягиваем его по высоте DW и аккуратненько придвигаем к правому краю dw_1. А dw_2 придвигаем к сплит-бару и вытягиваем до конца окна. Примерно так:

Я специально сделал сплит-бар красного цвета, чтобы на картинке он был виднее.

А дальше все просто: на событии Open окна делаем три присвоения:

А на событии mousemove сплит-бара итого одна строка:

ШАГ 3. ЗАПУСКАЕМ И ПРОБУЕМ. ;-)

8 сентября 2004 г. - 1 ноября 2005 г.
Впервые опубликовано на SQL.RU

IKAR,
Программист-разработчик
PowerBuilder.
Ikar Home Center
 



Последнее обновление: 11.08.2016
Регистрация доменов

Регистрация доменных имен: .RU - 200 руб. и .SU - 500 руб.!
Остальные цены ЗАРЕГИСТРИРОВАТЬ!

реклама
ссылки


Продвижение сайтов

Биржа ссылок

статистика

Яндекс цитирования

(c)2002-2018 Ikar
Ikar Home Center
ICQ: 167220388
На сайте могут быть опубликованы рекламные материалы и ссылки. Всю ответственность за содержание рекламных материалов, текстов ссылок и контент рекламируемых сайтов несет рекламодатель.
hosted on pets-tree