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)
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)
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:
' 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
That means the form load procedures and the updated hex part (which is not shown here)