Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
70
utile/GridExtras/sample.sc2
Normal file
70
utile/GridExtras/sample.sc2
Normal file
@@ -0,0 +1,70 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="sample.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
DataSource = .NULL.
|
||||
Height = 0
|
||||
Left = 0
|
||||
Name = "Dataenvironment"
|
||||
Top = 0
|
||||
Width = 0
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS form1 AS form
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
AutoCenter = .T.
|
||||
Caption = "GridExtras Sample"
|
||||
DoCreate = .T.
|
||||
Height = 480
|
||||
Name = "Form1"
|
||||
Width = 669
|
||||
WindowType = 1
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Grid1' AS grid WITH ;
|
||||
Anchor = 15, ;
|
||||
Height = 480, ;
|
||||
HighlightBackColor = 255,255,128, ;
|
||||
HighlightForeColor = 0,0,0, ;
|
||||
HighlightStyle = 2, ;
|
||||
Left = 0, ;
|
||||
Name = "Grid1", ;
|
||||
Top = 0, ;
|
||||
Width = 669
|
||||
*< END OBJECT: BaseClass="grid" />
|
||||
|
||||
ADD OBJECT 'Gridextra1' AS gridextra WITH ;
|
||||
Height = 17, ;
|
||||
Left = 102, ;
|
||||
Name = "Gridextra1", ;
|
||||
Top = 73, ;
|
||||
Width = 28
|
||||
*< END OBJECT: ClassLib="gridextras.vcx" BaseClass="custom" />
|
||||
|
||||
PROCEDURE Destroy
|
||||
USE IN SELECT("customers")
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
thisform.gridextra1.setup()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Load
|
||||
USE (HOME(2) + "Northwind\customers.dbf") IN 0 SHARED
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
Reference in New Issue
Block a user