140 lines
3.4 KiB
Plaintext
140 lines
3.4 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.19" SourceFile="classlib_method_order_bug_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
DEFINE CLASS grdbase AS grid
|
|
*< CLASSDATA: Baseclass="grid" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Column1.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Column1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Column2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Column2.Text1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: canresort
|
|
*m: commoncolumnclick && Generic column click handler
|
|
*m: createtag && Create a grid indexd tag for sorting
|
|
*m: resizecover
|
|
*m: visible_assign
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
ColumnCount = 2
|
|
Height = 200
|
|
Name = "grdbase"
|
|
Width = 320
|
|
Column1.Name = "Column1"
|
|
Column2.Name = "Column2"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Column1.Header1' AS header WITH ;
|
|
Caption = "Header1", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Column1.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Column2.Header1' AS header WITH ;
|
|
Caption = "Header1", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Column2.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE canresort
|
|
*
|
|
* CanResort
|
|
*
|
|
RETURN .T.
|
|
ENDPROC
|
|
|
|
PROCEDURE Click
|
|
*
|
|
* Do some things here
|
|
*
|
|
DODEFAULT()
|
|
ENDPROC
|
|
|
|
PROCEDURE commoncolumnclick && Generic column click handler
|
|
*
|
|
* Common behavior when clicked
|
|
*
|
|
LPARAMETERS toColumn
|
|
ENDPROC
|
|
|
|
PROCEDURE createtag && Create a grid indexd tag for sorting
|
|
*
|
|
* Index on each column's ControlSource
|
|
*
|
|
ENDPROC
|
|
|
|
PROCEDURE DblClick
|
|
*
|
|
* Double-clicked!
|
|
*
|
|
RETURN DODEFAULT()
|
|
ENDPROC
|
|
|
|
PROCEDURE Destroy
|
|
*
|
|
* Destroy the grid
|
|
*
|
|
RETURN .T.
|
|
ENDPROC
|
|
|
|
PROCEDURE Resize
|
|
*
|
|
* React to resizing the grid
|
|
*
|
|
ENDPROC
|
|
|
|
PROCEDURE resizecover
|
|
*
|
|
* ResizeCover if one exists
|
|
*
|
|
ENDPROC
|
|
|
|
PROCEDURE visible_assign
|
|
LPARAMETERS vNewVal
|
|
*To do: Modify this routine for the Assign method
|
|
THIS.Visible = m.vNewVal
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE When
|
|
*
|
|
* When what?
|
|
*
|
|
ENDPROC
|
|
|
|
PROCEDURE Column1.Text1.Click
|
|
*
|
|
* Call common method
|
|
*
|
|
this.Parent.Parent.commoncolumnclick(this)
|
|
ENDPROC
|
|
|
|
PROCEDURE Column2.Text1.Click
|
|
*
|
|
* Call common method
|
|
*
|
|
this.Parent.Parent.commoncolumnclick(this)
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|