Use Windows.pkg
Use cDragDropPanel.pkg
Use cOutlookReader.pkg


Object oTestOutlook is a cDragDropPanel
    Set Size to 216 413
    Set Label to "Example drag and drop interface Outlook 2007 and higher"
    Set piMinSize to 89 211
    Set Location to 2 2
    Set Border_Style To Border_Thick
    
    
    //
    // A drop event has been send to our application.
    // React on it, read the email from outlook's currently selected email
    //
    Procedure OnDropTarget 
      Handle  hoOutlook
      Integer iCount
      Integer iItem
      String  sText
       
      Send Delete_Data of oSubjectList
      Get Create U_cOutlookReader to hoOutlook
      If (hoOutlook) Begin
        Get SelectedEmailCount of hoOutlook to iCount
        For iItem from 1 To iCount
          Get SelectedEmailSubject of hoOutlook iItem To sText
          Send Add_Item of oSubjectList msg_none sText
        Loop
        
        Send Destroy of hoOutlook   
      End
    End_Procedure //  
    

    Object oOK_Btn is a Button
        Set Label    to "&OK"
        Set Location to 198 304
        Set peAnchors To anBottomRight

        Procedure OnClick
          
          Send info_box "this only quits the dialog :)"
      
          Send Close_Panel
        End_Procedure

    End_Object

    Object oCancel_Btn is a Button
        Set Label    to "&Cancel"
        Set Location to 198 359
        Set peAnchors to anBottomRight

        Procedure OnClick
            Send Close_Panel
        End_Procedure

    End_Object

    Object oSubjectList is a List
      Set Size to 170 115
      Set Location to 9 15
      Set peAnchors to anTopBottomLeft
    End_Object

  Object oMessageBody_rt is a cRichEdit
    Set Size to 170 267
    Set Location to 9 137
    Set peAnchors to anAll
  End_Object

  Object oTextHelp is a TextBox
    Set Size to 10 133
    Set Location to 195 17
    Set Label to "Drag some emails anywhere on this panel"
  End_Object

    On_Key Key_Alt+Key_O Send KeyAction of oOK_Btn
    On_Key Key_Alt+Key_C Send KeyAction of oCancel_Btn

End_Object