PB 10.04 Update available !

[Theo Gottwald]

PB has announced a Service Pack for PowerBasic that updates it to version 10.04

This shows that PB is alive and that they got now control over the code.

Lets see how good the update is, and what the next steps are.

[Peter Weis]

Hello Theo,

look today. How many bugs removed.

Greetings Peter

[Peter Weis]

Found the first error

"DIALOG UNITS CB.HNDL xx, yy TO PIXELS xp, yp" swapped x and y Parameters

Code Select Expand


#PBFORMS CREATED V2.01
'------------------------------------------------------------------------------
' The first line in this file is a PB/Forms metastatement.
' It should ALWAYS be the first line of the file. Other
' PB/Forms metastatements are placed at the beginning and
' end of "Named Blocks" of code that should be edited
' with PBForms only. Do not manually edit or delete these
' metastatements or PB/Forms will not be able to reread
' the file correctly.  See the PB/Forms documentation for
' more information.
' Named blocks begin like this:    #PBFORMS BEGIN ...
' Named blocks end like this:      #PBFORMS END ...
' Other PB/Forms metastatements such as:
'     #PBFORMS DECLARATIONS
' are used by PB/Forms to insert additional code.
' Feel free to make changes anywhere else in the file.
'------------------------------------------------------------------------------

#COMPILE EXE
#DIM ALL

'------------------------------------------------------------------------------
'   ** Includes **
'------------------------------------------------------------------------------
#PBFORMS BEGIN INCLUDES
#INCLUDE ONCE "WIN32API.INC"
#PBFORMS END INCLUDES
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Constants **
'------------------------------------------------------------------------------
#PBFORMS BEGIN CONSTANTS
%IDD_DIALOG1 =  101
%IDC_BUTTON1 = 1001
%IDC_LABEL1  = 1002
#PBFORMS END CONSTANTS
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Declarations **
'------------------------------------------------------------------------------
DECLARE CALLBACK FUNCTION ShowDIALOG1Proc()
DECLARE FUNCTION ShowDIALOG1(BYVAL hParent AS DWORD) AS LONG
#PBFORMS DECLARATIONS
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Main Application Entry Point **
'------------------------------------------------------------------------------
FUNCTION PBMAIN()
    ShowDIALOG1 %HWND_DESKTOP
END FUNCTION
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** CallBacks **
'------------------------------------------------------------------------------
CALLBACK FUNCTION ShowDIALOG1Proc()
    STATIC xx, yy, xp, yp, xc, yc AS LONG

    SELECT CASE AS LONG CB.MSG
        CASE %WM_INITDIALOG





        CASE %WM_NCACTIVATE
            STATIC hWndSaveFocus AS DWORD
            IF ISFALSE CB.WPARAM THEN
                ' Save control focus
                hWndSaveFocus = GetFocus()
            ELSEIF hWndSaveFocus THEN
                ' Restore control focus
                SetFocus(hWndSaveFocus)
                hWndSaveFocus = 0
            END IF


        CASE %WM_PAINT



        CASE %WM_COMMAND
            ' Process control notifications
            SELECT CASE AS LONG CB.CTL
                ' /* Inserted by PB/Forms 11-02-2012 17:59:47
                CASE %IDC_BUTTON1
                    IF CB.CTLMSG = %BN_CLICKED OR CB.CTLMSG = 1 THEN
                        DIALOG GET SIZE CB.HNDL TO xx, yy
                        DIALOG UNITS CB.HNDL, xx, yy TO PIXELS xp, yp

                        LOCAL lprect AS Rect
                        GetWindowRect CB.HNDL, lprect

                        xc = lprect.Right- lprect.Left
                        yc = lprect.Bottom - lprect.Top

                        MSGBOX "xp with Dialog Units " + STR$(xp) + _
                        " xP with lprect.Right- lprect.Left " + STR$(xc) + CHR$(13) + _
                        " yp with Dialog Units " + STR$(yp) + _
                        " yP with  lprect.Bottom - lprect.Top" + STR$(yc)

                    END IF
                ' */


            END SELECT
    END SELECT
END FUNCTION
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Dialogs **
'------------------------------------------------------------------------------
FUNCTION ShowDIALOG1(BYVAL hParent AS DWORD) AS LONG
    LOCAL lRslt AS LONG

