Т.к. с ББ пока не на ты, то очень нужна помощь:
Начал разрабатывать свою подсистему.
В меню указал горячие клавиши ( ctrl + пробел, предварительно их убрал с команды "выделить документ" ).
При первом нажатии горячих клавиш открывается форма.
При втором нажатии вылетает трап (пример ниже, но иногда процедуры отличаются, связь не уловил):
После того, как закрываю окно трапа, последующие повторные вызовы горячих клавиш трапа не вызывают.
То же самое с вызовом через меню
Начальная команда: AutocomplitUI.Show
Код:
NIL dereference (read)
Kernel.Mark [00001F7BH]
.actual INTEGER 210464
.father POINTER NIL
.flag INTEGER 1
.offset INTEGER -4
.son POINTER NIL
.tag POINTER NIL
.this POINTER [0003361CH]
Kernel.MarkGlobals [00002101H]
.i INTEGER 1
.m POINTER [64FB0000H]
.p INTEGER 210464
Kernel.FastCollect [00002964H]
Kernel.NewBlock [00002C83H]
.a INTEGER 144
.b POINTER NIL
.c POINTER NIL
.new POINTER NIL
.r Kernel.Reducer NIL
.s INTEGER 0
.size INTEGER 512
.tsize INTEGER 528
Kernel.NewRec [00000AC3H]
.b POINTER NIL
.l Kernel.FList NIL
.size INTEGER 0
.tag POINTER [64FB0924H]
.typ INTEGER 1694173476
AutocomplitModel.InitListWords [00000166H]
AutocomplitModel.GetListWords [00000260H]
.err POINTER NIL
.idx INTEGER 299
.lwSql AutocomplitModel.ListWords [02164440H]
.pattern AutocomplitModel.Pattern "" ...
.word AutocomplitModel.Pattern "" ...
AutocomplitUI.Show [000002A1H]
.beg INTEGER 412
.c TextControllers.Controller [021323F0H]
.cont AutocomplitModel.Context NIL
.end INTEGER 412
.formName ARRAY 256 OF CHAR "Autocomplit/Rsrc/FormAutocomplit" ...
.idx INTEGER 2682808
.list AutocomplitModel.ListWords NIL
.rd TextModels.Reader [0214FA30H]
Kernel.Call [00001A94H]
.adr INTEGER 1695482999
.kind INTEGER 10
.n INTEGER 0
.p INTEGER 0
.par ARRAY 256 OF INTEGER elements
.r REAL 5.432309224885919E-312
.sig POINTER [650F0198H]
.size INTEGER 0
.sp INTEGER 18
.typ POINTER [650E00F8H]
Meta.Item.ParamCallVal [00002B26H]
.adr INTEGER 1695482999
.data ARRAY 256 OF INTEGER elements
.dest Meta.Item fields
.n INTEGER 2
.ok BOOLEAN TRUE
.p INTEGER 1
.padr INTEGER 5308908
.par ARRAY 100 OF POINTER elements
.proc Meta.Item fields
.ret LONGINT 0028F47C00000005H
.sig POINTER [650F0198H]
.x Meta.Item fields
StdInterpreter.CallProc [00000474H]
.i Meta.Item fields
.mod ARRAY 64 OF CHAR "AutocomplitUI"
.ok BOOLEAN TRUE
.proc ARRAY 64 OF CHAR "Show" ...
.t Meta.Item fields
StdInterpreter.Command [000009D4H]
.left StdInterpreter.Ident "AutocomplitUI"
.right StdInterpreter.Ident "Show" ...
StdInterpreter.CallHook.Call [00000A8BH]
.ch CHAR 0X
.errorMsg ARRAY 2 OF CHAR " "
.hook StdInterpreter.CallHook [02116020H]
.i INTEGER 55
.id StdInterpreter.Ident "Show" ...
.numPar INTEGER 1
.par ARRAY 100 OF POINTER elements
.proc ARRAY 55 OF CHAR "AutocomplitUI.Show('Autocomplit/" ...
.res INTEGER 0
.type INTEGER 3
.x INTEGER 0
Dialog.Call [00003707H]
.errorMsg ARRAY 2 OF CHAR " "
.proc ARRAY 55 OF CHAR "AutocomplitUI.Show('Autocomplit/" ...
.res INTEGER 0
StdDialog.HandleItem [000007C2H]
.i StdDialog.Item [0213AB10H]
.res INTEGER 0
HostMenus.HandleCustomMenu [0000202FH]
.i StdDialog.Item [0213AB10H]
.id INTEGER 402
.m HostMenus.Menu [02138B00H]
HostMenus.MenuCommand [000021AAH]
.id INTEGER 402
.lParam INTEGER 0
.old INTEGER 65541
.res INTEGER 0
.wParam INTEGER 65938
.wnd INTEGER 2362146
Kernel.Try [00003EBBH]
.a INTEGER 2362146
.b INTEGER 65938
.c INTEGER 0
.h PROCEDURE HostMenus.MenuCommand
HostMenus.ApplWinHandler [00003755H]
.Proc PROCEDURE NIL
.hit BOOLEAN FALSE
.lParam INTEGER 0
.message INTEGER 273
.res INTEGER 0
.s ARRAY 256 OF CHAR "Ф戻(㻸掌(㽌掌⭠ȓ" ...
.w INTEGER 0
.wParam INTEGER 65938
.wnd INTEGER 2362146
<system> (pc=768B7693H, fp=0028FB10H)
<system> (pc=768B8BA9H, fp=0028FBA0H)
<system> (pc=768B8467H, fp=0028FC0CH)
<system> (pc=768B9C3FH, fp=0028FC18H)
HostMenus.Loop [00003BA9H]
.done BOOLEAN FALSE
.f SET {0..5}
.n INTEGER 0
.res INTEGER 0
.w HostWindows.Window NIL
Kernel.Start [00002F74H]
.code PROCEDURE HostMenus.Loop