**************************************************
*-- Class:        vert_label_but (d:\work_2003\ptica\my_buh_ip_ptica\libs\main_class.vcx)
*-- ParentClass:  container
*-- BaseClass:    container
*-- Time Stamp:   11/19/04 12:57:06 PM
*
DEFINE CLASS vert_label_but AS container


    Width = 63
    Height = 60
    BackStyle = 0
    BorderWidth = 1
    *-- подчеркивать при наезде
    hot_label = (.T.)
    *-- стиль кнопки 0-обычная,1-горячая
    but_style = (1)
    *-- имя процедуры на форме
    procedura = ("thisform.but_control")
    *-- имя кнопки для процедуры
    butname = ("new")
    *-- Specifies the text that appears as a ToolTip for a control.
    tooltiptext = "новая строка"
    Name = "vert_label_but"
    mouse_proc = .F.


    ADD OBJECT command1 AS commandbutton WITH ;
        AutoSize = .F., ;
        Top = -10, ;
        Left = -10, ;
        Height = 0, ;
        Width = 0, ;
        Caption = "", ;
        Style = 1, ;
        TabStop = .F., ;
        Name = "Command1"


    ADD OBJECT image1 AS image WITH ;
        Picture = "new1_32.bmp", ;
        BackStyle = 0, ;
        Enabled = .T., ;
        Height = 32, ;
        Left = 15, ;
        Top = 5, ;
        Width = 32, ;
        ColorSource = 4, ;
        Name = "Image1"


    ADD OBJECT label1 AS label WITH ;
        AutoSize = .T., ;
        FontSize = 8, ;
        BackStyle = 0, ;
        Caption = "Добавить", ;
        Height = 16, ;
        Left = 5, ;
        Top = 40, ;
        Width = 53, ;
        Name = "Label1"


    ADD OBJECT shape1 AS shape WITH ;
        Top = -12, ;
        Left = 60, ;
        Height = 8, ;
        Width = 7, ;
        BackStyle = 0, ;
        BorderStyle = 1, ;
        BorderWidth = 1, ;
        Name = "Shape1"


    PROTECTED PROCEDURE mouse_proc_assign
        Lparameters vNewVal
        *To do: Modify this routine for the Assign method
        IF this.Enabled= .T.  
        Do Case
        Case vNewVal=="leave"
            If This.hot_label
                This.label1.FontUnderline = .F.
            Endif
            Do Case
            Case  This.but_style=1
                This.brdLine1.BorderColor=This.BackColor
                This.brdLine2.BorderColor=This.BackColor
                This.brdLine3.BorderColor=This.BackColor
                This.brdLine4.BorderColor=This.BackColor
            Endcase
        Case vNewVal=="enter"
            If This.hot_label
                This.label1.FontUnderline = .T.
            Endif
                This.brdLine1.BorderColor=Rgb(255,255,255)
                This.brdLine2.BorderColor=Rgb(255,255,255)
                This.brdLine3.BorderColor=Rgb(128,128,128)
                This.brdLine4.BorderColor=Rgb(128,128,128)
        Endcase
        ENDIF 
        This.mouse_proc = m.vNewVal
    ENDPROC


    *-- исполняет свой метод
    PROTECTED PROCEDURE myvalue
        IF !EMPTY(this.butname) AND !EMPTY(this.procedura)
        LOCAL lcProc
        lcProc=this.procedura+[("]+this.butname+[")]  
        &lcProc
        ENDIF   
    ENDPROC


    PROCEDURE enabled_assign
        Lparameters vNewVal
        *To do: Modify this routine for the Assign method
        Do Case
            Case vNewVal=.F.
                This.image1.Enabled= .F.
                This.command1.Enabled =.F.
                This.label1.Enabled = .F.
                This.shape1.Enabled = .F.
            Case vNewVal=.T.
                This.image1.Enabled= .T.
                This.command1.Enabled =.T.
                This.label1.Enabled = .T.
                This.shape1.Enabled = .T.
        Endcase
        This.Enabled = m.vNewVal
    ENDPROC


    PROCEDURE SetFocus
        this.command1.SetFocus()  
    ENDPROC


    PROCEDURE MouseDown
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        *!*   If This.hot_label
        *!*       This.shape1.MousePointer= 99
        *!*       this.shape1.MouseIcon='.\LIBS\HMOVE.CUR'
        *!*   Endif

        this.brdLine1.bordercolor=RGB(128,128,128)
        this.brdLine2.bordercolor=RGB(128,128,128)
        this.brdLine3.bordercolor=RGB(255,255,255)
        this.brdLine4.bordercolor=RGB(255,255,255)
    ENDPROC


    PROCEDURE Init
        this.Enabled=this.Enabled  
        This.shape1.ToolTipText=This.ToolTipText
        This.BorderWidth=0
        This.shape1.BorderStyle=0
        This.shape1.BorderWidth=0
        This.shape1.Left=0
        This.shape1.Width=This.Width
        This.shape1.Top=0
        This.shape1.Height=This.Height

        If This.hot_label
            This.shape1.MousePointer= 99
            this.shape1.MouseIcon="hand-m.cur"  
        Endif
        This.AddObject("brdLine1","line")
        This.AddObject("brdLine2","line")
        This.AddObject("brdLine3","line")
        This.AddObject("brdLine4","line")

        This.brdLine1.Top=0 &&гориз верх
        This.brdLine1.Left=0
        This.brdLine1.Width=This.Width
        This.brdLine1.Height=0

        This.brdLine2.Top=0 &&верт лево
        This.brdLine2.Left=0
        This.brdLine2.Width=0
        This.brdLine2.Height=This.Height

        This.brdLine3.Top=0 &&верт право
        This.brdLine3.Left=This.Width-1
        This.brdLine3.Width=0
        This.brdLine3.Height=This.Height

        This.brdLine4.Top=This.Height-1  &&гориз низ
        This.brdLine4.Left=0
        This.brdLine4.Width=This.Width
        This.brdLine4.Height=0
        Do Case
            Case This.but_style=0
                This.brdLine1.BorderColor=Rgb(255,255,255)
                This.brdLine2.BorderColor=Rgb(255,255,255)
                This.brdLine3.BorderColor=Rgb(128,128,128)
                This.brdLine4.BorderColor=Rgb(128,128,128)
            Case This.but_style=1
                This.brdLine1.BorderColor=This.BackColor
                This.brdLine2.BorderColor=This.BackColor
                This.brdLine3.BorderColor=This.BackColor
                This.brdLine4.BorderColor=This.BackColor
        Endcase
        This.brdLine1.Visible=.T.
        This.brdLine2.Visible=.T.
        This.brdLine3.Visible=.T.
        This.brdLine4.Visible=.T.
    ENDPROC


    PROCEDURE Click
        IF this.Enabled= .T.  
        LOCAL lcCurSet 
        lcCurSet=SET("Cursor") 
        this.MouseDown() 
        SET CURSOR OFF 
            WAIT "" TIMEOUT 0.01
        SET cursor &lcCurSet
        this.MouseUp() 
        this.mouse_proc="leave" 
        ENDIF 
    ENDPROC


    PROCEDURE MouseEnter
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
    ENDPROC


    PROCEDURE MouseUp
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        *!*   If This.hot_label
        *!*       This.shape1.MousePointer= 99
        *!*       this.shape1.MouseIcon='.\LIBS\HARROW.CUR' 
        *!*   Endif

        this.command1.SetFocus()  
        this.mouse_proc="enter" 
        this.value() 
        this.myvalue() 
    ENDPROC


    *-- Specifies the current state of a control.
    PROCEDURE value
    ENDPROC


    PROCEDURE command1.Click
        this.Parent.Click()  
    ENDPROC


    PROCEDURE shape1.MouseUp
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        this.Parent.MouseUp  
    ENDPROC


    PROCEDURE shape1.MouseDown
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        this.Parent.MouseDown  
    ENDPROC


    PROCEDURE shape1.MouseLeave
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        this.Parent.mouse_proc="leave"  
    ENDPROC


    PROCEDURE shape1.MouseEnter
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        this.Parent.mouse_proc="enter"  
    ENDPROC


ENDDEFINE
*
*-- EndDefine: vert_label_but
**************************************************