Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r14790 -r16058
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 14790)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 16058)
@@ -5,8 +5,292 @@
 <IncludeCode>KeyCodesCNTs,PRGACNTs,UILibCtrlCNTs</IncludeCode>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.TMFormClass</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="DesignDefinition1">
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<PublicList>MApplication</PublicList>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ ;    end
+ ;    object cboDwarsVerdeling: CComboBox
+ ;      Left = 136
+ ;      Top = 118
+ ;      Width = 145
+ ;      Height = 21
+ ;      TabStop = False
+ ;      Anchors = [akTop, akRight]
+ ;      Ctl3D = True
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clBlack
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ItemHeight = 13
+ ;      ParentCtl3D = False
+ ;      ParentFont = False
+ ;      TabOrder = 4
+ ;      Text = 'cboDwarsVerdeling'
+ ;      OnEnter = cboAlgemeenEnter
+ ;      OnExit = cboAlgemeenExit
+ ;      ControlClass = 'UI.Lib.Ctrl.TComboBox'
+ ;    end
+ ;    object cboFrontSteun: CComboBox
+ ;      Left = 136
+ ;      Top = 94
+ ;      Width = 145
+ ;      Height = 21
+ ;      TabStop = False
+ ;      Anchors = [akTop, akRight]
+ ;      Ctl3D = True
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clBlack
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ItemHeight = 13
+ ;      ParentCtl3D = False
+ ;      ParentFont = False
+ ;      TabOrder = 3
+ ;      Text = 'cboFrontSteun'
+ ;      OnEnter = cboAlgemeenEnter
+ ;      OnExit = cboAlgemeenExit
+ ;      ControlClass = 'UI.Lib.Ctrl.TComboBox'
+ ;    end
+ ;    object cboRugStukVerlaagd: CComboBox
+ ;      Left = 208
+ ;      Top = 172
+ ;      Width = 81
+ ;      Height = 21
+ ;      TabStop = False
+ ;      Anchors = [akTop, akRight]
+ ;      Ctl3D = True
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clRed
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ItemHeight = 13
+ ;      ParentCtl3D = False
+ ;      ParentFont = False
+ ;      TabOrder = 9
+ ;      Text = 'cboRugStukVerlaagd'
+ ;      Visible = False
+ ;      ControlClass = 'UI.Lib.Ctrl.TComboBox'
+ ;    end
+ ;  end
+ ;  object pnlButtons: CPanel
+ ;    Left = 313
+ ;    Top = 567
+ ;    Width = 305
+ ;    Height = 105
+ ;    BevelOuter = bvNone
+ ;    TabOrder = 5
+ ;    OnEnter = OnGroupBoxEnter
+ ;    object lblAantalTxt: CLabel
+ ;      Left = 11
+ ;      Top = 4
+ ;      Width = 40
+ ;      Height = 21
+ ;      AutoSize = False
+ ;      Caption = 'Aantal'
+ ;      Layout = tlCenter
+ ;    end
+ ;    object lblVerpakInfo: CLabel
+ ;      Left = 89
+ ;      Top = -4
+ ;      Width = 208
+ ;      Height = 37
+ ;      Alignment = taRightJustify
+ ;      AutoSize = False
+ ;      Caption = 'Verpakking'
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clGreen
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = [fsBold]
+ ;      ParentFont = False
+ ;      Layout = tlCenter
+ ;      WordWrap = True
+ ;    end
+ ;    object btnOpties: CButton
+ ;      Left = 6
+ ;      Top = 32
+ ;      Width = 83
+ ;      Height = 25
+ ;      Caption = 'Opties'
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clWindowText
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ParentFont = False
+ ;      TabOrder = 2
+ ;      OnClick = btnOptiesClick
+ ;    end
+ ;    object btnToonBox: CButton
+ ;      Left = 102
+ ;      Top = 72
+ ;      Width = 91
+ ;      Height = 25
+ ;      Caption = 'Details tonen'
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clWindowText
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ParentFont = False
+ ;      TabOrder = 4
+ ;      OnMouseUp = btnToonBoxMouseUp
+ ;    end
+ ;    object btnAllesWissen: CButton
+ ;      Left = 6
+ ;      Top = 72
+ ;      Width = 83
+ ;      Height = 25
+ ;      Caption = 'Alles wissen'
+ ;      Enabled = False
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clWindowText
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ParentFont = False
+ ;      TabOrder = 5
+ ;      OnClick = btnAllesWissenClick
+ ;    end
+ ;    object btnCancel: CButton
+ ;      Left = 206
+ ;      Top = 72
+ ;      Width = 91
+ ;      Height = 25
+ ;      Cancel = True
+ ;      Caption = 'Annuleren'
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clWindowText
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ParentFont = False
+ ;      TabOrder = 6
+ ;      OnClick = btnCancelClick
+ ;    end
+ ;    object btnAanmaken: CButton
+ ;      Left = 206
+ ;      Top = 32
+ ;      Width = 91
+ ;      Height = 25
+ ;      Caption = 'BOX creëren'
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clWindowText
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = [fsBold]
+ ;      ParentFont = False
+ ;      TabOrder = 1
+ ;      OnClick = btnAanmakenClick
+ ;    end
+ ;    object btnXMLView: CButton
+ ;      Left = 102
+ ;      Top = 32
+ ;      Width = 91
+ ;      Height = 25
+ ;      Caption = 'Afdruk tonen'
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clWindowText
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ParentFont = False
+ ;      TabOrder = 3
+ ;      OnClick = btnXMLViewClick
+ ;    end
+ ;    object txtAantal: CEdit
+ ;      Left = 47
+ ;      Top = 4
+ ;      Width = 41
+ ;      Height = 21
+ ;      Ctl3D = True
+ ;      Enabled = False
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clWindowText
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ParentCtl3D = False
+ ;      ParentFont = False
+ ;      TabOrder = 0
+ ;      OnExit = txtAantalExit
+ ;      ControlClass = 'UI.Lib.Ctrl.TDAEdit'
+ ;    end
+ ;  end
+ ;end
+]]></Implementation>
+</Method>
+
+<Method name="GeefOPVLKleurDefaultingViaKey">
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ New OPVLKleurDefaultingViaKey
+ Set OPVLKleurDefaultingViaKey="K:LG"
+  ;d WLIP^vhDBG(97,"LadeKleur "_..cboLadeKleur.SelectedGetKey()_"  - "_..blTBox.BTValues.GetAt("TBLadeKleur"))
+ If ..cboLadeKleur.SelectedGetKey()?1(1"WI",1"SW") {
+     Set OPVLKleurDefaultingViaKey="K:WI"
+ }
+ Quit OPVLKleurDefaultingViaKey
+
+
+]]></Implementation>
+</Method>
+
+<Method name="Initialization1">
+<FormalSpec>initvalue:%String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<PublicList>MApplication</PublicList>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ d %this.chkStalenRug.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","AllowGrayed","Caption","TabOrder"),$lb(16,191,225,16,"False","True","Stalen/houten rug",7))
+ d %this.cboHangMap.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,142,145,21,"False",$lb("akTop","akRight"),"True",13,"False","False",5,"cboHangMap",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
+ d %this.cboHangMap.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
+ d %this.cboAntislipmat.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,46,145,21,$lb("akTop","akRight"),"True",13,"False","False",1,"cboAntislipmat",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
+ d %this.cboAntislipmat.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
+ d %this.cboBinnenGreep.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,70,145,21,$lb("akTop","akRight"),"True",13,"False","False",2,"cboBinnenGreep",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
+ d %this.cboBinnenGreep.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
+ d %this.cboDwarsVerdeling.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,118,145,21,"False",$lb("akTop","akRight"),"True",13,"False","False",4,"cboDwarsVerdeling",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
+ d %this.cboDwarsVerdeling.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
+ d %this.cboFrontSteun.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,94,145,21,"False",$lb("akTop","akRight"),"True",13,"False","False",3,"cboFrontSteun",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
+ d %this.cboFrontSteun.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
+ d %this.cboRugStukVerlaagd.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","Visible"),$lb(208,172,81,21,"False",$lb("akTop","akRight"),"True",13,"False","False",9,"cboRugStukVerlaagd","False"))
+ d %this.cboRugStukVerlaagd.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clRed,-11,"MS Sans Serif",$lb()))
+ d %this.pnlButtons.SetMultiProperty($lb("Left","Top","Width","Height","BevelOuter","TabOrder","OnEnter"),$lb(313,567,305,105,"bvNone",5,$lb(%this,"OnGroupBoxEnter")))
+ d %this.lblAantalTxt.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,4,40,21,"False","Aantal","tlCenter"))
+ d %this.lblVerpakInfo.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption","ParentFont","Layout","WordWrap"),$lb(89,-4,208,37,"taRightJustify","False","Verpakking","False","tlCenter","True"))
+ d %this.lblVerpakInfo.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clGreen,-11,"MS Sans Serif",$lb("fsBold")))
+ d %this.btnOpties.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnClick"),$lb(6,32,83,25,"Opties","False",2,$lb(%this,"btnOptiesClick")))
+ d %this.btnOpties.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
+ d %this.btnToonBox.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnMouseUp"),$lb(102,72,91,25,"Details tonen","False",4,$lb(%this,"btnToonBoxMouseUp")))
+ d %this.btnToonBox.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
+ d %this.btnAllesWissen.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Enabled","ParentFont","TabOrder","OnClick"),$lb(6,72,83,25,"Alles wissen","False","False",5,$lb(%this,"btnAllesWissenClick")))
+ d %this.btnAllesWissen.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
+ d %this.btnCancel.SetMultiProperty($lb("Left","Top","Width","Height","Cancel","Caption","ParentFont","TabOrder","OnClick"),$lb(206,72,91,25,"True","Annuleren","False",6,$lb(%this,"btnCancelClick")))
+ d %this.btnCancel.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
+ d %this.btnAanmaken.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnClick"),$lb(206,32,91,25,"BOX creëren","False",1,$lb(%this,"btnAanmakenClick")))
+ d %this.btnAanmaken.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb("fsBold")))
+ d %this.btnXMLView.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnClick"),$lb(102,32,91,25,"Afdruk tonen","False",3,$lb(%this,"btnXMLViewClick")))
+ d %this.btnXMLView.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
+ d %this.txtAantal.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","Enabled","ParentCtl3D","ParentFont","TabOrder","OnExit"),$lb(47,4,41,21,"True","False","False","False",0,$lb(%this,"txtAantalExit")))
+ d %this.txtAantal.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
+ s MApplication.ClientState="Wait"
+ q
+]]></Implementation>
+</Method>
+
 <Parameter name="BlumotionMinIB">
 <Description>
 Minimaal toegelaten Interne Breedte voor een lade met Dubbele Blumotion (in mm)</Description>
