Hello,
Here is something, maybe not a bug, but something impossible to do with a graphics button.
OnClicked Event is not call with Drag/Drop begin allow checked !
Here is an example :
(dcl_project_load "D:/gb" T)
(defun c:gb_gb:demo_GraphicButton1_OnClicked (/)
(dcl_MessageBox "To Do: code must be added to event handler\r\nc:gb_gb:demo_GraphicButton1_OnClicked" "To do")
)
(defun c:html_gb:demo_ListBox1_OnDragnDropFromControl (ProjectName FormName ControlName DropPoint /)
(alert (strcat "\n c:html_gb:demo_ListBox1_OnDragnDropFromControl " ProjectName" " FormName " " ControlName))
)
(dcl_Form_Show gb_gb:demo)
I've added code in Alpha 5 to fake the OnClicked event when no drag/drop takes place. Excellent sample, by the way -- that makes my job a lot easier.