Форум: "Начинающим";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.014 c