FiveTech Support Forums

Function XX( oDlg, oBCli_1, oBCli_2 )

   lapm := ANAM_08( oWnd, PVALORF, TCOD, TFIL, TUNID, TDATA, aJPG_1, n_1, aJPG_2, n_2 )

   ? lapm
   IF lapm
      Ficha_122( oDlg, oBCli_1 )
      Ficha_124( oDlg, oBCli_2 )
      lapm := .f.
      ? lapm
   EndIF

Return nil

//----------------------------------------------------------------------------------------------------//
Function Anam_08( oWnd, VALORF, COD, FIL, UNID, DATA, JPG_1, m_1, JPG_2, m_2 )

   aJPG_1 := JPG_1
   aJPG_2 := JPG_2
   n_1 := m_1
   n_2 := m_2
   nFator_1 := 9  // Se nFator_1 = 5, mostra foto com tamanho REAL
   nFator_2 := 9  // Se nFator_2 = 5, mostra foto com tamanho REAL
   lapm := .f.

   // Iniciando...
   //---------------------------------------------------------------------
   // "Escondendo a barra de tarefas"
   ShowWindow( FindWindow( 'Shell_TrayWnd', Nil ), SW_HIDE )
 
   //---- brush do fundo da janela principal
   DEFINE BRUSH oBrush COLOR nRGB(  49, 106, 197 )

   // definiciones de objetos icon y font
   DEFINE FONT oFont NAME "Arial" SIZE 0,-11

   MENU oMenu
   ENDMENU

   DEFINE WINDOW oAnam_08;
      FROM 00,00 TO ScreenHeight, ScreenWidth PIXEL;
      NOMAXIMIZE NOMINIMIZE;
      BRUSH oBrush;
      MENU oMenu

   //---------------------------------------------------------------------
   // Lado Esquerdo da Tela - oAct_1
   //---------------------------------------------------------------------
   oAct_1 := TActiveX():New( oAnam_08, "Ctrl.1", 1, 1, 400, 568 )

   oAct_1:bOnEvent := { | event, aParams, pParams | Event_Esq( event, aParams, pParams, oAct_1 ) }

   //---------------------------------------------------------------------
   // Lado Direito da Tela - oAct_2
   //---------------------------------------------------------------------
   oAct_2 := TActiveX():New( oAnam_08, "Ctrl.1", 1, 400, 400, 568 )

   oAct_2:bOnEvent := { | event, aParams, pParams | Event_Dir( event, aParams, pParams, oAct_2 ) }

   DEFINE MESSAGE BAR oMsg;
      OF oAnam_08 FONT oFont COLOR "R+/W" NOINSET

   //---------------------------------------------------------------------
   // Lado Esquerdo da Tela - oAct_1
   //---------------------------------------------------------------------

   // Encerrar Rotina
   DEFINE MSGITEM oMsgItem OF oMsg;
      PROMPT 'Encerrar';
      SIZE 65;
      ACTION( ShowWindow( FindWindow( 'Shell_TrayWnd', nil ), SW_SHOWNA ),;
              lapm := .t., oAnam_08:End() );
      TOOLTIP "Encerrar esta Rotina"

comandos...

   //-------------------------------------------------------------------------
   // Inicio dos Eventos do teclado
   //-------------------------------------------------------------------------

   oAnam_08:bKeyDown := { |nKey| IF( nKey = VK_ESCAPE,( AutResiz( .t., XY, oAnam_08, -1 ), oAnam_08:End() ), nil ) }

   //----------------------------------------------------------------------------------
   // Fim dos Eventos do teclado

   ACTIVATE WINDOW oAnam_08 MAXIMIZED;
      ON INIT( AutResiz( .t., XY, oAnam_08, YX ),; //   oAct_1 : Do( "LicenseKey", "5555" ),;
               SetWindowPos( oAnam_08:hwnd, -1, 0, 0, 0, 0, 3 ) )

   // Retornando...
   dbSelectArea( "FiMed" )
   dbGotop()

   oFont:End()

Return lapm