eib_hmg.prg

*-----------------------------------------------------------------------------*
#include "eib_hmg.ch"
*-----------------------------------------------------------------------------*


*-----------------------------------------------------------------------------*
PROCEDURE Main()
*-----------------------------------------------------------------------------*

  MEMVAR APP_ROW
  MEMVAR APP_COL
  MEMVAR APP_HEIGHT
  MEMVAR APP_WIDTH
  
  MEMVAR APP_ADJUST_X
  MEMVAR APP_ADJUST_Y
  
  MEMVAR fARIAL
  MEMVAR fCOURIER
  MEMVAR fTIMES
  MEMVAR fTAHOMA
  MEMVAR fCALIBRI

  MEMVAR aDataBase

  MEMVAR nPage

  PUBLIC APP_ROW
  PUBLIC APP_COL
  PUBLIC APP_HEIGHT
  PUBLIC APP_WIDTH

  PUBLIC APP_ADJUST_X
  PUBLIC APP_ADJUST_Y

  PUBLIC fARIAL
  PUBLIC fCOURIER
  PUBLIC fTIMES
  PUBLIC fTAHOMA
  PUBLIC fCALIBRI

  PUBLIC aDataBase
  PUBLIC nPage


#IFDEF _HMG_3_
                    
  REQUEST HB_CODEPAGE_PLWIN     
  HB_SETCODEPAGE("PLWIN")    
 
  REQUEST HB_LANG_PL   
  HB_LANGSELECT("PL")
 
  SET LANGUAGE TO POLISH 
  SET CODEPAGE TO POLISH

#ENDIF


  SETCANCEL( FALSE )
  SET DELETED ON

  SETCANCEL(FALSE)
  SET DELETED ON

  SET SCOREBOARD OFF
  SET CENTURY ON
  SET EPOCH TO 2001
  SET DECIMALS TO 2
  SET EXACT ON
  SET FIXED ON
  SET OPTIMIZE ON

  SET DATE TO BRITISH


#IFDEF _HMG_2_

  SET INTERACTIVECLOSE OFF
  SET MULTIPLE  OFF

  SET TOOLTIP OFF

  SET PROGRAMMATICCHANGE OFF

  SET MENUSTYLE EXTENDED

  SET BROWSESYNC ON

#ENDIF


  ERRORLEVEL( 0 )

  aDataBase := {}
  nPage := 1


#IFDEF _HMG_3_

  APP_ROW    :=    0
  APP_COL    :=    0
  APP_HEIGHT := 1536 
  APP_WIDTH  :=  824

#ENDIF

  APP_ADJUST_X := 1
  APP_ADJUST_Y := 1


  aFrm := {}


  DO CASE

    CASE "Windows 10" $ OS()

      fARIAL   := 'Arial'
      fCOURIER := 'Courier New'
      fTAHOMA  := 'Tahoma'
      fTIMES   := 'Times New Roman'
      fCALIBRI := 'Calibri'

    CASE "Windows NT 10" $ OS()

      fARIAL   := 'Arial'
      fCOURIER := 'Courier New'
      fTAHOMA  := 'Tahoma'
      fTIMES   := 'Times New Roman'
      fCALIBRI := 'Calibri'

    CASE "Windows 8" $ OS()

      fARIAL   := 'Arial'
      fCOURIER := 'Courier New'
      fTAHOMA  := 'Tahoma'
      fTIMES   := 'Times New Roman'
      fCALIBRI := 'Calibri'

    CASE "Windows 7" $ OS()

      fARIAL   := 'Arial'
      fCOURIER := 'Courier New'
      fTAHOMA  := 'Tahoma'
      fTIMES   := 'Times New Roman'
      fCALIBRI := 'Calibri'

    CASE "Windows XP" $ OS()
      fARIAL   := 'Arial'
      fCOURIER := 'Courier New'
      fTAHOMA  := 'Tahoma'
      fTIMES   := 'Times New Roman'
      fCALIBRI := 'Calibri'

    CASE "Windows NT" $ OS()

      fARIAL   := 'Arial CE'
      fCOURIER := 'Courier New CE'
      fTAHOMA  := 'Times New Roman CE'
      fTIMES   := 'Times New Roman CE'
      fCALIBRI := 'Times New Roman CE'

    CASE "Windows 98" $ OS()

      fARIAL   := 'Arial'
      fCOURIER := 'Courier New'
      fTAHOMA  := 'Tahoma'
      fTIMES   := 'Times New Roman'
      fCALIBRI := 'Times New Roman'

  END CASE


  DECLARE WINDOW win_Main


  IF !IsWIndowDefined( win_Main )


#IFDEF _HMG_2_

    LOAD WINDOW eib_hmg2 AS win_Main

    settextboxcuebanner( "win_Main" , "txb_Name"    , " Nazwa instytucji (fragment)" )
    settextboxcuebanner( "win_Main" , "txb_Address" , " ulica (fragment)" )
    settextboxcuebanner( "win_Main" , "txb_Place"   , " miejscowoϾ (fragment)" )

