Genri
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
maxdddca123 -- а как, на твой взгляд, должно быть?
Можно, например, вообще не отображать:
Page.CheckListBox.AddCheckBox(Value[I], '', 0, False, True, False, False, nil);
.. а можно отображать в урезанном виде:
if RegGetValueNames(HKEY_CURRENT_USER, 'Software\My Program\Path', Names) then
begin
SetArrayLength(Value,GetArrayLength(Names));
for I := 0 to GetArrayLength(Names)-1 do
begin
RegQueryStringValue(HKEY_CURRENT_USER, 'Software\My Program\Path', Names[I], Value[I]);
ShortPath:= Names[I];
j:= Length(Names[I]+Value[I])-70;
if j > 0 then
begin
Delete(ShortPath, 1, j+3);
ShortPath:= '...' + ShortPath;
end;
Page.CheckListBox.AddCheckBox(Value[I], ShortPath, 0, False, True, False, False, nil );
end;
end;
|
Всего записей: 872 | Зарегистр. 06-09-2003 | Отправлено: 03:44 14-01-2007 | Исправлено: Genri, 03:46 14-01-2007 |
|
