Drag cursors (curses!!)

[ConvertFromOldNGs]

by torrie >> Thu, 29 Aug 2002 7:48:45 GMT

Hi

Just making the form transparent only makes the form completely transparent, child controls are not affected. I tried but had some problems with redrawing and the form sometimes being painted and sometimes not.

We have had more luck using layered windows Window Style to HML_WS_EX_LAYERED. This allows you to make one colour transparent or to fade out the whole form from completely invisible to completly visible.

iStyle := call hmlGetWindowLong( hwnd, HML_GWL_EXSTYLE );
call hmlSetWindowLong( hwnd, HML_GWL_EXSTYLE, iStyle.bitXor(HML_WS_EX_LAYERED));
call hmlSetLayeredWindowAttributes( hwnd, White, vScroll1.value.Character, HML_LWA_ALPHA );

For more information check out the API calls on the microsoft web site.

Torrie

[ConvertFromOldNGs]

by CarlRanson >> Mon, 26 Aug 2002 2:42:28 GMT

Im working purely on a hunch here, but ive been right once or twice before.

Can you try setting the mousepointer for the control to something other than MousePointer_Default or MousePointer_Cursor when you start the drag.

eg.

listbox.dragMode := DragMode_Drag;
listbox.mousePointer := MousePointer_Size;

Does that make a difference?

Ive definetly got a system that changes the cursor on the fly to indicate droppablility using:

if dragDropAllowed(listbox) then
listbox.dragCursor := cursors.picture;
else
listbox.dragCursor := cursors.pictureDisabled;
endif;

Where cursors is a run of the mill Jade Picture control.

CR