[HMR]

Подскажите что за компонент?

[cotseec]

TTRackBar, только с использованием доп прорисовки
на torry можно посмотреть, может и отыщутся именно такие

[HMR]

На torry смотрел нет такого, да и google ничего конкретного не выдал, по этому и решил спросить на форуме может кто знает.

[poli-smen]

Посмотрел исходники Media Player Classic - Home Cinema, немного поколдовал и получилось у меня такое:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69

unit Unit2;   interface   uses   Windows, Messages, Graphics, Controls, CommCtrl, ComCtrls;   type   TTrackBar = class(ComCtrls.TTrackBar)   private     procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY;   end;   implementation   { TTrackBar }   procedure TTrackBar.CNNotify(var Message: TWMNotify); var   Info: PNMCustomDraw;   can: TCanvas; begin   if Message.NMHdr^.code = NM_CUSTOMDRAW then   begin     Info := Pointer(Message.NMHdr);     case Info^.dwDrawStage of       CDDS_PREPAINT:         Message.Result := CDRF_NOTIFYITEMDRAW;       CDDS_ITEMPREPAINT:         begin           case Info^.dwItemSpec of             TBCD_CHANNEL:               begin                 can := TCanvas.Create;                 try                   can.Handle := Info^.hdc;                   can.Brush.Color := clBtnFace;                   can.FillRect(Info^.rc);                   can.Pen.Color := clBtnHighlight;                   can.MoveTo(Info^.rc.Right, Info^.rc.Top);                   can.LineTo(Info^.rc.Right, Info^.rc.Bottom);                   can.LineTo(Info^.rc.Left, Info^.rc.Bottom);                   can.Pen.Color := clBtnShadow;                   can.LineTo(Info^.rc.Right, Info^.rc.Top);                 finally                   can.Free;                 end;                   Message.Result := CDRF_SKIPDEFAULT;               end;             TBCD_THUMB:               begin                 DrawFrameControl(Info^.hdc, Info^.rc, DFC_BUTTON, DFCS_BUTTONPUSH);                 Message.Result := CDRF_SKIPDEFAULT;               end;           else             Message.Result := CDRF_DODEFAULT;           end;         end;     else       Message.Result := CDRF_DODEFAULT;     end;   end else   begin     inherited;   end; end;   end.