PC Toledo

Código: Selecionar todos

#include "minigui.ch"

Function Main ()
   DEFINE WINDOW Form_1 ;
      AT 0,0 ;
      WIDTH 320 ;
      HEIGHT 240 ;
      TITLE "Janela sempre visível" ;
      MAIN ;
	  TOPMOST ;
	  NOMINIMIZE NOMAXIMIZE NOSIZE;
	  ON INTERACTIVECLOSE NAO_SAI();
	  ON LOSTFOCUS NAO_PERDE_FOCO()
	  
	  @ 10,10 TEXTBOX Text_1 VALUE ""       
 	  
	  DEFINE BUTTON Button_1
		ROW	148
		COL	140
		CAPTION '&Sair'
		WIDTH	74
		HEIGHT  23
		ACTION  ThisWindow.Release
		FONTNAME 'MS Sans Serif'
		FONTSIZE 9
	  END BUTTON

   END WINDOW
   CENTER WINDOW Form_1
   ACTIVATE WINDOW Form_1
Return Nil

Function NAO_SAI()
PlayAsterisk()
// MsgInfo("Não pode sair clicando no X")
Return .F.

Function NAO_PERDE_FOCO()
PlayAsterisk()
hWnd := FindWindow( "Janela sempre visível" )
Minimize( hWnd )
IF hWnd > 0
   IF IsIconic( hWnd )
      Restore( hWnd )
   ELSE
   	  SetForeGroundWindow( hWnd )
   ENDIF
ENDIF
SetCursorPos( 15+Form_1.Col+GetBorderWidth(), 20+Form_1.Row+GetTitleHeight()+GetBorderHeight() )
PressMouse(.t.)
Return .F.

#pragma BEGINDUMP

#define HB_OS_WIN_USED
#define _WIN32_WINNT 0x0400

#include <windows.h>
#include "hbapi.h"
#include "hbapiitm.h"

HB_FUNC( ISICONIC )
{
   hb_retl( IsIconic( ( HWND ) hb_parnl( 1 ) ) );
}

HB_FUNC ( FINDWINDOW )
{
   hb_retnl( ( LONG ) FindWindow( 0, hb_parc( 1 ) ) );
}

HB_FUNC( PRESSMOUSE )
/* 
Simula pressionamento dos botäes do mouse:
                                          .T. - Esquerdo
                                          .F. - Direito
*/ 
{ 
if ( hb_parl(1) )
   {
       mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) ;
       mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) ;
   }
else
   {
       mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0) ;
       mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0) ;
   }
}

#pragma ENDDUMP

Código: Selecionar todos

#include <hmg.ch>
#xtranslate VALID <condition> [ MESSAGE <message> ] => ON LOSTFOCUS _DoValid ( <condition> , <message> )

Memvar _HMG_IsValidInProgress

Function Main ()
Public _HMG_IsValidInProgress := .F.
DEFINE WINDOW Form_1 ;
   AT 0,0 ;
   WIDTH getdesktopwidth() ;
   HEIGHT getdesktopheight() ;
   TITLE "Janela principal" ;
   MAIN ;
  TOPMOST
  
  DEFINE BUTTON Button_2
	ROW	248
	COL	140
	CAPTION '&Outra janela'
	WIDTH	174
	HEIGHT  23
	ACTION  Chama_Nova()
	FONTNAME 'MS Sans Serif'
	FONTSIZE 9
  END BUTTON
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return Nil

Function Chama_Nova()
Local Validar:=.F.
DEFINE WINDOW Form_2 ;
      AT 10,10 ;
      WIDTH 232 ;
      HEIGHT 224 ;
      TITLE "Segunda Janela" ;
	  MODAL ;
	  NOSYSMENU
	  
	  @ 10, 10 TEXTBOX Text_1 ;
	    VALUE 0 ;
		NUMERIC ;
		VALID (If(Validar,This.Value > 0,.T.))
	  
	  @ 40, 15 CHECKBOX Check_1 ;
          OF Form_2;
          CAPTION "Validar campo" ;
          WIDTH 120 HEIGHT 30 ;
          VALUE .F. ;
		  ON GOTFOCUS Validar:=.F.;
		  ON CHANGE Validar:=This.Value
	  
	  @ 148,140 BUTTON Button_1 OF Form_2 ;
		CAPTION '&Ok' ;
		WIDTH	74 ;
		HEIGHT  23 ;
		ACTION  THISWINDOW.Release ;
		FONT 'MS Sans Serif' ;
		SIZE 9 
	  
END WINDOW
CENTER WINDOW Form_2
ACTIVATE WINDOW Form_2
Return nil

Function _DoValid ( Expression , Message )
If _HMG_IsValidInProgress
	Return Nil
Else
	If ValType ( Message ) = "U"
		Message := "Valor não aceitável"
	EndIf
	_HMG_IsValidInProgress := .T.
	If ( Expression , Nil , ( MsgStop ( Message, 'Erro' ) , This.SetFocus ) ) 
	_HMG_IsValidInProgress := .F.
EndIf
Return Nil