Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Бегунок

1.8K
04 мая 2004 года
kas
71 / / 03.02.2004
Как сделать, такую фишку
(н знаю как объясняется!)

Но это что-то типа полосы и по ней передвигеатся ручка(Типа бегунков от эквалайзера)! Типа TrackBar но бегунок слишком большой для моей проги!

И как сэтим компонентом работать? Чтобы хоть получить на сколько процентов от общего растояния он отодвинулся!

Спасибо
317
05 мая 2004 года
Relax
573 / / 20.09.2000
Цитата:
Originally posted by kas
Как сделать, такую фишку
(н знаю как объясняется!)

Но это что-то типа полосы и по ней передвигеатся ручка(Типа бегунков от эквалайзера)! Типа TrackBar но бегунок слишком большой для моей проги!

И как сэтим компонентом работать? Чтобы хоть получить на сколько процентов от общего растояния он отодвинулся!

Спасибо


а, собственно, TrackBar то тебе чем не подходит?

1.8K
05 мая 2004 года
kas
71 / / 03.02.2004
Цитата:
Originally posted by Relax

а, собственно, TrackBar то тебе чем не подходит?


Да я хочу в Билдере написать прогу, которая становится прозрачной при изменении положения ТрекБара. Но при передвижении форма не плавно становится прозрачной а маргает как в жопу ужаленный хамелеон!

Может кто знает как можно сделать эффект затухания, чтоб не маргал!

317
07 мая 2004 года
Relax
573 / / 20.09.2000
Цитата:
Originally posted by kas

Да я хочу в Билдере написать прогу, которая становится прозрачной при изменении положения ТрекБара. Но при передвижении форма не плавно становится прозрачной а маргает как в жопу ужаленный хамелеон!

Может кто знает как можно сделать эффект затухания, чтоб не маргал!



если билдер 6 - ой, то там есть у формы свойство AlphaBlend его ставишь в true, и для изменения прозрачности изменяешь AlphaBlendValue... я попробовал - у меня ничего не моргает - все плавно...

10
07 мая 2004 года
Freeman
3.2K / / 06.03.2004
Цитата:
Originally posted by Relax
если билдер 6 - ой, то там есть у формы свойство AlphaBlend его ставишь в true, и для изменения прозрачности изменяешь AlphaBlendValue... я попробовал - у меня ничего не моргает - все плавно...


Данная фишка работает только в Windows 2000 и XP, где поддержка затухания была реализована на уровне GDI.

1.8K
08 мая 2004 года
kas
71 / / 03.02.2004
Цитата:
Originally posted by Relax


если билдер 6 - ой, то там есть у формы свойство AlphaBlend его ставишь в true, и для изменения прозрачности изменяешь AlphaBlendValue... я попробовал - у меня ничего не моргает - все плавно...



Всё сделал как вы сказали!
Билдер 6.
Выставил. Form1->AlphaBlend = true;
AlphaBlendValue = 255;

А потом создал TrackBar1 и при его зменеии(событии).
Постваил в цикле от 255 до 0
Sleep(1); //Убирал - тоже
Form1->AlphaBlendValue = TrackBar1->Position;


Form1->Update; //Пробовал не помогло!

В трекбаре все выставил Min = 0 Max = 255.

А результата NULL :( Как окно было на 255 так и осталось!
А если AlphaBlendValue редактить вручную то работает..

Дайте ктонить готовый проектик мож я что не так сделал!:???

У меня Win 2003 Enterpirse

5.2K
09 мая 2004 года
Chrome
20 / / 27.02.2004
Сказано же тебе, Альфа-blending помогает против моргания только в WinXP/2000, там альфа-канал поддерживается ядром... В 2003, кажется, такого нет.
317
11 мая 2004 года
Relax
573 / / 20.09.2000
Цитата:
Originally posted by kas


Всё сделал как вы сказали!
Билдер 6.
Выставил. Form1->AlphaBlend = true;
AlphaBlendValue = 255;

А потом создал TrackBar1 и при его зменеии(событии).
Постваил в цикле от 255 до 0
Sleep(1); //Убирал - тоже
Form1->AlphaBlendValue = TrackBar1->Position;


Form1->Update; //Пробовал не помогло!

В трекбаре все выставил Min = 0 Max = 255.

А результата NULL :( Как окно было на 255 так и осталось!
А если AlphaBlendValue редактить вручную то работает..

Дайте ктонить готовый проектик мож я что не так сделал!:???

У меня Win 2003 Enterpirse



а что значит: "Постваил в цикле от 255 до 0" ??? что за цикл?
давай я соберу проект у себя и пришлю тебе и экзешник и исходники - проверим так... архив присобачу к посту

1.8K
11 мая 2004 года
kas
71 / / 03.02.2004
Цитата:
Originally posted by Relax


а что значит: "Постваил в цикле от 255 до 0" ??? что за цикл?
давай я соберу проект у себя и пришлю тебе и экзешник и исходники - проверим так... архив присобачу к посту



Большое спасибо, все заработало. Просто программа должна работать вот так :

Цитата:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(int i=255;i>100;i--)
{
AlphaBlendValue = i;
TrackBar1->Position = AlphaBlendValue;
Sleep(1);
}}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
for(int i=100;i<255;i++)
{
AlphaBlendValue = i;
TrackBar1->Position = AlphaBlendValue;
Sleep(1);
}
}





Я не знаю что я делал не так но теперь все прекрасно работает! Пасиба!

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог