FiveTech Software tech support forums

Code: Select all

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 oWnd

return nil

Function EventCall()   //-- On evnet , Call Alarm()
  Alarm(Caller, Callee, cEvent, cCode) 
return nil

Function 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
 

Code: Select all

   DEFINE BRUSH oBrush COLOR CLR_BLUE 
   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 )                      //----------------Now...

         // ON INIT ( SetTransparent( oDlg ),   SetWindowPos( oDlg:hWnd, 0   , oDlg:nTop, oDlg:nLeft, 370, 132 ) )   //----> No change..
          //ON INIT  ( SetTransparent( oDlg ), SetForeGroundWindow( oDlg:hWnd ) )  //----? No Change also...
 

Code: Select all

    ACTIVATE DIALOG oDlg ON INIT SetWindowPos( oDlg:hWnd, -1, 0, 0, 0, 0, 3 )
 

Code: Select all

ACTIVATE WINDOW oWnd ON PAINT ( SetWindowPos( oWnd:hWnd, - 1, 0, 0, 0, 0, 3 ),;
                                oWnd:Refresh() )