Hello Graeme. Many thanks!
There is a very little problem in tprocedurelistfo.JumpToSelectedLine; The line jumped is 1 line too much. Also may I propose to change the color of the line jumped, so it is more easy to see. Here the code: procedure tprocedurelistfo.JumpToSelectedLine; var int1: int32; lGotoLine: integer; c,c2: gridcoordty; // c2 is for the grid-editor begin c.row := grdProcedures.Row; c.col := 3; lGotoLine := StrToInt(grdProcedures.Items[c]); c2.row := lGotoLine-1; // for color line jumped c2.col := 1; int1 := sourcefo.activepage.source_editor.rowwindowpos; sourcefo.activepage.source_editor.row := lGotoLine-1; // change this sourcefo.activepage.source_editor.rowwindowpos := int1-1; // change this sourcefo.activepage.source_editor.selectcell(c2, csm_select, False); // change color focused end; Fre;D -- Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/ _______________________________________________ mseide-msegui-talk mailing list mseide-msegui-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
