Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.25;
Скачать: CL | DM;

Вниз

progressbar   Найти похожие ветки 

 
media   (2006-06-04 16:50) [0]

Как сделать так чтобы progressbar осуществлял перемотку
т.е по сути работал  как trackbar


 
Rial ©   (2006-06-04 20:22) [1]

Определяешь позицию так:
ProgressBar.Pos:=Round(ProgressBar.Max*(MousePos.X-ProgressBar.Left)/ProgressBar.Width);


 
media   (2006-06-04 22:39) [2]

спасибо за ответ
но чето не то положение выставляется когда я тыкаю мышкой
Обясните поподробней плз


 
Михайлов Антон   (2006-06-05 00:14) [3]

попробуй для этих целей имэйдж заюзать...

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SONGPOS:=Trunc(X/Image1.Width * SONGLENGTH);
end;

SONGPOS и SONGLENGTH - естественно должны быть заранее известны...

ну и естественно с течением песни/фильма дорисовывать заполнение Image1


 
Zeqfreed ©   (2006-06-05 03:56) [4]

procedure TForm1.ProgressBar1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
with (Sender as TProgressBar) do
 Position := Round(X * (Max - Min) / Width);
end;


Более точного результата можно достичь, установив Smooth в true.



Страницы: 1 вся ветка

Текущий архив: 2006.06.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.053 c
2-1149512871
VitV
2006-06-05 17:07
2006.06.25
Не могу найти компоненты TSocket....


15-1149138054
Holy
2006-06-01 09:00
2006.06.25
Всех с праздником...


2-1149569942
dera
2006-06-06 08:59
2006.06.25
Как "одним махом" очистить (удалить все записи) таблицу?


15-1149143398
Игорь Шевченко
2006-06-01 10:29
2006.06.25
Offtopic: Ищется квартира в Москве на предмет снять :)


4-1142613185
AndreyRus
2006-03-17 19:33
2006.06.25
Аналог IOCTL_SCSI_RESCAN_BUS в Windows 2003