PureBasic Forums - English

Well. Has made so:

...
Global GetScroll
Procedure Scroll(hWnd, Msg, wParam, lParam)
GadgetID=GetProp_(hWnd,"PB_GadgetID")
result = CallWindowProc_(GetScroll, hWnd, Msg, wParam, lParam)

If FindMapElement(MapGadgets(),Str(GadgetID))
Table=MapGadgets()\TableID
Separation=MapGadgets ...

No, it it was not required. Has made as has told netmaestro and has a little corrected a code for reliability.
Scrolling works Structure Cell
CellContent$
ColorCellBack.l
ColorCellFront.l
EndStructure

Structure Column
Array Row.Cell(0)
Map MapCellSelect$() ; Card of the chosen cells in a ...

Thanks, netmaestro !
Means, it is necessary to do something like it:
Procedure OpenTable(Array TableArray.Cell(2),X, Y, WidthWindow, HeightWindow, NameTable$)

...

MapGadgets(Str(Window))\TableID=Table
MapGadgets()\SeparationID=Separation
MapGadgets()\WindowID=Window
MapGadgets(Str ...

I tried to divide actions in time, using a stream:
Procedure MyThread(Row)
If MapGadgets()\SeparationID
If FlagRowSelect ; Выделить ряд
SetGadgetItemColor(MapGadgets()\SeparationID,Row-1,#PB_Gadget_BackColor,ColorBackSeparationSelect,1)
SetGadgetItemColor(MapGadgets()\SeparationID,Row-1,#PB ...

All I welcome.
The tabular editor supporting any number of simultaneously open tables was required to write. Approximately so:
Structure Cell
CellContent$
ColorCellBack.l
ColorCellFront.l
EndStructure

Structure Column
Array Row.Cell(0)
Map MapCellSelect$() ; Card of the chosen cells in a ...