Scroll в ListBox

[ViniPux1112]

Добрый вечер.Подскажите пожалуйста,как изменить картинку ползунка в listbox и memo.Мне нужно заменить стрелки и сам ползунок.К примеру на такой - вот его части (http://rghost.ru/41724247).Буду благодарен!

[Stilet]

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

[ViniPux1112]

Есть ли еще способы?

[Stilet]

Есть - самостоятельно описать тонну кода для отрисовок, переопределив стандартные классы (Говоря по Виндузовски - описав свою функцию обработки оконных сообщений контрола). Геморр, если честно...

[ViniPux1112]

Но ведь,как вы говорили AlphaSkins изменяет все приложение и только своими шаблонами.А мне конкретно ползунок изменить нужно и именно на мою картинку

[Stilet]

Почему только своими? Ты можешь скины свои нарисовать.
Впрочем я конечно же не настаиваю.
скорее всего, будь я на твоем месте, написал бы совершенно новый компонент ползунка, никак не связанный с этим.
Хотя сначала бы попробовал переопределить события сообщений WM_PAINT и WM_ERASEBACKGROUND, в которых бы рисовал свой скин ползунка.
Попробуй поищи примеры с перехватом (обработкой) этих сообщений в Делфи.

Что-то типа:

unit Unit2;

interface

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

type
  TScrollBar=class(StdCtrls.TScrollBar)
   private
    procedure eb(var m:TWMEraseBkgnd); message WM_EraseBkgnd;
    procedure pa(var m:TWMPaint); message WM_Paint;
  end;
  TForm2 = class(TForm)
    ScrollBar1: TScrollBar;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TScrollBar }

procedure TScrollBar.eb(var m: TWMEraseBkgnd);
var c:TCanvas;
begin
 c:=TCanvas.Create;
 c.Handle:=m.DC;
 c.Brush.Style:=bsFDiagonal;
 c.Brush.Color:=clGrayText;
 c.FillRect(Rect(0,0,Width,Height));
 c.Brush.Color:=clBlue;
 c.Brush.Style:=bsSolid;
 c.Ellipse(0,0,5,5);
c.Free;
end;

procedure TScrollBar.pa(var m: TWMPaint);
begin
//
end;

end.