Announcement

Collapse
No announcement yet.

Using PwrDev for non-PwrDev projects

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Using PwrDev for non-PwrDev projects

    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:
    ' 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)
    hellobasic
Working...
X