Несколько колонок в Valuelisteditor в Делфи

Здравствуйте, как сделать 4 колонки в валуелистедитор, чтоб было так: (чтоб все было выдно)




А не вот так (чтоб не было скрула внизу)




Зарание спасибо

 

Помогите плз, срочно нужною Завтра нужно всю программу сдать в универ

 

Попробуй свойство ScrollBars.

 

Ничего не происходит

Ну что никто не пользовался этим компонентом???
Помогите плз

 

первое: заполняешь капшины заголовков в свойстве TValueListEditor.TitleCaptions (TStrings)
во-вторых в коде прописываешь ValueListEditor1.ColCount:= число_столбцов;

 

Именно так я и делал, выходит как на скрине №2, а если убрать скрулбар то вообще добавленый столбик не отображается

 

На событие OnDrawCell вешай обработчик

Code:

procedure TfrmMain.lstValuesDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var temp,TempWidth:integer;
begin
  with (Sender as TValueListEditor) do
  begin
    for temp:=0 to ColCount-1 do
      ColWidths[temp]:=Width div ColCount - 2;
  end;
end;

 

Не выходит, может есть какаето замена этому компоненту?

 

Очень даже выходит, сначала у себя проверил, прежде чем написать.
Особенно если сначала в свойствах компонента найти
DisplayOptions и поставить DoAutoColResize в False

 

возми TListView с ViewStyle:= vsReport и не парься

 

К сожелению ничего не выходит, в примере xophet меня почти все устраивает, но когда дело доходит до заполнения, то ничего не выходит.
Подскажите как мне записать: в первую колонку:1, в второю:2, в третью:3, и в 4-ю: 4
И пишу чтоб у каждого столбца была своя ширина, то при запуске таблица постоянно мигает. Делаю так:

PHP:

procedure TForm2.ValueListEditor2DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var temp,TempWidth:integer;
begin
with (Sender as TValueListEditor) do
begin
for temp:=0 to ColCount-1 do
ColWidths[temp]:=Width div ColCount - 2;
ValueListEditor2.ColWidths[0] := 50;
end;
end;

alexey-m не могу понять как сделать такую таблицу как на первом скриншоте, возможно у тебя есть какието ссылки или инфа как это сделать
Зарание спасибо

 

Code:

procedure TForm1.FormCreate(Sender: TObject);
var
  ListView: TListView;
  lc: TListColumn;
  item: TListItem;
  i: Integer;
begin
  ListView:= TListView.Create(Self);
  with ListView do begin

    Parent:= Self;
    Align := alClient;
    ViewStyle:= vsReport;

    for i:= 0 to 3 do begin
      lc:= Columns.Add;
      lc.Width:= (Width div 4) - 1;
      lc.Caption:= IntToStr(i);
    end;

    for i:= 0 to 5 do begin
      item:= Items.Add;
      item.Caption:= IntToStr(i) + ':0';
      item.SubItems.Add(IntToStr(i) + ':1');
      item.SubItems.Add(IntToStr(i) + ':2');
      item.SubItems.Add(IntToStr(i) + ':3');
    end;

  end;
end;

ну и не забыть ComCtrls прописать в uses

 

Может тебе нужен StringGrid ?

 

Всем спасибо, отлично подошел компонент StringGrid

 

Вот это вот сделать нужно, чтобы не мигало...