Вверх ↑
Разработчик
Ответов: 26170
Рейтинг: 2127
#1: 2024-12-19 03:17:05 ЛС | профиль | цитата
Добавил вывод в поток предыдущую ширину столбца
        HDN_ENDTRACKA, HDN_ENDTRACKW:
begin
InvalidateRect(Sender.Handle, nil, false);
ind := HD_NOTIFY(Pointer(Msg.LParam)^).Item;
s := Sender.LVColText[ind] + _ColDlm +
int2str(PHDNotify(PNMHEADER(Msg.LParam))^.pItem^.cxy) + _ColDlm +
int2str(Sender.LVColImage[ind]) + _ColDlm +
int2str(ord(Sender.LVColAlign[ind]));
CList.Items[ind] := InitColStr(s);
dtInteger(di, ind);
dtInteger(dw, PHDNotify(PNMHEADER(Msg.LParam))^.pItem^.cxy);
dtInteger(dow, Sender.LVColWidth[ind]);
di.ldata := @dow;
dow.ldata := @dw;
_hi_onEvent_(_event_onChangeWidth, di);
end;
Теперь выводится 3 аргумента -- ARG(ColIdx, PreviousWidth, ChangeWidth)
карма: 22

0
Редактировалось 1 раз(а), последний 2024-12-19 03:17:32