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