We are on programming a CID prg for Telephone Caller identification..
As you know, CID prg stay back and the users are on work with other software..
When there is phone Call, there should be "POP-UP" as following.
http://pharmalink.kr/images/stay_back1.jpg
But, in certain case, my "POP-UP" stay back behind other window...
http://pharmalink.kr/images/stay_back.jpg
How can I place my new "POP-UP" infront of any other window?
My prg starts as following..
Code: Select all | Expand
Main() DEFINE Window oWnd TITLE "Caller ID" ICON oIcon Menu BuildMenu() DEFINE BUTTONBAR oBar BUTTONSIZE 36, 36 3D TOP OF oWnd @ 0.4,220 say "" size 35, 18 of oBar DEFINE BUTTON oBtn resource "RED_1" of oBar ACTIVATE WINDOW oWndreturn nilFunction EventCall() //-- On evnet , Call Alarm() Alarm(Caller, Callee, cEvent, cCode) return nilFunction Alarm( Caller, Callee, cEvent, cCode) Local oDlg, oBrush, oCursor Local nPos Local aInfo, uReturn DEFINE BRUSH oBrush COLOR CLR_BLUE // Transparent painting ! DEFINE DIALOG oDlg ; FROM 0, nPos TO 132, nPos+370 ; STYLE WS_POPUP ; BRUSH oBrush PIXEL @ 19, 148 BUTTON "refuse(&X)" OF oDlg SIZE 30, 10 action (nDap:=200, oDlg:end()) PIXEL ACTIVATE DIALOG oDlg ; ON PAINT ( PalBmpDraw( oDlg:hDC, 0, 0, oBmp2:hBitmap, 0, 0, 0, SRCPAINT ),; PalBmpDraw( oDlg:hDC, 0, 0, oBmp1:hBitmap, 0, 0, 0, SRCAND ) ,; oDlg:Say( 43,147, aInfo[1,3],,, oFont,.t. ) ,oDlg:Say( 57, 147, aInfo[1,4],,, oFont, .T. )) ; ON LEFT CLICK (nDap:=100, oDlg:End()) ; ON INIT SetTransparent( oDlg )Return nil
Thanks..