//TH-Header
//*****************************************************************************************
// Copyright (c)  2002 Michael Kurz
// All rights reserved.
//
// $FileName    : DependencyConf.SL
// $ProjectName : Codemax
// $Authors     : Michael Kurz
// $Created     : 06.02.2002  20:38
//
// Contents:
//
//*****************************************************************************************
//TH-RevisionStart
//TH-RevisionEnd

// Project Object Structure
//   oDependencyConf is a dbModalPanel
//     oExtentions is a Form
//     oFolders is a Grid
//     oOK_bn is a Button
//     oCancel_bn is a Button
//     RadioGroup1 is a RadioGroup
//       Radio1 is a Radio
//       Radio2 is a Radio
//       Radio1 is a Radio
//     oTxtFileName is a Form
//     oBatchtFileName is a Form

// Register all objects
Register_Object oBatchtFileName
Register_Object oCancel_bn
Register_Object oDependencyConf
Register_Object oExtentions
Register_Object oFolders
Register_Object oOK_bn
Register_Object oTxtFileName
Register_Object Radio1
Register_Object Radio2
Register_Object RadioGroup1



Use CCD_Popup.pkg


Use DFAllEnt.pkg



CD_Popup_Object oDependencyConf is a dbModalPanel

    #IF (!@ >= 140)
    Set pbSizeToClientArea to False
    #ENDIF
    Set Label to "Configure dependency scanner"
    Set Size to 196 250
    Set Location to 15 11




    Object oExtentions is a Form
        Set Label to "Extentions"
        Set Size to 13 201
        Set Location to 4 39
        Set Label_Col_Offset to 0
        Set Label_Justification_Mode to jMode_Right
    End_Object    // oExtentions

    Object oFolders is a Grid
        Set Size to 70 236
        Set Location to 30 5

        Set Line_Width to 1 0

        Set Form_Width    item 0 to 226
        Set Header_Label  item 0 to "Folders"

    End_Object    // oFolders

    Object oOK_bn is a Button
        Set Label to "Ok"
        Set Location to 165 137

        Procedure OnClick
            Send DoOk
        End_Procedure

    End_Object    // oOK_bn

    Object oCancel_bn is a Button
        Set Label to "Cancel"
        Set Location to 165 191

        Procedure OnClick
            Send DoCancel
        End_Procedure

    End_Object    // oCancel_bn

    Object oMode is a RadioGroup
        Set Label to "Output to"
        Set Size to 50 77
        Set Location to 105 5
        Object Radio1 is a Radio
            Set Label to "Textfile"
            Set Size to 10 39
            Set Location to 10 5
        End_Object    // Radio1

        Object Radio2 is a Radio
            Set Label to "Batchfile"
            Set Size to 10 44
            Set Location to 21 5
        End_Object    // Radio2

        Object Radio1 is a Radio
            Set Label to "Clipboard"
            Set Size to 10 46
            Set Location to 33 5
        End_Object    // Radio1


        Procedure Notify_Select_State integer iToItem integer iFromItem
            Set Object_Shadow_State of (oTxtFileName(Self))     to (iToItem ne 0)
            Set Object_Shadow_State of (oBatchtFileName(Self))   to (iToItem ne 1)
        End_Procedure

    End_Object    // RadioGroup1

    Object oTxtFileName is a Form
        Set Size to 13 155
        Set Location to 111 85
    End_Object    // oTxtFileName

    Object oBatchtFileName is a Form
        Set Size to 13 155
        Set Location to 127 85
        Set object_shadow_state  to TRUE

    End_Object    // oBatchtFileName


    Procedure DoRead string sFile
        integer iC
        string sLine
        Send Delete_Data to (oFolders(Self))
        Direct_Input sFile
        ReadLn sLine
        Set value of (oExtentions(Self)) item 0     to sLine
        ReadLn sLine
        Set Current_Radio of (oMode(Self))          to sLine
        ReadLn sLine
        Set value of (oTxtFileName(Self)) item 0    to sLine
        ReadLn sLine
        Set value of (oBatchtFileName(Self)) item 0 to sLine
        Repeat
            ReadLn sLine
            [Not SEQEOF] Send Add_Item to (oFolders(Self)) Msg_None sLine
        Until [SEQEOF]
        Close_Input
        For iC from 0 to 10
            Send Add_Item to (oFolders(Self)) Msg_None ""
        End
    End_Procedure
    Procedure DoWrite string sFile
        integer iC
        string  sVal
        Direct_Output sFile
        WriteLn (Value(oExtentions(Self),0))
        WriteLn (Current_Radio(oMode(Self)))
        WriteLn (Value(oTxtFileName(Self),0))
        WriteLn (Value(oBatchtFileName(Self),0))
        For iC from 0 to (Item_Count(oFolders(Self))-1)
            get value of (oFolders(Self)) item iC to sVal
            If sVal ne "" WriteLn sVal
        End
        Close_Output
    End_Procedure

    Procedure popup_group
        Forward Send popup_group
        Send DoRead (StringP1(Self))
    End_Procedure

    Procedure DoCancel
        Send Close_Panel
    End_Procedure
    Procedure DoOk
        Send DoWrite (StringP1(Self))
        Set IntegerP1 to True
        Send Close_Panel
    End_Procedure
    Set locate_mode  to CENTER_ON_SCREEN

CD_End_Object    // oDependencyConf


Function DependencyConfig string sFile returns integer
    Set StringP1    of (oDependencyConf(Self)) to sFile
    Set IntegerP1   of (oDependencyConf(Self)) to 0
    Send Popup      to (oDependencyConf(Self))
    Function_Return (IntegerP1(oDependencyConf(Self)))
End_Function