Power-Programmierung/CD1.mdf/magazine/pcmagazi/1992/14/savic4.xla

Excel Spreadsheet | 1992-03-23 | 10KB | 345 lines

Sheet:
(0, 0)        names
(0, 1)        commands
(0, 2)        comments
(0, 3)
(0, 4)        UDMs
(0, 5)
(0, 6)
(0, 7)
(0, 8)
(0, 9)
(0, 10)
(0, 11)
(0, 12)
(0, 13)
(0, 14)
(0, 15)
(0, 16)
(0, 17)
(1, 0)
(1, 1)
(1, 2)
(1, 3)
(1, 4)        Command
(1, 5)        Macro
(1, 6)        Key
(1, 7)        Status Bar Text
(1, 8)        Help
(1, 9)        Names
(1, 10)
(1, 11)
(1, 12)
(1, 13)
(1, 14)
(1, 15)
(1, 16)
(1, 17)
(2, 0)
(2, 1)        mco00.AutoOpen
(2, 2)
(2, 3)
(2, 4)
(2, 5)
(2, 6)
(2, 7)
(2, 8)
(2, 9)
(2, 10)
(2, 11)
(2, 12)
(2, 13)
(2, 14)
(2, 15)
(2, 16)
(2, 17)
(3, 0)        auto_open
(3, 1)        FALSE
(3, 2)        add command to menus
(3, 3)
(3, 4)        Save as &Icon...
(3, 5)        mcp01.SaveAsIcon
(3, 6)
(3, 7)        Save document as icon in Program Manager
(3, 8)
(3, 9)        um01.AddInMenu
(3, 10)
(3, 11)
(3, 12)
(4, 0)
(4, 1)        FALSE
(4, 2)
(4, 3)
(4, 4)
(4, 5)
(4, 6)
(4, 7)
(4, 8)
(4, 9)
(4, 10)
(4, 11)
(4, 12)
(5, 0)
(5, 1)        7
(5, 2)
(5, 3)
(5, 4)        UDDs
(5, 5)
(5, 6)
(5, 7)
(5, 8)
(5, 9)
(5, 10)
(5, 11)
(5, 12)
(6, 0)
(6, 1)        7
(6, 2)
(6, 3)
(6, 4)        type
(6, 5)        x
(6, 6)        y
(6, 7)        w
(6, 8)        h
(6, 9)        text
(6, 10)        init/result
(6, 11)        names
(6, 12)
(7, 0)
(7, 1)        TRUE
(7, 2)
(7, 3)
(7, 4)
(7, 5)
(7, 6)
(7, 7)
(7, 8)
(7, 9)
(7, 10)
(7, 11)
(7, 12)
(8, 0)
(8, 1)
(8, 2)
(8, 3)
(8, 4)
(8, 5)
(8, 6)
(8, 7)        300
(8, 8)        100
(8, 9)
(8, 10)        5
(8, 11)        ud01.GetInput
(8, 12)
(9, 0)        mcp01.SaveAsIcon
(9, 1)        mcp01.SaveAsIcon
(9, 2)
(9, 3)
(9, 4)        3
(9, 5)        200
(9, 6)        10
(9, 7)        88
(9, 8)
(9, 9)        &OK
(9, 10)
(9, 11)
(9, 12)
(10, 0)
(10, 1)        TRUE
(10, 2)        Save document or RETURN.
(10, 3)
(10, 4)        2
(10, 5)        200
(10, 6)        35
(10, 7)        88
(10, 8)
(10, 9)        &Cancel
(10, 10)
(10, 12)
(11, 0)
(11, 1)        TRUE
(11, 2)        Set Icon title default to filename.
(11, 3)
(11, 4)        5
(11, 5)        15
(11, 6)        10
(11, 7)
(11, 8)
(11, 9)        Save as &Icon:
(11, 10)
(11, 12)
(12, 0)
(12, 1)        TRUE
(12, 2)        Clear group name.
(12, 3)
(12, 4)        5
(12, 5)        15
(12, 6)        50
(12, 7)
(12, 8)
(12, 9)        in &Group:
(12, 10)
(12, 12)
(13, 0)        mcp01n.Dialog
(13, 1)        FALSE
(13, 2)        Display dialog box, get input.
(13, 3)
(13, 4)        6
(13, 5)        13
(13, 6)        25
(13, 7)        165
(13, 8)
(13, 9)
(13, 10)        SAVIC4.XLA
(13, 11)        ud01s.Title
(13, 12)
(14, 0)
(14, 1)        FALSE
(14, 2)        If user CANCELed then RETURN.
(14, 3)
(14, 4)        6
(14, 5)        14
(14, 6)        65
(14, 7)        165
(14, 8)
(14, 9)
(14, 10)
(14, 11)        ud01s.Group
(14, 12)
(15, 0)
(15, 1)        TRUE
(15, 2)        If both GROUP and TITLE entered
(15, 3)
(15, 4)
(15, 5)
(15, 6)
(15, 7)
(15, 8)
(15, 9)
(15, 10)
(15, 11)
(15, 12)
(16, 0)
(16, 1)        FALSE
(16, 2)             add icon to ProgMan
(16, 3)
(17, 0)
(17, 1)        TRUE
(17, 2)        else
(17, 3)
(18, 0)
(18, 1)        FALSE
(18, 2)             alert user to need for both.
(18, 3)
(19, 0)
(19, 1)        TRUE
(19, 2)
(19, 3)
(20, 0)
(20, 1)        TRUE
(20, 2)
(20, 3)
(21, 0)
(21, 1)
(21, 2)
(21, 3)
(22, 0)        mcs01.SaveFile
(22, 1)        mcs01.SaveFile
(22, 2)
(22, 3)
(23, 0)
(23, 1)        TRUE
(23, 2)        If document has not been saved
(23, 3)
(24, 0)
(24, 1)        TRUE
(24, 2)            do SAVE.AS or RETURN
(24, 3)
(25, 0)
(25, 1)        TRUE
(25, 2)        else
(25, 3)
(26, 0)
(26, 1)        FALSE
(26, 2)            if document is dirty, save it.
(26, 3)
(27, 0)
(27, 1)        TRUE
(27, 2)
(27, 3)
(28, 0)
(28, 1)        TRUE
(28, 2)
(28, 3)
(29, 0)
(29, 1)
(29, 2)
(29, 3)
(30, 0)        mcs02.AddIcon
(30, 1)        mcs02.AddIcon
(30, 2)
(30, 3)
(31, 0)        mcs02s.ItemFile
(31, 1)        C:\EXC\ADDITEM2.XL
(31, 2)        Build complete pathname
(31, 3)
(32, 0)        mcs02n.ChanNum
(32, 1)        0
(32, 2)        Open DDE channel to ProgMan
(32, 3)
(33, 0)
(33, 1)        FALSE
(33, 2)        Choose/create group
(33, 3)
(34, 0)
(34, 1)        FALSE
(34, 2)        Add item to group
(34, 3)
(35, 0)
(35, 1)        FALSE
(35, 2)        Close DDE channel
(35, 3)
(36, 0)
(36, 1)        TRUE
(36, 2)
(36, 3)
(37, 0)
(37, 1)
(37, 2)
(37, 3)
(38, 0)
(38, 1)        mcx00.AutoClose
(38, 2)
(38, 3)
(39, 0)        auto_close
(39, 1)        TRUE
(39, 2)        delete commands from menus
(39, 3)
(40, 0)
(40, 1)        TRUE
(40, 2)
(40, 3)
(41, 0)
(41, 1)        TRUE
(41, 2)
(41, 3)
(42, 0)
(42, 1)        TRUE
(42, 2)
(42, 3)
(43, 0)
(43, 1)        TRUE
(43, 2)
(43, 3)
(44, 0)
(44, 1)
(44, 2)
(44, 3)
(45, 3)
(46, 3)
(47, 3)
(48, 3)
(49, 3)
(50, 3)
(51, 3)