romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 277 fdbozzo - 05/06/2014 20:00:58:

Browse Source
This commit is contained in:
fdbozzo
2014-06-05 20:52:55 +02:00
parent 47cdc0c7d7
commit ffb449e170
6 changed files with 128 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
TESTS/DATOS_READONLY/lib_controles.vc2
View File

@@ -4895,6 +4895,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Cl_image1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_grid1.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cl_grid1.Column6.Text1" UniqueID="" Timestamp="" />
@@ -4919,6 +4920,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
*< OBJECTDATA: ObjPath="pgf.Page1.timer" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgf.Page1.Pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgf.Page1.Cl_optiongroup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: add_control
@@ -5032,7 +5034,7 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
cmdCapturar.RightToLeft = .F.
cmdCapturar.Top = 392
cmdCapturar.Width = 212
Edit1.Height = 356
Edit1.Height = 144
Edit1.Left = 764
Edit1.Name = "Edit1"
Edit1.RightToLeft = .F.
@@ -5563,6 +5565,50 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Cl_image1' AS cl_image WITH ;
Anchor = 0, ;
BackStyle = 1, ;
BorderColor = 100,100,100, ;
BorderStyle = 0, ;
ColorSource = 4, ;
Comment = "", ;
DragIcon = ..\..\, ;
DragMode = 0, ;
Enabled = .T., ;
Height = 104, ;
HelpContextID = 0, ;
Left = 764, ;
MouseIcon = ..\..\, ;
MousePointer = 0, ;
Name = "Cl_image1", ;
OLEDragMode = 0, ;
OLEDragPicture = ..\..\, ;
OLEDropEffects = 3, ;
OLEDropMode = 0, ;
Picture = bmps\vfpxlogo.bmp, ;
RotateFlip = 0, ;
StatusBarText = "", ;
Stretch = 0, ;
Tag = "", ;
test_aa = .F., ;
Themes = .T., ;
ToolTipText = "", ;
Top = 284, ;
Visible = .T., ;
WhatsThisHelpID = -1, ;
Width = 212, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
ADD OBJECT 'Image1' AS image WITH ;
Height = 100, ;
Left = 764, ;
Name = "Image1", ;
Picture = bmps\vfpxlogo.bmp, ;
Top = 184, ;
Width = 212
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'pgf' AS cl_pageframe WITH ;
ActivePage = 2, ;
Anchor = 0, ;
@@ -6854,14 +6900,6 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
ENDIF
loCtl.ControlSource = ''
CASE loCtl.Baseclass == 'Optionbutton'
.valor = 2
loCtl.ControlSource = 'THISFORM.valor'
IF loCtl.Value = .valor
REPLACE c_Value WITH "S"
ENDIF
loCtl.ControlSource = ''
CASE loCtl.Baseclass == 'Spinner'
.valor = 123
loCtl.ControlSource = 'THISFORM.valor'