Изменения дизайна TrackBar полностью, вопросец

[FleXik]

Можна ли как-то в TrackBar'е изменить дизайн полностью? Рисую сам с нуля скины в AlphaSkins, но не хочеться ради 1 компонента....

[Stilet]

Можно, но придется всю отрисовку заново изобретать. В процедуре отрисовки предусматривать отрисовку шкалы и самой ручки.

[FleXik]

в AlphaSkins так как я хочу никак не сделать, знает ли кто как переделать TrackBar с нуля?

[Stilet]

Максимум что я могу предложить из своего опыта это вот такой пример топорнячкового скина:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;

type
  TTrackBar=class(ComCtrls.TTrackBar)
   private
      procedure wmp(var w:TWMPaint); message WM_Paint;
      procedure ebg(var w:TWMEraseBkgnd); message WM_EraseBkgnd;
  end;
  TForm2 = class(TForm)
    TrackBar1: TTrackBar;
    procedure TrackBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TTrackBar }

procedure TTrackBar.ebg(var w: TWMEraseBkgnd);
var r:TRect;
begin
 r.Left:=Position;r.Top:=0;r.Right:=r.Left+Height;r.Bottom:=r.Top+Height;
 with TCanvas.Create do begin
   Handle:=w.DC;
   Brush.Style:=bsFDiagonal;
   Brush.Color:=clRed;
   FillRect(ClientRect);
   Brush.Color:=clGreen;
   Brush.Style:=bsSolid;
   Ellipse(r);
   free;
 end;
end;

procedure TTrackBar.wmp(var w: TWMPaint);
var r:TRect; DC:TCanvasDC;
begin
 if tag=Position then Exit;
 DC:=GetDC(Handle);
 if DC=0 then exit;
 r.Left:=Position*width div Max;r.Top:=0;r.Right:=r.Left+Height;r.Bottom:=r.Top+Height;
 with TCanvas.Create do begin
   Handle:=DC;
   Brush.Style:=bsFDiagonal;
   Brush.Color:=clRed;
   FillRect(ClientRect);
 Brush.Color:=clGreen;
   Brush.Style:=bsSolid;
   Ellipse(r);
   free;
 end;
 ReleaseDC(Handle,dc);
 tag:=Position;
end;

procedure TForm2.TrackBar1Change(Sender: TObject);
begin
 Caption:=IntToStr(TrackBar1.Position);
end;

end.

Зато вместо отрисовки эллипса можешь какую нить картинку отрисовывать

[FleXik]

Походу меня не совсем поняли...

Вот код:

Trackbar1.SelStart:=Trackbar1.Min;
Trackbar1.SelEnd:=Trackbar1.Position;

Вот скрин:


Нужно просто заменить картинки: ползунка, белой полосы по которой двигается ползунок и той синей фигни которая двигается вместе с ползунком, пробовал сделать в AlphaSkins так вот там нельзя сделать чтобы "синяя фигня двигалась вместе с ползунком", ползунок же и фон делается без проблем, но меня это не устраивает.

Вот скрин плеера:

[Stilet]

Походу меня не совсем поняли...

Походу ты меня тоже )
Я дал пример самостоятельной отрисовки. Как ты его будешь использовать дело твое. Что ты там будешь рисовать, картинки или фигуры - решать тебе.

[Sciv]

А принципиально именно в AlphaScins?
Есть набор компонент, в который одни трекбары разных форм и расцветок входят, вот название, увы, не помню