Statusbar to show mouse location

[David Boytor]

I have been unable to get this to work, your suggestion and help will be most appreciated!

Code Select Expand

[color=C06400]#PBFORMS CREATED V2.01
[/color][color=007F00]'------------------------------------------------------------------------------
' The first line in this file is a PB/Forms metastatement.
' It should ALWAYS be the first line of the file. Other
' PB/Forms metastatements are placed at the beginning and
' end of "Named Blocks" of code that should be edited
' with PBForms only. Do not manually edit or delete these
' metastatements or PB/Forms will not be able to reread
' the file correctly.  See the PB/Forms documentation for
' more information.
' Named blocks begin like this:    #PBFORMS BEGIN ...
' Named blocks end like this:      #PBFORMS END ...
' Other PB/Forms metastatements such as:
'     #PBFORMS DECLARATIONS
' are used by PB/Forms to insert additional code.
' Feel free to make changes anywhere else in the file.
'------------------------------------------------------------------------------

[/color][color=0000C0]#COMPILE EXE
#DIM ALL

[/color][color=007F00]'------------------------------------------------------------------------------
'   ** Includes **
'------------------------------------------------------------------------------
[/color][color=C06400]#PBFORMS BEGIN INCLUDES
[/color][color=0000C0]#INCLUDE ONCE [/color][color=C020C0]"WIN32API.INC"
[/color][color=C06400]#PBFORMS END INCLUDES
[/color][color=0000C0]#INCLUDE [/color][color=C020C0]"gl.inc"
[/color][color=0000C0]#INCLUDE [/color][color=C020C0]"glu.inc"
[/color][color=007F00]'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Constants **
'------------------------------------------------------------------------------
[/color][color=C06400]#PBFORMS BEGIN CONSTANTS
[/color][color=000000]%IDD_OGLEBS        [/color][color=8000FF]=  [/color][color=000000]101
%IDC_GRAPHICPortal [/color][color=8000FF]= [/color][color=000000]1001
[/color][color=0000C0]%IDCLOSE           [/color][color=8000FF]=    [/color][color=000000]8
%IDC_OpenFile      [/color][color=8000FF]= [/color][color=000000]1002
%IDC_SaveFile      [/color][color=8000FF]= [/color][color=000000]1003
%IDC_STATUSBAR1    [/color][color=8000FF]= [/color][color=000000]1004
[/color][color=C06400]#PBFORMS END CONSTANTS
[/color][color=007F00]'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Declarations **
'------------------------------------------------------------------------------
[/color][color=0000C0]DECLARE CALLBACK FUNCTION [/color][color=000000]ShowOGLEBSProc[/color][color=8000FF]()
[/color][color=0000C0]DECLARE FUNCTION [/color][color=000000]ShowOGLEBS[/color][color=8000FF]([/color][color=0000C0]BYVAL [/color][color=000000]hParent [/color][color=0000C0]AS DWORD[/color][color=8000FF]) [/color][color=0000C0]AS LONG
[/color][color=C06400]#PBFORMS DECLARATIONS
[/color][color=007F00]'------------------------------------------------------------------------------
[/color][color=0000C0]GLOBAL [/color][color=000000]hDC        [/color][color=0000C0]AS DWORD
GLOBAL [/color][color=000000]hGLGraphic [/color][color=0000C0]AS DWORD
GLOBAL [/color][color=000000]portalDC   [/color][color=0000C0]AS DWORD
GLOBAL [/color][color=000000]zhDlg      [/color][color=0000C0]AS DWORD
[/color][color=007F00]'------------------------------------------------------------------------------
'   ** Main Application Entry Point **
'------------------------------------------------------------------------------
[/color][color=0000C0]FUNCTION PBMAIN[/color][color=8000FF]()
   [/color][color=000000]ShowOGLEBS [/color][color=0000C0]%HWND_DESKTOP
