Вверх ↑
Ответов: 2193
Рейтинг: 673
#1: 2013-11-30 18:43:29 ЛС | профиль | цитата
А если так?
Изменения в pas:

#pas
procedure THIAdjustControls._work_doSet;
var
...
aName: array [0..255] of Char;

case
...
6,7,8: begin // text = caption = strings
GetClassName(handle, aName, 256);
if aName = 'obj_EDIT' then
begin
Replace(str, '|', #13#10);
if isForm then
SetWindowText(Handle, @str[1])
else
Text := str;
end
else
begin
Clear;
while str <> '' do Add(fparse(str,'|'));
end;
end;
...
end;
Тестовая схема: test_new_pas.sha
карма: 10

0
файлы: 1test_new_pas.sha [2.9KB] [476]