для простой вставки разом для всех панелей добавил метод doText2 (остальные скрыл за ненадобностью)
Вот так назначили панели и размер
в FormatStr так и задаём значения по списку
вот так в схеме
Сам метод в pas
procedure THIStatusBar._work_doText2;
var
i: integer;
lst: PStrList;
begin
lst := NewStrList;
lst.Text := Tostring(_Data);
for i := 0 to Control.StatusPanelCount-1 do
Control.StatusText[i] := PChar(lst.Items[i]);
lst.Free;
end;
в ini у себя сделал так
*doText=Устанавливает текст Text в строку состояния в ячейку Panel|1|
*doIndexText=Устанавливает текст с индексом из потока в ячейку Panel|1|
doText2=Устанавливает текст в панели, в потоке передаётся список значений для установки|1|
Для старых схем изменений не будет, так что боятся не о чем.
Надеюсь пригодится кому.
Поиск
Друзья
Администрация