@@ -3047,7 +3331,7 @@
  Set tmpAr("TBCBreedte")=      $LB("Afm",+..txtCBreedte,+..cboCBreedte,,)
  Set tmpAr("OpvullijstLi")=    $LB("Afm",+..txtOpvulLijstLi,,,)
  Set tmpAr("OpvullijstRe")=    $LB("Afm",+..txtOpvulLijstRe,,,)
- Set tmpAr("TBOpvullijstKleur")=$LB("Afm",+..cboOpvullijstKleur,,,"REF:KLROPVL\K:GR")
+ Set tmpAr("TBOpvullijstKleur")=$LB("Afm",+..cboOpvullijstKleur,,,"REF:KLROPVL")   ; Deze wordt nog aangepast in ..AppPrepareBTCtrls()
  Set tmpAr("MinTolerantie")=   $LB("Afm",+..chkMinTolerantie,,)
  Set tmpAr("TBSPZijkant")=     $LB("Afm",+..cboSPZijkant,,,"REF:SPZK\K:SA")   ; Added K:SA (on 09/11/2009) to set Default for type DLS
  Set tmpAr("TBLadeDiepte")=    $LB("Afm",+..cboLadeDiepte,,,"REF:LD")
@@ -3380,10 +3664,11 @@
  Set KLNr=..Product.KlantGetObjectId()
  Do ..blTBox.BTValuesFromProduct(..Product)
 
