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.
Hello Theo,
look today. How many bugs removed.
Greetings Peter
Found the first error
"DIALOG UNITS CB.HNDL xx, yy TO PIXELS xp, yp" swapped x and y Parameters
#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
'------------------------------------------------------------------------------
Hi Jim,
it does not work properly even swapped x and y is in your example!
regards Peter
Quote from: Theo Gottwald on March 27, 2013, 07:48:47 PM
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.
QuoteI understand that you're trying to be supportive,
You will have to forgive Theo. If PowerBASIC had a
mascot, Theo would be it. :D
:-X
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. :-)
Quote
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.
QuoteI'd even do it with John ....
Is there enough love to switch Karma stats with me? It's only a sign. ;)
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 ;D
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.
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
Peter of course you are right!
PS: What do you need DIALOG UNITS for? Use Pixels and stay conventional. ;D
QuoteYou 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. >:(
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.