END FUNCTION
[/color][color=007F00]'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** CallBacks **
'------------------------------------------------------------------------------
[/color][color=0000C0]CALLBACK FUNCTION [/color][color=000000]ShowOGLEBSProc[/color][color=8000FF]()

   [/color][color=0000C0]LOCAL [/color][color=000000]pt [/color][color=0000C0]AS POINTAPI
   LOCAL [/color][color=000000]x  [/color][color=0000C0]AS STRING
   [/color][color=000000]GetCursorPos[/color][color=8000FF]( [/color][color=000000]pt [/color][color=8000FF])
   [/color][color=000000]ScreenToClient[/color][color=8000FF]( [/color][color=000000]zhDlg[/color][color=8000FF], [/color][color=000000]pt[/color][color=8000FF])

   [/color][color=0000C0]SELECT CASE AS LONG CB.MSG
      CASE %WM_INITDIALOG
         [/color][color=007F00]' Initialization handler
         [/color][color=000000]glClearColor 0[/color][color=8000FF],[/color][color=000000]0[/color][color=8000FF],[/color][color=000000]0[/color][color=8000FF],[/color][color=000000]0     [/color][color=007F00]'sets color to be used with glClear
         [/color][color=000000]glClearDepth 1           [/color][color=007F00]'sets zvalue to be used with glClear
         [/color][color=000000]portalDC [/color][color=8000FF]= [/color][color=000000]wglCreateContext [/color][color=8000FF]([/color][color=000000]hDC[/color][color=8000FF])
         [/color][color=000000]wglMakeCurrent hDC[/color][color=8000FF], [/color][color=000000]portalDC
      [/color][color=0000C0]CASE %WM_NCACTIVATE
         STATIC [/color][color=000000]hWndSaveFocus [/color][color=0000C0]AS DWORD
         IF [/color][color=8000FF]ISFALSE [/color][color=0000C0]CB.WPARAM THEN
            [/color][color=007F00]' Save control focus
            [/color][color=000000]hWndSaveFocus [/color][color=8000FF]= [/color][color=000000]GetFocus[/color][color=8000FF]()
         [/color][color=0000C0]ELSEIF [/color][color=000000]hWndSaveFocus [/color][color=0000C0]THEN
            [/color][color=007F00]' Restore control focus
            [/color][color=000000]SetFocus[/color][color=8000FF]([/color][color=000000]hWndSaveFocus[/color][color=8000FF])
            [/color][color=000000]hWndSaveFocus [/color][color=8000FF]= [/color][color=000000]0
         [/color][color=0000C0]END IF
      CASE %WM_COMMAND
         [/color][color=007F00]' Process control notifications
         [/color][color=0000C0]SELECT CASE AS LONG CB.CTL
            [/color][color=007F00]' /* Inserted by PB/Forms 02-25-2014 16:52:14
            [/color][color=0000C0]CASE [/color][color=000000]%IDC_STATUSBAR1
               x$ [/color][color=8000FF]= [/color][color=0000C0]STR$[/color][color=8000FF]([/color][color=000000]pt.x[/color][color=8000FF])
               [/color][color=0000C0]STATUSBAR SET TEXT [/color][color=000000]zhDlg[/color][color=8000FF], [/color][color=000000]%IDC_STATUSBAR1[/color][color=8000FF], [/color][color=000000]1[/color][color=8000FF], [/color][color=000000]0[/color][color=8000FF], [/color][color=000000]x$
            [/color][color=0000C0]CASE [/color][color=000000]%IDC_OpenFile
               [/color][color=0000C0]IF CB.CTLMSG [/color][color=8000FF]= [/color][color=0000C0]%BN_CLICKED [/color][color=8000FF]OR [/color][color=0000C0]CB.CTLMSG [/color][color=8000FF]= [/color][color=000000]1 [/color][color=0000C0]THEN
                  MSGBOX [/color][color=C020C0]"%IDC_OpenFile=" [/color][color=8000FF]+ [/color][color=0000C0]FORMAT$[/color][color=8000FF]([/color][color=000000]%IDC_OpenFile[/color][color=8000FF]), [/color][color=0000C0]%MB_TASKMODAL
               END IF
            CASE [/color][color=000000]%IDC_SaveFile
               [/color][color=0000C0]IF CB.CTLMSG [/color][color=8000FF]= [/color][color=0000C0]%BN_CLICKED [/color][color=8000FF]OR [/color][color=0000C0]CB.CTLMSG [/color][color=8000FF]= [/color][color=000000]1 [/color][color=0000C0]THEN
                  MSGBOX [/color][color=C020C0]"%IDC_SaveFile=" [/color][color=8000FF]+ [/color][color=0000C0]FORMAT$[/color][color=8000FF]([/color][color=000000]%IDC_SaveFile[/color][color=8000FF]), [/color][color=0000C0]%MB_TASKMODAL
               END IF
            [/color][color=007F00]' */

            ' /* Inserted by PB/Forms 02-18-2014 23:33:15
            [/color][color=0000C0]CASE %IDCLOSE
               IF CB.CTLMSG [/color][color=8000FF]= [/color][color=0000C0]%BN_CLICKED [/color][color=8000FF]OR [/color][color=0000C0]CB.CTLMSG [/color][color=8000FF]= [/color][color=000000]1 [/color][color=0000C0]THEN
                   DIALOG END CB.HNDL[/color][color=8000FF], [/color][color=000000]0
                   [/color][color=0000C0]FUNCTION [/color][color=8000FF]= [/color][color=000000]1
               [/color][color=0000C0]END IF
            [/color][color=007F00]' */

            [/color][color=0000C0]CASE [/color][color=000000]%IDC_GRAPHICPortal
                [/color][color=0000C0]GRAPHIC PRINT [/color][color=C020C0]" Clicked"[/color][color=8000FF], [/color][color=0000C0]STR$[/color][color=8000FF]([/color][color=000000]pt.x[/color][color=8000FF]) + [/color][color=C020C0]":" [/color][color=8000FF]+ [/color][color=0000C0]STR$[/color][color=8000FF]([/color][color=000000]pt.y[/color][color=8000FF])
                [/color][color=007F00]'STATUSBAR SET TEXT hDlg, id&, item&, style&, text$
                [/color][color=000000]x$ [/color][color=8000FF]= [/color][color=0000C0]STR$[/color][color=8000FF]([/color][color=000000]pt.x[/color][color=8000FF])
                [/color][color=0000C0]STATUSBAR SET TEXT [/color][color=000000]zhDlg[/color][color=8000FF], [/color][color=000000]%IDC_STATUSBAR1[/color][color=8000FF], [/color][color=000000]1[/color][color=8000FF], [/color][color=000000]0[/color][color=8000FF], [/color][color=000000]x$
         [/color][color=0000C0]END SELECT
      CASE %WM_MOUSEMOVE
          [/color][color=000000]GetCursorPos[/color][color=8000FF]( [/color][color=000000]pt[/color][color=8000FF])
          [/color][color=000000]ScreenToClient[/color][color=8000FF]( [/color][color=000000]zhDlg[/color][color=8000FF], [/color][color=000000]pt[/color][color=8000FF])
          [/color][color=000000]x$ [/color][color=8000FF]= [/color][color=0000C0]STR$[/color][color=8000FF]([/color][color=000000]pt.x[/color][color=8000FF])
          [/color][color=0000C0]STATUSBAR SET TEXT [/color][color=000000]zhDlg[/color][color=8000FF], [/color][color=000000]%IDC_STATUSBAR1[/color][color=8000FF], [/color][color=000000]1[/color][color=8000FF], [/color][color=000000]0[/color][color=8000FF], [/color][color=000000]x$
   [/color][color=0000C0]END SELECT
