home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 21 / IOPROG_21.ISO / SOFT / DDLB.ZIP / DragDropListBox.txt < prev    next >
Encoding:
Text File  |  1998-11-19  |  3.3 KB  |  62 lines
  1. {***************************************************************
  2.  *
  3.  * Unit Name: DragDropListBox
  4.  * Version  : 2.8
  5.  * Date     : 1998/11/18
  6.  * Purpose  : Enhanced Listbox that show the bitmap items, allow 
  7.  *              drag-drop operation to change the order of Listbox 
  8.  *              items and move items between Listboxes. 
  9.  * Author   : Vincent Huang
  10.  * E-Mail   : mac@lion.syscom.com.tw
  11.  * History  :
  12.  *        1.5 First release.
  13.  *        2.0 Allow drag-drop among multiple TDragDropListBox.
  14.  *            Property 'EnableDragDrop' is renamed to 'DragDropEnabled'.
  15.  *            Property 'DragDropInsert' added.
  16.  *            Property 'DragDropDelete' added.
  17.  *        2.5 Implement the bimap cursor using TImageList.BeginDrag.
  18.  *        2.6 Fix bug when the drag out another DragDropListBox.
  19.  *        2.7 Utilize TDragControlObject to handle bitmap cursor.
  20.  *            Miltiple selection support.
  21.  *            Event OnGetDragImageList added, allow user to specify the
  22.  *              custommized drag image.
  23.  *            Method InsertItems added, allow trigger items moving between
  24.  *              listboxes via program.
  25.  *        2.8 Add support for showing bitmap in front of ListBox Item using
  26.  *              TImageList. Use it just like the way you use TTreeview.
  27.  *            PS: the feature is added because one Delphi component web site
  28.  *                  add this feature to version 1.5, though it's never
  29.  *                  supported. Now, you really got it. :)
  30.  *                If there is no feature request, there will be only new
  31.  *                  bug-fixed version from now on. To get new copy, you may
  32.  *                  check the Delphi Super Page. If you e-mail me, I'll add
  33.  *                  you to my TDragDropListBox mailing-list. :)
  34.  * Comments : For use with Delphi 2,3,4 and C++ Builder 3.
  35.  *            This component is absolutely free. if you use this
  36.  *              component, please e-mail me with any kind of
  37.  *              comments about this component. I'll inform you about
  38.  *              the new version info when avaiable.
  39.  * Usage    : set the 'DragDropEnable' to True and it works for you.
  40.  *            If DragDropInsert is False, the new item won't be added
  41.  *              and the insert position line won't be drawn.
  42.  *            If DragDropDelete is False, the dragged item won't be
  43.  *              deleted after dropped.
  44.  *            To show the dragging image on other control, you have to
  45.  *              add the following line in FormShow or somewhere else before
  46.  *              the drag event happens.
  47.  *
  48.  *              CONTROL_NAME.ControlStyle :=
  49.  *                      CONTROL_NAME.ControlStyle + [csDisplayDragImage];
  50.  *
  51.  * Bugs     : Most of the time, this component works fine. In one of
  52.  *              my project, it crash the Delphi 4.02 in debug mode
  53.  *              when the drag start but still works fine at run-time
  54.  *              (non-debug mode). It crashed at line 8005 of Controls.pas
  55.  *              while calling ImageList_DragEnter. :( I'm almost sure it's
  56.  *              a bug of either Microsoft's comctl32.dll or Delphi 4.02,
  57.  *              not mine. :)
  58.  * PS       : This component is to my beloved Daphne, though for
  59.  *              some reason we can't be together.
  60.  *
  61.  ****************************************************************}
  62.