Shape (Control: propiedades, métodos y eventos)

Propiedades

Application	BackColor	BackStyle
BaseClass	BorderColor	BorderStyle
BorderWidth	Class	ClassLibrary
ColorScheme	ColorSource	Comment
Curvature	DragIcon	DragMode
DrawMode	Enabled	FillColor
FillStyle	Height	HelpContextID
Left	MouseIcon	MousePointer
Name	OLEDragMode	OLEDragPicture
OLEDropEffects	OLEDropHasData (Propiedad)	OLEDropMode
Parent	ParentClass	SpecialEffect
Tag	ToolTipText	Top
Visible	WhatsThisHelpID	Width

Eventos

Click	DblClick	Destroy
DragDrop	DragOver	Error
Init	MiddleClick (Evento)	MouseDown
MouseEnter	MouseLeave	MouseMove
MouseUp	MouseWheel	OLECompleteDrag
OLEDragDrop	OLEDragOver	OLEGiveFeedBack
OLESetData	OLEStartDrag	RightClick
UIEnable

Métodos

AddProperty	CloneObject	Drag
Move	OLEDrag	ReadExpression
ReadMethod	ResetToDefault	SaveAsClass
ShowWhatsThis	WriteExpression	WriteMethod
ZOrder

Ejemplo

El ejemplo siguiente demuestra cómo puede utilizarse el control Shape para mostrar un círculo, una elipse o un cuadrado en un formulario.

Se crea un formulario y se incluyen varios botones de opción y un botón de comando. Al hacer clic en uno de los botones de opción se muestra la forma correspondiente en el formulario. La propiedad Visible se establece en el valor verdadero (.T.) para mostrar una forma y en el valor falso (.F.) para ocultar la forma antes de que se muestre otra forma distinta. Las propiedades Height, Width y Curvature de cada forma determinan el tipo de forma que se crea (círculo, elipse o cuadrado).

frmMyForm = CREATEOBJECT('Form')  && Create a Form
frmMyForm.Closable = .F.  && Disable the Control menu box 

frmMyForm.AddObject('cmdCommand1','cmdMyCmndBtn')  && Add Command button
frmMyForm.AddObject('opgOptionGroup1','opgMyOptGrp') && Add Option Group
frmMyForm.AddObject('shpCircle1','shpMyCircle')  && Add Circle Shape
frmMyForm.AddObject('shpEllipse1','shpMyEllipse')  && Add Ellipse Shape
frmMyForm.AddObject('shpSquare','shpMySquare')  && Add Box Shape

frmMyForm.cmdCommand1.Visible =.T.  && "Quit" Command button visible

frmMyForm.opgOptionGroup1.Buttons(1).Caption = "\<Circle"
frmMyForm.opgOptionGroup1.Buttons(2).Caption = "\<Ellipse"
frmMyForm.opgOptionGroup1.Buttons(3).Caption = "\<Square"
frmMyForm.opgOptionGroup1.SetAll("Width", 100) && Set Option group width
frmMyForm.opgOptionGroup1.Visible = .T.  && Option Group visible
frmMyForm.opgOptionGroup1.Click  && Show the circle

frmMyForm.SHOW  && Display the form
READ EVENTS  && Start event processing

DEFINE CLASS opgMyOptGrp AS OptionGroup  && Create an Option Group
   ButtonCount = 3  && Three Option buttons
   Top = 10
   Left = 10
   Height = 75
   Width = 100

   PROCEDURE Click 
      ThisForm.shpCircle1.Visible = .F.  && Hide the circle
      ThisForm.shpEllipse1.Visible = .F.  && Hide the ellipse
      ThisForm.shpSquare.Visible = .F.  && Hide the square
      
      DO CASE
         CASE ThisForm.opgOptionGroup1.Value = 1
            ThisForm.shpCircle1.Visible = .T. && Show the circle
         CASE ThisForm.opgOptionGroup1.Value = 2 
            ThisForm.shpEllipse1.Visible = .T.  && Show the ellipse
         CASE ThisForm.opgOptionGroup1.Value = 3 
            ThisForm.shpSquare.Visible = .T.  && Show the square
      ENDCASE
ENDDEFINE

DEFINE CLASS cmdMyCmndBtn AS CommandButton  && Create Command button
   Caption = '\<Quit'  && Caption on the Command button
   Cancel = .T.  && Default Cancel Command button (Esc)
   Left = 125  && Command button column
   Top = 210  && Command button row
   Height = 25  && Command button height

   PROCEDURE Click
      CLEAR EVENTS  && Stop event processing, close Form
ENDDEFINE

DEFINE CLASS shpMyCircle AS Shape  && Create a circle
   Top = 10
   Left = 200
   Width = 100
   Height = 100
   Curvature = 99
   BackColor = RGB(255,0,0)  && Red
ENDDEFINE

DEFINE CLASS shpMyEllipse AS Shape  && Create an ellipse
   Top = 35
   Left = 200
   Width = 100
   Height = 50
   Curvature = 99
   BackColor = RGB(0,128,0)  && Green
ENDDEFINE

DEFINE CLASS shpMySquare AS Shape  && Create a square
   Top = 10
   Left = 200
   Width = 100
   Height = 100
   Curvature = 0
   BackColor = RGB(0,0,255)  && Blue
ENDDEFINE

Vea también

Shape (Control) | CREATE CLASS | CREATE FORM | DEFINE CLASS