Tad писал(а):
перейти на строку №, а не на строку со словом.А я попробовал в твоей схеме просмотра процедур и функций заменить окно на такое
code_31753.txt
пропускаю "implementation" и ищу, пока так пусть побудет, а если не понравится, то верну ListBox
а вот так переходит сразу на строку, без внешних поисков
Add(ChildFormEx,4051391,490,280)
{
}
BEGIN_SDK
Add(EditMultiEx,12567649,245,119)
{
WorkCount=#9:doCaption|
DataCount=#14:FullPathToFile|21:DataCaption=Имя файла|
Width=270
Height=249
VOffset=63
HOffset=161
link(doCaption,15861361:doEvent1,[])
}
Add(MainForm,948009,469,140)
{
Left=35
Top=105
Width=770
Height=557
Visible=1
Position=1
Point(doVisible)
}
Add(DoData,3515049,413,140)
{
link(onEventData,948009:doCaption,[])
link(Data,12567649:DataCaption,[])
}
Add(ChanelToIndex,3026957,413,175)
{
link(onIndex,948009:doVisible,[(452,181)(452,174)])
}
Add(Hub,15861361,266,182)
{
OutCount=4
link(onEvent1,3515049:doData,[(317,188)(317,146)])
link(onEvent2,3951637:doLoad,[(298,195)(298,258)])
link(onEvent3,3026957:doWork2,[(333,202)(333,188)])
link(onEvent4,16569057:doSendMessage,[(291,209)(291,314)])
}
Add(Hub,16529159,315,266)
{
link(onEvent1,3951637:doSetSelStart,[])
link(onEvent2,3951637:doEnsureVisible,[])
}
Add(SendMessage,16569057,364,308)
{
Point(Message)
link(onSend,12305030:doEvent1,[])
link(Handle,3951637:Handle,[])
link(Message,10110237:Value,[])
}
Add(Memory,10110237,385,252)
{
@Hint=#12:em_LineIndex|79: Возвpащает индекс символа в начале стpоки в оpгане упpавления pедактиpованием.|
Default=Integer(187)
AddHint(81,-13,199,52,@Hint)
}
Add(Length,8440348,434,308)
{
link(onLength,14306445:doWork1,[(480,314)])
link(Str,3951637:Text,[(440,295)(349,295)])
}
Add(HubEx,14306445,476,315)
{
Angle=1
link(onEvent,16529159:doEvent1,[(480,349)(305,349)(305,272)])
}
Add(Hub,12305030,406,308)
{
link(onEvent1,8440348:doLength,[])
link(onEvent2,14306445:doWork2,[])
}
Add(Memo,3951637,343,224)
{
Width=762
Height=524
Align=5
Font=[MS Sans Serif,10,1,0,1]
ScrollBars=3
Point(doSetSelStart)
Point(doEnsureVisible)
Point(Handle)
link(FileName,12567649:FullPathToFile,[(356,134)(412,134)])
}
END_SDK