QMed_GetAreaFlags

QMed_GetAreaFlags(areaRef; areaFlags):error
	areaRef	Longint	QMedical area reference
	areaFlags	Longint	Area flags
	error	Longint	Error result

Returns various configuration options of a QMedical plug-in area.

The QMedical plug-in area is specified by areaRef. If areaRef is not a valid QMedical plug-in area reference, qmed_paramErr is returned.

Parameter areaFlags receives a set of flags. The received value can be tested for specific options by bitwise "and" of any of the mask constants. Alternatively, you can test individual bits of the areaFlags parameter using 4D's "Bit test" (??) bitwise operator. Use the flag constants to address specific flags:

qmed_ModifiableFlag	2	Modifiable area content
qmed_TabableFlag	3	Tabable area
qmed_HideHorzScrollFlag	5	Hide horizontal scrollbar
qmed_HideVertScrollFlag	6	Hide vertical scrollbar
qmed_PropScrollbarsFlag	9	Use proportional scrollbars
qmed_LiveScrollingFlag	10	Enable live scrolling
qmed_ModifiableMask	0x0004	Mask for modifiable area property
qmed_TabableMask	0x0008	Mask for tabable property
qmed_HideHorzScrollMask	0x0020	Mask for hiding horizontal scrollbar
qmed_HideVertScrollMask	0x0040	Mask for hiding vertical scrollbar
qmed_PropScrollbarsMask	0x0200	Mask for using proportional scrollbars
qmed_LiveScrollingMask	0x0400	Mask for enabling live scrolling
qmed_SmoothZoomingFlag	11	Smooth zooming
qpx_SmoothZoomingMask	0x0800	Mask for smooth zooming

Example

  `Toggle the "modifiable" flag

C_LONGINT($error)
C_LONGINT($areaFlags)

$error:=QMed_GetAreaFlags (gAreaRef;$areaFlags)

If ($error=qmed_noErr)

  If ($areaFlags ?? qmed_ModifiableFlag)
    $areaFlags:=$areaFlags ?- qmed_ModifiableFlag
  Else
    $areaFlags:=$areaFlags ?+ qmed_ModifiableFlag
  End if

  $error:=QMed_SetAreaFlags (gAreaRef;$areaFlags)

End if

Related commands

QMed_SetAreaFlags

Configures various options of a QMedical plug-in area