Page History
...
Blank_Struct(), Build_Struct(), Define_Struct, Var_To_Struct()
Example
| Code Block |
|---|
declare subroutine Set_Property, PrintDlg
declare function Struct_Len, Build_Struct
$insert Logical
/* The Windows API function PrintDlg() takes one parameter, a PRINTDLG structure,
and uses the information within it to display the standard print dialog.
The first element in the PRINTDLG structure is the size of the structure,
allowing the PrintDlg() function to be modified over the past decade
without breaking code that passes it earlier versions of the PRINTDLG */
lStructSize = Struct_Len("PRINTDLG")
printstruct = Build_Struct(lStructSize, ...)
/* since the printer dialog is being constructed in a DLL call,
block events from OpenInsight while the dialog is displayed */
Set_Property("SYSTEM", "MODAL", TRUE$)
PrintDlg(printstruct)
Set_Property("SYSTEM", "MODAL", FALSE$) |
