ObjectDCL Banner

PictureBox_DrawHatchRect Method

Description

This method draws a hatched rectangle on the control. There are five styles of windows hatches available, an integer of 1 - 5 will indicate which one is to be drawn.

Parameters

MyControlReference
Reference to the control in the form of MyProject_MyForm_MyControl.
ProjectFile
String identifying the project as it was passed in LoadProject.
DialogName
String identifying the dialog by name.
ControlName
String identifying the control by name.
UpperLeftX
Integer specifying the upper left X-axis coordinate.
UpperLeftY
Integer specifying the upper left Y-axis coordinate.
Width
Integer specifying the width of the rectangle.
Height
Integer specifying the height of the rectangle.
Color
Color specifying the rectangle color.
HatchPattern
Integer specifying the hatch pattern.
  • 1 (Vertical lines)
  • 2 (Right slanted lines)
  • 3 (Left slanted lines)
  • 4 (Horizontal and vertical grid pattern)
  • 5 (Diagonal grid pattern)

Return Values

Returns the following according to the situation:

  • T when successful.
  • Nil if the control is not found or is not visible.

AutoLISP Syntax

The recommended convention is passing the control identifier directly:

CopyCode imageCopy Code
(Odcl_PictureBox_DrawHatchRect 
		MyControlReference [as Reference]
		(list 
			(list 
				UpperLeftX [as Integer]
				UpperLeftY [as Integer]
				Width [as Integer]
				Height [as Integer]
				Color [as Color]
				HatchPattern [as Integer]) 
			(list 
				UpperLeftX [as Integer]
				UpperLeftY [as Integer]
				Width [as Integer]
				Height [as Integer]
				Color [as Color]
				HatchPattern [as Integer]) 
			...
		)
	)

An alternative convention is to identify the control by providing the project file, the dialog name and the control name:

CopyCode imageCopy Code
(Odcl_PictureBox_DrawHatchRect
		ProjectFile [as String]
		DialogName [as String]
		ControlName [as String]
		(list 
			(list 
				UpperLeftX [as Integer]
				UpperLeftY [as Integer]
				Width [as Integer]
				Height [as Integer]
				Color [as Color]
				HatchPattern [as Integer]) 
			(list 
				UpperLeftX [as Integer]
				UpperLeftY [as Integer]
				Width [as Integer]
				Height [as Integer]
				Color [as Color]
				HatchPattern [as Integer]) 
			...
		)
	)

Remarks

This function requires that the component is showing. Otherwise it has no effect.

Please create lists as follows using the list keyword: 

(list (list x y ...) (list x y ...) ...)

It seems that ObjectARX does not always handle lists created as follows: 

'(x y ...) (x y ...) ...  

Applies For

PictureBox.

Example

CopyCode imageCopy Code
; Draw hatched rectangles
(Odcl_PictureBox_DrawHatchRect MyProject_MyForm_MyControl
		(list
			(list 0 0 50 50 -11 2)
			(list 50 50 50 50 -3 3)
		)
	)

See Also

PictureBox_DrawArc, PictureBox_DrawCircle, PictureBox_DrawEdge, PictureBox_DrawFillRect, PictureBox_DrawFocusRect, PictureBox_DrawLine, PictureBox_DrawPoint, PictureBox_DrawRect, PictureBox_DrawText, PictureBox_DrawWrappedText