Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2017-05-13 11:23:33 ЛС | профиль | цитата
nesco писал(а):
Ну и как ты это предполагаешь исправить

Пока никак.
========================================
было


procedure THIStringTable.SetColumns;
var lst:PStrList;
i:word;
s:string;
begin
lst := NewStrList;
lst.text := col;
if lst.Count > 0 then
for i := 0 to lst.Count-1 do
begin
s := Lst.Items[i] + '=';
Control.LVColAdd(GetTok(s,'='),taLeft,80);
if s <> '' then
Control.LVColWidth[i] := max(0,str2int(s));
end;
lst.Free;
end;
исправил на


procedure ThiStringTable.SetColumns; //13.05.2017 Tad
var lst:PStrList;
i:word;
s:string;
begin
lst := NewStrList;
lst.text := col;
if lst.Count > 0 then
for i := 0 to lst.Count-1 do
begin
s := Lst.Items[i] + '=';
Control.LVColAdd(GetTok(s,'='),taLeft,80);
if s <> '' then Control.LVColWidth[i] := str2int(GetTok(s,'='));
if s <> '' then Control.LVColAlign[i] := TTextAlign(str2int(s));
end;
lst.Free;
end;
Ну и конечно в StringTable.ini

+Columns=Параметры столбцов таблицы (формат строки параметров: Название=Ширина=Индекс выравнивания 0-Left; 1-Right; 2-Center)|5|
Хоть в статике можно задать Align.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0