END FUNCTION

[/color][color=007F00]'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Dialogs **
'------------------------------------------------------------------------------
[/color][color=0000C0]FUNCTION [/color][color=000000]ShowOGLEBS[/color][color=8000FF]([/color][color=0000C0]BYVAL [/color][color=000000]hParent [/color][color=0000C0]AS DWORD[/color][color=8000FF]) [/color][color=0000C0]AS LONG
   LOCAL [/color][color=000000]lRslt  [/color][color=0000C0]AS LONG

[/color][color=C06400]#PBFORMS BEGIN DIALOG %IDD_OGLEBS->->
   [/color][color=0000C0]LOCAL [/color][color=000000]hDlg   [/color][color=0000C0]AS DWORD
   LOCAL [/color][color=000000]hFont1 [/color][color=0000C0]AS DWORD

   DIALOG NEW PIXELS[/color][color=8000FF], [/color][color=000000]hParent[/color][color=8000FF], [/color][color=C020C0]"EBS"[/color][color=8000FF], [/color][color=000000]66[/color][color=8000FF], [/color][color=000000]101[/color][color=8000FF], [/color][color=000000]1206[/color][color=8000FF], [/color][color=000000]656[/color][color=8000FF], [/color][color=0000C0]%WS_POPUP [/color][color=8000FF]OR [/color][color=0000C0]_
      %WS_BORDER [/color][color=8000FF]OR [/color][color=0000C0]%WS_DLGFRAME [/color][color=8000FF]OR [/color][color=0000C0]%WS_SYSMENU [/color][color=8000FF]OR [/color][color=0000C0]%WS_MINIMIZEBOX [/color][color=8000FF]OR [/color][color=0000C0]_
      %WS_MAXIMIZEBOX [/color][color=8000FF]OR [/color][color=0000C0]%WS_CLIPSIBLINGS [/color][color=8000FF]OR [/color][color=0000C0]%WS_VISIBLE [/color][color=8000FF]OR [/color][color=0000C0]%DS_SYSMODAL [/color][color=8000FF]OR [/color][color=0000C0]_
      %DS_MODALFRAME [/color][color=8000FF]OR [/color][color=0000C0]%DS_CENTER [/color][color=8000FF]OR [/color][color=0000C0]%DS_3DLOOK [/color][color=8000FF]OR [/color][color=0000C0]%DS_NOFAILCREATE [/color][color=8000FF]OR [/color][color=0000C0]_
      %DS_SETFONT[/color][color=8000FF], [/color][color=0000C0]%WS_EX_CONTROLPARENT [/color][color=8000FF]OR [/color][color=0000C0]%WS_EX_LEFT [/color][color=8000FF]OR [/color][color=0000C0]%WS_EX_LTRREADING _
      [/color][color=8000FF]OR [/color][color=0000C0]%WS_EX_RIGHTSCROLLBAR[/color][color=8000FF], [/color][color=0000C0]TO [/color][color=000000]hDlg
   [/color][color=0000C0]DIALOG  SET COLOR      [/color][color=000000]hDlg[/color][color=8000FF], -[/color][color=000000]1[/color][color=8000FF], [/color][color=0000C0]%CYAN
   CONTROL ADD GRAPHIC[/color][color=8000FF],   [/color][color=000000]hDlg[/color][color=8000FF], [/color][color=000000]%IDC_GRAPHICPortal[/color][color=8000FF], [/color][color=C020C0]""[/color][color=8000FF], [/color][color=000000]120[/color][color=8000FF], [/color][color=000000]0[/color][color=8000FF], [/color][color=000000]1088[/color][color=8000FF], [/color][color=000000]632[/color][color=8000FF], [/color][color=0000C0]_
      %WS_CHILD [/color][color=8000FF]OR [/color][color=0000C0]%WS_VISIBLE [/color][color=8000FF]OR [/color][color=0000C0]%WS_BORDER [/color][color=8000FF]OR [/color][color=0000C0]%SS_SUNKEN [/color][color=8000FF]OR [/color][color=0000C0]%SS_NOTIFY[/color][color=8000FF], [/color][color=0000C0]_
      %WS_EX_STATICEDGE
   CONTROL ADD BUTTON[/color][color=8000FF],    [/color][color=000000]hDlg[/color][color=8000FF], [/color][color=0000C0]%IDCLOSE[/color][color=8000FF], [/color][color=C020C0]"Exit"[/color][color=8000FF], [/color][color=000000]0[/color][color=8000FF], [/color][color=000000]592[/color][color=8000FF], [/color][color=000000]120[/color][color=8000FF], [/color][color=000000]40[/color][color=8000FF], [/color][color=0000C0]%WS_CHILD _
      [/color][color=8000FF]OR [/color][color=0000C0]%WS_VISIBLE [/color][color=8000FF]OR [/color][color=0000C0]%WS_TABSTOP [/color][color=8000FF]OR [/color][color=0000C0]%BS_TEXT [/color][color=8000FF]OR [/color][color=0000C0]%BS_PUSHLIKE [/color][color=8000FF]OR [/color][color=0000C0]_
      %BS_PUSHBUTTON [/color][color=8000FF]OR [/color][color=0000C0]%BS_CENTER [/color][color=8000FF]OR [/color][color=0000C0]%BS_VCENTER[/color][color=8000FF], [/color][color=0000C0]%WS_EX_LEFT [/color][color=8000FF]OR [/color][color=0000C0]_
      %WS_EX_LTRREADING
   CONTROL ADD BUTTON[/color][color=8000FF],    [/color][color=000000]hDlg[/color][color=8000FF], [/color][color=000000]%IDC_OpenFile[/color][color=8000FF], [/color][color=C020C0]"Open File"[/color][color=8000FF], [/color][color=000000]0[/color][color=8000FF], [/color][color=000000]0[/color][color=8000FF], [/color][color=000000]120[/color][color=8000FF], [/color][color=000000]40
   [/color][color=0000C0]CONTROL ADD BUTTON[/color][color=8000FF],    [/color][color=000000]hDlg[/color][color=8000FF], [/color][color=000000]%IDC_SaveFile[/color][color=8000FF], [/color][color=C020C0]"Save File"[/color][color=8000FF], [/color][color=000000]0[/color][color=8000FF], [/color][color=000000]40[/color][color=8000FF], [/color][color=000000]120[/color][color=8000FF], [/color][color=000000]40
   [/color][color=0000C0]CONTROL ADD STATUSBAR[/color][color=8000FF], [/color][color=000000]hDlg[/color][color=8000FF], [/color][color=000000]%IDC_STATUSBAR1[/color][color=8000FF], [/color][color=C020C0]""[/color][color=8000FF], [/color][color=000000]0[/color][color=8000FF], [/color][color=000000]640[/color][color=8000FF], [/color][color=000000]800[/color][color=8000FF], [/color][color=000000]16

   [/color][color=0000C0]FONT NEW [/color][color=C020C0]"Tengwar Quenya"[/color][color=8000FF], [/color][color=000000]8[/color][color=8000FF], [/color][color=000000]0[/color][color=8000FF], [/color][color=000000]%ANSI_CHARSET [/color][color=0000C0]TO [/color][color=000000]hFont1

   [/color][color=0000C0]CONTROL SET FONT [/color][color=000000]hDlg[/color][color=8000FF], [/color][color=000000]%IDC_GRAPHICPortal[/color][color=8000FF], [/color][color=000000]hFont1
