FiveTech Software tech support forums

Posted: **Wed Aug 18, 2021 6:11 pm**

Hello friends,
here you see the first screenshot of the new WINHOTEL version.

Best regards,
Otto

WINHOTEL
From Metro style to the new WINDOWS11 style

WINHOTEL in the center
Integration of all WINHOTEL programs
Searchbar on top
Things with similar meanings kept together
Clean and smooth

As this is a dual version - mod harbour and FIVEWIN - we integrate our FIVEWIN programs similar WINDOWS 11 does with Android

viewtopic.php?f=45&t=40731

Posted: **Fri Aug 20, 2021 3:42 pm**

Otto,

Very impressive! Congrats.

Posted: **Fri Aug 20, 2021 5:10 pm**

Dear James,
Thank you for your kind words.

Interesting that there is nearly the same number of ICONS on both version.
I didn't have much user acceptance for this Metro style start screen.
Most users kept the WINDOWS 7 style.
I'm excited to see what my customers say to WiNDOWS 11 style.

But this time they get really an extra value.
This version will be dual.
WINHOTEL stays as users know, but the dashboard and start screen will be inside the web program.

The new parts I develop will be web only.
So, you work in localhost seamless on the same DBF files.

If the users wish, they can set up port forwarding and work from the internet in those new module, too.

It took me some time to find out how to know if you use WINHOTEL from localhost or over the internet.
Depending on, you get a different menu.
I post the code here.

Best regards,
Otto

Code: Select all | Expand



function View( cView )

   local cViewName := hb_GetEnv( "PRGPATH" ) + "/views/" + cView + ".view" 
   local lFound    := File( cViewName )
   local cData
   
  
   if ( "menu" $ cView)
      If( AP_UserIp() == "::1")  .OR. ( AP_UserIp() == "127.0.0.1")
         //running in localhost
         cViewName := hb_GetEnv( "PRGPATH" ) + "/views/" + "menulocal" + ".view" 
     
      endif   

   endif  
   
   if lFound
      cData = MemoRead( cViewName )
      while ReplaceBlocks( @cData, "{{", "}}" )
      end
   else
      cData = "<h2>" + cViewName + " not found!</h2>" 
   endif    
return cData

FiveTech Software tech support forums

Windows 11 style

Windows 11 style

Re: Windows 11 style

Re: Windows 11 style