Пометка в своих интерфейсах под 8.10 - НЕ РАБОТАЕТ. HELP!!!
Добавлено: 18 июл 2007, 14:18
Имеется интерфейс выбора:
В подключенных в проекте файлах описано:
и
В Галактике 7.12 все работало замечательно. После перекомпиляции под 8.10 пометка работать перестала (сообщение 'помечено' не появляется). Что делать???
Код: Выделить всё
Interface Select_Nach 'Выбор' EscClose, Cyan;
show at (,,,);
var
sel : longint;
ino : longint;
view as select * from table order o1 by table.f1;
parameters sel;
panel p1;
browse b1 (,,sci1EnIns);
fields
table.f1 'Ф1':[3],protect, {Font={bold=searchmarker(sel,table.nrec,ino)}};
table.f2 'Ф2':[30],protect, {Font={bold=searchmarker(sel,table.nrec,ino)}};
end;
HandleEvent
cmMarkUnmark: {
InvertMarker(sel,table.nrec);
if GetNext table <> tsOK then{};
message('помечено'); // отладка!!!!
ReReadRecord();
}
cmInvertAll:{
PushPos(tntable);
_Loop table {
InvertMarker(sel,table.nrec);
}
PopPos(tntable);
RescanPanel(tntable);
}
cmSelectAll: {
PushPos(tntable);
_Loop table {
InsertMarker(sel,table.nrec);
}
PopPos(tntable);
RescanPanel(tntable);
}
cmUnSelectAll: {
ClearMarker(sel)
RescanPanel(tntable);
}
end;
end;
Handleevent
cmInit : {
setorder(tiO1);
if getfirst table = tsOK then {};
}
cmDefault: {
if GetMarkerCount(sel)=0 then {
InsertMarker(sel,table.nrec);
}
summa:=0; nalog:=0;
CloseInterface(cmOK);
}
end;
end.
Код: Выделить всё
cmMarkUnMark = 2243;
cmSelectAll = 2244;
cmUnSelectAll = 2245;
cmAltInsert = 2246;
cmInvertAll = 2247;
Код: Выделить всё
sci1EnIns = 6937;