Using PwrDev for non-PwrDev projects

[Edwin Knoppert]

This topic on my board explains how you can use PwrDev for non-PwrDev projects.
This means you can prepare DDT dialogforms for another programmer or maybe for a project which is not maintained with PwrDev at all.

The following link simply explains the menu's to choose and what it results in:
http://www.hellobasic.com/cgi-bin/fo...num=1255900536

The following code is the final generated code but the hex part was excluded to keep it small.
In practise, that hex part should be maintained in the target module and is 'dead code' for the compiler (excluded with #if 0 / #endif)

' Code generated with PwrDev v2.0.3.0, 2009-10-18, 23:12

#Compile Exe
#Dim All
#Include "win32api.inc"

'# PwrDev embedded forms, PART1_BEGIN
%ID_FORM1_CHECKBOX1 = 100
%ID_FORM2_BUTTON1 = 100

Function Form1_Load( Optional ByVal hWndParent As Long, ByVal bShowModal As Long ) As Long
    Local hDlg As Long, hr As Long
    Dialog New hWndParent, "Form1",,,293,106,282001408,0, To hDlg
    If hDlg = 0 Then Exit Function
    Control Add "Button", hDlg, 100, "CheckBox1", 16, 10, 65, 20, %WS_CHILD Or %WS_TABSTOP Or %WS_VISIBLE Or %BS_AUTOCHECKBOX Or %BS_LEFT Or %BS_VCENTER Or %BS_MULTILINE, 0
    If bShowModal Then Dialog Show Modal hDlg Call Form1_Proc To hr Else hr = hDlg
    Function = hr
End Function

Function Form2_Load( Optional ByVal hWndParent As Long, ByVal bShowModal As Long ) As Long
    Local hDlg As Long, hr As Long
    Dialog New hWndParent, "Form2",,,282,130,282001408,0, To hDlg
    If hDlg = 0 Then Exit Function
    Control Add "Button", hDlg, 100, "Button1", 17, 10, 67, 21, %WS_CHILD Or %WS_TABSTOP Or %WS_VISIBLE Or %BS_NOTIFY Or %BS_CENTER Or %BS_VCENTER Or %BS_MULTILINE, 0
    If bShowModal Then Dialog Show Modal hDlg Call Form2_Proc To hr Else hr = hDlg
    Function = hr
End Function

'# PwrDev embedded forms, PART1_END

CallBack Function Form1_Proc() As Long
End Function

CallBack Function Form2_Proc() As Long
End Function


Function PbMain() As Long

    Local hr As Long

    hr = Form1_Load( 0, 1 )

End Function

The part between the remarks is the part which can be updated by PwrDev.
That means the form load procedures and the updated hex part (which is not shown here)