#ENDIF


#IFDEF _HMG_3_

    LOAD WINDOW eib_hmg3 AS win_Main


    HMG_ChangeWindowStyle( win_Main.lbl_Name.HANDLE    , 0x00800200 , NIL , .F. , .T. )
    HMG_ChangeWindowStyle( win_Main.lbl_Address.HANDLE , 0x00800200 , NIL , .F. , .T. )
    HMG_ChangeWindowStyle( win_Main.lbl_Place.HANDLE   , 0x00800200 , NIL , .F. , .T. )

    EventProcessAllHookMessage( EventCreate( "LabelEventHandler" , win_Main.lbl_Name.HANDLE )    , .T.)
    EventProcessAllHookMessage( EventCreate( "LabelEventHandler" , win_Main.lbl_Address.HANDLE ) , .T.)
    EventProcessAllHookMessage( EventCreate( "LabelEventHandler" , win_Main.lbl_Place.HANDLE )   , .T.)


    HMG_ChangeWindowStyle( win_Main.lbl_First.HANDLE  , 0x00800200 , NIL, .F. , .T. )
    HMG_ChangeWindowStyle( win_Main.lbl_Prior.HANDLE  , 0x00800200 , NIL, .F. , .T. )
    HMG_ChangeWindowStyle( win_Main.lbl_Next.HANDLE   , 0x00800200 , NIL, .F. , .T. )
    HMG_ChangeWindowStyle( win_Main.lbl_Last.HANDLE   , 0x00800200 , NIL, .F. , .T. )

    EventProcessAllHookMessage( EventCreate( "LabelEventHandler" , win_Main.lbl_First.HANDLE ) , .T.)
    EventProcessAllHookMessage( EventCreate( "LabelEventHandler" , win_Main.lbl_Prior.HANDLE ) , .T.)
    EventProcessAllHookMessage( EventCreate( "LabelEventHandler" , win_Main.lbl_Next.HANDLE )  , .T.)
    EventProcessAllHookMessage( EventCreate( "LabelEventHandler" , win_Main.lbl_Last.HANDLE )  , .T.)


    SetCueBanner( GetControlHandle( "txb_Name"    , "win_Main" ) , " Nazwa instytucji (fragment)" , .F. )
    SetCueBanner( GetControlHandle( "txb_Address" , "win_Main" ) , " ulica (fragment)"            , .F. )
    SetCueBanner( GetControlHandle( "txb_Place"   , "win_Main" ) , " miejscowoϾ (fragment)"      , .F. )


#ENDIF


#IFDEF _HMG_2_

    Application.Title := NAZWA_PR
    win_Main.TitleBar := .F.
    win_Main.SysMenu  := .T.
    win_Main.Sizable  := .F.

#ENDIF


#IFDEF _HMG_3_

    win_Main.Title := NAZWA_PR

#ENDIF


#IFDEF _HMG_2_

    win_Main.btn_test.Hide
	
#ENDIF


    DO CASE 
	
      CASE GetDesktopRealHeight() == GetProperty( "win_Main" , "Height" ) ;
	       .AND. ;
		   GetDesktopRealWidth() == GetProperty( "win_Main" , "Width" )

//             win_Main.btn_Center.Hide
//             win_Main.btn_Max.Hide


      CASE GetDesktopRealHeight() < GetProperty( "win_Main" , "Height" ) ;
	       .AND. ;
		   GetDesktopRealWidth() < GetProperty( "win_Main" , "Width" )
		   
             APP_ADJUST_Y :=  GetDesktopRealHeight() / win_Main.Height
	         SetProperty( "win_Main" , "Height" , GetProperty( "win_Main" , "Height" ) * APP_ADJUST_Y )
	  
             APP_ADJUST_X := GetDesktopRealWidth() / win_Main.Width
             SetProperty( "win_Main" , "Width" , GetProperty( "win_Main" , "Width" ) * APP_ADJUST_X )
	   
//             win_Main.btn_Center.Hide
//             win_Main.btn_Max.Hide


      CASE GetDesktopRealHeight() > GetProperty( "win_Main" , "Height" ) ;
               .AND. ;
		   GetDesktopRealWidth() > GetProperty( "win_Main" , "Width" )
	   
//             win_Main.btn_Center.Show
		 
		 
    END CASE


    APP_ROW    := GetProperty( "win_Main" , "Row" )
    APP_COL    := GetProperty( "win_Main" , "Col" )
    APP_HEIGHT := win_Main.Height
    APP_WIDTH  := win_Main.Width

    AADD( aFrm , { "win_Main" , win_Main.Row , win_Main.Col } )
	
    ON KEY ALT+F4 OF win_Main ACTION { || EndOfProgram() }
	ON KEY F2     OF win_Main ACTION { || CenterMainWindow()    }

    SetProperty( "win_Main" , "btn_ExitPR" , "Action" , { || win_main_btn_ExitPr() } )
    SetProperty( "win_Main" , "btn_MinPR"  , "Action" , { || win_main_btn_MinPr()  } )

    win_Main.btn_DownloadCSV.Picture := 'APP_DOWN_20'  
    win_Main.btn_About.Picture       := 'APP_INFO_20' 
