forum.clarionlife.net

Код: Выделить всё

** The ~TEXT signature is supported on XP/Vista/Win7/Win8.
Your program must either have no manifest, or have a manifest with the privilege level set to "asInvoker" to allow dragging from Explorer in Windows 8. 

Код: Выделить всё

Example:

WinOne WINDOW,AT(0,0,160,400)
       !Allows drags, but not drops:
       LIST,AT(120,0,20,20),USE(?List1),FROM(Que1),DRAGID('FromList1')
       !Allows drops from List1 or the Windows File Manager, but no drags:
       LIST,AT(120,120,20,20),USE(?List2),FROM(Que2),DROPID('FromList1','~FILE')
      END

Код: Выделить всё

QuickWindow          WINDOW('Лицевая карточка'),AT(,,392,214),DOUBLE,CENTER, |
  GRAY,IMM,MASK,MDI,HLP('~ListF'),SYSTEM
  LIST,AT(88,2,301,172),USE(?LISTLDoc),VSCROLL,DROPID('~FILE'), |
  FLAT,FORMAT('[12L(1)_J@s1@#7#500L(1)|_M@s255@#1#]|~Личные документы~'),FROM(QueueLDoc)
   End
 

Код: Выделить всё

  PROGRAM

  MAP
  END

LIST1:Queue                   QUEUE, PRE(LIST1)
Filename                        STRING(256)
                              END

Window                        WINDOW('Caption'),AT(,,260,167),GRAY,FONT('Microsoft Sans Serif',8)
                                LIST,AT(25,26,186,98),USE(?LIST1),FROM(LIST1:Queue),DROPID('~FILE')
                              END
  CODE
  OPEN(Window)
  ACCEPT
    CASE FIELD()
    OF ?LIST1
      CASE EVENT()
      OF EVENT:Drop
        MESSAGE('Dropped')
      END
    END
  END