[/color][color=C06400]#PBFORMS END DIALOG
   [/color][color=000000]hDC [/color][color=8000FF]= [/color][color=000000]GetDC[/color][color=8000FF]([/color][color=000000]hGLGraphic[/color][color=8000FF])
   [/color][color=0000C0]STATUSBAR SET PARTS [/color][color=000000]hDlg[/color][color=8000FF], [/color][color=000000]%IDC_STATUSBAR1[/color][color=8000FF], [/color][color=000000]150[/color][color=8000FF], [/color][color=000000]150[/color][color=8000FF], [/color][color=000000]9999


   [/color][color=0000C0]DIALOG SHOW MODAL [/color][color=000000]hDlg[/color][color=8000FF], [/color][color=0000C0]CALL [/color][color=000000]ShowOGLEBSProc [/color][color=0000C0]TO [/color][color=000000]lRslt

[/color][color=C06400]#PBFORMS BEGIN CLEANUP %IDD_OGLEBS
   [/color][color=0000C0]FONT END [/color][color=000000]hFont1
[/color][color=C06400]#PBFORMS END CLEANUP
   [/color][color=000000]zhDlg [/color][color=8000FF]= [/color][color=000000]hDlg
   [/color][color=0000C0]FUNCTION [/color][color=8000FF]= [/color][color=000000]lRslt
