<?xml version="1.0" ?>
<widgetset>
   <form>
      <property name="Name" type="C" value="" />
      <property name="Caption" type="C" value="" />
      <property name="AlwaysOnTop" type="L" value="False"/>
      <property name="AutoCenter" type="L" value="True" />
      <property name="Left" type="N" value="" />
      <property name="Top" type="N" value="" />
      <property name="Width" type="N" value="" />
      <property name="Height" type="N" value="" />
      <property name="Font" type="O" />
      <property name="FormType" type="C" value="dlgModal" />
      <property name="Modal" type="L" value="True" />
      <property name="ScopeVarObj" type="C" value="Local" />
      <property name="lClipper" type="L" value="False"/>
      <property name="lExitOnEnter" type="L" value="True"/>
      <property name="lExitOnESC" type="L" value="True"/>
      <property name="Parameters" type="A" />
      <property name="Properties" type="A" />
      <property name="Variables" type="A" />
      <property name="Methods" type="A" />
      <property name="FromStyle" type="C" value="Popup" />
      <property name="Clipsiblings" type="L" value="False" />
      <property name="Clipchildren" type="L" value="False" />
      <property name="TitleBar" type="L" value="True" />
      <property name="StyleBorder" type="C" value="3 - Sizable (Default)" />
      <property name="nBackColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(15))) ]]></property>
      <property name="Icon" type="C" value=""/>
      <property name="Bitmap" type="C" />
      <property name="NoIcon" type="L" value="False" />
      <property name="SystemMenu" type="L" value="True" />
      <property name="Minimizebox" type="L" value="False" />
      <property name="Maximizebox" type="L" value="False" />
      <property name="AbsAlignment" type="L" value="True" />
      <property name="WindowState" type="C" value="1 - Normal (Default)" />
      <property name="minHeight" type="N" value="-1" />
      <property name="maxHeight" type="N" value="-1" />
      <property name="minWidth" type="N"  value="-1" />
      <property name="maxWidth" type="N"  value="-1" />
      <property name="ScrollBars" type="C" value="0 - None (Default)" />
      <property name="DSControl" type="L" value="False" />
      <property name="ReturnExpr" type="C" />
      <method name="common" />
      <method name="onFormInit" />
      <method name="onDlgInit" />
      <method name="onActivate" />
      <method name="onSize" />
      <method name="onPaint" />
      <method name="onGetFocus" />
      <method name="onLostFocus" />
      <method name="onOtherMessages" />
      <method name="onRefresh" />
      <method name="onDlgExit" />
      <method name="onFormExit" />
   </form>
   <set name="Standard">
      <widget class="label" name="Static text" bmp="BMP_STATIC">
         <paint>
            <![CDATA[
            Private nLeft,asize,cjust,cAlign,nalign,dwtext
            cjust := oCtrl:GetProp( "Justify" )
            cAlign := oCtrl:GetProp( "VAlignment" )
            //aSize :=  TxtRect(octrl:title, octrl)
            nalign := 0
            IF cJust = "Right"
              nalign := 2
            ELSEIF cJust = "Center"
              nalign := 1
	      ENDIF
            IF cAlign = "Center"
              nalign += 4
            ELSEIF cAlign = "Bottom"
              nalign += 8
            ENDIF
            IF oCtrl:GetProp( "WordWrap" ) = "False"
              //nAlign += 12  //SS_LEFTNOWORDWRAP 
               nAlign += 32  //DT_SINGLELINE  
            ELSE
               nAlign += 16  //DT_WORDBREAK
            ENDIF
            if oCtrl:GetProp( "Transparent" ) == "True"
              setbkmode(hdc,1)
              //FillRect( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,oCtrl:oparent:brush:handle )
            else
              FillRect( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,oCtrl:brush:handle )
            endif
            //DrawText( hDC,oCtrl:title,nLeft,2,oCtrl:nWidth,oCtrl:nHeight )
            SetAStyle( @nalign, @dwtext )
            DrawText( hDC,oCtrl:title,0,2,oCtrl:nWidth,oCtrl:nHeight,NALIGN) //dwtext )
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Caption" type="C" value="Label" />
         <property name="Justify" type="C" value="Left"/>
	   <property name="VAlignment" type="C" value="Top" />
         <property name="AutoSize" type="L" value="False"/>
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="80" />
         <property name="Height" type="N" value="19" />
         <property name="Anchor" type="N" value="0" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BackColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(15))) ]]></property>
         <property name="Font" type="O" />
         <property name="Border" type="L" value="False"/>
         <property name="Transparent" type="L" value="False" />
         <property name="WordWrap" type="L" value="True" />
         <property name="3DLook" type="L" value="False" />
	   <property name="Enabled" type="L" value="True" />
  	   <property name="ToolTip" type="C" value=""/>
         <property name="TabIndex" type="N"  />
         <property name="TabStop" type="L" value="True" />
         <method name="onClick" />
         <method name="onDblClick" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onPaint" />
         <method name="onOtherMessages" />
      </widget>
      <widget class="editbox" name="Text control" bmp="BMP_EDIT">
         <paint>
            <![CDATA[
            DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,10 )
            FillRect( hDC,2,2,oCtrl:nWidth-2,oCtrl:nHeight-2,oCtrl:brush:handle )
            DrawText( hDC,oCtrl:GetProp( "Name"),2,2,oCtrl:nWidth,oCtrl:nHeight )
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="_InitValue" type="C" value=" "/>
         <property name="varName" type="C" />
         <property name="ControlSource" type="C" value=""/>
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="80" />
         <property name="Height" type="N" value="22" />
         <property name="Anchor" type="N" value="0" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BackColor" type="N" value="16777215" />
         <property name="Transparent" type="L" value="False" />
         <property name="Font" type="O" />
         <property name="Justify" type="C" value="Left"/>
         <property name="Multiline" type="L" value="False" />
         <property name="AutoHScroll" type="L" value="False"/>
         <property name="FormatText" type="C" value="" />
         <property name="cPicture" type="C" />
	   <property name="nMaxLength" type="N" />
         <property name="Password" type="L" value="False"/>
	   <property name="Enabled" type="L" value="True" />
	   <property name="ReadOnly" type="L" value="False" />
         <property name="Border" type="L" value="True"/>
         <property name="ToolTip" type="C" value=""/>
         <property name="3DLook" type="L" value="False" />
         <property name="TabIndex" type="N"  />
         <property name="TabStop" type="L" value="True" />
         <method name="onLostFocus" />
         <method name="onGetFocus" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onPaint" />
         <method name="onKeyDown" />
         <method name="onChange" />
         <method name="onOtherMessages" />
      </widget>
      <widget class="memobox" name="Edit control" bmp="smMemo">
         <paint>
            <![CDATA[
            Private lhs ,lvs
            DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,10 )
            FillRect( hDC,2,2,oCtrl:nWidth-2,oCtrl:nHeight-2,oCtrl:brush:handle )
            DrawText( hDC,oCtrl:GetProp( "Name"),2,2,oCtrl:nWidth,oCtrl:nHeight )
            lhs := iif(oCtrl:GetProp( "BarsHScroll") = "True",.t.,.f.)
            lvs := iif(oCtrl:GetProp( "BarsVScroll") = "True",.t.,.f.)
            ShowScrollBar( oCtrl:handle,0,lhs )
            ShowScrollBar( oCtrl:handle,1,lvs )
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="varName" type="C" />
         <property name="ControlSource" type="C" value=""/>
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="108" />
         <property name="Height" type="N" value="62" />
         <property name="Anchor" type="N" value="0" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BackColor" type="N" value="16777215" />
         <property name="Transparent" type="L" value="False" />
         <property name="Font" type="O" />
         <property name="Justify" type="C" value="Left"/>
         <property name="cPicture" type="C" />
	   <property name="nMaxLength" type="N" />
	   <property name="Enabled" type="L" value="True" />
	   <property name="ReadOnly" type="L" value="False" />
         <property name="AutoVScroll" type="L" value="True"/>
         <property name="BarsVScroll" type="L" value="True"/>
         <property name="AutoHScroll" type="L" value="False"/>
         <property name="BarsHScroll" type="L" value="False"/>
         <property name="Border" type="L" value="True"/>
         <property name="ToolTip" type="C" value=""/>
         <property name="3DLook" type="L" value="False" />
         <property name="TabIndex" type="N"  />
         <property name="TabStop" type="L" value="True" />
         <property name="Multiline" type="L" value="True" hidden="" />
         <method name="onLostFocus" />
         <method name="onGetFocus" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onPaint" />
         <method name="onKeyDown" />
         <method name="onChange" />
         <method name="onOtherMessages" />
      </widget>
      <widget class="button" name="Push button" bmp="BMP_BUTTON">
         <paint>
            <![CDATA[
            Private cjust,nalign
            cjust := oCtrl:GetProp( "Justify" )
            nalign := 32+4  // DT_SINGLELINE  
            IF cJust = "Right"
              nalign += 2
            ELSEIF cJust = "Center"
              nalign += 1
	      ENDIF
            IF oCtrl:GetProp( "WordWrap" ) = "True"
              nAlign -= 16  //DT_WORDBREAK   
            ENDIF
            DrawButton( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,5 )
            DrawText( hDC,oCtrl:title,2,0,oCtrl:nWidth-2,oCtrl:nHeight,nalign)
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Id" type="C" value=""/>
         <property name="Caption" type="C" value="Button" />
         <property name="Justify" type="C" value="Center"/>
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="90" />
         <property name="Height" type="N" value="30" />
         <property name="Anchor" type="N" value="0" />
         <property name="Font" type="O" />
         <property name="3DLook" type="L" value="True" />
         <property name="WordWrap" type="L" value="False" />
	   <property name="ToolTip" type="C" value=""/>
	   <property name="Enabled" type="L" value="True" />
         <property name="ToolTip" type="C" value=""/>
         <property name="TabIndex" type="N"  />
         <property name="TabStop" type="L" value="True" />
         <method name="onClick" />
         <method name="onGetFocus" />
         <method name="onInit" />
         <method name="onPaint" />
         <method name="onSize" />
      </widget>
      <widget class="buttonex" name="Push button Ex" bmp="BMP_BUTTON">
         <paint>
            <![CDATA[
            private xt := 2,yt,ht:=1,cpp, cpm, nalign, dwtext  //Max(Val(oCtrl:GetProp("TextLeft")),2),yt
            DrawButton( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,5 )
            //cpm = val(oCtrl:GetProp( "picturemargin" ) )

            nalign := 37
            IF oCtrl:GetProp( "WordWrap" ) = "True"
              nAlign := 17 //DT_WORDBREAK //16  //SS_LEFTNOWORDWRAP 
              ht := DrawText( hDC,oCtrl:title,0,0,oCtrl:nWidth,oCtrl:nHeight,1024 + 16,nil )
              ht := (octrl:nHeight -ht) / 2 
            ENDIF
            if oCtrl:oBitmap != Nil .AND.OCtrl:oBitmap:nHeight < OCtrl:nHeight
     	        cpp := oCtrl:GetProp("PicturePosition") // array="Left,Center,Right" >
              cpp := IIF( EMPTY(oCtrl:title),"1", cpp )
     	        cpm := val(oCtrl:GetProp("PictureMargin")) + 1
              yt := (oCtrl:nHeight-oCtrl:oBitmap:nHeight)/2
              xt := Iif(cpp="0-Left",1,iif(cpp="2-Right",oCtrl:nWidth-oCtrl:oBitmap:nWidth,(oCtrl:nWidth-oCtrl:oBitmap:nWidth)/2 ))
              //ht := DrawText( hDC,oCtrl:title,xt+oCtrl:oBitmap:nWidth,0,oCtrl:nWidth-xt-oCtrl:oBitmap:nWidth,oCtrl:nHeight,1024+16,nil )
              //ht := ( octrl:nHeight  - ht ) / 2 
              if cpp="0" // left
                DrawText( hDC,oCtrl:title,xt+oCtrl:oBitmap:nWidth,ht,oCtrl:nWidth-xt*2,oCtrl:nHeight,nalign )
                DrawBitmap( hDC,oCtrl:oBitmap:handle,,cpm,yt,oCtrl:oBitmap:nWidth,oCtrl:oBitmap:nHeight )
              elseif cpp="2"  //Right"
                DrawText( hDC,oCtrl:title,cpm+1,ht,oCtrl:nWidth-oCtrl:oBitmap:nWidth,oCtrl:nHeight,nalign )
                DrawBitmap( hDC,oCtrl:oBitmap:handle,,cpm+xt-3,yt,oCtrl:oBitmap:nWidth,oCtrl:oBitmap:nHeight )
              else // center
                //DrawText( hDC,oCtrl:title,ht,oCtrl:oBitmap:nHeight,oCtrl:nWidth,oCtrl:nHeight,nalign )
                yt := IIF(oCtrl:oBitmap:nHeight > oCtrl:nHeight,2, yt ) //oCtrl:oBitmap:nHeight / 2  )
                DrawText( hDC,oCtrl:title,0,ht+2+cpm,oCtrl:nWidth-2*2,oCtrl:nHeight+oCtrl:oBitmap:nHeight,nalign )
                yt := IIF(EMPTY(oCtrl:title),yt, cpm-1) 
                DrawBitmap( hDC,oCtrl:oBitmap:handle,,xt,yt,oCtrl:oBitmap:nWidth,oCtrl:oBitmap:nHeight )
              endif 
            else
              //nalign := 37
              //IF oCtrl:GetProp( "WordWrap" ) = "True"
              //  nAlign := 17 //DT_WORDBREAK //12  //SS_LEFTNOWORDWRAP 
              //ENDIF
              //SetAStyle( @nalign, @dwtext )
		  //DrawText( hDC,oCtrl:title,xt,0,oCtrl:nWidth-xt*2,oCtrl:nHeight,37 )
              DrawText( hDC,oCtrl:title,xt,ht,oCtrl:nWidth-xt*2,oCtrl:nHeight,nalign) //dwtext )
            endif
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Id" type="C" value=""/>
         <property name="Caption" type="C" value="Button" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="98" />
         <property name="Height" type="N" value="32" />
         <property name="Anchor" type="N" value="0" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BackColor" type="N" value="16777215" />
         <property name="Font" type="O" />
         <property name="WordWrap" type="L" value="False" />
         <property name="Bitmap" type="C" value="" />
         <property name="lResource" type="L" value="False" />
         <property name="PicturePosition" type="C" value="0-Left"/>
         <property name="PictureMargin" type="N" value="0"/>
         <property name="Icon" type="C" value="" />
         <property name="Transparent" type="L" value="False" />
	   <property name="ToolTip" type="C" value=""/>
	   <property name="Enabled" type="L" value="True" />
	   <property name="noThemes" type="L" value="False" />
         <property name="TabIndex" type="N" />
         <property name="TabStop" type="L" value="True" />
         <method name="onClick" />
         <method name="onGetFocus" />
         <method name="onInit" />
         <method name="onSize" />
      </widget>
      <widget class="checkbox" name="CheckBox" bmp="BMP_CHECK">
         <paint>
            <![CDATA[
            Private cjust,nalign
            IF oCtrl:GetProp( "Transparent" ) == "True"
              setbkmode(hdc,1)
            ENDIF 
            cjust := oCtrl:GetProp( "Alignment" )
            nalign := 32+4  // DT_SINGLELINE  
            IF oCtrl:GetProp( "WordWrap" ) = "True"
              nAlign -= 16  //DT_WORDBREAK   
            ENDIF
            IF "Right" $ cJust
              DrawEdge( hDC,oCtrl:nWidth-19,4,oCtrl:nWidth-1,18,10 )
              FillRect( hDC,oCtrl:nWidth-17,6,oCtrl:nWidth-3,16,21 )
              DrawText( hDC,oCtrl:title,0,0,oCtrl:nWidth-20,oCtrl:nHeight,nalign)
            ELSE
              DrawEdge( hDC,2,4,16,18,10 )
              FillRect( hDC,4,6,14,16,21 )
              DrawText( hDC,oCtrl:title,20,0,oCtrl:nWidth-1,oCtrl:nHeight,nalign)
	      ENDIF
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="lInitValue" type="L" value="False"/>
         <property name="varName" type="C" />
         <property name="ControlSource" type="C" value=""/>
	   <property name="Alignment" type="C" value="CenterLeft" />
         <property name="Caption" type="C" value="Checkbox " />
         <property name="Justify" type="C" value="Left"/>
         <property name="WordWrap" type="L" value="False" />
         <property name="lEnter" type="L" value="False" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="110" />
         <property name="Height" type="N" value="22" />
         <property name="Anchor" type="N" value="0" />
         <property name="Font" type="O" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BackColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(15))) ]]></property>
         <property name="Transparent" type="L" value="False" />
         <property name="3DLook" type="L" value="False" />
         <property name="ToolTip" type="C" value=""/>
	   <property name="Enabled" type="L" value="True" />
         <property name="TabIndex" type="N"  />
         <property name="TabStop" type="L" value="True" />
         <method name="onClick" />
         <method name="onGetFocus" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onOtherMessages" />
      </widget>
      <widget class="radiobutton" name="RadioButton" bmp="BMP_RADIO">
         <paint>
            <![CDATA[
            //Ellipse( hDC,4,6,14,16 )
           // IF oCtrl:GetProp( "Transparent" ) == "True"
           //   setbkmode(hdc,1)
           // ENDIF 
           // DrawText( hDC,oCtrl:title,20,2,oCtrl:nWidth,oCtrl:nHeight )
            Private cjust,nalign
            IF oCtrl:GetProp( "Transparent" ) == "True"
              setbkmode(hdc,1)
            ENDIF 
            cjust := oCtrl:GetProp( "Alignment" )
            nalign := 32+4  // DT_SINGLELINE  
            IF oCtrl:GetProp( "WordWrap" ) = "True"
              nAlign -= 16  //DT_WORDBREAK   
            ENDIF
            IF "Right" $ cJust
              Ellipse( hDC,oCtrl:nWidth-14,6,oCtrl:nWidth-4,16)
              DrawText( hDC,oCtrl:title,0,0,oCtrl:nWidth-20,oCtrl:nHeight,nalign)
            ELSE
              Ellipse( hDC,4,6,14,16 )
              DrawText( hDC,oCtrl:title,20,0,oCtrl:nWidth-1,oCtrl:nHeight,nalign)
	      ENDIF
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="lInitValue" type="L" value="False"/>
	   <property name="Alignment" type="C" value="CenterLeft" />
         <property name="Caption" type="C" value="Option" />
         <property name="Justify" type="C" value="Left"/>
         <property name="WordWrap" type="L" value="False" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="90" />
         <property name="Height" type="N" value="22" />
         <property name="Anchor" type="N" value="0" />
         <property name="Font" type="O" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BackColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(15))) ]]></property>
         <property name="Transparent" type="L" value="False" />
	   <property name="Enabled" type="L" value="True" />
         <property name="Border" type="L" value="False"/>
         <property name="3DLook" type="L" value="False" />
         <property name="ToolTip" type="C" value=""/>
         <property name="TabIndex" type="N" />
         <property name="TabStop" type="L" value="True" />
         <method name="onClick" />
         <method name="onGetFocus" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onOtherMessages" />
      </widget>
      <widget class="group" name="Group box" bmp="BMP_GROUP">
         <paint>
            <![CDATA[
            SetWindowPos( oCtrl:handle, 1 , 0,0,0,0,3) // 64)
            DrawEdge( hDC,0,8,oCtrl:nWidth,oCtrl:nHeight,6 )
            IF oCtrl:GetProp( "Transparent" ) == "True"
              setbkmode(hdc,1)
            ENDIF 
            DrawText( hDC,oCtrl:title,6,0,oCtrl:nWidth-9,oCtrl:nHeight )
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Caption" type="C" value="" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="100" />
         <property name="Height" type="N" value="80" />
         <property name="Anchor" type="N" value="0" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BackColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(15))) ]]></property>
         <property name="Transparent" type="L" value="False" />
         <property name="Font" type="O" />
         <property name="3DLook" type="L" value="True" />
         <property name="NoGroup" type="L" value="False" />
         <property name="TabIndex" type="N" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onPaint" />
      </widget>
      <widget class="radiogroup" name="Radio group" bmp="BMP_RGROUP">
         <paint>
            <![CDATA[
            setbkmode(hdc,1)
            //FillRect( hDC,1,1,oCtrl:nWidth-2,oCtrl:nHeight-2,oCtrl:brush:handle )
            DrawEdge( hDC,0,8,oCtrl:nWidth,oCtrl:nHeight,6 )
            IF oCtrl:GetProp( "Transparent" ) == "True"
              setbkmode(hdc,1)
            ENDIF 
            DrawText( hDC,oCtrl:title,6,0,oCtrl:nWidth-9,oCtrl:nHeight )
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="nInitValue" type="N" value="1"/>
         <property name="varName" type="C" />
         <property name="ControlSource" type="C" value=""/>
         <property name="Caption" type="C" value="RadioGroup" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="130" />
         <property name="Height" type="N" value="80" />
         <property name="Anchor" type="N" value="0" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BackColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(15))) ]]></property>
         <property name="Transparent" type="L" value="False" />
         <property name="Font" type="O" />
         <property name="3DLook" type="L" value="False" />
         <property name="TabIndex" type="N"  />
         <property name="TabStop" type="L" value="True" />
         <method name="onClick" />
         <method name="onGetFocus" />
         <method name="onInit" />
         <method name="onSize" />
      </widget>
      <widget class="combobox" name="ComboBox" bmp="BMP_COMBO">
         <paint bmp="32752">
            <![CDATA[
            DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,10 )
            FillRect( hDC,2,2,oCtrl:nWidth-2,oCtrl:nHeight-2,oCtrl:brush:handle )
            DrawText( hDC,oCtrl:GetProp( "Name"),2,2,oCtrl:nWidth,oCtrl:nHeight )
            DrawBitmap( hDC,oCtrl:oBitmap:handle,,oCtrl:nWidth-oCtrl:oBitmap:nWidth-2,2 )         
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="nInitValue" type="N" value="1"/>
         <property name="varName" type="C" />
         <property name="ControlSource" type="C" value=""/>
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="110" />
         <property name="Height" type="N" value="23" />
         <property name="ItemHeight" type="N" value="0" />
         <property name="ColumnWidth" type="N" value="0" />
         <property name="Anchor" type="N" value="0" />
         <property name="VarItems" type="C" />
         <property name="Items" type="A" />
         <property name="DisplayCount" type="N" value="0" />
         <property name="Font" type="O" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BackColor" type="N" value="16777215" />
         <property name="Transparent" type="L" value="False" />
         <property name="lEdit" type="L" value="False" />
         <property name="lText" type="L" value="False" />
         <property name="FormatText" type="C" value="" />
         <property name="AutoHScroll" type="L" value="False"/>
         <property name="aSort" type="L" value="False" />
   	   <property name="VSCROLL" type="L" value="False" />
         <property name="3DLook" type="L" value="False" />
	   <property name="Enabled" type="L" value="True" />
	   <property name="ComboboxEx" type="L" value="False" />
	   <property name="Checks" type="A"  />
         <property name="ToolTip" type="C" value=""/>
         <property name="TabIndex" type="N"  />
         <property name="TabStop" type="L" value="True" />
         <method name="onChange" />
         <method name="onGetFocus" />
         <method name="onLostFocus" />
         <method name="onInteractiveChange" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="bSetGet" />
      </widget>
      <widget class="listbox" name="ListBox" bmp="BMP_LISTBOX">
         <paint bmp="32752">
            <![CDATA[
            DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,10 )
            FillRect( hDC,2,2,oCtrl:nWidth-2,oCtrl:nHeight-2,oCtrl:brush:handle )
            DrawText( hDC,oCtrl:GetProp( "Name"),2,2,oCtrl:nWidth,oCtrl:nHeight )
            //DrawBitmap( hDC,oCtrl:oBitMap:handle,,oCtrl:nWidth-oCtrl:oBitmap:nWidth-2,2 )
            ShowScrollBar( oCtrl:handle,1,.t. )
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="nInitValue" type="N" value="1"/>
         <property name="varName" type="C" />
         <property name="ControlSource" type="C" value=""/>
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="130" />
         <property name="Height" type="N" value="144" />
         <property name="Anchor" type="N" value="0" />
         <property name="Font" type="O" />
         <property name="VarItems" type="C" />
         <property name="Items" type="A" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BackColor" type="N" value="16777215" />
         <property name="Transparent" type="L" value="False" />
   	   <property name="VSCROLL" type="L" value="False" />
         <property name="3DLook" type="L" value="False" />
	   <property name="Enabled" type="L" value="True" />
         <property name="ToolTip" type="C" value=""/>
         <property name="TabIndex" type="N" />
         <property name="TabStop" type="L" value="True" />
         <method name="onChange" />
         <method name="onGetFocus" />
         <method name="onLostFocus" />
         <method name="onKeyDown" />
         <method name="onDblClick" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onPaint" />
         <method name="onOtherMessages" />
      </widget>
      <widget class="bitmap" name="Bitmap" bmp="BMP_BMP">
         <paint>
            <![CDATA[
            Private oBrush
            if oCtrl:oBitmap != Nil .AND.oCtrl:oBitmap:handle != 0    
              IF VAL(oCtrl:GetProp( "Stretch" )) = 2
                  oCtrl:nWidth := oCtrl:oBitmap:nWidth //aSize[1]+ 3
                  oCtrl:SetProp( "Width",Ltrim(Str(oCtrl:nWidth)) )
                  oCtrl:nHeight := oCtrl:oBitmap:nHeight //aSize[1]+ 3
                  oCtrl:SetProp( "Height",Ltrim(Str(oCtrl:nHeight)) )
                 // oCtrl:move(,,oCtrl:nWidth,oCtrl:nHeight)
                FillRect( hDC,1,2,oCtrl:nWidth-1,oCtrl:nHeight-1) //,oCtrl:brush:handle )
                DrawBitmap( hDC,oCtrl:oBitmap:handle,,0,0,oCtrl:oBitmap:nWidth,oCtrl:oBitmap:nHeight )
              ELSEIF VAL(oCtrl:GetProp( "Stretch" )) = 1
                FillRect( hDC,1,2,oCtrl:nWidth-1,oCtrl:nHeight-1) //,oCtrl:brush:handle )
                DrawBitmap( hDC,oCtrl:oBitmap:handle,,0,0 )
              ELSE
                DrawBitmap( hDC,oCtrl:oBitmap:handle,,0,0,oCtrl:nWidth,oCtrl:nHeight )
              ENDIF
            else
              obrush := HBrush():Add(RGB(255,255,255)) 
	        SelectObject( hDC, oBrush:handle )                              
              ROUNDRECT( hDC, 0,0, oCtrl:nWidth,oCtrl:nHeight, 0,0)
              DRAWLINE( hDC,1,oCtrl:nHeight-1,oCtrl:nWidth-1,1) //,obrush:handle )
              DRAWLINE( hDC,1,1,oCtrl:nWidth-1,oCtrl:nHeight-1) //,obrush:handle )
            endif
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="90" />
         <property name="Height" type="N" value="90" />
         <property name="Anchor" type="N" value="0" />
         <property name="Bitmap" type="C" value="" />
         <property name="lResource" type="L" value="False" />
         <property name="Stretch" type="C" value="0 - Stretch (Default)" />
         <property name="Transparent" type="L" value="False" />
  	   <property name="ToolTip" type="C" value=""/>
         <method name="onClick" />
         <method name="onDblClick" />
         <method name="onInit" />
         <method name="onSize" />
      </widget>
      <widget class="icon" name="Icon" bmp="BMP_ICON">
         <paint>
            <![CDATA[
            Private obrush
            if oCtrl:oBitmap != Nil .AND.oCtrl:oBitmap:handle != 0             
              DrawIcon( hDC,oCtrl:oBitmap:handle,0,0 )
            else
             obrush := HBrush():Add(RGB(255,255,255)) 
	       SelectObject( hDC, oBrush:handle )                              
             ROUNDRECT( hDC, 0,0, oCtrl:nWidth,oCtrl:nHeight, 0,0)
             DRAWLINE( hDC,1,oCtrl:nHeight-1,oCtrl:nWidth-1,1) //,obrush:handle )
             DRAWLINE( hDC,1,1,oCtrl:nWidth-1,oCtrl:nHeight-1) //,obrush:handle )
            endif
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="32" />
         <property name="Height" type="N" value="32" />
         <property name="Anchor" type="N" value="0" />
         <property name="Icon" type="C" value="" />
         <property name="lResource" type="L" value="False" />
	   <property name="ToolTip" type="C" value=""/>
         <method name="onClick" />
         <method name="onDblClick" />
          <method name="onInit" />
         <method name="onSize" />
      </widget>
      <widget class="menu" name="Menu" bmp="BMP_MENU">
         <create>
            <![CDATA[BuildMenu( {{{|| EditMenu()},"Menu",32000,.f.}},oCtrl:oParent:handle,oCtrl:oParent )
            ]]>
         </create>
         <property name="Name" type="C" />
         <property name="Left" type="N" value="0" hidden="" />
         <property name="Top" type="N" value="0" hidden="" />
         <property name="Width" type="N" value="0" hidden="" />
         <property name="Height" type="N" value="0" hidden=""/>
         <property name="xTabIndex" type="N" value="-1" hidden=""/>
         <property name="aTree" type="O" hidden=""/>
      </widget>
   </set>
   <set name="Win32">
      <widget class="richedit" name="Rich Edit control" bmp="BMP_RICH">
         <paint bmp="32752">
            <![CDATA[
            Private lhs, lvs
            DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,10 )
            FillRect( hDC,2,2,oCtrl:nWidth-2,oCtrl:nHeight-2,oCtrl:brush:handle )
            DrawText( hDC,oCtrl:GetProp( "Name"),2,2,oCtrl:nWidth,oCtrl:nHeight )
            //DrawBitmap( hDC,oCtrl:oBitMap:handle,,oCtrl:nWidth-oCtrl:oBitmap:nWidth-2,2 )
            lhs := iif(oCtrl:GetProp( "BarsHScroll") = "True",.t.,.f.)
            lvs := iif(oCtrl:GetProp( "BarsVScroll") = "True",.t.,.f.)
            ShowScrollBar( oCtrl:handle,0,lhs )
            ShowScrollBar( oCtrl:handle,1,lvs )
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="cInitValue" type="C"  />
         <property name="varName" type="C" />
         <property name="ControlSource" type="C" value=""/>
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="190" />
         <property name="Height" type="N" value="120" />
         <property name="Anchor" type="N" value="0" />
         <property name="TextColor" type="N" value="0"/>
         <property name="BackColor" type="N" value="16777215" />
         <property name="Transparent" type="L" value="False" />
         <property name="Font" type="O" />
         <property name="AllowTabs" type="L" value="False" />
         <property name="AutoVScroll" type="L" value="True"/>
         <property name="BarsVScroll" type="L" value="True"/>
         <property name="AutoHScroll" type="L" value="False"/>
         <property name="BarsHScroll" type="L" value="False"/>
         <property name="Justify" type="C" value="Left"/>
         <property name="Border" type="L" value="True"/>
	   <property name="ReadOnly" type="L" value="False" />
	   <property name="Enabled" type="L" value="True" />
   	   <property name="ToolTip" type="C" value=""/>
         <property name="TabIndex" type="N" />
         <property name="TabStop" type="L" value="True" />
         <property name="Multiline" type="L" value="True"/>
         <method name="onGetFocus" />
         <method name="onLostFocus" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onPaint" />
      </widget>
      <widget class="updown" name="UpDown control" bmp="BMP_UPDOWN">
         <paint bmp="32739">
            <![CDATA[
            DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,10 )
            FillRect( hDC,2,2,oCtrl:nWidth-2,oCtrl:nHeight-2,21 )
            DrawText( hDC,oCtrl:GetProp( "Name"),2,2,oCtrl:nWidth,oCtrl:nHeight )
            //DrawBitmap( hDC,oCtrl:oBitmap:handle,,oCtrl:nWidth-oCtrl:oBitmap:nWidth-2,2 )
            ShowScrollBar( oCtrl:handle,1,.t. )
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="nInitValue" type="N" value="0"/>
         <property name="varName" type="C"/>
         <property name="ControlSource" type="C" value=""/>
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="80" />
         <property name="Height" type="N" value="22" />
         <property name="UpDownWidth" type="N" value="12" />
         <property name="Anchor" type="N" value="0" />
         <property name="nLower" type="N" value="-2147483647"/>
         <property name="nUpper" type="N" value="2147483647"/>
         <property name="Increment" type="N" value="1"/>
         <property name="TextColor" type="N" value="0"/>
         <property name="BackColor" type="N" value="16777215" />
         <property name="Transparent" type="L" value="False" />
         <property name="Font" type="O" />
         <property name="Justify" type="C" value="Right"/>
         <property name="cPicture" type="C" />
	   <property name="nMaxLength" type="N" />
	   <property name="Enabled" type="L" value="True" />
	   <property name="ReadOnly" type="L" value="False" />
         <property name="Border" type="L" value="True"/>
         <property name="3DLook" type="L" value="False" />
         <property name="ToolTip" type="C" value=""/>
         <property name="TabIndex" type="N" />
         <method name="onLostFocus" />
         <method name="onGetFocus" />
         <method name="onInit" />
         <method name="onKeyDown" />
         <method name="onChange" />
         <method name="onClickUp" />
         <method name="onClickDown" />
         <method name="onSize" />
         <method name="onPaint" />
         <method name="onOtherMessages" />
      </widget>
      <widget class="datepicker" name="DatePicker control" bmp="BMP_DATE">
         <paint bmp="32752">
            <![CDATA[
            DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,10 )
            FillRect( hDC,2,2,oCtrl:nWidth-2,oCtrl:nHeight-2,21 )
            SetBkColor( hDC,16777215 )
            DrawText( hDC,Dtoc(Date()),2,3,oCtrl:nWidth,oCtrl:nHeight )
            DrawBitmap( hDC,oCtrl:oBitmap:handle,,oCtrl:nWidth-oCtrl:oBitmap:nWidth-2,2 )
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="dInitValue" type="C" value="=date()"/>
         <property name="varName" type="C" />
         <property name="ControlSource" type="C" value=""/>
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="98" />
         <property name="Height" type="N" value="22" />
         <property name="Anchor" type="N" value="0" />
         <property name="BackColor" type="N" value="16777215" />
         <property name="Transparent" type="L" value="False" />
	   <property name="Layout" type="C" value="0-Date"/>
	   <property name="Checked" type="L" value="False"/>
         <property name="Font" type="O" />
         <property name="Enabled" type="L" value="True" />
         <property name="3DLook" type="L" value="False" />
	   <property name="ToolTip" type="C" value=""/>
         <property name="TabIndex" type="N" />
         <property name="TabStop" type="L" value="True" />
         <method name="onChange" />
         <method name="onGetFocus" />
         <method name="onLostFocus" />
         <method name="onInit" />
      </widget>
      <widget class="monthcalendar" name="Month Calendar control" bmp="BMP_CALEN">
         <create>
            <![CDATA[InitMonthCalendar(oCtrl:oParent:handle,oCtrl:id,oCtrl:style,oCtrl:nLeft,oCtrl:nTop,oCtrl:nWidth,oCtrl:nHeight)
            ]]>
         </create>
         <property name="Name" type="C" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="240" />
         <property name="Height" type="N" value="195" />
         <property name="Anchor" type="N" value="0" />
         <property name="lNoToday" type="L" value="True" />
         <property name="lNoTodayCircle" type="L" value="True" />
         <property name="lWeekNumber" type="L" value="True" />
         <property name="Font" type="O" />
         <property name="Border" type="L" value="False"/>
         <property name="3DLook" type="L" value="False" />
         <property name="Enabled" type="L" value="True" />
	   <property name="ToolTip" type="C" value=""/>
         <property name="TabIndex" type="N" />
         <property name="TabStop" type="L" value="True" />
         <method name="onChange" />
         <method name="onInit" />
      </widget>
      <widget class="trackbar" name="Track Bar control" bmp="BMP_TRACK">
         <create>
            <![CDATA[InitTrackBar(oCtrl:oParent:handle,oCtrl:id,oCtrl:style,oCtrl:nLeft,oCtrl:nTop,oCtrl:nWidth,oCtrl:nHeight,0,100)
            ]]>
         </create>
         <property name="Name" type="C" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="150" />
         <property name="Height" type="N" value="40" />
         <property name="InitValue" type="N" value="1" />
         <property name="Lower" type="N" value="1"/>
         <property name="Upper" type="N" value="100"/>
         <property name="lVertical" type="L" value="False" />
         <property name="TickStyle" type="C" value="Auto" />
         <property name="TickMarks" type="C" value="Bottom" />
         <property name="3DLook" type="L" value="False" />
	   <property name="ToolTip" type="C" value=""/>
         <property name="TabIndex" type="N" />
         <method name="onChange" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onDraw" />
         <method name="onDrag" />
      </widget>
      <widget class="page" name="Page control" bmp="BMP_PAGE" container="Yes">
         <create>
            <![CDATA[ CreateTabControl(oCtrl:oParent:handle,oCtrl:id,oCtrl:style+val(oCtrl:GetProp("TabStretch")),oCtrl:nLeft,oCtrl:nTop,oCtrl:nWidth,oCtrl:nHeight,0,100)
             //Page_New( oCtrl )
            ]]>
         </create>
         <property name="Name" type="C" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="280" />
         <property name="Height" type="N" value="160" />
         <property name="Anchor" type="N" value="0" />
         <property name="Font" type="O" />
         <property name="Tabs" type="A" />
         <property name="TabOrientation" type="C" value="0-Top" />
         <property name="TabStretch" type="C" value="0-Single Row" />
         <property name="ShowTabs" type="L" value="True" />
         <property name="TabIndex" type="N" />
         <property name="TabStop" type="L" value="True" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BackColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(15))) ]]></property>         
         <method name="onClick" />
         <method name="onChange" />
         <method name="onGetFocus" />
         <method name="onLostFocus" />
         <method name="onRightClick" />
         <method name="onInit" />
         <method name="onSize" />
      </widget>
      <widget class="tree" name="TreeView control" bmp="BMP_TREE">
         <paint>
            <![CDATA[
            DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,10 )
            FillRect( hDC,2,2,oCtrl:nWidth-2,oCtrl:nHeight-2,23 )
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="150" />
         <property name="Height" type="N" value="160" />
         <property name="Anchor" type="N" value="0" />
         <property name="Font" type="O" />
         <property name="aImages" type="A" />
         <property name="lResource" type="L" value="False" />
         <property name="Editable" type="L" value="True" />
         <property name="Border" type="L" value="True" />
         <property name="TabIndex" type="N" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onTreeClick" />
      </widget>
      <widget class="status" name="Status control" bmp="BMP_STATUS" container="Yes">
         <paint>
            <![CDATA[
            DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,10 )
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Font" type="O" />
         <property name="aParts" type="A" />
         <property name="3DLook" type="L" value="False" />
         <property name="Left" type="N" value="0" hidden=""/>
         <property name="Top" type="N" value="0" hidden="" />
         <property name="Width" type="N" value="150" hidden=""/>
         <property name="Height" type="N" value="24"  hidden=""/>
         <property name="Adjust" type="C" value="Bottom" hidden=""/>
         <method name="onRightClick" />
         <method name="onDblClick" />
         <method name="onInit" />
         <method name="onPaint" />
         <method name="onSize" />
      </widget>
      <widget class="animation" name="Animation control" bmp="BMP_ANIM">
         <paint>
            <![CDATA[
            DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,10 )
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Left" type="N" value="0"/>
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="50"/>
         <property name="Height" type="N" value="50"/>
         <property name="Filename" type="C" />
         <property name="lResource" type="L" value="False" />
         <property name="Autoplay" type="L" value="True" />
         <property name="Center" type="L" value="False" />
         <property name="Transparent" type="L" value="False" />
      </widget>
	  <widget class="progressbar" name="Progress bar control" bmp="BMP_PROGBAR">
        <paint>
           <![CDATA[
            //if oCtrl:GetProp( "lVertical" ) == "True"
              //SetTextColor( hDC, RGB(0,0,0))
              //DrawEdge( hDC,1,0,0,oCtrl:nWidth,oCtrl:nHeight,10 )
              //FillRect( hDC,2,2,oCtrl:nWidth-2,oCtrl:nHeight-2) //,oCtrl:brush:handle )
              ROUNDRECT( hDC, 0,0, oCtrl:nWidth,oCtrl:nHeight, 5, 5)
              //SetbkColor( hDC, RGB(255,255,255))
              //DrawText( hDC,oCtrl:GetProp( "Name"),2,2,oCtrl:nWidth,oCtrl:nHeight )
           //DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,10 )
           ]]>
        </paint>
        <property name="Name" type="C" />
        <property name="Left" type="N" value="0"/>
        <property name="Top" type="N" value="0" />
        <property name="Width" type="N" value="100"/>
        <property name="Height" type="N" value="18"/>
        <property name="Anchor" type="N" value="0" />
        <property name="nMaxPos" type="N" value="2"/>
        <property name="nRange" type="N" value="20"/>
        <property name="Animation" type="N" value="0" />
        <property name="lVertical" type="L" value="False" />
	  <property name="ToolTip" type="C" value=""/>
        <property name="TabIndex" type="N" />
        <method name="onInit" />
        <method name="onSize" />
        <method name="onPaint" />
      </widget>
   </set>
   <set name="HwGUI">
      <widget class="link" name="Static Link" bmp="BMP_HLINK">
         <paint>
            <![CDATA[
            SetTextColor( hDC, RGB(0,0,255))
            IF oCtrl:GetProp( "Transparent" ) == "True"
              setbkmode(hdc,1)
            ENDIF 
            DrawText( hDC,oCtrl:title,2,2,oCtrl:nWidth,oCtrl:nHeight )
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Caption" type="C" value="Link - HwGui Page" />
         <property name="Link" type="C" value="http://www.hwgui.altervista.org" />
         <property name="Justify" type="C" value="Left"/>
         <property name="AutoSize" type="L" value="False"/>
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="150" />
         <property name="Height" type="N" value="22" />
         <property name="Anchor" type="N" value="0" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BackColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(15))) ]]></property>
         <property name="Font" type="O" />
         <property name="Border" type="L" value="False"/>
         <property name="Transparent" type="L" value="False" />
         <property name="WordWrap" type="L" value="False" />
         <property name="3DLook" type="L" value="False" />
         <property name="VisitColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="LinkColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(14))) ]]></property>
         <property name="HoverColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
	   <property name="Enabled" type="L" value="True" />
  	   <property name="ToolTip" type="C" value=""/>
         <property name="TabIndex" type="N" />
         <property name="TabStop" type="L" value="True" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onPaint" />
      </widget>
      <widget class="line" name="Line" bmp="BMP_HLINE">
         <paint>
            <![CDATA[
            Private Pen , cSlant,nbw
            cSlant := oCtrl:GetProp("LineSlant")
            nbw := val(oCtrl:GetProp("BorderWidth"))
            IF empty(cslant)
              if oCtrl:GetProp( "lVertical" ) == "True"
                DrawEdge( hDC,1,0,1,oCtrl:nHeight,6 )
              else
                DrawEdge( hDC,0,1,oCtrl:nWidth,1,6 )
              endif
            ELSE
              Pen := HPen():Add(0, nbw, oCtrl:tColor)
              SelectObject( hDC, Pen:handle )
              //ROUNDRECT( hDC, 0,0, oCtrl:nWidth,oCtrl:nHeight, nvalue, nvalue)
              //setbkmode(hdc,0)
              IF cSlant == "/"
                DrawLine( hDC, 0 , 0 + oCtrl:nHeight, 0 + oCtrl:nWidth, 0 )
                //DrawEdge( hDC, oCtrl:nLeft , oCtrl:nTop + oCtrl:nHeight, oCtrl:nLeft + oCtrl:nWidth, oCtrl:nTop,8,2 )
              ELSEIF cSlant == "\"
                //DrawLine( hDC, oCtrl:nLeft , oCtrl:nTop, oCtrl:nLeft + oCtrl:nWidth, oCtrl:nTop + oCtrl:nHeight)
                DrawLine( hDC, 0, 0, 0 + oCtrl:nWidth, 0 + oCtrl:nHeight)
              ENDIF
            ENDIF       

            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="100" />
         <property name="Height" type="N" value="2" />
         <property name="Anchor" type="N" value="0" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BorderWidth" type="N" value="1" />
         <property name="LineSlant" type="C" value=" " />
         <property name="lVertical" type="L" value="False" />
         <property name="3DLook" type="L" value="False" />
         <property name="AllClient" type="L" value="False" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onPaint" />
      </widget>
      <widget class="shape" name="Shape" bmp="BMP_SHAPE">
         <paint>
            <![CDATA[
            Private nBk := val(oCtrl:GetProp( "BackStyle"))
            Private nvalue := val(oCtrl:GetProp( "Curvature"))
            Private nbw:=  val(oCtrl:GetProp( "BorderWidth"))
            Private nbs := val(oCtrl:GetProp( "BorderStyle"))
            Private nfs := val(oCtrl:GetProp( "FillStyle"))
            Private Pen := HPen():Add(nbs, nbw, oCtrl:tColor)
  	      Private obrush  //:= IIF(nfS = 10, HBrush():Add(oCtrl:bColor), HBrush():Add(oCtrl:bColor, nfS))
            SelectObject( hDC, Pen:handle )
            setbkmode(hdc,nBk)
            obrush := HBrush():Add(octrl:bColor) 
	      SelectObject( hDC, oBrush:handle )                              
            ROUNDRECT( hDC, 0,0, oCtrl:nWidth,oCtrl:nHeight, nvalue, nvalue)
            obrush := HBrush():Add(oCtrl:tColor,nfs)
            SelectObject( hDC, oBrush:handle )
            ROUNDRECT( hDC, 0,0, oCtrl:nWidth,oCtrl:nHeight, nvalue, nvalue)
            //SelectObject( hDC, obrush:handle )
            //ROUNDRECT( hDC, 0,0, oCtrl:nWidth,oCtrl:nHeight, nvalue, nvalue)
            DeleteObject( oBrush )
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="80" />
         <property name="Height" type="N" value="40" />
         <property name="Anchor" type="N" value="0" />
         <property name="BackStyle" type="C" value="1 - Opaque" />
         <property name="BackColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(15))) ]]></property>
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BorderStyle" type="C" value="0 - Solid" />
         <property name="BorderWidth" type="N" value="1" />
         <property name="Curvature" type="N" value="0" />
         <property name="FillStyle" type="C" value="10 - Transparent" />
         <property name="Zorder" type="C" value="0-Bottom" />
         <property name="TabIndex" type="N" value="9999" hidden=""/>
         <method name="onInit" />
         <method name="onSize" />
       </widget>
      <widget class="container" name="Container" bmp="BMP_CNT" container="No">
         <paint>
            <![CDATA[
            Private nvalue := val(oCtrl:GetProp( "nEffect"))
            Private lborder := oCtrl:GetProp( "Border")
            IF lBorder = "True"
              if nvalue = 0
                DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,5,15 )
              elseif nvalue = 1
                DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,10,15 )
              elseif nvalue = 2
                DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,6,15 )
              else
                DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,8,2 )
                DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,1,8 )
                DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,8,1 )
                DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,1,4 )
              endif
            ELSE
              DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,0,0 )
            ENDIF
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="100" />
         <property name="Height" type="N" value="100" />
         <property name="Anchor" type="N" value="0" />
         <property name="nEffect" type="C" value="3-Flat" />
         <property name="Border" type="L" value="True" />
         <property name="Zorder" type="C" value="0-Bottom" />
         <property name="TabIndex" type="N" value="9999" hidden=""/>
         <method name="onInit" />
         <method name="onSize" />
       </widget>
      <widget class="ownerbutton" name="Owner drawn button" bmp="BMP_BUTTON">
         <paint>
            <![CDATA[
            private xt := Max(Val(oCtrl:GetProp("TextLeft")),2),yt
            DrawButton( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,1 )
            if ( yt := Val(oCtrl:GetProp("TextTop")) ) == 0
              DrawText( hDC,oCtrl:title,xt,0,oCtrl:nWidth,oCtrl:nHeight,37 )
            else
              DrawText( hDC,oCtrl:title,xt,yt,oCtrl:nWidth-xt*2,yt+GetTextMetric(hDC)[1],37 )
            endif
            if oCtrl:oBitmap != Nil
              xt := Iif( (xt:=Val(oCtrl:GetProp("BmpLeft")))==0,(oCtrl:nWidth-oCtrl:oBitmap:nWidth)/2,xt )
              yt := Iif( (yt:=Val(oCtrl:GetProp("BmpTop")))==0,(oCtrl:nHeight-oCtrl:oBitmap:nHeight)/2,yt )
              DrawBitmap( hDC,oCtrl:oBitmap:handle,,xt,yt,oCtrl:oBitmap:nWidth,oCtrl:oBitmap:nHeight )
            endif
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Caption" type="C" value="OButton" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="68" />
         <property name="Height" type="N" value="28" />
         <property name="Anchor" type="N" value="0" />
         <property name="Flat" type="L" value="False"/>
         <property name="Font" type="O" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BackColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(15))) ]]></property>
         <property name="TextLeft" type="N" value="0" />
         <property name="TextTop" type="N" value="0" />
         <property name="BtnBitmap" type="C" value="" />
         <property name="lResource" type="L" value="False" />
         <property name="BmpLeft" type="N" value="0" />
         <property name="BmpTop" type="N" value="0" />
         <property name="Transparent" type="L" value="False" />
         <property name="lCheck" type="L" value="False"/>
	   <property name="Enabled" type="L" value="True" />
    	   <property name="ToolTip" type="C" value=""/>
         <property name="TabIndex" type="N" />
         <method name="onClick" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onPaint" />
      </widget>
      <widget class="shadebutton" name="Shade button" bmp="BMP_BUTTON">
         <paint>
            <![CDATA[
            private xt := Max(Val(oCtrl:GetProp("TextLeft")),2),yt
            DrawButton( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,2 )
            if ( yt := Val(oCtrl:GetProp("TextTop")) ) == 0
              DrawText( hDC,oCtrl:title,xt,0,oCtrl:nWidth-xt*2,oCtrl:nHeight,37 )
            else
              DrawText( hDC,oCtrl:title,xt,yt,oCtrl:nWidth-xt*2,yt+GetTextMetric(hDC)[1],37 )
            endif
            if oCtrl:oBitmap != Nil
              xt := Iif( (xt:=Val(oCtrl:GetProp("BmpLeft")))==0,(oCtrl:nWidth-oCtrl:oBitmap:nWidth)/2,xt )
              yt := Iif( (yt:=Val(oCtrl:GetProp("BmpTop")))==0,(oCtrl:nHeight-oCtrl:oBitmap:nHeight)/2,yt )
              DrawBitmap( hDC,oCtrl:oBitmap:handle,,xt,yt,oCtrl:oBitmap:nWidth,oCtrl:oBitmap:nHeight )
            endif
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Caption" type="C" value="OSButton" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="88" />
         <property name="Height" type="N" value="28" />
         <property name="Anchor" type="N" value="0" />
         <property name="Font" type="O" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="TextLeft" type="N" value="0" />
         <property name="TextTop" type="N" value="0" />
         <property name="BtnBitmap" type="C" value="" />
         <property name="lResource" type="L" value="False" />
         <property name="BmpLeft" type="N" value="0" />
         <property name="BmpTop" type="N" value="0" />
         <property name="Transparent" type="L" value="False" />
         <property name="Flat" type="L" value="False"/>
	     <property name="Effect" type="C" value="SHS_METAL" />
	     <property name="Palette" type="C" value="PAL_DEFAULT" />
	     <property name="Granularity" type="N" value="0" />
           <property name="Highlight" type="N" value="0" />
           <property name="Coloring" type="N" value="0" />
           <property name="ShColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(15))) ]]></property>
        <property name="Enabled" type="L" value="True" />
	 <property name="ToolTip" type="C" value=""/>
       <property name="TabIndex" type="N" />
         <method name="onClick" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onPaint" />
      </widget>	  
      <widget class="browse" name="Browse" bmp="BMP_BROWSE">
         <paint><![CDATA[
            Private lhs,lvs,nh := Val(oCtrl:GetProp("headheight"))
            nh := iif( nh=0,22,nh)
            DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,10 )
            FillRect( hDC,2,2,oCtrl:nWidth-2,oCtrl:nHeight-2,21 )
            IF Val(oCtrl:GetProp("columnscount")) = 0
              DrawButton( hDC,15,2,oCtrl:nWidth,nh,5 )
              DrawText( hDC,"Browse",2,1,oCtrl:nWidth-2*2,nh,37 )
            ELSE
              DrawButton( hDC,15,2,40,22,5 )
            ENDIF
            //DrawButton( hDC,2,23,14,oCtrl:nHeight/2,5 )
            DrawButton( hDC,2,2,14,22,5 )
            DrawButton( hDC,2,24,14,oCtrl:nHeight/2,5 )
            lhs := iif(oCtrl:GetProp( "autoHScroll") = "True",.t.,.f.)
            lvs := iif(oCtrl:GetProp( "NoVScroll") = "True",.F.,.T.)
            ShowScrollBar( oCtrl:handle,0,lhs )
            ShowScrollBar( oCtrl:handle,1,lvs )
         ]]></paint>
         <property name="Name" type="C" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="200" />
         <property name="Height" type="N" value="150" />
         <property name="Anchor" type="N" value="0" />
         <property name="Font" type="O" />
         <property name="BrwType" type="C" value="dbf" />
         <property name="ChildOrder" type="C" value="" />
         <property name="LinkMaster" type="C"  />
         <property name="RelationalExpr" type="C" value="" />
         <property name="FileDbf" type="C" />
         <property name="Alias" type="C" value="" />
         <property name="aArray" type="C" value="" />
         <property name="ColumnsCount" type="N" value="0" />
         <property name="ColumnsFreeze" type="N" value="0" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BackColor" type="N" value="16777215" />
         <property name="ShowHeader" type="L" value="True" />
         <property name="HeadRows" type="N" value="1" />
         <property name="HeadHeight" type="N" value="0" />
         <property name="FontHead" type="O" />
         <property name="HeadTextColor" type="N" value="0" />
         <property name="FooterRows" type="N" value="0" />
         <property name="FootHeight" type="N" value="0" />
         <property name="ShowGridLinesSep" type="L" value="True" />
         <property name="GridLinesSepColor" type="N" value="12632256" />
         <property name="GridLinesSep3D" type="L" value="False" />
         <property name="LeftCol" type="N" value="2" />
         <property name="AdjRight" type="L" value="True" />
         <property name="Append" type="L" value="False" />
         <property name="Autoedit" type="L" value="False" />
         <property name="autoHScroll" type="L" value="False" />
         <property name="NoVScroll" type="L" value="False" />
         <property name="Border" type="L" value="True" />
         <property name="MultiSelect" type="L" value="False" />
         <property name="Descend" type="L" value="False" />
	   <property name="Enabled" type="L" value="True" />
         <property name="TabIndex" type="N" />
         <property name="TabStop" type="L" value="True" />
         <method name="onKeyDown" />
         <method name="onClick" />
         <method name="onGetFocus" />
         <method name="onLostFocus" />
         <method name="onUpdate" />
         <method name="onPosChange" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onPaint" />
         <method name="First" />
         <method name="Last" />
         <method name="While" />
         <method name="For" />
         <method name="onOtherMessages" />
      </widget>
      <widget class="column" name="Column" >
         <paint><![CDATA[
            private xt := 2 //Max(Val(oCtrl:GetProp("Heading")),2),yt //"BMP_COLUMN"
            DrawButton( hDC,1,1,oCtrl:nWidth-1,oCtrl:nHeight,5 )
            //if ( yt := Val(oCtrl:GetProp("Header")) ) == 0
             // DrawText( hDC,"Header1",xt,0,90-xt*2,20,37 )
            DrawText( hDC,oCtrl:title,xt,0,oCtrl:nWidth-xt*2,oCtrl:nHeight-1,37 )
            //else
            //  DrawText( hDC,oCtrl:heading,xt,yt,oCtrl:nWidth-xt*2,yt+GetTextMetric(hDC)[1],37 )
            //endif
         ]]></paint>
         <property name="Name" type="C" />
         <property name="FieldName" type="C" value="" />
         <property name="FieldExpr" type="C" value="" />
         <property name="Heading" type="C" />
         <property name="JustifyHeader" type="C" value="0-Left"/>
         <property name="HeadTextColor" type="N" value="0" />
         <property name="Length" type="N" value="0" />
         <property name="Picture" type="C"  />
         <property name="JustifyLine" type="C" value="0-Left"/>
         <property name="Font" type="O" />
         <property name="Items" type="A"  />
         <property name="Editable" type="L" value="False" />
         <property name="Footing" type="C" />
         <property name="Left" type="N" value="0" hidden="" />
         <property name="Top" type="N" value="0" hidden="" />
         <property name="Width" type="N" value="80" hidden="" />
         <property name="Height" type="N" value="20" hidden=""/>
         <property name="Adjust" type="C" value="Client" hidden=""/>
         <method name="onHeadClick" />
         <method name="onGetFocus" />
         <method name="onLostFocus" />
         <method name="onColorBlock" />
         <method name="onColorFoot" />
      </widget>
      <widget class="gridex" name="Grid" bmp="BMP_GRID2">
         <paint><![CDATA[
            DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,10 )
            FillRect( hDC,2,2,oCtrl:nWidth-2,oCtrl:nHeight-2,21 )
            DrawButton( hDC,2,2,20,20,5 )
            //DrawButton( hDC,21,2,70,20,5 )
            DrawButton( hDC,2,21,20,50,5 )
         ]]></paint>
         <property name="Name" type="C" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="200" />
         <property name="Height" type="N" value="150" />
         <property name="Anchor" type="N" value="0" />
         <property name="Font" type="O" />
         <property name="Items" type="A" />
         <property name="ItemCount" type="N" value="20" />
         <property name="Header" type="L" value="True" />
         <property name="VScroll" type="L" value="True" />
         <property name="Border" type="L" value="True" />
         <property name="GridLines" type="L" value="True" />
         <property name="TextColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(8))) ]]></property>
         <property name="BackColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(15))) ]]></property>
	   <property name="Bitmap" type="A" />
         <property name="TabIndex" type="N" />
         <property name="TabStop" type="L" value="True" />
         <method name="onClick" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onPaint" />
         <method name="onGetFocus" />
         <method name="onLostFocus" />
         <method name="onKeyDown" />
         <method name="onPosChange" />
         <method name="onDispInfo" />
      </widget>
      <widget class="timer" name="Timer" bmp="BMP_TIMER">
         <paint>
            <![CDATA[
		oCtrl:oBitmap := HBitmap():AddResource("smTimer")
            if oCtrl:oBitmap != Nil
             // DrawEdge( hDC,0,0,oCtrl:nWidth+3,oCtrl:nHeight+3,5 )
              DrawBitmap( hDC,oCtrl:oBitmap:handle,,0,0,oCtrl:nWidth,oCtrl:nHeight )
            else
              DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,5 )
            endif
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="23" />
         <property name="Height" type="N" value="23" />
	   <property name="Interval" type="N" value="0"/>
         <method name="onAction" />
      </widget>
      <widget class="toolbar" name="Toolbar" bmp="BMP_TOOL"  container="Yes">
         <paint><![CDATA[
            DrawEdge( hDC,0,0,oCtrl:OPARENT:nWidth,oCtrl:nHeight,5 )
            FillRect( hDC,2,2,oCtrl:nWidth-2,oCtrl:nHeight-2 )
            DrawToolBar( oCtrl )
         ]]></paint>
         <property name="Name" type="C" />
         <property name="nId" type="N" value="700" />
         <property name="Height" type="N" value="32" />
         <property name="Width" type="N" value="500"  />
         <property name="ButtonWidth" type="N" value="30" />
         <property name="Font" type="O" />
         <property name="BitmapSize" type="C" value="0-Default" />
         <property name="PicturePosition" type="C" value="1-Center"/>
         <property name="LeftMarginButton" type="N" value="0" />
         <property name="Anchor" type="N" value="0" />
         <property name="Transparent" type="L" value="False" />
         <property name="lVertical" type="L" value="False" />
         <property name="3DLook" type="L" value="False" />
         <property name="StandardImages" type="C" value="" />
         <property name="Left" type="N" value="0" hidden="" />
         <property name="Top" type="N" value="0" hidden=""/>
         <property name="Adjusto" type="C" value="top" hidden=""/>
         <method name="onInit" />
         <method name="onSize" />
         <method name="onPaint" />
      </widget>
      <widget class="toolbutton" name="Tool button" bmp="BMP_BUTTON">
         <paint>
            <![CDATA[
             Private yt:=1, xt:=2, nalign:=37
            DrawButton( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,0 )
           // DrawText( hDC,oCtrl:title,0,0,oCtrl:nWidth,oCtrl:nHeight,37 )
            if oCtrl:oBitmap != Nil
                //DrawText( hDC,oCtrl:title,0,oCtrl:oBitmap:nHeight,oCtrl:nWidth,oCtrl:nHeight,nalign )
                yt := IIF(oCtrl:oBitmap:nHeight > oCtrl:nHeight,2, oCtrl:oBitmap:nHeight )
                DrawText( hDC,oCtrl:title,0,yt,oCtrl:nWidth-2*2,oCtrl:nHeight,nalign )
                xt := (oCtrl:nWidth-oCtrl:oBitmap:nWidth)/2
                yt := IIF(EMPTY(oCtrl:title),(oCtrl:nHeight-oCtrl:oBitmap:nHeight)/2,yt-10)
                DrawBitmap( hDC,oCtrl:oBitmap:handle,,xt,yt,oCtrl:oBitmap:nWidth,oCtrl:oBitmap:nHeight )
            else
              DrawText( hDC,oCtrl:title,xt,0,oCtrl:nWidth-xt*2,oCtrl:nHeight,nalign) //dwtext )
            endif
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="Caption" type="C" value="" />
         <property name="nId" type="N" value="" />
         <property name="Bitmap" type="C" value="0"/>
         <property name="State" type="C" value="4-Enabled (Default)" />
         <property name="bStyle" type="C" value="0-Button (Default)" />
         <property name="AutoSize" type="L" value="False" />
	   <property name="ToolTip" type="C" value=""/>
	   <property name="aMenu" type="A"  />
	   <property name="Action" type="A" />
         <property name="TabIndex" type="N"  />
         <property name="Left" type="N" value="1" hidden="" />
         <property name="Top" type="N" value="1" hidden=""/>
         <property name="Width" type="N" value="24" hidden=""  />
         <property name="Height" type="N" value="24" hidden="" />
         <property name="Adjust" type="C" value="tool" hidden=""/>
         <method name="onClick" />
      </widget>
      <widget class="toolbuttonsep" name="Tool Separator" bmp="smSep">
         <paint>
            <![CDATA[
            DrawButton( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,5 )
           ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="TabIndex" type="N"  />
         <property name="Bitmap" type="C" value="0" hidden=""/>
         <property name="bStyle" type="C" value="1-SEP" hidden="" />
         <property name="Left" type="N" value="1" hidden="" />
         <property name="Top" type="N" value="1" hidden=""/>
         <property name="Width" type="N" value="8"  hidden="" />
         <property name="Height" type="N" value="8"  hidden="" />
         <property name="Caption" type="C" value="Separator" hidden="" />
         <property name="Adjust" type="C" value="tool" hidden=""/>
       </widget>
      <widget class="panel" name="Panel" bmp="BMP_PANEL"  container="Yes">
         <paint><![CDATA[
            DrawEdge( hDC,0,0,oCtrl:nWidth,oCtrl:nHeight,5 )
            FillRect( hDC,2,2,oCtrl:nWidth-2,oCtrl:nHeight-2,oCtrl:brush:handle )
         ]]></paint>
         <property name="Name" type="C" />
         <property name="Left" type="N" value="0" />
         <property name="Top" type="N" value="0" />
         <property name="Width" type="N" value="200" />
         <property name="Height" type="N" value="50" />
         <property name="Anchor" type="N" value="0" />
         <property name="BackColor" type="N"><![CDATA[ Ltrim(Str(GetSysColor(15))) ]]></property>
         <property name="Border" type="L" value="False"/>
         <property name="3DLook" type="L" value="False" />
         <method name="onInit" />
         <method name="onSize" />
         <method name="onPaint" />
      </widget>
   </set>
   <set name="Dbfs">
      <widget class="database" name="DataBase" bmp="smDBase" container="Yes">
         <paint>
            <![CDATA[
		oCtrl:oBitmap := HBitmap():AddResource("smDBase")
            DrawBitmap( hDC,oCtrl:oBitmap:handle,,0,0,oCtrl:nWidth,oCtrl:nHeight )
            ]]>
         </paint>
         <property name="Name" type="C" />
         <property name="AutoOpen" type="L" value="True" />
         <property name="AutoClose" type="L" value="True" />
         <property name="InitialSelectAlias" type="C"  />
         <property name="Left" type="N" value="0" hidden="" />
         <property name="Top" type="N" value="0" hidden="" />
         <property name="Width" type="N" value="24" hidden="" />
         <property name="Height" type="N" value="24" hidden="" />
         <method name="onAfterCloseTables" />
         <method name="onBeforeOpenTables" />
      </widget>
      <widget class="cursor" name="Cursor" >
         <paint><![CDATA[
          //  DrawButton( hDC,1,1,1,1,5 )
          ]]></paint>
         <property name="Name" type="C" />
         <property name="FileDbf" type="C" />
         <property name="Alias" type="C" value="" />
         <property name="Order" type="C" value="" />
         <property name="Exclusive" type="L" value="False" />
         <property name="ReadOnly" type="L" value="False" />
         <property name="Left" type="N" value="0" hidden="" />
         <property name="Top" type="N" value="0" hidden="" />
         <property name="Width" type="N" value="1" hidden="" />
         <property name="Height" type="N" value="1" hidden=""/>
         <property name="Adjust" type="C" value="Client" hidden=""/>
      </widget>
   </set>
   <data>
      <property name="Caption" description="Specifies the text displayed in the caption of an object. Available at design time and run time.">
         <code2><![CDATA[ oCtrl:title := Iif(value==Nil,"",value) ]]></code2>
         <code3><![CDATA[ Private asize,cww
            IF oCtrl:classname() != "HDIAL"
              cww := oCtrl:GetProp( "WordWrap" )
              IF cww = Nil .or. cww = "False" .or.  oCtrl:nHeight < 24
                aSize :=  TxtRect(octrl:title, octrl)
                IF oCtrl:nWidth < aSize[1]
                  oCtrl:nWidth := aSize[1]+ 3
                  oCtrl:SetProp( "Width",Ltrim(Str(oCtrl:nWidth)) )
                  oCtrl:move(,,oCtrl:nWidth)
                ENDIF
              ENDIF
            ENDIF
            SetWindowText( oCtrl:handle,oCtrl:title )
         ]]></code3>
      </property>
      <property name="Anchor" description="Defines which borders of the parent container that a visual control is anchored to when resizing the container. Read/write at design time and run time">
      </property>
      <property name="Heading">
         <code2><![CDATA[ oCtrl:title := Iif(value==Nil,"",value) ]]></code2>
         <code3><![CDATA[ SetWindowText( oCtrl:handle,oCtrl:title ) ]]></code3>
      </property>
      <property name="Left">
         <code2><![CDATA[ oCtrl:nLeft := Val(value) ]]></code2>
         <code3><![CDATA[ MoveCtrl( oCtrl ) ]]></code3>
      </property>
      <property name="Top">
         <code2><![CDATA[ oCtrl:nTop := Val(value) ]]></code2>
         <code3><![CDATA[ MoveCtrl( oCtrl ) ]]></code3>
      </property>
      <property name="Width">
         <code2><![CDATA[ oCtrl:nWidth := Val(value) ]]></code2>
         <code3><![CDATA[ MoveCtrl( oCtrl ) ]]></code3>
      </property>
      <property name="Height">
         <code2><![CDATA[ oCtrl:nHeight := Val(value) ]]></code2>
         <code3><![CDATA[ MoveCtrl( oCtrl ) ]]></code3>
      </property>
      <property name="AutoSize">
         <code2><![CDATA[ IIF(value=="True",Autosize( oCtrl ),.T.) ]]></code2>
      </property>
      <property name="AllClient">
         <code2><![CDATA[ IF value=="True"
            oCtrl:nWidth := octrl:oparent:nWidth
            oCtrl:nLeft := octrl:oparent:nLeft
            ENDIF ]]></code2>
         <code3><![CDATA[ MoveCtrl( oCtrl ) ]]></code3>
      </property>
      <property name="Id" array="   ,IDOK,IDCANCEL" >
      </property>
      <property name="TextColor" dlg="Color" description="Specifies the background or foreground color used to display text and graphics in an object. Read/write at design and run time.">
         <code2><![CDATA[ oCtrl:tColor := Val( value ) ]]></code2>
      </property>
      <property name="BackColor" dlg="Color" description="Specifies the background or foreground color used to display text and graphics in an object. Read/write at design and run time.">
         <code2><![CDATA[ oCtrl:SetColor(,Val(value))
           if oCtrl:ClassName()=="HPANEL"
             oCtrl:brush := HBrush():Add(val(value))
           endif 
       ]]></code2>
      </property>
      <property name="nBackColor" dlg="Color">
         <code2><![CDATA[ oCtrl:brush := HBrush():Add(val(value)) ]]></code2>
      </property>
      <property name="LinkColor" dlg="Color">
         <code2><![CDATA[ oCtrl:tColor := Val( value ) ]]></code2>
      </property>
      <property name="VisitColor" dlg="Color">
         <code2><![CDATA[ oCtrl:tColor := Val( value ) ]]></code2>
      </property>
      <property name="HoverColor" dlg="Color">
         <code2><![CDATA[ oCtrl:tColor := Val( value ) ]]></code2>
      </property>
      <property name="HeadTextColor" dlg="Color">
         <code2><![CDATA[ oCtrl:tColor := Val( value ) ]]></code2>
      </property>
      <property name="GridLinesSepColor" dlg="Color">
         <code2><![CDATA[ oCtrl:tColor := Val( value ) ]]></code2>
      </property>
      <property name="ShColor" dlg="Color">
         <code2><![CDATA[ oCtrl:bColor := Val( value ) ]]></code2>
      </property>
      <property name="Font" dlg="Font">
         <code2><![CDATA[ oCtrl:oFont := value ]]></code2>
         <code3><![CDATA[ SetWindowFont( oCtrl:handle,oCtrl:oFont:handle,.T. ) ]]></code3>
      </property>
      <property name="FontHead" dlg="Font">
         <code2><![CDATA[ oCtrl:oFontEx := value ]]></code2>
         <code3><![CDATA[ DrawBrowse( oCtrl, value, "FontHead" ) ]]></code3>
      </property>
      <property name="ScrollBars" array="0 - None (Default),1 - Horizontal,2 - Vertical,3 - Both">
         <code2><![CDATA[
             Private nvalue := val(value), lhs,lvs
            lhs := iif(nvalue=1.or.nvalue=3,.t.,.f.)
            lvs := iif(nvalue=2.or.nvalue=3,.t.,.f.)
            ShowScrollBar( oCtrl:handle,0,lhs )
            ShowScrollBar( oCtrl:handle,1,lvs )
         ]]></code2>
      </property>
       <property name="FormatText" array=" ,UPPERCASE,LOWERCASE">
      </property>
      <property name="Justify" array="Left,Center,Right">
      </property>
	<property name="VAlignment" array="Top,Center,Bottom" >
      </property>
      <property name="JustifyHeader" array="0-Left,1-Center,2-Right">
      </property>
      <property name="JustifyLine" array="0-Left,1-Center,2-Right">
      </property>
	<property name="Alignment" array="CenterLeft,CenterRight,TopLeft,TopRight,BottomLeft,BottomRight" >
      </property>
	<property name="PicturePosition" array="0-Left,1-Center,2-Right">
      </property>
	<property name="Stretch" array="0 - Stretch (Default),1 - Isometric,2 - Clip">
      </property>
      <property name="TickStyle" array="Manual,Auto,None">
      </property>
      <property name="TickMarks" array="Bottom,Top,Both">
      </property>
      <property name="StyleBorder" array="0 - No Border,1 - Fixed Single,2 - Fixed Dialog,3 - Sizable (Default)">
      </property>
      <property name="BorderStyle" array="0 - Solid,1 - Dash,2 - Dot,3 - Dash-Dot,4 - Dash-Dot-Dot,5 - Transparent">
      </property>
      <property name="BackStyle" array="0 - Transparent,1 - Opaque">
      </property>
      <property name="FillStyle" array="10 - Transparent,8 - Solid,0 - Horizontal Lines,1 - Vertical Lines,2 - Upward Diagonal,3 - Downward Diagonal,4 - Cross,5 - Diagonal Cross">
      </property>
      <property name="Layout" array="0-Date,1-Date scroll,4-Date Extenso,8-Time,9-Time Scroll">
      </property>
      <property name="TabOrientation" array="0-Top,2-Bottom,128-Left,129-Right">
      </property>
      <property name="TabStretch" array="0-Single Row,1-Multiple Rows">
         <code2><![CDATA[ modifystyle( oCtrl:handle, 0, val(value) ) ]]></code2>
         <code3><![CDATA[ redrawwindow( oCtrl:handle, 5 ) ]]></code3>
      </property>
      <property name="ScopeVarObj" array="Public,Local,Private,MemVar">
      </property>
      <property name="ChildOrderrr" array="@atags" >
      </property>
      <property name="ControlSource" array="@afields">
         <code_def><![CDATA[ //CreateName( "ControlSource",oCtrl ) ]]></code_def>
      </property>
      <property name="FieldName" array="@afields" >
      </property>
      <property name="Name" >
         <code_def><![CDATA[ CreateName( "Name",oCtrl ) ]]></code_def>
      </property>
      <property name="varName">
         <code_def><![CDATA[ CreateName( "varName",oCtrl ) ]]></code_def>
      </property>
      <property name="TabIndex">
         <code_def><![CDATA[ NewTabIndex( "TabIndex",oCtrl ) ]]></code_def>
      </property>
      <property name="cInitValue">
         <code2><![CDATA[ oCtrl:title := value ]]></code2>
         <code3><![CDATA[ SetWindowText( oCtrl:handle, value ) ]]></code3>
      </property>
      <property name="FileDbf" dlg="file">
         <code2><![CDATA[
           Private cAlias, cValue
            cAlias := LEFT(CutPath( value ),AT(".",CutPath( value ))-1)
            cVALUE := IIF(!FILE( VALUE ),CutPath( VALUE ), VALUE )
            IF !empty(cvalue) .AND.!FILE(cVALUE) .AND. !FILE(CutPath( cVALUE )) .AND.  SELECT(cAlias) = 0
               IF MsgRetryCancel("File ["+ cvalue +"] not Found!"+CHR(13)+"Click in [Retry] for LOCATE or [Cancel] for Ignore!",;
                   "Designer - Error FileDbf ") != 2
                  cvalue := SelectFile( {"xBase Files( *.dbf)"," All Files( *.*)"},{ "*.dbf","*.*"})
                  IIF(!empty(cvalue), oCtrl:SetProp( "FileDbf",Ltrim(cvalue)))
               ELSE
                  cvalue := ""
               ENDIF
            ENDIF  
	      IF SELECT(cAlias) = 0 .AND. !EMPTY(cvalue)
               IF select(calias) = 0
                 USE (cvalue) NEW SHARED ALIAS (cAlias) //ftmp
               ENDIF
      	 ENDIF 
          ]]></code2>
      </property>
      <property name="lVertical">
         <code2><![CDATA[
            private nTemp
            if (value=="True") .and. oCtrl:nHeight < oCtrl:nWidth
               nTemp := oCtrl:nHeight
               oCtrl:nHeight := oCtrl:nWidth
               oCtrl:nWidth := nTemp
            elseif (value != "True") .and. oCtrl:nWidth < oCtrl:nHeight
               nTemp := oCtrl:nWidth
               oCtrl:nWidth := oCtrl:nHeight
               oCtrl:nHeight := nTemp
            endif
            oCtrl:SetProp( "Height",Ltrim(Str(oCtrl:nHeight)) )
            oCtrl:SetProp( "Width",Ltrim(Str(oCtrl:nWidth)) )
          ]]></code2>
         <code3><![CDATA[ oCtrl:Move(oCtrl:nLeft,oCtrl:nTop,oCtrl:nWidth,oCtrl:nHeight) ]]></code3>
      </property>
      <property name="Bitmap" dlg="file">
         <code2><![CDATA[
	   if oCtrl:ClassName()=="HDIALOG"
   	      if !empty(value)
              oCtrl:oBmp := Iif( At(".",value)!=0,HBitmap():AddFile(value), HBitmap():AddResource(value) )
            endif
	   else
	    if !empty(value)
                oCtrl:oBitmap := Iif( At(".",value)!=0,HBitmap():AddFile(value), HBitmap():AddResource(value) )
	    endif
            if oCtrl:oBitmap != Nil
              //oCtrl:nWidth := oCtrl:oBitmap:nWidth
              //oCtrl:nHeight:= oCtrl:oBitmap:nHeight
              //oCtrl:SetProp( "Height",Ltrim(Str(oCtrl:nHeight)) )
              //oCtrl:SetProp( "Width",Ltrim(Str(oCtrl:nWidth)) )
            endif
	   endif
          ]]></code2>
      </property>
      <property name="BtnBitmap" dlg="file">
         <code2><![CDATA[
          if !empty(value)
             oCtrl:oBitmap := Iif( At(".",value)!=0,HBitmap():AddFile(value), HBitmap():AddResource(value) )
 	    endif
          ]]></code2>
      </property>

      <property name="Icon" dlg="file">
         <code3><![CDATA[
           if oCtrl:ClassName()=="HDIALOG"
              oCtrl:oIcon:= Iif( At(".",value)!=0,HIcon():AddFile(value),HIcon():AddResource(value))
           else
           if !empty(value)
              oCtrl:oBitmap := Iif( At(".",value)!=0,HIcon():AddFile(value),HIcon():AddResource(value))
	   endif
           endif
          ]]></code3>
      </property>
      <property name="Filename" dlg="file">
      </property>
      <property name="BrwType" array="array,dbf">
      </property>
     <property name="ColumnsCount" description="Numero de Colunas do Browse">
         <code2><![CDATA[ oCtrl:Tag := Val(value) ]]></code2>
         <code3><![CDATA[ DrawBrowse( oCtrl,Val(value), "" ) ]]></code3>
      </property>
      <property name="HeadHeight" description="Height Head of Columns of the Browse">
         <code2><![CDATA[ oCtrl:Tag := Val(value) ]]></code2>
         <code3><![CDATA[ DrawBrowse( oCtrl,Val(value), "HeadHeight") ]]></code3>
      </property>
      <property name="Tabs">
         <code2><![CDATA[ Page_Upd(oCtrl,value) ]]></code2>
      </property>
      <property name="Adjust" array="None,Top,Bottom,Left,Right,Client,Edge">
         <code2><![CDATA[ oCtrl:Adjust := Ascan({"None","Top","Bottom","Left","Right","Client","Edge"},value)-1 ]]></code2>
      </property>
      <property name="FormType" array="Main,Child,dlgModal,dlgNoModal,MDI MAIN,mdiChild">
      </property>
      <property name="FromStyle" array="Popup,Child,Overlapped">
      </property>
      <property name="WindowState" array="0 - Hide,1 - Normal (Default),2 - Minimized,3 - Maximized">
      </property>
      <property name="Effect" array="SHS_METAL,SHS_SOFTBUMP,SHS_NOISE,SHS_HARDBUMP,SHS_HSHADE,SHS_VSHADE,SHS_DIAGSHADE,SHS_HBUMP">
      </property>
	  <property name="Palette" array="PAL_DEFAULT,PAL_METAL">
      </property>
      <property name="nEffect" array="0-Raised,1-Sunken,2-Frame,3-Flat">
      </property>
      <property name="BitmapSize" array="0-Default,16-SMALL,24-LARGE,32-BIGLARGE">
      </property>
      <property name="StandardImages" array="0-IDB_STD_SMALL,1-IDB_STD_LARGE,4-IDB_VIEW_SMALL,5-IDB_VIEW_LARGE,8-IDB_HIST_SMALL,9-IDB_HIST_LARGE">
      </property>
      <property name="State" array="0-Disabled,4-Enabled (Default),8-Hidden">
      </property>
      <property name="bStyle" array="0-Button (Default),8-DropDown,128-WholeDropDown">
      </property>
      <property name="WordWrap" description="Specifies whether text displays on a single line or multiple lines within a control or object. Available at design time and run time. There are two versions of the syntax.">
      </property>
      <property name="Zorder" array="0-Bottom,1-Top">
          <code2><![CDATA[
           octrl:hide()
           SetWindowPos( oCtrl:handle, val(value), 0,0,0,0, 3 + 64)
           oCtrl:SetProp( "TabIndex",IIF(value="0", "0", "0") )
           octrl:show()
            ]]></code2>
      </property>
   </data>
   <methods>
      <method name="onFormInit" />
      <method name="onDlgInit" params="This" />
      <method name="onDlgExit" params="This" />
      <method name="onInit" params="This" />
      <method name="onActivate" params="This" />
      <method name="onGetFocus" params="value,This" />
      <method name="onLostFocus" params="value,This" />
      <method name="onSize" params="This,x,y" />
      <method name="onPaint" params="This, hDC" />
      <method name="onClick" params="This, nId" />
      <method name="onRightClick" params="This, Value" />
      <method name="onDblClick" params="This, Value" />
      <method name="onClickUp" params="This, Value, iDelta" />
      <method name="onClickDown" params="This, Value, iDelta" />
      <method name="onChange" params="value,This" />
      <method name="onInteractiveChange" params="This, value" />
      <method name="onTreeClick" params="oItem" />
      <method name="bSetGet"   params="value, This" />
      <method name="onKeyDown" params="This, nKeyPress" />
      <method name="onOtherMessages" params="This,msg,wParam,lParam" />
      <method name="onAction" params="This, value" />
   </methods>
   <temp>
   </temp>
</widgetset>