//    win_Main.btn_Center.Picture      := 'APP_CENT_20'
//    win_Main.btn_Max.Picture         := 'APP_MAXI_20' 
    win_Main.btn_MinPR.Picture       := 'APP_MINI_20'
    win_Main.btn_ExitPR.Picture      := 'APP_EXIT_20' 

    win_Main.Center
    win_Main.Activate

  ELSE

    win_Main.Show

  ENDIF

RETURN
*-----------------------------------------------------------------------------*


#IFDEF _HMG_2_
*-----------------------------------------------------------------------------*
FUNCTION settextboxcuebanner( cParent , cControl , cText )
*-----------------------------------------------------------------------------*

  sendmessagewidestring( GetControlHandle( cControl , cParent ) , EM_SETCUEBANNER , FALSE , cText )

RETURN NIL
*-----------------------------------------------------------------------------*
#ENDIF


#IFDEF _HMG_3_
*-----------------------------------------------------------------------------*
// http://www.hmgforum.com/viewtopic.php?f=9&t=4806
*-----------------------------------------------------------------------------*
FUNCTION LabelEventHandler()
*-----------------------------------------------------------------------------*

  STATIC lTracking := .F.
  LOCAL  nHWnd := EventHWND()
  LOCAL  nMsg  := EventMSG()
  LOCAL  cControl
  LOCAL  cForm


  SWITCH nMsg

    CASE WM_MOUSEMOVE


      IF ! lTracking

        GetControlNameByHandle( nHWnd , @cControl , @cForm )

        SetProperty( cForm , cControl , "FONTCOLOR" , { 255 , 255 , 255 } )
        SetProperty( cForm , cControl , "BACKCOLOR" , { 000 , 170 , 000 } )

        lTracking := TrackMouseEvent( nHWnd ) //TME_LEAVE is default flag

      ENDIF


      EXIT


    CASE WM_MOUSELEAVE

      GetControlNameByHandle( nHWnd , @cControl , @cForm )

      SetProperty( cForm , cControl , "FONTCOLOR" , { 000 , 170 , 000 } )
      SetProperty( cForm , cControl , "BACKCOLOR" , { 255 , 255 , 255 } )

      lTracking := .F.

      EXIT


  ENDSWITCH

RETURN NIL
*-----------------------------------------------------------------------------*



*-----------------------------------------------------------------------------*
#pragma BEGINDUMP

#include "SET_COMPILE_HMG_UNICODE.ch"
#include "HMG_UNICODE.h"

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

// https://msdn.microsoft.com/en-us/library/windows/desktop/ms646265(v=vs.85).aspx
// TrackMouseEvent(nHWnd, [nFlags], [nHoverTime]) --> lSuccess
HB_FUNC( TRACKMOUSEEVENT )
{
  TRACKMOUSEEVENT tmi;

  tmi.cbSize      = sizeof( TRACKMOUSEEVENT );
  tmi.dwFlags     = HB_ISNUM(3) ? (DWORD) hb_parni(2) : TME_LEAVE;
  tmi.hwndTrack   = (HWND) HMG_parnl(1);
  tmi.dwHoverTime = HB_ISNUM(3) ? (DWORD) hb_parni(3) : HOVER_DEFAULT;

  hb_retl(TrackMouseEvent(&tmi));
}

#pragma ENDDUMP
*-----------------------------------------------------------------------------*
#ENDIF


#IFDEF _HMG_3_
*-----------------------------------------------------------------------------*
// https://www.hmgforum.com/viewtopic.php?f=14&t=3945&p=36843

#pragma BEGINDUMP

#define COMPILE_HMG_UNICODE  // Remove this for ANSI building
#include <HMG_UNICODE.h>     // Remove this for ANSI building

#include <windows.h>
#include <commctrl.h>

#define EM_SETCUEBANNER  5377  // Set the cue banner with the lParm = LPCWSTR

HB_FUNC( SETCUEBANNER )                   // (nEditHandle, cMsg, lGetFocus) -> nil
{
   #ifdef UNICODE
      LPWSTR lpWCStr = HMG_parc(2) ;
   #else
      LPWSTR lpWCStr = (LPCWSTR) ( hb_parc(2) == NULL ) ? NULL : hb_mbtowc( (const char *) hb_parc(2) ) ;
   #endif
   SendMessage( (HWND) hb_parnl(1), EM_SETCUEBANNER, (WPARAM) hb_parl(3), (LPARAM) (LPCWSTR) lpWCStr ) ;
   SysFreeString( lpWCStr );
}

#pragma ENDDUMP
#ENDIF



*-----------------------------------------------------------------------------*
#include "eib_hmg_Events.prg"
*-----------------------------------------------------------------------------*


*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*