#PBFORMS BEGIN DIALOG %IDD_DIALOG1->->
    LOCAL hDlg   AS DWORD
    LOCAL hFont1 AS DWORD

    DIALOG NEW hParent, "Dialog1", 70, 70, 201, 121, %WS_POPUP OR %WS_BORDER _
        OR %WS_DLGFRAME OR %WS_SYSMENU OR %WS_CLIPSIBLINGS OR %WS_VISIBLE OR _
        %DS_MODALFRAME OR %DS_3DLOOK OR %DS_NOFAILCREATE OR %DS_SETFONT, _
        %WS_EX_CONTROLPARENT OR %WS_EX_LEFT OR %WS_EX_LTRREADING OR _
        %WS_EX_RIGHTSCROLLBAR, TO hDlg
    CONTROL ADD LABEL,  hDlg, %IDC_LABEL1, "Test Programm Dialog Units To " + _
        "Pixel", 5, 5, 178, 63
    CONTROL ADD BUTTON, hDlg, %IDC_BUTTON1, "Test", 66, 94, 50, 15

    FONT NEW "MS Sans Serif", 24, 0, %ANSI_CHARSET TO hFont1

    CONTROL SET FONT hDlg, %IDC_LABEL1, hFont1
#PBFORMS END DIALOG

    DIALOG SHOW MODAL hDlg, CALL ShowDIALOG1Proc TO lRslt

#PBFORMS BEGIN CLEANUP %IDD_DIALOG1
    FONT END hFont1
#PBFORMS END CLEANUP

    FUNCTION = lRslt
END FUNCTION
'------------------------------------------------------------------------------

                                                                                         


[Peter Weis]

Hi Jim,
it does not work properly even swapped x and y is in your example!

regards Peter

[Mike Stefanik]

This shows that PB is alive and that they got now control over the code.

I understand that you're trying to be supportive, but you might want to wait until it's actually been tested, and they provide some kind of changelog or release notes to let folks know what's been fixed, changed and/or new in the update.

[John Spikowski]

I understand that you're trying to be supportive,

You will have to forgive Theo. If PowerBASIC had a mascot, Theo would be it. 

[Patrice Terrier]

 

[Theo Gottwald]

We'll see ... as Mike said.
But as John noted, i am the one to give them a chance.
Every morning when i stand up, i give people a new chance.
I'd even do it with John .... who denies to be a PB Mascott. :-)

PowerBASIC Gazette #116

Subject: PowerBASIC Announcements


Dear Theo,

Spring is here and it is time to get crunching code!  What better way to do that than have the best possible tools at your disposal? 

We at PowerBASIC would like to announce that the next maintenance release is available for our flagship products:

PowerBASIC for Windows v10
PowerBASIC Console Compiler v6 for Windows.


The .04 releases fix many compiler issues and also contain a slightly different help interface (with improvements also made to some topics). The updates can be found in our forums under "Product Announcments". Some issues addressed include:

- Improvements to XPRINT, XPRINT PREVIEW
- IDE: Substantial enhancement of debug step speed. 
- Corrected display of some international characters. 
- Better symmetry during debugging.
- PowerThread, PowerTime and StringBuilder improvements.
- Enhancement to compiler .EXE to match changes in Windows updates.
- Array, and String handling enhancements.
- CON. And TXT. Pseudo objects improved
Many more improvements and fixes

Out of the latest PB Gazette.

[John Spikowski]

I'd even do it with John ....

Is there enough love to switch Karma stats with me?  It's only a sign. 

[Theo Gottwald]

I have given you one Applauf as a credit and now I'll be waiting for some valuable contributions.

You know Karma is not a question of love but of our good and bad things we do in live 

[Theo Gottwald]

Have just looked ... until now there are no large problems with the new update.
Only Peter complained that none of the bugs he had reported was removed.
I guess these bugs were too complex for the start.

[Peter Weis]

Hi Theo,
do not need thousands of new commands. But what the compiler has to commands should work properly.

the error in the "DIALOG UNITS CB.HNDL xx, yy TO PIXELS xp, yp" had not the version 9.03 and is only since version 9.04

regards Peter

[Theo Gottwald]

Peter of course you are right!

PS: What do you need DIALOG UNITS for? Use Pixels and stay conventional. 

[John Spikowski]

You know Karma is not a question of love but of our good and bad things we do in live

In my case someone yelled burn the witch and others gathered to watch the show. 

[Theo Gottwald]

Hehe ... you know "in Rome" the times are sometimes hard for the people in the center of interest :-).
You can get out of the Arena, if you deliver some qualty source code here ... best in PB of course.