Горизонтальная прокрутка в CheckListBox

[Trikster]

Можно ли как-нибудь добавить в CheckListBox горизонтальную прокрутку?!
Очень нужно!

[volod3000]

Держи :

procedure TForm1.FormCreate(Sender: TObject);
var
  i, MaxWidth: integer;
begin
  MaxWidth := 0;
  for i := 0 to CheckListBox1.Items.Count - 1 do
    if MaxWidth < CheckListBox1.Canvas.TextWidth(CheckListBox1.Items.Strings[i]) then
      MaxWidth := CheckListBox1.Canvas.TextWidth(CheckListBox1.Items.Strings[i]);
  SendMessage(CheckListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+2, 0);
end;

[Trikster]

не работает(

Извиняюсь, в TCheckListBox действительно работает. А можно как-нибудь применить этот код для TsCheckListBox ?

[Stilet]

ИМХО разве что поместить его на ScrollBar и ширину выставить по максимальной длине строк.

[volod3000]

Вот :

procedure TForm1.FormCreate(Sender: TObject);
var
  i, MaxWidth: integer;
begin
  MaxWidth := 0;
  for i := 0 to sCheckListBox1.Items.Count - 1 do
    if MaxWidth < sCheckListBox1.Canvas.TextWidth(sCheckListBox1.Items.Strings[i]) then
      MaxWidth := sCheckListBox1.Canvas.TextWidth(sCheckListBox1.Items.Strings[i]);
  SendMessage(sCheckListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+2, 0);
end;

[Trikster]

TsCheckListBox - компонент из alphacontrols, для него не работает

[volod3000]

Все работает, вот пример :

interface

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

type
  TForm1 = class(TForm)
    sCheckListBox1: TsCheckListBox;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i, MaxWidth: integer;
begin
  MaxWidth := 0;
  for i := 0 to sCheckListBox1.Items.Count - 1 do
    if MaxWidth < sCheckListBox1.Canvas.TextWidth(sCheckListBox1.Items.Strings[i]) then
      MaxWidth := sCheckListBox1.Canvas.TextWidth(sCheckListBox1.Items.Strings[i]);
  SendMessage(sCheckListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+2, 0);

  Label1.Caption := sCheckListBox1.Name;
end;

[Trikster]

хм, может нужно в инспекторе объектов что-нибудь выставить?

[volod3000]

Вот весь проект, попробуйте его у себя открыть .

[Trikster]

я уже пробовал создавать новый проект, там все работает, хотя вроде borderstyle поставил None.
делаю все тоже самое в своем проекте и НИЧЕГО, не пойму в чем проблема!