Jump to content
Sign in to follow this  
rory

CenterV2 Full Screen Mode?

Recommended Posts

Anyone know if there is a "hidden" setting for full screen in CenterV2?

Why they dont have a CenterV3 or V4 now???

Ive tried 8.33 and 8.4 versions of CenterV2 and cant find a full screen option anywhere.

The layouts are pretty limited too and depend on the screen resolution.

I made a hack that makes its own full screen mode but before I clean it up and release it, need to know if there is a setting hidden somewhere for this already.

 

Thanks.

Share this post


Link to post
Share on other sites

Ok anyway .. if I can find out that will be great ..

Im doing this for a client right now anyway ...

 

meanwhile here is hack #1 (tested on XP only)

 

The trick is simple:

Your current screen resolution needs to be 1280x1024 or higher, set the CenterV2 resolution to 1024x768, Event Log Floating to the right, then change your screen resolution to 1024x768.

 

I made a program that will do this automatically, called XCV2.

Just put this in the CenterV2 folder and run this instead of CenterV2.exe.

This was tested with CenterV2 version 8.4 (not included).

 

Sample Screenshot: 1024x768

XCV2-1.jpg

 

How it works

• Closes CenterV2 if its running

• Updates the GeoCSvr.ini file to resolution of 0 (1024x768)

• Updates the registry to ELPos of 0 (Event log on right) and Twinview of 1 (Event log floating)

• Resizes display to 1280x1024 - if we stay in 1024x768, when CenterV2 starts it will show the Event log at the bottom and non floating no matter what is set in the INI or Registry. I could resize to any higher res for this hack to work but 1280x1024 is a standard that most monitors support. If its already 1280x1024 then it wont resize.

• Start CenterV2

• Waits for the Eventlog window to appear so it can hide it (I use 2 timers, CenterV2 is a tricky app). Got approx 10 seconds max until it times out and the program exits if it cant find the window.

• Resizes the resolution to 1024x768

• CenterV2 should now cover the entire screen without any event log and have a 9, 25, and 36 way view with the control box at the right.

 

Terms

This is free software and we are not to be held responsible nor liable for damage from

the use or misuse of this software.

 

Requirements

Requires a Windows Operating System with Visual Basic 6 Runtimes

Requires Geovision CenterV2. Tested on XP SP3 with CenterV2 8.4

 

Download File

Download Now (40KB)

 

NOTE:

If you need to run CenterV2 under a user account you will get an error message.

To auto run it as an admin every time create a simple batch file or use the following:

 

Create New Text Document, right click EDIT.

Paste the following into it and change the Admin user and pass to your own.

Close and it will ask to save it, rename it something like USERRUN.vbs to the CenterV2 path.

Run that under the user account instead of XCV2.exe (XCV2.exe must be in the CenterV2 folder)

 

You can download the both the EXE and ready made VBS here:

Download Now (12KB)

 

USERRUN.vbs

'----------------------------
'// ADMIN USER & PASSWORD  //
'----------------------------
Const USER = "Admin"
Const PASS = "123"

'----------------------------
'// DONT CHANGE BELOW HERE //
'----------------------------

Call Run(ScriptPath & "\XCV2.exe","",USER,PASS)

Sub Run(sExe,sCmds,sUser,sPass)
   Dim WshShell, WshEnv
   Set WshShell = CreateObject("WScript.Shell")
   set WshEnv = WshShell.Environment("Process")
   If LenB(sUser)=0 Or LenB(sPass)=0 Then
       WshShell.Run ShortPath(sExe) & sCmds
   Else
       WshShell.Run "runas /user:" & sUser & " " & CHR(34) & ShortPath(sExe) & sCmds & CHR(34)
       Wscript.Sleep 30
       WshShell.AppActivate WshEnv("SystemRoot")&"\System32\runas.exe"
       WshShell.SendKeys sPass
       WshShell.SendKeys "{ENTER}"
   End If
   Set WshShell=Nothing
   Set WshEnv=Nothing
End Sub
Function ShortPath(filespec)
   Dim fs, f
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set f = fs.GetFile(filespec)
   ShortPath = UCase(f.ShortPath)
   Set f = Nothing
   Set fs = Nothing
End Function
Function ScriptPath()
   ScriptPath = CreateObject("Scripting.FileSystemObject")._
   GetParentFolderName(Wscript.ScriptFullName)
End Function

 

Original Page:

http://www.bahamassecurity.com/software/geovision-software/centerv2-fullscreen.asp

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×