Изменить вид TrackBar

[SoftKoc]

!Здравствуйте!

Подскажите мне пожалуйста как можно реализовать вот это:
1.jpg

Это так называемый "TrackBar".

Как его можно изменить что бы он стал примерно таким же?

!Заранее очень благодарен!

[Пепел Феникса]

самостоятельно его отрисовывать

[SoftKoc]

Это я понял, а вот как это сделать, я понятия не имею? Если бы кто-то пример выложил!

[mihali4]

Линия - LineTo(...)
Движок - Ellipse(...)
Посмотрите в хэлпе про эти функции - и "уперод"...
Тем более, что там и примеры есть

[SoftKoc]

Это я тоже знаю! Но вот как сделать так что бы вместо обычного вида получить такой?

[mihali4]

Не TrackBar устанавливать, а просто рисовать.
Что ж тут непонятного-то?
Не хочется рисовать - пишите свой компонент - наследник от TrackBar.
Книжка Р. Конопки вам в помощь...

[raxp]

1) берем делаем 3 картинки:
- высотой 1 пкс подложка движка
- высотой 1 пкс позиция движка
- сам траск-движок (самый верхний, эллипс)
2) ложишь на форму друг на друга 3 timage (назовем их SldPosback, SldPosback2 и dv), transparent:= true
3) подгружаешь картинки, либо их заранее в ресурс гонишь, либо подгружаешь из общего скина, вариантов масса
4) объединяешь под одними событиями 2 нижних image (SldPosBack, SldPosBack2):

procedure Tvid.SldPosbackMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if (Button = mbLeft) then set_pos(x)
end;
procedure Tvid.SldPosbackMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if Shift = [ssLeft] then set_pos(x)
end;

...
// собственно обработка изменения положения
procedure tvid.set_pos(_x:longint);
begin
 //if (Player.Initialized)and(PlayState <> STATE_STOP) then
  //begin
   if _x < 0 then _x:= 0;
   if _x > SldPosBack.Width then _x:= SldPosBack.Width;
   //dsmpSetPos(Player,_x, SldPosBack.Width,true)
 // end
end;

события самого верхнего траск-движка:

// проверка положения, чтоб не выходил за границы
procedure tvid.dv_nmov;
begin
 if dv.Left < 16-(dv.Width div 2) then
  dv.Left:= 16-(dv.Width div 2);
 if dv.Left > SldPosBack.Width+16-(dv.Width div 2) then
  dv.Left:= SldPosBack.Width+16-(dv.Width div 2)
end;

// нажатие левой кнопкой и подгрузка картинки
procedure Tvid.dvMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 application.ProcessMessages;
 skinImgSetCellAndUpdate(TImage(Sender), 1);
 movi:= true;
 dv_move:= Point(x, y)
end;

// движение траск-движка при нажатии
procedure Tvid.dvMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if (ssLeft in Shift)and(Player.Initialized) then begin
  dv.Left:= dv.Left + x - dv_move.X;
  dv_nmov; // обработка положения
  set_pos(dv.Left-16)
 end 
end;

// отжатие левой кнопки и возврат прежней картинки
procedure Tvid.dvMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 GenericButMouseUp(Sender, X, Y);
 movi:= false
end;

procedure Tvid.GenericButMouseDown(Sender: TObject;Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
 skinImgSetCellAndUpdate(TImage(Sender), 1);
 Application.ProcessMessages
end;
function Tvid.GenericButMouseUp(Sender: TObject;X, Y: Integer): boolean;
begin
 skinImgSetCellAndUpdate(TImage(Sender), 0);
 Application.ProcessMessages;
 Result:= skinImgInside(TImage(Sender), X, Y)
end;

модуль <skinned> прилагаю...

[SoftKoc]

Спасибо тебе большое raxp!!! =-)