[/color][color=0000C0]END FUNCTION
[/color][color=007F00]'------------------------------------------------------------------------------



[/color]

[Eddy Van Esch]

David,

Can you remove the [color] tags from the code please? Not compilable like this ...

Kind regards
Eddy

[Gary Beene]

And, describe what you're trying to do.

[Börje Hagsten]

Move zhDlg = hDlg up above DIALOG SHOW MODAL in FUNCTION ShowOGLEBS, to make it work.

[David Boytor]

Thanks all sorry about the color, it was at 2 am when I entered the code.
AT that time I was working on it for a forever time frame.
Here is the code without incompatible code:

Code Select Expand


#PBFORMS CREATED V2.01
'------------------------------------------------------------------------------
' The first line in this file is a PB/Forms metastatement.
' It should ALWAYS be the first line of the file. Other
' PB/Forms metastatements are placed at the beginning and
' end of "Named Blocks" of code that should be edited
' with PBForms only. Do not manually edit or delete these
' metastatements or PB/Forms will not be able to reread
' the file correctly.  See the PB/Forms documentation for
' more information.
' Named blocks begin like this:    #PBFORMS BEGIN ...
' Named blocks end like this:      #PBFORMS END ...
' Other PB/Forms metastatements such as:
'     #PBFORMS DECLARATIONS
' are used by PB/Forms to insert additional code.
' Feel free to make changes anywhere else in the file.
'------------------------------------------------------------------------------

