It works when embedded in a form (container). Does not work when instantiating directly.
Thx.
>This code works fine for me:
>>frmMyForm = CREATEOBJECT("Form")
>
>FrmMyForm.AddObject("oleObject1","oleComDialObject")
> WITH FrmMyForm.OleObject1
> .SetOptions()
> .showopen()
> ?.FileName
> ENDWITH
>DEFINE CLASS oleComDialObject as OLEControl
> OleClass ="MSComDlg.CommonDialog.1"
> PROCEDURE SetOptions
> #define COMMDLOG_DEFAULT_FLAG 0x00080000
> #define COMMDLOG_RO 4
> #define COMMDLOG_MULTFILES 512
>
> This.Flags = COMMDLOG_DEFAULT_FLAG + COMMDLOG_RO + COMMDLOG_MULTFILES
> This.FileName = "*.seq"
> This.filter = "Stratus Log files|*.seq"
> ENDPROC
>ENDDEFINE
>
