Bring modal form to the top

[mol]

Hi!
I'm using modela forms, called one from another.
Sometimes last called form is hidden under previous.
Is it the way to bring last to be topmost?

[serge_girard]

I have had the same problems and therefore I don't use modal anymore...
Perhaps there is some bug in it?

Or some tricky coding behind it to get it well...? Claudio?

Serge

[AUGE_OHR]

hi,
i have never used a Modal Window but you can try "FindWindowA" an bring it ToFront

Code: Select all

Function toFront()
LOCAL cTitle  := "my Window Title"
LOCAL hWndDlg := DllCall( "User32.dll", DLL_STDCALL, "FindWindowA", 0, cTitle )
   IF !( hWndDlg == 0 )
      DllCall( "User32.dll", DLL_STDCALL, "SetForegroundWindow", hWndDlg )
      DllCall( "User32.dll", DLL_STDCALL, "BringWindowToTop", hWndDlg )
      DllCall( "User32.dll", DLL_STDCALL, "ShowWindow", hWndDlg, 1 )
      DllCall( "User32.dll", DLL_STDCALL, "UpdateWindow", hWndDlg )
   ENDIF
RETURN

[mol]

Thank you!
Why not modal? I think it's better than child or standard


PS.
I found another solution... but it sauses some problems while switching to another apps:

Code: Select all

SetWindowPos( MyForm.HANDLE, -1 , 0, 0, 0, 0, hb_bitOR( SWP_NOMOVE, SWP_NOSIZE ) )

[franco]

I use modal. I like it because it makes users in a network environment to finish what they doing before going somewhere else.
In my programs I make my starting program windows larger then any functions happening from these windows. This way a person can
see that there is a window before the window they are working in and can move the window see a window under it.
I would be nice at times like when in an invoice for a customer and wanting to know what what I sold an item to him before.
When in this situation I can start a new main program and go look then exit and come back to first program. I try to educate my users
to finish what they are doing before leaving the computer with locked files so nobody else can use them.

[mol]

Manipulating forms causes some problems in my app.
When I bring my form to the top, after switching to another application, my form is not covered by it. It's stressful when I center my app window, and try to print something from another - printing window is undelayed and unusable...

[mol]

I have another question
Did someone find a way to calorize TAB control? I'm using tab control, but I have an idea to use different back color for different pages..
Is it possible?

[AUGE_OHR]

hi,

Did someone find a way to calorize TAB control? I'm using tab control, but I have an idea to use different back color for different pages..
Is it possible?

YES, you need Ownerdraw (not sure how to do it in HMG) !

i made in XBase++ and Fivewin for "Dark Mode"

and use Icon for "active" TAB (which can also done under HMG )

here CODE, to change "active" TAB Icon, for HMG

Code: Select all

PROCEDURE Tab_Change_Icon( cParentForm, cControlName, nNo )
LOCAL nControlHandle
LOCAL xTab, nTab, Images, i, NoTrans := .F.
LOCAL aImages        := {}

   xTab := GetProperty( cParentForm, cControlName, "Value" )
   IF VALTYPE( xTab ) = "A"
      nTab := xTab[ 1 ]
   ELSE
      nTab := xTab
   ENDIF

   IF nNo = 2 // right side
      nDimRight := LEN( Stack_Right )
      FOR i := 1 TO nDimRight
         IF i = nTab
            AADD( aImages, "GRUENPUNKT" )
         ELSE
            AADD( aImages, "MYFIXDRIVE16" )
         ENDIF
      NEXT
   ELSE 
      nDimLeft := LEN( Stack_Left )
      FOR i := 1 TO nDimLeft
         IF i = nTab
            AADD( aImages, "GRUENPUNKT" )
         ELSE
            AADD( aImages, "MYFIXDRIVE16" )
         ENDIF
      NEXT
   ENDIF

   nControlHandle := GetControlHandle( cControlName, cParentForm )
   // not sure need to Destroy "old" Imagelist before
   IMAGELIST_DESTROY( nControlHandle )
   // will create own Imagelist and set TCM_SETIMAGELIST
   ADDTABBITMAP( nControlHandle, aImages, NoTrans ) // found in \SOURCE\h_tab.prg

RETURN

p.s. as i remember right there is a Class to Ownerdraw Button under HMG.

[mol]

thank you, I'll try!

[franco]

I can open 1,2,or3 of the same exe. I have the program on the start menu at bottom of screen. When I point on the program on the start
menu all programs show up. I just pick the started program I want to use. One program may be in customer file, one in inventory,
one in invoicing. Maybe this does not work for you. As I stated before I do not recommend this in a network because you could be locking
someone out of a file you have just sitting there.