#COMPILE EXE
#DIM ALL

'------------------------------------------------------------------------------
'   ** Includes **
'------------------------------------------------------------------------------
#PBFORMS BEGIN INCLUDES
#INCLUDE ONCE "WIN32API.INC"
#PBFORMS END INCLUDES
#INCLUDE "gl.inc"
#INCLUDE "glu.inc"
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Constants **
'------------------------------------------------------------------------------
#PBFORMS BEGIN CONSTANTS
%IDD_OGLEBS        =  101
%IDC_GRAPHICPortal = 1001
%IDCLOSE           =    8
%IDC_OpenFile      = 1002
%IDC_SaveFile      = 1003
%IDC_STATUSBAR1    = 1004
#PBFORMS END CONSTANTS
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Declarations **
'------------------------------------------------------------------------------
DECLARE CALLBACK FUNCTION ShowOGLEBSProc()
DECLARE FUNCTION ShowOGLEBS(BYVAL hParent AS DWORD) AS LONG
#PBFORMS DECLARATIONS
'------------------------------------------------------------------------------
GLOBAL hDC        AS DWORD
GLOBAL hGLGraphic AS DWORD
GLOBAL portalDC   AS DWORD
GLOBAL zhDlg      AS DWORD
'------------------------------------------------------------------------------
'   ** Main Application Entry Point **
'------------------------------------------------------------------------------
FUNCTION PBMAIN()
   ShowOGLEBS %HWND_DESKTOP
END FUNCTION
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** CallBacks **
'------------------------------------------------------------------------------
CALLBACK FUNCTION ShowOGLEBSProc()

   LOCAL pt AS POINTAPI
   LOCAL x  AS STRING
   GetCursorPos( pt )
   ScreenToClient( zhDlg, pt)

   SELECT CASE AS LONG CB.MSG
      CASE %WM_INITDIALOG
         ' Initialization handler
         glClearColor 0,0,0,0     'sets color to be used with glClear
         glClearDepth 1           'sets zvalue to be used with glClear
         portalDC = wglCreateContext (hDC)
         wglMakeCurrent hDC, portalDC
      CASE %WM_NCACTIVATE
         STATIC hWndSaveFocus AS DWORD
         IF ISFALSE CB.WPARAM THEN
            ' Save control focus
            hWndSaveFocus = GetFocus()
         ELSEIF hWndSaveFocus THEN
            ' Restore control focus
            SetFocus(hWndSaveFocus)
            hWndSaveFocus = 0
         END IF
      CASE %WM_COMMAND
         ' Process control notifications
         SELECT CASE AS LONG CB.CTL
            ' /* Inserted by PB/Forms 02-25-2014 16:52:14
            CASE %IDC_STATUSBAR1
               x$ = STR$(pt.x)
               STATUSBAR SET TEXT zhDlg, %IDC_STATUSBAR1, 1, 0, x$
            CASE %IDC_OpenFile
               IF CB.CTLMSG = %BN_CLICKED OR CB.CTLMSG = 1 THEN
                  MSGBOX "%IDC_OpenFile=" + FORMAT$(%IDC_OpenFile), %MB_TASKMODAL
               END IF
            CASE %IDC_SaveFile
               IF CB.CTLMSG = %BN_CLICKED OR CB.CTLMSG = 1 THEN
                  MSGBOX "%IDC_SaveFile=" + FORMAT$(%IDC_SaveFile), %MB_TASKMODAL
               END IF
            ' */

            ' /* Inserted by PB/Forms 02-18-2014 23:33:15
            CASE %IDCLOSE
               IF CB.CTLMSG = %BN_CLICKED OR CB.CTLMSG = 1 THEN
                   DIALOG END CB.HNDL, 0
                   FUNCTION = 1
               END IF
            ' */

            CASE %IDC_GRAPHICPortal
                GRAPHIC PRINT " Clicked", STR$(pt.x) + ":" + STR$(pt.y)
                'STATUSBAR SET TEXT hDlg, id&, item&, style&, text$
                x$ = STR$(pt.x)
                STATUSBAR SET TEXT zhDlg, %IDC_STATUSBAR1, 1, 0, x$
         END SELECT
      CASE %WM_MOUSEMOVE
          GetCursorPos( pt)
          ScreenToClient( zhDlg, pt)
          x$ = STR$(pt.x)
          STATUSBAR SET TEXT zhDlg, %IDC_STATUSBAR1, 1, 0, x$
   END SELECT
