Бегунок
(н знаю как объясняется!)
Но это что-то типа полосы и по ней передвигеатся ручка(Типа бегунков от эквалайзера)! Типа TrackBar но бегунок слишком большой для моей проги!
И как сэтим компонентом работать? Чтобы хоть получить на сколько процентов от общего растояния он отодвинулся!
Спасибо
Как сделать, такую фишку
(н знаю как объясняется!)
Но это что-то типа полосы и по ней передвигеатся ручка(Типа бегунков от эквалайзера)! Типа TrackBar но бегунок слишком большой для моей проги!
И как сэтим компонентом работать? Чтобы хоть получить на сколько процентов от общего растояния он отодвинулся!
Спасибо
а, собственно, TrackBar то тебе чем не подходит?
а, собственно, TrackBar то тебе чем не подходит?
Да я хочу в Билдере написать прогу, которая становится прозрачной при изменении положения ТрекБара. Но при передвижении форма не плавно становится прозрачной а маргает как в жопу ужаленный хамелеон!
Может кто знает как можно сделать эффект затухания, чтоб не маргал!
Да я хочу в Билдере написать прогу, которая становится прозрачной при изменении положения ТрекБара. Но при передвижении форма не плавно становится прозрачной а маргает как в жопу ужаленный хамелеон!
Может кто знает как можно сделать эффект затухания, чтоб не маргал!
если билдер 6 - ой, то там есть у формы свойство AlphaBlend его ставишь в true, и для изменения прозрачности изменяешь AlphaBlendValue... я попробовал - у меня ничего не моргает - все плавно...
если билдер 6 - ой, то там есть у формы свойство AlphaBlend его ставишь в true, и для изменения прозрачности изменяешь AlphaBlendValue... я попробовал - у меня ничего не моргает - все плавно...
Данная фишка работает только в Windows 2000 и XP, где поддержка затухания была реализована на уровне GDI.
если билдер 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
Всё сделал как вы сказали!
Билдер 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" ??? что за цикл?
давай я соберу проект у себя и пришлю тебе и экзешник и исходники - проверим так... архив присобачу к посту
а что значит: "Постваил в цикле от 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);
}
}
Я не знаю что я делал не так но теперь все прекрасно работает! Пасиба!