ObjectDCL Banner

PictureBox_DrawEdge Method

Description

This method draws various standard windows control borders. Color control is automatically handled by this method.

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.
BorderFlag
Integer specifying the border style.
  • 1 (Raised Inner-border)
  • 2 (Sunken inner-border)
  • 3 (Raised outer-border)
  • 4 (Edge bump)
  • 5 (Edge etched)
  • 6 (Edge raised)
  • 7 (Edge sunken)

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_DrawEdge 
		MyControlReference [as Reference]
		(list 
			(list 
				UpperLeftX [as Integer]
				UpperLeftY [as Integer]
				Width [as Integer]
				Height [as Integer]
				BorderFlag [as Integer]) 
			(list 
				UpperLeftX [as Integer]
				UpperLeftY [as Integer]
				Width [as Integer]
				Height [as Integer]
				BorderFlag [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_DrawEdge
		ProjectFile [as String]
		DialogName [as String]
		ControlName [as String]
		(list 
			(list 
				UpperLeftX [as Integer]
				UpperLeftY [as Integer]
				Width [as Integer]
				Height [as Integer]
				BorderFlag [as Integer]) 
			(list 
				UpperLeftX [as Integer]
				UpperLeftY [as Integer]
				Width [as Integer]
				Height [as Integer]
				BorderFlag [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 edges
(Odcl_PictureBox_DrawEdge MyProject_MyForm_MyControl
		(list
			(list 0 0 50 50 1)
			(list 50 50 50 50 3)
		)
	)

See Also

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