END FUNCTION

'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Dialogs **
'------------------------------------------------------------------------------
FUNCTION ShowOGLEBS(BYVAL hParent AS DWORD) AS LONG
   LOCAL lRslt  AS LONG

#PBFORMS BEGIN DIALOG %IDD_OGLEBS->->
   LOCAL hDlg   AS DWORD
   LOCAL hFont1 AS DWORD

   DIALOG NEW PIXELS, hParent, "EBS", 66, 101, 1206, 656, %WS_POPUP OR _
      %WS_BORDER OR %WS_DLGFRAME OR %WS_SYSMENU OR %WS_MINIMIZEBOX OR _
      %WS_MAXIMIZEBOX OR %WS_CLIPSIBLINGS OR %WS_VISIBLE OR %DS_SYSMODAL OR _
      %DS_MODALFRAME OR %DS_CENTER OR %DS_3DLOOK OR %DS_NOFAILCREATE OR _
      %DS_SETFONT, %WS_EX_CONTROLPARENT OR %WS_EX_LEFT OR %WS_EX_LTRREADING _
      OR %WS_EX_RIGHTSCROLLBAR, TO hDlg
   DIALOG  SET COLOR      hDlg, -1, %CYAN
   CONTROL ADD GRAPHIC,   hDlg, %IDC_GRAPHICPortal, "", 120, 0, 1088, 632, _
      %WS_CHILD OR %WS_VISIBLE OR %WS_BORDER OR %SS_SUNKEN OR %SS_NOTIFY, _
      %WS_EX_STATICEDGE
   CONTROL ADD BUTTON,    hDlg, %IDCLOSE, "Exit", 0, 592, 120, 40, %WS_CHILD _
      OR %WS_VISIBLE OR %WS_TABSTOP OR %BS_TEXT OR %BS_PUSHLIKE OR _
      %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR _
      %WS_EX_LTRREADING
   CONTROL ADD BUTTON,    hDlg, %IDC_OpenFile, "Open File", 0, 0, 120, 40
   CONTROL ADD BUTTON,    hDlg, %IDC_SaveFile, "Save File", 0, 40, 120, 40
   CONTROL ADD STATUSBAR, hDlg, %IDC_STATUSBAR1, "", 0, 640, 800, 16

   FONT NEW "Tengwar Quenya", 8, 0, %ANSI_CHARSET TO hFont1

   CONTROL SET FONT hDlg, %IDC_GRAPHICPortal, hFont1
#PBFORMS END DIALOG
   hDC = GetDC(hGLGraphic)
   STATUSBAR SET PARTS hDlg, %IDC_STATUSBAR1, 150, 150, 9999


   DIALOG SHOW MODAL hDlg, CALL ShowOGLEBSProc TO lRslt

#PBFORMS BEGIN CLEANUP %IDD_OGLEBS
   FONT END hFont1
#PBFORMS END CLEANUP
   zhDlg = hDlg
   FUNCTION = lRslt
END FUNCTION
'------------------------------------------------------------------------------


[David Boytor]

Börje,

That works for non-Graphic Control.  Thanks.
sometimes staring at code too long ya see things ya shouldn't!!!!


Back to the blackboard the size of eternity!!!!

[David Boytor]

if ya can help me by letting me know what is need to get the mouse cursor location to work while the mouse pointer is over the graphic control, tis would be very appreciated,

thanks