Re: Windows Programming With ActiveAda for Win32s

[jlo@east.thomsoft.com (John Lo)]

charliel@ansel.intersource.com (Charlie Lenahan) writes:

>We are trying to Use ActiveAda for Windows 5.1.3 to Create a Dialog Box. 
>Regular Windows Programming you must use a call to MakeProcINstance before you
>call CreateDialog(). How do you Get around this by using the address of the 
>callback function for that dialog box.
>
>Inst:Handle:=GetModuleHandle(C_NULL);
>
>DlgHnd:Hwnd;
>
>Dlgproc:lpvoid:=package.dlg_proc'address;
>
>prt : hwnd;
>
>begin
>
>prt := CreateWindowEx();
>
>dlghnd := CreateDialog(inst, CString("dialog_name"), prt, Convert(DlgProc));
>
>...
>
>end;
>
>.rc file ...
>DIALOG dialog_name ...
>
>This is the general concept we have been attempting.  The dlghnd is not created
>and a call to GetLastError returns 87 - Invalid Parameter.  What are we doing wrong???
>

I assume your stated .rc file content has a typo. It should be:
  dialog_name DIALOG ...

Anyway, I suspect you .rc file may #include a .h header file which defines 
dialog_name to some constant value, eg. "#define dialog_name 200". Thus the 
dialog template has the resource ID of 200 and not the C string "dialog_name".

To specify resource template ID of 200 in your call to CreateDialog, you need 
something like:

    function MAKEINTRESOURCE is
      new UNCHECKED_CONVERSION (INTEGER, LPCTSTR);

and then

    dlghnd := CreateDialog(inst, MAKEINTRESOURCE(200), prt, Convert(DlgProc));

Alternatively, if you remove "#define dialog_name 200" from you .h header 
file, the resource template ID will become "dialog_name" and your code should 
work as is.

John Lo