Window Maker Version 4

[hutch--]

I have done a number of updated in this later version, stripped the inline comments and slightly reformatted the side comments., The output is a window with a menu and status bar with user defined client area colour easily modified. Some of the internal code has been updated to reflect more modern tasks but the code is efficient and properly documented Microsoft API code.

To set it up you use the 4 text entry slots for the include path and required binaries and its good to go. I mainly use this tool for prototyping and instead of having to grind through a heap of boilerplate code, it will deliver a working window in seconds which is designed to be modified to suit the task at hand.

It is designed for PBWIN version 10 although it will probably run on version 9.

[jj2007]

Project.log:

Code: [Select]

Classic PowerBASIC for Windows
Classic PB/Win  Version 9.07
Copyright (c) 1996-2012 PowerBasic Inc.
Englewood, Florida USA
All Rights Reserved

Error 524 in Project.bas(34:027):  Undefined TYPE
Line 34:     LOCAL szClassName  as STRINGZ * 64

[hutch--]

Been a while since I used version 9.0.

Change "STRINGZ" to "ASCIIZ" and see if it runs.

[HSE]

Change "STRINGZ" to "ASCIIZ" and see if it runs.

[jj2007]

Change "STRINGZ" to "ASCIIZ" and see if it runs.

Yep, that works, for me and HSE

Maybe a little check to set the default include & exe etc paths? The exit code is the version number:

Code: [Select]

include \masm32\MasmBasic\MasmBasic.inc
  Init
  GetRegKeyArray "HKCU\Software\PowerBASIC\PB/Win", pb$()
  For_ ecx=0 To eax-1
.if Val(pb$(ecx))>edi
xchg eax, edi
mov esi, pb$(ecx)
.endif
  Next
  Print Str$("You have got version %i, and your compiler sits at ", edi), GetRegVal(Cat$("HKCU\Software\PowerBASIC\PB/Win\"+esi+"\Compiler"), "Compiler", "Test"), CrLf$
EndOfCode edi
Output:

Code: [Select]

You have got version 9, and your compiler sits at J:\PowerBasic\bin\PBWin.exe

[bobl]

Thank you very much for this.