serial TGrid,%Const Default %Library.TMRxDrawGrid Indien bij bijv. SetCellValue enkel de value opgegeven wordt voor niet-selectie, dan kan automatisch een copy gemaakt worden voor selectie ook, zoniet hebben we een leeg veld bij selectie. %Library.Boolean 1 %Library.Boolean 0 %Library.String 1 %Library.String 1 %Library.String 1 %Library.String 1 %Library.String 1 %Library.String 1 %Library.String 1 %Library.Boolean 0 %Library.Boolean 0 For internal use. generator initvalue:%String 0 %Library.Status 0 %Library.Integer 0 %Library.Integer 0 IncludeFixed:%Boolean=0 0 Col,Row:%Integer 0 FromCol,ToCol,FromRow,ToRow:%Integer,IncludeFixed:%Boolean=0 0 0 Col:%Integer,EndOfDelete:%Boolean 0 (..FixedCols+1) Do Quit . Set:($D(EndOfDelete)) EndOfDelete=1 . Do ..ClearCells(Col,Col,,,1) New ColLoop,RowLoop For ColLoop=(Col+1):1:..ColCount Do . For RowLoop=0:1:..RowCount-1 Do .. Do ..FMoveCell(ColLoop,RowLoop,ColLoop-1,RowLoop) . Do:('..FInUpdate) ..InvalidateCol(ColLoop-1) Set ..ColCount=..ColCount-1 Set:($D(EndOfDelete)) EndOfDelete=0 Quit ]]> Row:%Integer 0 (..FixedRows+1) Do Quit . Do ..ClearCells(,,Row,Row,1) New RowLoop,ColLoop For RowLoop=(Row+1):1:..RowCount Do . For ColLoop=0:1:..ColCount-1 Do .. Do ..FMoveCell(ColLoop,RowLoop,ColLoop,RowLoop-1) . Do:('..FInUpdate) ..InvalidateRow(RowLoop-1) Set ..RowCount=..RowCount-1 Quit ]]> 0 SrcCol,SrcRow,DestCol,DestRow:%Integer 0 SrcCol,SrcRow,DestCol,DestRow:%Integer 0 ColA,RowA,ColB,RowB:%Integer 0 InsertBeforeCol:%Integer 0 %Library.Boolean InsertBeforeRow:%Integer 0 %Library.Boolean Args:%String 0 SrcCol,SrcRow:%Integer 0 SrcCol,SrcRow:%Integer 0 Col,Row:%Integer,Color,SelColor:%Integer 0 Col,Row:%Integer,Flags,SelFlags:%Integer 0 Col,Row:%Integer,Color,SelColor:%Integer 0 Col,Row:%Integer,Name,SelName:%Integer 0 Col,Row:%Integer,Size,SelSize:%Integer 0 Col,Row:%Integer,Style,SelStyle:%Integer 0 Col,Row:%Integer,Value,SelValue:%String 0 ColCount,RowCount:%Integer 0 %Library.Boolean ..FixedCols) 0 Quit:(RowCount'>..FixedRows) 0 Set ..ColCount=..FixedCols+ColCount Set ..RowCount=..FixedRows+RowCount Quit 1 ]]> RowA,RowB:%Integer 0 %Library.Boolean %Library.CacheSerialState Address ClassName CloseFromClient Parent PropName ClassNameAbsent Tag Constraints Font OnCanResize OnClick OnConstrainedResize OnDblClick OnDragDrop OnDragOver OnEndDock OnEndDrag OnMouseDown OnMouseMove OnMouseUp OnResize OnStartDock OnStartDrag PopupMenu Brush OnDockDrop OnDockOver OnEnter OnExit OnGetSiteInfo OnKeyDown OnKeyPress OnKeyUp OnMouseWheel OnMouseWheelDown OnMouseWheelUp Canvas IniStorage OnAcceptEditKey OnCancelEdit OnChangeFocus OnCheckButton OnColumnSized OnDrawCell OnEditButtonClick OnEditChange OnFixedCellClick OnGetEditAlign OnGetEditLimit OnGetEditStyle OnGetPicklist OnRowSized OnShowEditor FaFontStyle FaCellColor InUpdate DefaultFixedRowColor FInUpdate IsEmpty CopyToSelect HandleValuesOnly BMPFullBuffer FInBuffering FCanvasToUse IgnoreValues