TinyPTC Ext

[Rbz]

Thanks rdc, works fine here, added it into the zip file.

[BadMrBox]

Hey all. Got tempted to test this new version of tinyptc so I decided to finally become a member of this board.
Great stuff rbraz!

[Shockwave]

  And thanks for your comments in the other FB sites on the gfx demos, it's nice to see you here. If you have any questions about anything at all you find on this site, please do not hesitate at all in asking. I have used Rbraz's library to release lots of demo scene productions, including this one DUTCH COLOURS - POUET which got a .90 average at Pouet which is really good going and shows how good this library is

[BadMrBox]

Thanks Shockwave. I'll let you know if there is something I dont figure out here

[Rbz]

  BadMrBox


Added a new feature to the library -> ptc_allowclose

With ptc_allowclose(0) command you will be able to disable tinyptc internal Escape key check. Use ptc_allowclose(1) to enable it again, just place this command before you open your window (ptc_open)

Here's a little example:

Code: [Select]

'
'
'  "ptc_setdialog" command test
'        by rbraz 2007
'
'
'-------------------------------------
' Includes.
'-------------------------------------
#include once "tinyptc_ext.bi"
#include "windows.bi"

dim shared buffer(640*480) as integer
dim text as string

text =  " ¤´¨) " & chr$(13)
text += " ¸.·´¸.·*´¨) ¸.·*¨)" & chr$(13)
text += "(¸.·´ (¸.·`¤... SHOCKWAVE ^ DBF ^ S!P ...¤" & chr$(13) & chr$(13) & chr$(13)
text += "FullScreen Mode ?"

ptc_setdialog(1,text,0)

ptc_allowclose(0) 'disable tinyptc to close on Escape Key press
'ptc_allowclose(1) 'enable tinyptc to close on Escape Key press

'Open TinyPTC window
If( ptc_open( "ptc_setdialog command test", 640, 480 ) = 0 ) Then
    End -1
End if


'Main Loop
'
' If you use ptc_allowclose(0)
'This app will only terminate if you press "F1" key

while(GetAsyncKeyState(VK_F1)<>-32767)
    ptc_update @buffer(0)
wend

ptc_close()


[Shockwave]

Thanks for the new feature Rbraz

[Rbz]

*Update*
"ptc_setdialog"  -> Added a new parameter to disable window border as Shockwave suggested.


Example:

Code: [Select]

'
'
'  "Borderless Window" command test
'        by rbraz 2007
'
'
'-------------------------------------
' Includes.
'-------------------------------------
#include "tinyptc_ext.bi"
#include "windows.bi"

dim shared buffer(640*480) as integer

'-------------------------------------------------------------------------------
'1st param. = Enable messagebox (dialog)
'2nd param. = Messagebox text
'3rd param. = Start in fullscreen or windowed mode if 1st param. is zero
'4th param. = Window normal border (0) or borderless (1)
ptc_setdialog(0,"",1,1)
'-------------------------------------------------------------------------------

ptc_allowclose(1) 'enable tinyptc_ext to close on Escape Key press

'Open TinyPTC window
If( ptc_open( "Borderless Window test", 640, 480 ) = 0 ) Then
    End -1
End if

dim i
for i=0 to 640*480
     buffer(i) = &h00334466
next

'Main Loop
while(1)
    ptc_update @buffer(0)
wend

ptc_close()


[Shockwave]

Works nice Rbraz

Beautiful!

[Jim]

I know I took this code out before, but it's been pointed out to me that handling the SC_SCREENSAVE WM_SYSCOMMAND message doesn't work on Vista any more.  Don't know why.

Rbraz, can you please add in the following to the startup and shutdown routines?

Code: [Select]

static BOOL screen_save_active;
static void disable_screensaver(void)
{
SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, &screen_save_active, 0);
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, FALSE, NULL, 0);

DWORD dwReturnValue;
SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, SPI_SETSCREENSAVEACTIVE, (LPARAM)"Desktop", SMTO_ABORTIFHUNG, 5000, &dwReturnValue);

SetThreadExecutionState(ES_DISPLAY_REQUIRED|ES_CONTINUOUS);
}

