Index: UI/PR/GA/Viewer.cls.xml
===================================================================
diff -u -r1210 -r1499
--- UI/PR/GA/Viewer.cls.xml	(.../Viewer.cls.xml)	(revision 1210)
+++ UI/PR/GA/Viewer.cls.xml	(.../Viewer.cls.xml)	(revision 1499)
@@ -189,7 +189,7 @@
  ;object DesignForm: TDesignForm
  ;  Left = 4
  ;  Top = 7
- ;  Width = 908
+ ;  Width = 909
  ;  Height = 567
  ;  Caption = 'DesignForm'
  ;  Color = clBtnFace
@@ -273,7 +273,7 @@
  ;    TabOrder = 2
  ;  end
  ;  object btnSluiten: CButton
- ;    Left = 817
+ ;    Left = 810
  ;    Top = 2
  ;    Width = 75
  ;    Height = 25
@@ -301,9 +301,9 @@
  ;  end
  ;  object pnlTreeData: CPanel
  ;    Left = 0
- ;    Top = 108
- ;    Width = 900
- ;    Height = 425
+ ;    Top = 139
+ ;    Width = 901
+ ;    Height = 394
  ;    Align = alBottom
  ;    Anchors = [akLeft, akTop, akRight, akBottom]
  ;    Caption = 'pnlTreeData'
@@ -312,15 +312,15 @@
  ;      Left = 730
  ;      Top = 1
  ;      Width = 3
- ;      Height = 423
+ ;      Height = 392
  ;      Cursor = crHSplit
  ;      Align = alLeft
  ;    end
  ;    object tvProduct: CTreeView
  ;      Left = 1
  ;      Top = 1
  ;      Width = 729
- ;      Height = 423
+ ;      Height = 392
  ;      Align = alLeft
  ;      Indent = 19
  ;      TabOrder = 0
@@ -329,8 +329,8 @@
  ;    object txtTreeData: CMemo
  ;      Left = 733
  ;      Top = 1
- ;      Width = 166
- ;      Height = 423
+ ;      Width = 167
+ ;      Height = 392
  ;      Align = alClient
  ;      Lines.Strings = (
  ;        'txtTreeData')
@@ -341,7 +341,7 @@
  ;    end
  ;  end
  ;  object rbgDataTonen: CRadioGroup
- ;    Left = 714
+ ;    Left = 707
  ;    Top = 32
  ;    Width = 177
  ;    Height = 73
@@ -355,7 +355,7 @@
  ;    OnClick = rbgDataTonenClick
  ;  end
  ;  object chkShowOutputData: CCheckBox
- ;    Left = 553
+ ;    Left = 545
  ;    Top = 70
  ;    Width = 161
  ;    Height = 17
@@ -367,7 +367,7 @@
  ;    OnClick = chkShowOutputDataClick
  ;  end
  ;  object chkKenmerken: CCheckBox
- ;    Left = 553
+ ;    Left = 545
  ;    Top = 86
  ;    Width = 161
  ;    Height = 17
@@ -377,7 +377,7 @@
  ;    OnClick = chkKenmerkenClick
  ;  end
  ;  object btnRefreshTree: CButton
- ;    Left = 633
+ ;    Left = 626
  ;    Top = 34
  ;    Width = 75
  ;    Height = 25
@@ -602,7 +602,7 @@
  s %this.btnRefreshTree=##class(%TMButton).%New($lb(%this.Form.Address,0))
  s %this.txtProdPrijs=##class(%TMEdit).%New($lb(%this.Form.Address,0))
  s MApplication.ClientState="NoWait"
- d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","OldCreateOrder","WindowState","OnActivate","OnClose","OnShow","PixelsPerInch"),$lb(4,7,908,567,"DesignForm",$$$clBtnFace,"False","wsMaximized",$lb(%this,"DesignFormActivate"),$lb(%this,"DesignFormClose"),$lb(%this,"DesignFormShow"),96))
+ d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","OldCreateOrder","WindowState","OnActivate","OnClose","OnShow","PixelsPerInch"),$lb(4,7,909,567,"DesignForm",$$$clBtnFace,"False","wsMaximized",$lb(%this,"DesignFormActivate"),$lb(%this,"DesignFormClose"),$lb(%this,"DesignFormShow"),96))
  d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
  d %this.lblTemplateCbo.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(72,29,41,13,"Temlate:"))
  d %this.lblProductIDTxt.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(59,53,54,13,"Product ID:"))
@@ -613,21 +613,21 @@
  d %this.cboTemplate.SetMultiProperty($lb("Left","Top","Width","Height","ItemHeight","TabOrder","Text"),$lb(121,23,353,21,13,0,"cboTemplate"))
  d %this.txtProductID.SetMultiProperty($lb("Left","Top","Width","Height","Enabled","TabOrder"),$lb(121,51,57,21,"False",1))
  d %this.txtMetaStruct.SetMultiProperty($lb("Left","Top","Width","Height","TabOrder"),$lb(121,83,121,21,2))
