Scroll+Tlistbox

[IvaniuS]

D7 есть вот такой вот кодинг(тестовое):

procedure TForm1.lstlblsClick(Sender: TObject);
begin
  edt1.Top:=16+20*lstlbls.ItemIndex;
  maszn[oldidlst]:=edt1.Text;
  edt1.Text:='';
  edt1.Visible:=True;
end;

т.е. при нажатии на нужный мне эл. в боксе поверх становится эдит и ты как-будто заполняешь тот или инной элемент, НО как это и было ясно с самого начала если их будет больше чем помещаться в список и прокрутить хоть немного то уже едит не попадает в нужное поле....
Ну и главный вопрос: как узнать на сколько оно прокручено или как-то вычислить положение эдита.

[Человек_Борща]

Ну и главный вопрос: как узнать на сколько оно прокручено или как-то вычислить положение эдита.

Проще написать свой ListBox с возможностью редактирования

[IvaniuS]

да наверное, даже получше будет т.к. у меня там могут быть разного рода данные и булевы и целые и дробные и др. посмотрим, но по поводу вопроса никто не знает еще вариантов, пока самый простой способ это заменить таблицей в 2 столбца с название-значение, но все-таки....

[IvaniuS]

listBox.Perform(LB_SETTOPINDEX, scrlbr1.Position,0);

если кому нужно, вдруг.

[Человек_Борща]

пока самый простой способ это заменить таблицей в 2 столбца с название-значение, но все-таки....

Та уже существует. TValueListEditor называется. Ещё со времен 6 делфи...

[IvaniuS]

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

//lsttyps - TValueListEditor
var
  str:TStringList;
begin
  try
    str:=TStringList.Create;
    str.LoadFromFile(path+'\bases\koatuu.txt');
    lsttyps.Strings:=str;
  finally
    str.free;
  end;

выше работает, а ниже вот не работает

lsttyps.Strings.LoadFromFile(path+'\bases\koatuu.txt');

зависает и все - ноль реакциии, если дождаться - то OutOfMemory Exception - файл в 1.1мб....

[Человек_Борща]

но все-таки я не понимаю в чем загвоздка..

Принимаются данные в формате:
Параметр = Значение
Если этого нет, то будут баги

[IvaniuS]

это я понимаю, там все верно и кодировка анси и = стоит и грузится другие файлы подобные, но меньше размером и т.д. все перепроверил, + ошибка что памяти не хватает, логично намекает....

[Аватар]

Посмотри свойство Capacity

[northener]

Сообщение от Человек_Борща

Принимаются данные в формате:
Параметр = Значение
Если этого нет, то будут баги

Метод LoadFromFile у TValueListEditor.Strings не перегружен. Так что загружать можно любой текстовый файл как и в обычный TStringList. Багов не будет. Но и смысла тоже. Можно даже и не текстовый. Но смысла будет еще меньше.