static void enable_screensaver(void)
{
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, screen_save_active, NULL, 0);
DWORD dwReturnValue;
SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, SPI_SETSCREENSAVEACTIVE, (LPARAM)"Desktop", SMTO_ABORTIFHUNG, 5000, &dwReturnValue);
}

This version is slightly more friendly than the one that was removed - it tells other apps that we've changed a setting, and restores the setting when we've finished.

Cheers!

Jim

[Rbz]

Ok Jim, I'll add that function, thanks.

[Rbz]

@Jim: I'm having troubles to compile it, freebasic refuse to include "SetThreadExecutionState", tried to include kernel32 lib ('$inclib: "kernel32") and #define WIN_INCLUDEALL, whitout success, it give this error:

Compiler output:
.//libtinyptc_ext.a(ddraw.o): In function `disable_screensaver':
E:/Programming/TinyPTC/Tinyptc_Library/devcpp/ddraw.c:70: undefined reference to `SetThreadExecutionState'

Results:
Compilation failed

System:
FBIde: 0.4.6
fbc:   FreeBASIC Compiler - Version 0.15 for win32 (target:win32)
OS:    Windows XP (build 2600, Service Pack 2)

Btw, I'm using the original source of tinyptc by gaffer, and to disable screensaver it use this:
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, 0, 0);
and to enable again:
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, 0, 0);
Have you checked if it's working?

[Jim]

I'll have a look.  For now, just remove the SetThreadExecutionState line.  You should still get the code to call SendMessageTimeout to notify other applications that you've changed a system setting, and the other code to preserve the existing state of that setting.  Gaffer's code assumes the screensaver is enabled before and after the app has run, which might not be true!

Jim

[Rbz]

*Updated*

Added Jim code to disable/enable screensaver, compatible with Vista, tested on WinXp sp2 too.

[Jim]

Thanks!

Jim

[WidowMaker [retired]]

Awesome work Rbraz. I use this.

[Jim]

Is it possible to add a function that will retrieve the HWND of the window opened by PTC?

Jim

[Shockwave]

Mouse functions?

These work well, I like the ability to be able to monitor the buttons and the position of the mouse, however in many things it would be preferable to have your own mouse pointer.

So with this in mind here is a test application..

(attached).

And the code:

Code: [Select]

'
' Mouse Test
'
    OPTION STATIC
    OPTION EXPLICIT

    #INCLUDE "TINYPTC_EXT.BI"
    #INCLUDE "WINDOWS.BI"
   
    CONST   XRES    =   800
    CONST   YRES    =   600
   
    DIM SHARED AS UINTEGER BUFFER ( XRES * YRES )
   
    PTC_ALLOWCLOSE(0)
    PTC_SETDIALOG(1,"Fullscreen?",0,1)                 
    IF (PTC_OPEN("OSUK",XRES,YRES)=0) THEN
    END-1
    END IF     

    DIM SHARED AS INTEGER MX,MY
   

WHILE(GETASYNCKEYSTATE(VK_ESCAPE)<> -32767)

    MX=PTC_GETMOUSEX()
    MY=PTC_GETMOUSEY()
   
    BUFFER(MX+(MY*XRES)) = &HFFFFFF
    PTC_UPDATE@BUFFER(0)
    ERASE BUFFER
   
WEND
   
    PTC_CLOSE()
    END

Please select fullscreen mode when you run it, then move the mouse around. I plot a dot at mouse x , mouse y

Now press Alt+tab to minimize the application.
Re-instate it and you see that the default mouse pointer is being displayed.

How do you turn off the mouse pointer so this cannot happen please?

Also the default pointer is visible in windowed mode, again it would be nice to be able to turn this off.

Cheers if you can help!

[benny!]

Do not know FreeBasic - do you have access to the WinAPI functions
If so, you may try ShowCursor(bool) function from user32.dll.
Maybe this helps out!

[Shockwave]

Good tip Benny
Worked first time.

After including windows.bi

Code: [Select]

dim as integer mouse   
mouse=ShowCursor(0)

Have some good Karma Benny

[benny!]

Thanks mate - glad that it works !!!