- d %this.btnSluiten.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(817,2,75,25,$lb("akTop","akRight"),"True","Sluiten",3,$lb(%this,"btnSluitenClick")))
+ d %this.btnSluiten.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(810,2,75,25,$lb("akTop","akRight"),"True","Sluiten",3,$lb(%this,"btnSluitenClick")))
  d %this.txtProductOms.SetMultiProperty($lb("Left","Top","Width","Height","TabOrder"),$lb(305,51,169,21,4))
  d %this.btnSelectProduct.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(183,49,43,25,"Select",5,$lb(%this,"btnSelectProductClick")))
- d %this.pnlTreeData.SetMultiProperty($lb("Left","Top","Width","Height","Align","Anchors","Caption","TabOrder"),$lb(0,108,900,425,"alBottom",$lb("akLeft","akTop","akRight","akBottom"),"pnlTreeData",6))
- d %this.zzSplitter1.SetMultiProperty($lb("Left","Top","Width","Height","Cursor","Align"),$lb(730,1,3,423,$$$crHSplit,"alLeft"))
- d %this.tvProduct.SetMultiProperty($lb("Left","Top","Width","Height","Align","Indent","TabOrder"),$lb(1,1,729,423,"alLeft",19,0))
- d %this.txtTreeData.SetMultiProperty($lb("Left","Top","Width","Height","Align"),$lb(733,1,166,423,"alClient"))
+ d %this.pnlTreeData.SetMultiProperty($lb("Left","Top","Width","Height","Align","Anchors","Caption","TabOrder"),$lb(0,139,901,394,"alBottom",$lb("akLeft","akTop","akRight","akBottom"),"pnlTreeData",6))
+ d %this.zzSplitter1.SetMultiProperty($lb("Left","Top","Width","Height","Cursor","Align"),$lb(730,1,3,392,$$$crHSplit,"alLeft"))
+ d %this.tvProduct.SetMultiProperty($lb("Left","Top","Width","Height","Align","Indent","TabOrder"),$lb(1,1,729,392,"alLeft",19,0))
+ d %this.txtTreeData.SetMultiProperty($lb("Left","Top","Width","Height","Align"),$lb(733,1,167,392,"alClient"))
  d %this.txtTreeData.Lines.SetMultiProperty($lb("Strings"),$lb("txtTreeData"))
  d %this.txtTreeData.SetMultiProperty($lb("ScrollBars","TabOrder","Visible","WordWrap"),$lb("ssBoth",1,"False","False"))
- d %this.rbgDataTonen.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption"),$lb(714,32,177,73,$lb("akTop","akRight")," Data Tonen "))
+ d %this.rbgDataTonen.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption"),$lb(707,32,177,73,$lb("akTop","akRight")," Data Tonen "))
  d %this.rbgDataTonen.Items.SetMultiProperty($lb("Strings"),$lb("Alleen Treeview"_$C(13,10)_"Treeview en TreeData"_$C(13,10)_"Treeview en KenmerkData"))
  d %this.rbgDataTonen.SetMultiProperty($lb("TabOrder","OnClick"),$lb(7,$lb(%this,"rbgDataTonenClick")))
- d %this.chkShowOutputData.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Checked","State","TabOrder","Visible","OnClick"),$lb(553,70,161,17,"OutputData Tonen","True","cbChecked",8,"False",$lb(%this,"chkShowOutputDataClick")))
- d %this.chkKenmerken.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","Visible","OnClick"),$lb(553,86,161,17,"Kenmerken in OutputData",9,"False",$lb(%this,"chkKenmerkenClick")))
- d %this.btnRefreshTree.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(633,34,75,25,$lb("akTop","akRight"),"True","Refresh Tree",10,$lb(%this,"btnRefreshTreeClick")))
+ d %this.chkShowOutputData.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Checked","State","TabOrder","Visible","OnClick"),$lb(545,70,161,17,"OutputData Tonen","True","cbChecked",8,"False",$lb(%this,"chkShowOutputDataClick")))
+ d %this.chkKenmerken.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","Visible","OnClick"),$lb(545,86,161,17,"Kenmerken in OutputData",9,"False",$lb(%this,"chkKenmerkenClick")))
+ d %this.btnRefreshTree.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(626,34,75,25,$lb("akTop","akRight"),"True","Refresh Tree",10,$lb(%this,"btnRefreshTreeClick")))
  d %this.txtProdPrijs.SetMultiProperty($lb("Left","Top","Width","Height","Enabled","TabOrder"),$lb(417,83,57,21,"False",11))
  s MApplication.ClientState="Wait"
  q