+ Do prcWisDefaultWaardeOpvullijstKleur()
+
  Set DC=..blTBox.BTValues.GetAt("TBDesignCode")
  If $L(DC)&&(..blTBox.DC'=DC) Do ..blTBox.Initialize(DC)   ; Added by WimV on 15/02/2010 (na uitbreidingen voor FilterDC)
  Do:($L(DFLRef)) prcBTValViaRef("TBStalenRug")
-   ;d ..TTrace("test"_$$LCVT^vhLib($$ObjectArrayToLB^vhLib(..blTBox.BTValues)))
  Set Key=""
  For  Set Val=..blTBox.BTValues.GetNext(.Key) Quit:(Key="")  Set arBTCopy(Key)=Val
 
@@ -3398,9 +3683,31 @@
  Do:(blnNewProd) prcPrepareExtraCtrls()
  Do prcPrepareOpties()
  Do prcPrepareSpoelbakMaten()
+ Do prcWijzigControlDefaultingDefs()
  Set MApplication.ScreenCursor=$$$crDefault
  Quit
 
+
+prcWisDefaultWaardeOpvullijstKleur()
+ If (..RunMode=$$$rmNewFromTemplate) {
+ 	Do ..blTBox.BTValues.SetAt("","TBOpvullijstKleur")
+ }
+ Quit
+
+prcWijzigControlDefaultingDefs()
+ New DefaultingViaKey,UIDefault,PieceIndex,i
+ Set DefaultingViaKey=..GeefOPVLKleurDefaultingViaKey()
+ If $L(DefaultingViaKey) {
+	Set UIDefault=$G(..FLookUp("TBOpvullijstKleur","DFL"))
+	Set PieceIndex=0
+	For i=1:1:$L(UIDefault,"\") Set:($P(UIDefault,"\",i)?1"K:".E) PieceIndex=i  Quit:(PieceIndex>0)
+	Set:(PieceIndex=0) PieceIndex=$S(UIDefault="":1,1:$L(UIDefault,"\")+1)
+ 	Set $P(..FLookUp("TBOpvullijstKleur","DFL"),"\",PieceIndex)=DefaultingViaKey
+ }
+ Quit
+prcPrependDelimiterIndienNodig(Waarde, Delimiter)
+ Quit $S($L(Waarde):Delimiter, 1:"")_Waarde
+
 prcPrepareExtraCtrls()
 #define DS    "TBDesign"
 #define PRO   "IsPRO"
@@ -4467,273 +4774,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="DesignDefinition1">
-<Language>cache</Language>
-<ProcedureBlock>0</ProcedureBlock>
-<PublicList>MApplication</PublicList>
-<SoapBindingStyle>document</SoapBindingStyle>
-<SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[
- ;    end
- ;    object cboDwarsVerdeling: CComboBox
- ;      Left = 136
- ;      Top = 118
- ;      Width = 145
- ;      Height = 21
- ;      TabStop = False
- ;      Anchors = [akTop, akRight]
- ;      Ctl3D = True
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clBlack
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ItemHeight = 13
- ;      ParentCtl3D = False
- ;      ParentFont = False
- ;      TabOrder = 4
- ;      Text = 'cboDwarsVerdeling'
- ;      OnEnter = cboAlgemeenEnter
- ;      OnExit = cboAlgemeenExit
- ;      ControlClass = 'UI.Lib.Ctrl.TComboBox'
- ;    end
- ;    object cboFrontSteun: CComboBox
- ;      Left = 136
- ;      Top = 94
- ;      Width = 145
- ;      Height = 21
- ;      TabStop = False
- ;      Anchors = [akTop, akRight]
- ;      Ctl3D = True
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clBlack
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ItemHeight = 13
- ;      ParentCtl3D = False
- ;      ParentFont = False
- ;      TabOrder = 3
- ;      Text = 'cboFrontSteun'
- ;      OnEnter = cboAlgemeenEnter
- ;      OnExit = cboAlgemeenExit
- ;      ControlClass = 'UI.Lib.Ctrl.TComboBox'
- ;    end
- ;    object cboRugStukVerlaagd: CComboBox
- ;      Left = 208
- ;      Top = 172
- ;      Width = 81
- ;      Height = 21
- ;      TabStop = False
- ;      Anchors = [akTop, akRight]
- ;      Ctl3D = True
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clRed
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ItemHeight = 13
- ;      ParentCtl3D = False
- ;      ParentFont = False
- ;      TabOrder = 9
- ;      Text = 'cboRugStukVerlaagd'
- ;      Visible = False
- ;      ControlClass = 'UI.Lib.Ctrl.TComboBox'
- ;    end
- ;  end
- ;  object pnlButtons: CPanel
- ;    Left = 313
- ;    Top = 567
- ;    Width = 305
- ;    Height = 105
- ;    BevelOuter = bvNone
- ;    TabOrder = 5
- ;    OnEnter = OnGroupBoxEnter
- ;    object lblAantalTxt: CLabel
- ;      Left = 11
- ;      Top = 4
- ;      Width = 40
- ;      Height = 21
- ;      AutoSize = False
- ;      Caption = 'Aantal'
- ;      Layout = tlCenter
- ;    end
- ;    object lblVerpakInfo: CLabel
- ;      Left = 89
- ;      Top = -4
- ;      Width = 208
- ;      Height = 37
- ;      Alignment = taRightJustify
- ;      AutoSize = False
- ;      Caption = 'Verpakking'
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clGreen
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = [fsBold]
- ;      ParentFont = False
- ;      Layout = tlCenter
- ;      WordWrap = True
- ;    end
- ;    object btnOpties: CButton
- ;      Left = 6
- ;      Top = 32
- ;      Width = 83
- ;      Height = 25
- ;      Caption = 'Opties'
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clWindowText
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ParentFont = False
- ;      TabOrder = 2
- ;      OnClick = btnOptiesClick
- ;    end
- ;    object btnToonBox: CButton
- ;      Left = 102
- ;      Top = 72
- ;      Width = 91
- ;      Height = 25
- ;      Caption = 'Details tonen'
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clWindowText
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ParentFont = False
- ;      TabOrder = 4
- ;      OnMouseUp = btnToonBoxMouseUp
- ;    end
- ;    object btnAllesWissen: CButton
- ;      Left = 6
- ;      Top = 72
- ;      Width = 83
- ;      Height = 25
- ;      Caption = 'Alles wissen'
- ;      Enabled = False
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clWindowText
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ParentFont = False
- ;      TabOrder = 5
- ;      OnClick = btnAllesWissenClick
- ;    end
- ;    object btnCancel: CButton
- ;      Left = 206
- ;      Top = 72
- ;      Width = 91
- ;      Height = 25
- ;      Cancel = True
- ;      Caption = 'Annuleren'
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clWindowText
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ParentFont = False
- ;      TabOrder = 6
- ;      OnClick = btnCancelClick
- ;    end
- ;    object btnAanmaken: CButton
- ;      Left = 206
- ;      Top = 32
- ;      Width = 91
- ;      Height = 25
- ;      Caption = 'BOX creëren'
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clWindowText
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = [fsBold]
- ;      ParentFont = False
- ;      TabOrder = 1
- ;      OnClick = btnAanmakenClick
- ;    end
- ;    object btnXMLView: CButton
- ;      Left = 102
- ;      Top = 32
- ;      Width = 91
- ;      Height = 25
- ;      Caption = 'Afdruk tonen'
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clWindowText
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ParentFont = False
- ;      TabOrder = 3
- ;      OnClick = btnXMLViewClick
- ;    end
- ;    object txtAantal: CEdit
- ;      Left = 47
- ;      Top = 4
- ;      Width = 41
- ;      Height = 21
- ;      Ctl3D = True
- ;      Enabled = False
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clWindowText
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ParentCtl3D = False
- ;      ParentFont = False
- ;      TabOrder = 0
- ;      OnExit = txtAantalExit
- ;      ControlClass = 'UI.Lib.Ctrl.TDAEdit'
- ;    end
- ;  end
- ;end
-]]></Implementation>
-</Method>
-
-<Method name="Initialization1">
-<FormalSpec>initvalue:%String</FormalSpec>
-<Language>cache</Language>
-<ProcedureBlock>0</ProcedureBlock>
-<PublicList>MApplication</PublicList>
-<SoapBindingStyle>document</SoapBindingStyle>
-<SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[
- d %this.chkStalenRug.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","AllowGrayed","Caption","TabOrder"),$lb(16,191,225,16,"False","True","Stalen/houten rug",7))
- d %this.cboHangMap.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,142,145,21,"False",$lb("akTop","akRight"),"True",13,"False","False",5,"cboHangMap",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
- d %this.cboHangMap.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
- d %this.cboAntislipmat.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,46,145,21,$lb("akTop","akRight"),"True",13,"False","False",1,"cboAntislipmat",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
- d %this.cboAntislipmat.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- d %this.cboBinnenGreep.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,70,145,21,$lb("akTop","akRight"),"True",13,"False","False",2,"cboBinnenGreep",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
- d %this.cboBinnenGreep.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
- d %this.cboDwarsVerdeling.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,118,145,21,"False",$lb("akTop","akRight"),"True",13,"False","False",4,"cboDwarsVerdeling",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
- d %this.cboDwarsVerdeling.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
- d %this.cboFrontSteun.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,94,145,21,"False",$lb("akTop","akRight"),"True",13,"False","False",3,"cboFrontSteun",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
- d %this.cboFrontSteun.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
- d %this.cboRugStukVerlaagd.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","Visible"),$lb(208,172,81,21,"False",$lb("akTop","akRight"),"True",13,"False","False",9,"cboRugStukVerlaagd","False"))
- d %this.cboRugStukVerlaagd.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clRed,-11,"MS Sans Serif",$lb()))
- d %this.pnlButtons.SetMultiProperty($lb("Left","Top","Width","Height","BevelOuter","TabOrder","OnEnter"),$lb(313,567,305,105,"bvNone",5,$lb(%this,"OnGroupBoxEnter")))
- d %this.lblAantalTxt.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,4,40,21,"False","Aantal","tlCenter"))
- d %this.lblVerpakInfo.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption","ParentFont","Layout","WordWrap"),$lb(89,-4,208,37,"taRightJustify","False","Verpakking","False","tlCenter","True"))
- d %this.lblVerpakInfo.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clGreen,-11,"MS Sans Serif",$lb("fsBold")))
- d %this.btnOpties.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnClick"),$lb(6,32,83,25,"Opties","False",2,$lb(%this,"btnOptiesClick")))
- d %this.btnOpties.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- d %this.btnToonBox.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnMouseUp"),$lb(102,72,91,25,"Details tonen","False",4,$lb(%this,"btnToonBoxMouseUp")))
- d %this.btnToonBox.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- d %this.btnAllesWissen.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Enabled","ParentFont","TabOrder","OnClick"),$lb(6,72,83,25,"Alles wissen","False","False",5,$lb(%this,"btnAllesWissenClick")))
- d %this.btnAllesWissen.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- d %this.btnCancel.SetMultiProperty($lb("Left","Top","Width","Height","Cancel","Caption","ParentFont","TabOrder","OnClick"),$lb(206,72,91,25,"True","Annuleren","False",6,$lb(%this,"btnCancelClick")))
- d %this.btnCancel.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- d %this.btnAanmaken.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnClick"),$lb(206,32,91,25,"BOX creëren","False",1,$lb(%this,"btnAanmakenClick")))
- d %this.btnAanmaken.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb("fsBold")))
- d %this.btnXMLView.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnClick"),$lb(102,32,91,25,"Afdruk tonen","False",3,$lb(%this,"btnXMLViewClick")))
- d %this.btnXMLView.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- d %this.txtAantal.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","Enabled","ParentCtl3D","ParentFont","TabOrder","OnExit"),$lb(47,4,41,21,"True","False","False","False",0,$lb(%this,"txtAantalExit")))
- d %this.txtAantal.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- s MApplication.ClientState="Wait"
- q
-]]></Implementation>
-</Method>
-
 <Method name="IsNieuweSifonlade">
 <FormalSpec>Klasse</FormalSpec>
 <Language>cache</Language>