+TCHUI.System
+1
+%RegisteredObject
+0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+%String
+
+
+
+%Integer
+
+
+
+%Integer
+
+
+
+%Integer
+1
+
+
+
+TCanvas
+
+
+
+TFont
+
+
+
+
+Default fonts verschillende formtypes en verschillende toepassingen
+Twee nivos in de multidimensional : FormType en DoelType
+%String
+1
+
+
+
+%Boolean
+0
+
+
+
+
+Bijhouden van de gecreëerde forms
+TForm
+list
+
+
+
+
+Paint sortering van de forms
+TForm
+list
+
+
+
+TControlBasis
+
+
+
+TForm
+
+
+
+
+Wanneer een aantal keer op rij StorePage zonder RefreshPage werd uitgevoerd, dan kan de terminal buffer vol komen te zitten: BufferIsFull=1
+%Boolean
+0
+
+
+
+%Boolean
+
+
+
+%String
+
+
+
+%String
+
+
+
+Color Map Old.rcr
+
+
+
+Color Map Blue.rcr
+
+
+
+%String
+c:\windows\
+
+
+
+%String
+\\notes01\common\settings\reflection\
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+Form:TForm
+
+
+
+
+Form,PaintAll,ActivateNextForm
+
+
+
+
+Form
+
+
+
+
+Form
+
+
+
+
+Form
+
+
+
+
+
+
+
+
+ExcludeForm:TForm
+
+
+
+
+1
+Type,Height,Width
+1 Do ;Oude systeem heeft reeds een of meerdere pagina's opgeslagen, deze "met rust laten"
+ . Set Screen.TermPage=pbScr("PAGE")
+
+ Quit Screen
+]]>
+
+
+
+
+rcMaximized, rcNormal, rcMinimized
+WindowState:%Integer
+
+
+
+
+
+
+
+
+Caption:%Integer,AddNamespace:%Boolean
+
+
+
+
+Height=0,Width=0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+Type,Height,Width
+ 1
+ Set ..Canvas=..NewCanvas()
+ Do ..Canvas.Init(,1,1,..Height,..Width,1) ; ook initialize van terminal
+ Set ..ActiveForm=""
+
+ ;UseAnsiColor waarde opvragen: indien actief, dan zijn VT520 kleuren gekozen
+ Set UseAnsiColor=##class(TCHUI.TApplication).GetVBAValue($$$vbaGetUseAnsiColor)
+ Set ..SwitchToOldColorMapOnExit=0
+ If ..Type=$$$ttVT520 Do
+ . Do ..DefaultFontsVT520()
+ . If 'UseAnsiColor Do
+ .. Do ..SetNewColorMap()
+ .. Set ..SwitchToOldColorMapOnExit=1
+ Else If ..Type=$$$ttVT420 Do
+ . Do ..DefaultFontsVT420()
+ . Do:(UseAnsiColor) ..SetOldColorMap()
+
+ //Set ..Font=..CreateFont($LB($$$clBlack,$$GetDefaultBGColor^TCHUI.System($$$ftMain,$$$fsBackground)))
+ Set ..Font=..CreateFont($LB($$$clBlack,$$$clMedLight))
+]]>
+
+
+
+%Close method to
+provide notification that the current object is being closed.
+
+The return value of this method is ignored.]]>
+1
+1
+%Status
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+Opslaan van de pagina (of een deel ervan) in de VT420-terminal
+Ctrl,T,B
+5 Do Quit ;Alle pagina's (zes) uit het geheugen zijn bezet, nieuwe pagina's die worden opgeslaan worden volledig hertekend als ze worden opgehaald
+ . Set ..BufferIsFull=1
+
+ Set (To,..TermPage)=..TermPage+1
+ Set T=$G(T,1),B=$G(B,..Height)
+ Set From=1
+ Do ..CopyPage(T,1,B,..Width,From,T,1,To)
+ Set ..TermPage(+Ctrl)=To ; Onthouden bij welke control de opgeslagen page hoort
+
+ Quit To
+]]>
+
+
+
+
+Terughalen van de opgeslagen pagina (of een deel ervan)
+Normaal wordt RefreshPage slechts 1 maal opgeroepen, indien meerdere keren nodig dan de flag ZonderCount activeren
+Ctrl,T,B,ZonderCount
+PageNr Do ; alle "bovenliggende" pages worden verwijderd
+ . Set ..TermPage=PageNr
+ . Set Ctrl2=""
+ . For Set Ctrl2=$O(..TermPage(Ctrl2)) Quit:Ctrl2="" Do:..TermPage(Ctrl2)>PageNr Kill:..TermPage(Ctrl2)>PageNr ..TermPage(Ctrl2)
+ Set T=$G(T,1),B=$G(B,..Height)
+ Set To=1,From=PageNr
+ Set:'$G(ZonderCount) ..TermPage=..TermPage-1
+ Do ..CopyPage(T,1,B,..Width,From,T,1,To)
+]]>
+
+
+
+
+Copieren van een pagina (of een deel ervan) naar een andere pagina
+T,L,B,R,From,T1,L2,To
+
+
+
+
+DoelType,FormType,SubType
+
+
+
+
+
+de font wordt van uit %Screen gecreëerd omdat deze terminal afhankelijk kunnen zijn
+FontList,ParentFont
+
+
+
+
+
+
+
+
+
+de canvas wordt vanuit %Screen gecreëerd omdat deze terminal afhankelijk kunnen zijn
+
+
+
+
+ParentCanvas,Control
+
+
+
+