Here is an example first produced in DlgMaker and then modified with Ketil Olsen's RESED. For a minor twiddle, the window type is changed to WS_OVERLAPPEDWINDOW which makes the window sizeable. Then a status bar is added from the left side toolbar. As the window is now sizeable, the code,
Case %WM_SIZE
MoveWindow hSbar,0,0,0,0,%TRUE
is added so that the status bar is always located at the bottom of the window.
The menu is code added to the RC script file.
50 MENUEX
BEGIN
POPUP "&File"
BEGIN
MENUITEM "&Exit",102
END
POPUP "&Help"
BEGIN
MENUITEM "&About",101
END
END
The menu is activated by the following code.
hMnu = LoadMenu(hInstance,ByVal 50)
SetMenu hWnd, hMnu
For very simple code, you get a sizeable working window that is 11264 bytes in size as a base to design a window based application.
When Bob Zale added the DDT capacity to PowerBASIC, he pointed it at folks who had come from a MS-DOS background and many people have been able to write working UI applications using DDT but it needs to be recognised that it was a technique aimed as a bridge for folks who came from the MS-DOS era, not as a replacement for system wide windows code, the Application Programming Interface.
For people who have already developed the UI skills using DDT, this is the next step, using the full Windows API to create their own UI and pick up all of the advantages of power and efficiency.