Изменения дизайна TrackBar

Posted by Chas under Заметки

Можна ли как-то в 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.

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

тема на форуме

Похожие статьи

• Нарисовать флаг Дании и Швейцарии
• Баловство с Random
• Заливка замкнутого контура, как в Paint
• Рисование эллипса удержанием кнопки на любом месте TImage
• Вращение шестиугольника в Делфи 7
• Нарисовать стрелку на Делфи
• Закруглить углы image
• Движение обьекта на заданный угол
• Соединить 2 edit линией
• Окружность на канве