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

Bug Fix: The alphabetic ordering of ADD OBJECT's objects can cause that some objects be created in erroneous order, causing unexpected behavior (Jochen Kauz) [https://github.com/fdbozzo/foxbin2prg/issues/28]

Browse Source 
NOTE: This Bug Fix implies that when tx2 files are regenerated, differences will occur almost certainly for the first time, so do not regenerate all tx2 files unnecesarily to keep differences at minimum.
This commit is contained in:
fdbozzo
2018-07-31 10:57:08 +02:00
parent a3533dac1e
commit bbaad331a5
27 changed files with 396 additions and 361 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
TESTS/DATOS_READONLY/classlib_method_order_bug_test.vc2
View File

@@ -137,7 +137,7 @@ DEFINE CLASS grdbase AS grid
ENDDEFINE
DEFINE CLASS grdgeneral AS grdbase OF "classlib.vcx"
DEFINE CLASS grdgeneral AS grdbase OF "classlib_method_order_bug_test.vcx"
*< CLASSDATA: Baseclass="grid" Timestamp="" Scale="Pixels" Uniqueid="" />
Name = "grdgeneral"

BIN
TESTS/DATOS_READONLY/classlib_method_order_bug_test.vct
View File

Binary file not shown.

BIN
TESTS/DATOS_READONLY/classlib_method_order_bug_test.vcx
View File

Binary file not shown.

27
TESTS/DATOS_READONLY/encuestas.db2
View File

@@ -5,10 +5,11 @@
*< FOXBIN2PRG: Version="1.19" SourceFile="encuestas.dbf" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<TABLE>
<MemoFile></MemoFile>
<CodePage>1252</CodePage>
<LastUpdate>2014/01/31</LastUpdate>
<LastUpdate></LastUpdate>
<Database></Database>
<FileType>0x00000030</FileType>
<FileType_Descrip>Visual FoxPro</FileType_Descrip>
@@ -116,4 +117,28 @@
</FIELD>
</FIELDS>
<RECORDS>
<RECORD>
<PROMOTOR>PEPE</PROMOTOR>
<IDENC>id1</IDENC>
<CALIFIC>Q</CALIFIC>
<FECHA>1969/11/25</FECHA>
<RESULTADO></RESULTADO>
</RECORD>
<RECORD>
<PROMOTOR>PEPE</PROMOTOR>
<IDENC>id2</IDENC>
<CALIFIC>NQ</CALIFIC>
<FECHA>1969/11/25</FECHA>
<RESULTADO></RESULTADO>
</RECORD>
</RECORDS>
</TABLE>

4
TESTS/DATOS_READONLY/f_checkbox.sc2
View File

@@ -40,13 +40,13 @@ DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx"
Left = 0
Name = "F_base1"
Top = 0
Command2.Name = "Command2"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "CHECKBOX NORMAL"
Label1.Name = "Label1"
Label2.Caption = "CHECKBOX SUBCLASADOS"
Label2.Name = "Label2"
Label3.Name = "Label3"
ADD OBJECT 'Check1' AS checkbox WITH ;
Alignment = 0, ;

6
TESTS/DATOS_READONLY/f_combobox.sc2
View File

@@ -38,13 +38,13 @@ DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx"
DoCreate = .T.
Name = "F_base1"
Command2.Name = "Command2"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "COMBOBOX NORMAL"
Label1.Name = "Label1"
Label2.Caption = "COMBOBOX SUBCLASADOS"
Label2.Name = "Label2"
Label3.Name = "Label3"
ADD OBJECT 'Cl_ComboDropdown1' AS cl_combobox WITH ;
Alignment = 0, ;
@@ -1111,7 +1111,7 @@ DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx"
WhatsThisHelpID = -1, ;
Width = 200
*< END OBJECT: BaseClass="combobox" />
PROCEDURE Cl_ComboDropdown1.Init
this.AddListItem('Este es el valor.A1')
this.AddListItem('Este es el valor.A2', this.NewItemId, 2)

4
TESTS/DATOS_READONLY/f_commandgroup.sc2
View File

@@ -34,14 +34,14 @@ DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx"
DoCreate = .T.
Name = "F_base1"
Command2.Name = "Command2"
Edit1.Name = "Edit1"
Edit1.Value = <fb2p_value>* En los OptionGroup subclasados, cuando el Option de la clase de base tiene Autosize=.T. y la instancia tiene Autosize=.F., ocurre esto:&#13; - Los option normales deben mantener su longitud y apariencia nuevos&#13; - Los option graficos deben mantener su longitud y apariencia, pero pierden en height (bug de VFP)&#13;* En los OptionGroup normales, no hay problemas y se deben mantener igual siempre&#13;&#13;* RECOMENDACI<43>N: No usar Autosize=.T. en una clase de base</fb2p_value>
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "COMMANDGROUP NORMAL"
Label1.Name = "Label1"
Label2.Caption = "COMMANDGROUP SUBCLASADOS"
Label2.Name = "Label2"
Label3.Name = "Label3"
ADD OBJECT 'Cl_commandbutton1' AS cl_commandbutton WITH ;
Alignment = 2, ;

4
TESTS/DATOS_READONLY/f_containers.sc2
View File

@@ -31,13 +31,13 @@ DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx"
DoCreate = .T.
Name = "F_base1"
Command2.Name = "Command2"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "CONTAINER NORMAL"
Label1.Name = "Label1"
Label2.Caption = "CONTAINER SUBCLASADO"
Label2.Name = "Label2"
Label3.Name = "Label3"
ADD OBJECT 'Cl_container1' AS cl_container WITH ;
Anchor = 0, ;

26
TESTS/DATOS_READONLY/f_form_aa.sc2
View File

@@ -152,18 +152,25 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
WindowState = 0
WindowType = 0
ZoomBox = .F.
cmdCapturar.Height = 27
cmdCapturar.Left = 764
cmdCapturar.Name = "cmdCapturar"
cmdCapturar.RightToLeft = .F.
cmdCapturar.Top = 392
cmdCapturar.Width = 212
Edit1.Height = 144
Edit1.Left = 764
Edit1.Name = "Edit1"
Edit1.RightToLeft = .F.
Edit1.Top = 32
Edit1.Width = 212
Label3.BackColor = 128,255,128
Label3.Height = 17
Label3.Left = 764
Label3.Name = "Label3"
Label3.RightToLeft = .F.
Label3.Top = 8
Label3.Width = 212
cmdCapturar.Height = 27
cmdCapturar.Left = 764
cmdCapturar.Name = "cmdCapturar"
cmdCapturar.RightToLeft = .F.
cmdCapturar.Top = 392
cmdCapturar.Width = 212
Label1.BackColor = 128,255,128
Label1.Caption = "CONTROLES"
Label1.Height = 17
@@ -180,13 +187,6 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
Label2.RightToLeft = .F.
Label2.Top = 8
Label2.Width = 460
Label3.BackColor = 128,255,128
Label3.Height = 17
Label3.Left = 764
Label3.Name = "Label3"
Label3.RightToLeft = .F.
Label3.Top = 8
Label3.Width = 212
ADD OBJECT 'Cl_grid1' AS cl_grid WITH ;
AllowAddNew = .F., ;

22
TESTS/DATOS_READONLY/f_form_aa2.sc2
View File

@@ -27,6 +27,14 @@ DEFINE CLASS f_form_aa1 AS f_form_aa OF "lib_controles.vcx"
Left = (2)
Name = "F_form_aa1"
Top = (4)
Cl_image1.Height = 104
Cl_image1.Name = "Cl_image1"
Cl_image1.Width = 212
Edit1.Name = "Edit1"
Label3.Name = "Label3"
cmdCapturar.Name = "cmdCapturar"
Label1.Name = "Label1"
Label2.Name = "Label2"
Cl_grid1.AllowAddNew = .F.
Cl_grid1.AllowAutoColumnFit = 0
Cl_grid1.AllowCellSelection = .T.
@@ -403,17 +411,6 @@ DEFINE CLASS f_form_aa1 AS f_form_aa OF "lib_controles.vcx"
Cl_grid1.View = 0
Cl_grid1.Visible = .T.
Cl_grid1.WhatsThisHelpID = -1
Cl_image1.Height = 104
Cl_image1.Name = "Cl_image1"
Cl_image1.Width = 212
cmdCapturar.Name = "cmdCapturar"
Edit1.Name = "Edit1"
Image1.Height = 104
Image1.Name = "Image1"
Image1.Width = 212
Label1.Name = "Label1"
Label2.Name = "Label2"
Label3.Name = "Label3"
pgf.ActivePage = 2
pgf.Anchor = 0
pgf.ColorSource = 4
@@ -1327,5 +1324,8 @@ DEFINE CLASS f_form_aa1 AS f_form_aa OF "lib_controles.vcx"
pgf.Visible = .T.
pgf.WhatsThisHelpID = -1
pgf.Width = 268
Image1.Height = 104
Image1.Name = "Image1"
Image1.Width = 212
ENDDEFINE

8
TESTS/DATOS_READONLY/f_form_controles.sc2
View File

@@ -192,18 +192,18 @@ DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx"
WindowState = 0
WindowType = 0
ZoomBox = .F.
cmdCapturar.Name = "cmdCapturar"
cmdCapturar.RightToLeft = .F.
Edit1.Name = "Edit1"
Edit1.RightToLeft = .F.
Label3.Name = "Label3"
Label3.RightToLeft = .F.
cmdCapturar.Name = "cmdCapturar"
cmdCapturar.RightToLeft = .F.
Label1.Caption = "CONTROL NORMAL"
Label1.Name = "Label1"
Label1.RightToLeft = .F.
Label2.Caption = "CONTROL SUBCLASADOS"
Label2.Name = "Label2"
Label2.RightToLeft = .F.
Label3.Name = "Label3"
Label3.RightToLeft = .F.
ADD OBJECT 'Cl_collection1' AS cl_collection WITH ;
Left = 325, ;

10
TESTS/DATOS_READONLY/f_formset.sc2
View File

@@ -187,16 +187,16 @@ DEFINE CLASS formset AS formset
WindowState = 0, ;
WindowType = 0, ;
ZoomBox = .F., ;
cmdCapturar.Name = "cmdCapturar", ;
cmdCapturar.RightToLeft = .F., ;
Edit1.Name = "Edit1", ;
Edit1.RightToLeft = .F., ;
Label3.Name = "Label3", ;
Label3.RightToLeft = .F., ;
cmdCapturar.Name = "cmdCapturar", ;
cmdCapturar.RightToLeft = .F., ;
Label1.Name = "Label1", ;
Label1.RightToLeft = .F., ;
Label2.Name = "Label2", ;
Label2.RightToLeft = .F., ;
Label3.Name = "Label3", ;
Label3.RightToLeft = .F.
Label2.RightToLeft = .F.
*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="form" />
ADD OBJECT 'F_base1.Cl_grid1' AS cl_grid WITH ;

6
TESTS/DATOS_READONLY/f_listbox.sc2
View File

@@ -35,13 +35,13 @@ DEFINE CLASS f_listbox_test AS f_base OF "lib_controles.vcx"
Left = 0
Name = "F_Listbox_Test"
Top = 0
Command2.Name = "Command2"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "LISTBOX NORMAL"
Label1.Name = "Label1"
Label2.Caption = "LISTBOX SUBCLASADOS"
Label2.Name = "Label2"
Label3.Name = "Label3"
ADD OBJECT 'Cl_ListBox1' AS cl_listbox WITH ;
Anchor = 0, ;
@@ -508,7 +508,7 @@ DEFINE CLASS f_listbox_test AS f_base OF "lib_controles.vcx"
WhatsThisHelpID = -1, ;
Width = 224
*< END OBJECT: BaseClass="listbox" />
PROCEDURE Cl_ListBox1.Init
this.AddListItem('Este es el valor.A1')
this.AddListItem('Este es el valor.A2', this.NewItemId, 2)

4
TESTS/DATOS_READONLY/f_optiongroup.sc2
View File

@@ -41,13 +41,13 @@ DEFINE CLASS f_optiongroup_test AS f_base OF "lib_controles.vcx"
Name = "F_OptionGroup_Test"
Top = 0
Width = 819
Command2.Name = "Command2"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "OPTIONGROUP NORMAL"
Label1.Name = "Label1"
Label2.Caption = "OPTIONGROUP SUBCLASADOS"
Label2.Name = "Label2"
Label3.Name = "Label3"
ADD OBJECT 'Cl_option1' AS cl_option WITH ;
Alignment = 0, ;

64
TESTS/DATOS_READONLY/f_optiongroup2.sc2
View File

@@ -22,31 +22,11 @@ DEFINE CLASS f_optiongroup1 AS f_optiongroup OF "lib_controles.vcx"
DoCreate = .T.
Name = "F_optiongroup1"
Cl_optiongroup1.Name = "Cl_optiongroup1"
Cl_optiongroup1.Option1.Left = 8
Cl_optiongroup1.Option1.Name = "Option1"
Cl_optiongroup1.Option1.Top = 4
Cl_optiongroup1.Option2.Left = 8
Cl_optiongroup1.Option2.Name = "Option2"
Cl_optiongroup1.Option2.Top = 28
Cl_optiongroup1.Option3.Left = 8
Cl_optiongroup1.Option3.Name = "Option3"
Cl_optiongroup1.Option3.Top = 52
Cl_optiongroup2.Name = "Cl_optiongroup2"
Cl_optiongroup2.Option1.Left = 8
Cl_optiongroup2.Option1.Name = "Option1"
Cl_optiongroup2.Option1.Top = 4
Cl_optiongroup2.Option2.Left = 8
Cl_optiongroup2.Option2.Name = "Option2"
Cl_optiongroup2.Option2.Top = 28
Cl_optiongroup2.Option3.Left = 8
Cl_optiongroup2.Option3.Name = "Option3"
Cl_optiongroup2.Option3.Top = 52
Command2.Name = "Command2"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Name = "Label1"
Label2.Name = "Label2"
Label3.Name = "Label3"
Optiongroup1.Anchor = 0
Optiongroup1.AutoSize = .F.
Optiongroup1.BackColor = 240,240,240
@@ -156,16 +136,26 @@ DEFINE CLASS f_optiongroup1 AS f_optiongroup OF "lib_controles.vcx"
Optiongroup1.Visible = .T.
Optiongroup1.WhatsThisHelpID = -1
Optiongroup1.Width = (248)
Optiongroup2.Cl_option1.Left = 16
Optiongroup2.Cl_option1.Name = "Cl_option1"
Optiongroup2.Cl_option1.Top = 4
Optiongroup2.Cl_option2.Left = 16
Optiongroup2.Cl_option2.Name = "Cl_option2"
Optiongroup2.Cl_option2.Top = 28
Optiongroup2.Cl_option3.Left = 16
Optiongroup2.Cl_option3.Name = "Cl_option3"
Optiongroup2.Cl_option3.Top = 52
Optiongroup2.Name = "Optiongroup2"
Cl_optiongroup1.Name = "Cl_optiongroup1"
Cl_optiongroup1.Option1.Left = 8
Cl_optiongroup1.Option1.Name = "Option1"
Cl_optiongroup1.Option1.Top = 4
Cl_optiongroup1.Option2.Left = 8
Cl_optiongroup1.Option2.Name = "Option2"
Cl_optiongroup1.Option2.Top = 28
Cl_optiongroup1.Option3.Left = 8
Cl_optiongroup1.Option3.Name = "Option3"
Cl_optiongroup1.Option3.Top = 52
Cl_optiongroup2.Name = "Cl_optiongroup2"
Cl_optiongroup2.Option1.Left = 8
Cl_optiongroup2.Option1.Name = "Option1"
Cl_optiongroup2.Option1.Top = 4
Cl_optiongroup2.Option2.Left = 8
Cl_optiongroup2.Option2.Name = "Option2"
Cl_optiongroup2.Option2.Top = 28
Cl_optiongroup2.Option3.Left = 8
Cl_optiongroup2.Option3.Name = "Option3"
Cl_optiongroup2.Option3.Top = 52
Pageframe1.ErasePage = .T.
Pageframe1.Name = "Pageframe1"
Pageframe1.Page1.Cl_optiongroup1.Name = "Cl_optiongroup1"
@@ -211,5 +201,15 @@ DEFINE CLASS f_optiongroup1 AS f_optiongroup OF "lib_controles.vcx"
Pageframe1.Page1.Optiongroup2.Cl_option3.Top = 52
Pageframe1.Page1.Optiongroup2.Name = "Optiongroup2"
Pageframe1.Page2.Name = "Page2"
Optiongroup2.Cl_option1.Left = 16
Optiongroup2.Cl_option1.Name = "Cl_option1"
Optiongroup2.Cl_option1.Top = 4
Optiongroup2.Cl_option2.Left = 16
Optiongroup2.Cl_option2.Name = "Cl_option2"
Optiongroup2.Cl_option2.Top = 28
Optiongroup2.Cl_option3.Left = 16
Optiongroup2.Cl_option3.Name = "Cl_option3"
Optiongroup2.Cl_option3.Top = 52
Optiongroup2.Name = "Optiongroup2"
ENDDEFINE

328
TESTS/DATOS_READONLY/f_test.sc2
View File

@@ -20,129 +20,11 @@ DEFINE CLASS f_form_controles1 AS f_form_controles OF "lib_controles.vcx"
DoCreate = .T.
Name = "F_form_controles1"
Cl_image1.Height = 16
Cl_image1.Name = "Cl_image1"
Cl_image1.Width = 17
Cl_image10.Height = 16
Cl_image10.Name = "Cl_image10"
Cl_image10.Width = 17
Cl_image2.Name = "Cl_image2"
Cl_image3.Height = 16
Cl_image3.Name = "Cl_image3"
Cl_image3.Width = 17
Cl_image4.Name = "Cl_image4"
Cl_image5.Height = 16
Cl_image5.Name = "Cl_image5"
Cl_image5.Width = 17
Cl_image6.Height = 16
Cl_image6.Name = "Cl_image6"
Cl_image6.Width = 17
Cl_image7.Name = "Cl_image7"
Cl_image8.Height = 16
Cl_image8.Name = "Cl_image8"
Cl_image8.Width = 17
Cl_image9.Name = "Cl_image9"
Cl_label1.Name = "Cl_label1"
Cl_label2.Name = "Cl_label2"
Cl_line1.Name = "Cl_line1"
Cl_line2.Name = "Cl_line2"
Cl_pageframe1.ErasePage = .T.
Cl_pageframe1.Name = "Cl_pageframe1"
Cl_pageframe1.Page1.Name = "Page1"
Cl_pageframe1.Page2.Image1.Height = 16
Cl_pageframe1.Page2.Image1.Name = "Image1"
Cl_pageframe1.Page2.Image1.Width = 17
Cl_pageframe1.Page2.Image10.Height = 16
Cl_pageframe1.Page2.Image10.Name = "Image10"
Cl_pageframe1.Page2.Image10.Width = 17
Cl_pageframe1.Page2.Image2.Name = "Image2"
Cl_pageframe1.Page2.Image3.Height = 16
Cl_pageframe1.Page2.Image3.Name = "Image3"
Cl_pageframe1.Page2.Image3.Width = 17
Cl_pageframe1.Page2.Image4.Name = "Image4"
Cl_pageframe1.Page2.Image5.Height = 16
Cl_pageframe1.Page2.Image5.Name = "Image5"
Cl_pageframe1.Page2.Image5.Width = 17
Cl_pageframe1.Page2.Image6.Height = 16
Cl_pageframe1.Page2.Image6.Name = "Image6"
Cl_pageframe1.Page2.Image6.Width = 17
Cl_pageframe1.Page2.Image7.Name = "Image7"
Cl_pageframe1.Page2.Image8.Height = 16
Cl_pageframe1.Page2.Image8.Name = "Image8"
Cl_pageframe1.Page2.Image8.Width = 17
Cl_pageframe1.Page2.Image9.Name = "Image9"
Cl_pageframe1.Page2.Label4.Name = "Label4"
Cl_pageframe1.Page2.Label5.Name = "Label5"
Cl_pageframe1.Page2.Line1.Name = "Line1"
Cl_pageframe1.Page2.Line2.Name = "Line2"
Cl_pageframe1.Page2.Name = "Page2"
Cl_pageframe1.Page2.Shape1.Name = "Shape1"
Cl_pageframe1.Page2.Shape2.Name = "Shape2"
Cl_pageframe1.Page2.Spinner1.Name = "Spinner1"
Cl_pageframe1.Page2.Spinner2.Name = "Spinner2"
Cl_pageframe1.Page3.Name = "Page3"
Cl_shape1.Name = "Cl_shape1"
Cl_shape2.Name = "Cl_shape2"
Cl_spinner1.Name = "Cl_spinner1"
Cl_spinner2.Name = "Cl_spinner2"
Command2.Name = "Command2"
Edit1.Name = "Edit1"
Image1.Anchor = 0
Image1.BackStyle = 1
Image1.BorderColor = 100,100,100
Image1.BorderStyle = 0
Image1.ColorSource = 4
Image1.Comment = ""
Image1.DefHeight =
Image1.DefLeft =
Image1.DefTop =
Image1.DefWidth =
Image1.DragIcon = ..\..\
Image1.DragMode = 0
Image1.Enabled = .T.
Image1.Height = (16)
Image1.HelpContextID = 0
Image1.Left = (44)
Image1.MouseIcon = ..\..\
Image1.MousePointer = 0
Image1.Name = "Image1"
Image1.OLEDragMode = 0
Image1.OLEDragPicture = ..\..\
Image1.OLEDropEffects = 3
Image1.OLEDropMode = 0
Image1.Picture = bmps\sobrepostal.bmp
Image1.RotateFlip = 0
Image1.StatusBarText = ""
Image1.Stretch = 0
Image1.Tag = ""
Image1.Themes = .T.
Image1.ToolTipText = ""
Image1.Top = (100)
Image1.Visible = .T.
Image1.WhatsThisHelpID = -1
Image1.Width = (17)
Image10.Height = 16
Image10.Name = "Image10"
Image10.Width = 17
Image2.Name = "Image2"
Image3.Height = 16
Image3.Name = "Image3"
Image3.Width = 17
Image4.Name = "Image4"
Image5.Height = 16
Image5.Name = "Image5"
Image5.Width = 17
Image6.Height = 16
Image6.Name = "Image6"
Image6.Width = 17
Image7.Name = "Image7"
Image8.Height = 16
Image8.Name = "Image8"
Image8.Width = 17
Image9.Name = "Image9"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Name = "Label1"
Label2.Name = "Label2"
Label3.Name = "Label3"
Label4.Alignment = 0
Label4.Anchor = 0
Label4.AutoSize = .F.
@@ -193,7 +75,47 @@ DEFINE CLASS f_form_controles1 AS f_form_controles OF "lib_controles.vcx"
Label4.WhatsThisHelpID = -1
Label4.Width = (104)
Label4.WordWrap = .F.
Label5.Name = "Label5"
Shape1.Anchor = 0
Shape1.BackColor = 240,240,240
Shape1.BackStyle = 1
Shape1.BorderColor = 100,100,100
Shape1.BorderStyle = 1
Shape1.BorderWidth = 1
Shape1.ColorScheme = 1
Shape1.ColorSource = 4
Shape1.Comment = ""
Shape1.Curvature = 0
Shape1.DefHeight =
Shape1.DefLeft =
Shape1.DefTop =
Shape1.DefWidth =
Shape1.DragIcon = ..\..\
Shape1.DragMode = 0
Shape1.DrawMode = 13
Shape1.Enabled = .T.
Shape1.FillColor = 0,0,0
Shape1.FillStyle = 1
Shape1.Height = (17)
Shape1.HelpContextID = 0
Shape1.Left = (44)
Shape1.MouseIcon = ..\..\
Shape1.MousePointer = 0
Shape1.Name = "Shape1"
Shape1.OLEDragMode = 0
Shape1.OLEDragPicture = ..\..\
Shape1.OLEDropEffects = 3
Shape1.OLEDropMode = 0
Shape1.PolyPoints = ""
Shape1.Rotation = 0
Shape1.SpecialEffect = 0
Shape1.StatusBarText = ""
Shape1.Style = 0
Shape1.Tag = ""
Shape1.ToolTipText = ""
Shape1.Top = (60)
Shape1.Visible = .T.
Shape1.WhatsThisHelpID = -1
Shape1.Width = (105)
Line1.Anchor = 0
Line1.BorderColor = 100,100,100
Line1.BorderStyle = 1
@@ -228,7 +150,48 @@ DEFINE CLASS f_form_controles1 AS f_form_controles OF "lib_controles.vcx"
Line1.Visible = .T.
Line1.WhatsThisHelpID = -1
Line1.Width = (104)
Line2.Name = "Line2"
Image1.Anchor = 0
Image1.BackStyle = 1
Image1.BorderColor = 100,100,100
Image1.BorderStyle = 0
Image1.ColorSource = 4
Image1.Comment = ""
Image1.DefHeight =
Image1.DefLeft =
Image1.DefTop =
Image1.DefWidth =
Image1.DragIcon = ..\..\
Image1.DragMode = 0
Image1.Enabled = .T.
Image1.Height = (16)
Image1.HelpContextID = 0
Image1.Left = (44)
Image1.MouseIcon = ..\..\
Image1.MousePointer = 0
Image1.Name = "Image1"
Image1.OLEDragMode = 0
Image1.OLEDragPicture = ..\..\
Image1.OLEDropEffects = 3
Image1.OLEDropMode = 0
Image1.Picture = bmps\sobrepostal.bmp
Image1.RotateFlip = 0
Image1.StatusBarText = ""
Image1.Stretch = 0
Image1.Tag = ""
Image1.Themes = .T.
Image1.ToolTipText = ""
Image1.Top = (100)
Image1.Visible = .T.
Image1.WhatsThisHelpID = -1
Image1.Width = (17)
Image2.Name = "Image2"
Image3.Height = 16
Image3.Name = "Image3"
Image3.Width = 17
Image4.Name = "Image4"
Image5.Height = 16
Image5.Name = "Image5"
Image5.Width = 17
Pageframe1.ActivePage = 2
Pageframe1.Anchor = 0
Pageframe1.cl_page1.BackColor = 240,240,240
@@ -348,48 +311,6 @@ DEFINE CLASS f_form_controles1 AS f_form_controles OF "lib_controles.vcx"
Pageframe1.Visible = .T.
Pageframe1.WhatsThisHelpID = -1
Pageframe1.Width = (256)
Shape1.Anchor = 0
Shape1.BackColor = 240,240,240
Shape1.BackStyle = 1
Shape1.BorderColor = 100,100,100
Shape1.BorderStyle = 1
Shape1.BorderWidth = 1
Shape1.ColorScheme = 1
Shape1.ColorSource = 4
Shape1.Comment = ""
Shape1.Curvature = 0
Shape1.DefHeight =
Shape1.DefLeft =
Shape1.DefTop =
Shape1.DefWidth =
Shape1.DragIcon = ..\..\
Shape1.DragMode = 0
Shape1.DrawMode = 13
Shape1.Enabled = .T.
Shape1.FillColor = 0,0,0
Shape1.FillStyle = 1
Shape1.Height = (17)
Shape1.HelpContextID = 0
Shape1.Left = (44)
Shape1.MouseIcon = ..\..\
Shape1.MousePointer = 0
Shape1.Name = "Shape1"
Shape1.OLEDragMode = 0
Shape1.OLEDragPicture = ..\..\
Shape1.OLEDropEffects = 3
Shape1.OLEDropMode = 0
Shape1.PolyPoints = ""
Shape1.Rotation = 0
Shape1.SpecialEffect = 0
Shape1.StatusBarText = ""
Shape1.Style = 0
Shape1.Tag = ""
Shape1.ToolTipText = ""
Shape1.Top = (60)
Shape1.Visible = .T.
Shape1.WhatsThisHelpID = -1
Shape1.Width = (105)
Shape2.Name = "Shape2"
Spinner1.Alignment = 1
Spinner1.Anchor = 0
Spinner1.BackColor = 255,255,255
@@ -456,6 +377,85 @@ DEFINE CLASS f_form_controles1 AS f_form_controles OF "lib_controles.vcx"
Spinner1.Visible = .T.
Spinner1.WhatsThisHelpID = -1
Spinner1.Width = (104)
Label5.Name = "Label5"
Shape2.Name = "Shape2"
Line2.Name = "Line2"
Image6.Height = 16
Image6.Name = "Image6"
Image6.Width = 17
Image7.Name = "Image7"
Image8.Height = 16
Image8.Name = "Image8"
Image8.Width = 17
Image9.Name = "Image9"
Image10.Height = 16
Image10.Name = "Image10"
Image10.Width = 17
Spinner2.Name = "Spinner2"
Cl_pageframe1.ErasePage = .T.
Cl_pageframe1.Name = "Cl_pageframe1"
Cl_pageframe1.Page1.Name = "Page1"
Cl_pageframe1.Page2.Image1.Height = 16
Cl_pageframe1.Page2.Image1.Name = "Image1"
Cl_pageframe1.Page2.Image1.Width = 17
Cl_pageframe1.Page2.Image10.Height = 16
Cl_pageframe1.Page2.Image10.Name = "Image10"
Cl_pageframe1.Page2.Image10.Width = 17
Cl_pageframe1.Page2.Image2.Name = "Image2"
Cl_pageframe1.Page2.Image3.Height = 16
Cl_pageframe1.Page2.Image3.Name = "Image3"
Cl_pageframe1.Page2.Image3.Width = 17
Cl_pageframe1.Page2.Image4.Name = "Image4"
Cl_pageframe1.Page2.Image5.Height = 16
Cl_pageframe1.Page2.Image5.Name = "Image5"
Cl_pageframe1.Page2.Image5.Width = 17
Cl_pageframe1.Page2.Image6.Height = 16
Cl_pageframe1.Page2.Image6.Name = "Image6"
Cl_pageframe1.Page2.Image6.Width = 17
Cl_pageframe1.Page2.Image7.Name = "Image7"
Cl_pageframe1.Page2.Image8.Height = 16
Cl_pageframe1.Page2.Image8.Name = "Image8"
Cl_pageframe1.Page2.Image8.Width = 17
Cl_pageframe1.Page2.Image9.Name = "Image9"
Cl_pageframe1.Page2.Label4.Name = "Label4"
Cl_pageframe1.Page2.Label5.Name = "Label5"
Cl_pageframe1.Page2.Line1.Name = "Line1"
Cl_pageframe1.Page2.Line2.Name = "Line2"
Cl_pageframe1.Page2.Name = "Page2"
Cl_pageframe1.Page2.Shape1.Name = "Shape1"
Cl_pageframe1.Page2.Shape2.Name = "Shape2"
Cl_pageframe1.Page2.Spinner1.Name = "Spinner1"
Cl_pageframe1.Page2.Spinner2.Name = "Spinner2"
Cl_pageframe1.Page3.Name = "Page3"
Cl_label1.Name = "Cl_label1"
Cl_shape1.Name = "Cl_shape1"
Cl_line1.Name = "Cl_line1"
Cl_image1.Height = 16
Cl_image1.Name = "Cl_image1"
Cl_image1.Width = 17
Cl_image2.Name = "Cl_image2"
Cl_image3.Height = 16
Cl_image3.Name = "Cl_image3"
Cl_image3.Width = 17
Cl_image4.Name = "Cl_image4"
Cl_image5.Height = 16
Cl_image5.Name = "Cl_image5"
Cl_image5.Width = 17
Cl_spinner1.Name = "Cl_spinner1"
Cl_label2.Name = "Cl_label2"
Cl_shape2.Name = "Cl_shape2"
Cl_line2.Name = "Cl_line2"
Cl_image6.Height = 16
Cl_image6.Name = "Cl_image6"
Cl_image6.Width = 17
Cl_image7.Name = "Cl_image7"
Cl_image8.Height = 16
Cl_image8.Name = "Cl_image8"
Cl_image8.Width = 17
Cl_image9.Name = "Cl_image9"
Cl_image10.Height = 16
Cl_image10.Name = "Cl_image10"
Cl_image10.Width = 17
Cl_spinner2.Name = "Cl_spinner2"
ENDDEFINE

4
TESTS/DATOS_READONLY/f_textbox.sc2
View File

@@ -47,13 +47,13 @@ DEFINE CLASS f_textbox_test AS f_base OF "lib_controles.vcx"
Left = 0
Name = "F_Textbox_Test"
Top = 0
Command2.Name = "Command2"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "TEXTBOX NORMAL"
Label1.Name = "Label1"
Label2.Caption = "TEXTBOX SUBCLASADOS"
Label2.Name = "Label2"
Label3.Name = "Label3"
ADD OBJECT 'Cl_editbox1' AS cl_editbox WITH ;
AddLineFeeds = .T., ;

86
TESTS/DATOS_READONLY/fb2p_foxuser.fr2
View File

File diff suppressed because one or more lines are too long

5
TESTS/DATOS_READONLY/fb2p_test.vc2
View File

@@ -4,7 +4,6 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
*< LIBCOMMENT: Comentario principal de "fb2p_test.vcx" />
*
@@ -54,8 +53,8 @@ DEFINE CLASS cl_form AS form OLEPUBLIC && mi OLE server DLL
*p: _memberdata && XML Metadata for customizable properties
*</DefinedPropArrayMethod>
HIDDEN chidden,ahidden
PROTECTED cprotected,aprotected
HIDDEN ahidden,chidden
PROTECTED aprotected,cprotected
Caption = "Form"
chidden = && Prop.Hidden
cprotected = && Prop.Protegida

21
TESTS/DATOS_READONLY/form1.sc2
View File

@@ -4,7 +4,6 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="form1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
#INCLUDE "include\keycodes.h"
@@ -72,18 +71,10 @@ DEFINE CLASS frm_form1 AS form
Name = "Cnt_controles1", ;
TabIndex = 3, ;
Top = 72, ;
Check1.Alignment = 0, ;
Check1.Name = "Check1", ;
Check1.TabIndex = 1, ;
Check1.ZOrderSet = 0, ;
Check2.Alignment = 0, ;
Check2.Name = "Check2", ;
Check2.TabIndex = 2, ;
Check2.ZOrderSet = 1, ;
Check3.Alignment = 0, ;
Check3.Name = "Check3", ;
Check3.TabIndex = 4, ;
Check3.ZOrderSet = 4, ;
Check4.Alignment = 0, ;
Check4.Name = "Check4", ;
Check4.TabIndex = 5, ;
@@ -93,7 +84,15 @@ DEFINE CLASS frm_form1 AS form
Label_h.ZOrderSet = 2, ;
Textbox_h.Name = "Textbox_h", ;
Textbox_h.TabIndex = 3, ;
Textbox_h.ZOrderSet = 3
Textbox_h.ZOrderSet = 3, ;
Check1.Alignment = 0, ;
Check1.Name = "Check1", ;
Check1.TabIndex = 1, ;
Check1.ZOrderSet = 0, ;
Check3.Alignment = 0, ;
Check3.Name = "Check3", ;
Check3.TabIndex = 4, ;
Check3.ZOrderSet = 4
*< END OBJECT: ClassLib="bca.vcx" BaseClass="container" />
ADD OBJECT 'Cnt_controles1.Label1' AS label WITH ;
@@ -132,7 +131,7 @@ DEFINE CLASS frm_form1 AS form
Name = "Olecontrol1", ;
Top = 72, ;
Width = 133
*< END OBJECT: BaseClass="olecontrol" Nombre="frm_Form1.Olecontrol1" Parent="frm_Form1" ObjName="Olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOBWdmE47c4BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABQAAAAIAAAD+////BAAAAP7///8GAAAABwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAAC/DQAAOhAAACFDNBIBAAYArAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPbGVjb250cm9sMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAACAAAAAAAAAAQAAAAEAAQACAAgAAAB7XHJ0ZjFcYW5zaVxhbnNpY3BnMTI1MlxkZWZmMHtcZm9udHRibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOBWdmE47c4BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABQAAAAIAAAD+////BAAAAP7///8GAAAABwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAAC/DQAAOhAAACFDNBIBAAYArAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPbGVjb250cm9sMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAACAAAAAAAAAAQAAAAEAAQACAAgAAAB7XHJ0ZjFcYW5zaVxhbnNpY3BnMTI1MlxkZWZmMHtcZm9udHRibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
PROCEDURE Load
*-- Form 1 LOAD()

88
TESTS/DATOS_READONLY/lib_controles.vc2
View File

@@ -1604,13 +1604,13 @@ DEFINE CLASS f_checkbox AS f_base OF "lib_controles.vcx"
Left = 0
Name = "f_checkbox"
Top = 1
Command2.Name = "Command2"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "CHECKBOX NORMAL"
Label1.Name = "Label1"
Label2.Caption = "CHECKBOX SUBCLASADOS"
Label2.Name = "Label2"
Label3.Name = "Label3"
ADD OBJECT 'Check1' AS checkbox WITH ;
Alignment = 0, ;
@@ -2413,18 +2413,18 @@ DEFINE CLASS f_combobox AS f_base OF "lib_controles.vcx"
DoCreate = .T.
Name = "f_combobox"
Command2.Name = "Command2"
Command2.TabIndex = 1
Edit1.Name = "Edit1"
Edit1.TabIndex = 2
Label3.Name = "Label3"
Label3.TabIndex = 3
Command2.Name = "Command2"
Command2.TabIndex = 1
Label1.Caption = "COMBOBOX NORMAL"
Label1.Name = "Label1"
Label1.TabIndex = 4
Label2.Caption = "COMBOBOX SUBCLASADOS"
Label2.Name = "Label2"
Label2.TabIndex = 5
Label3.Name = "Label3"
Label3.TabIndex = 3
ADD OBJECT 'Cl_ComboDropdown1' AS cl_combobox WITH ;
Alignment = 0, ;
@@ -3639,13 +3639,13 @@ DEFINE CLASS f_commandgroup AS f_base OF "lib_controles.vcx"
Left = 0
Name = "f_commandgroup"
Top = 0
Command2.Name = "Command2"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "COMMANDGROUP NORMAL"
Label1.Name = "Label1"
Label2.Caption = "COMMANDGROUP SUBCLASADOS"
Label2.Name = "Label2"
Label3.Name = "Label3"
ADD OBJECT 'Cl_commandgroup1' AS cl_commandgroup WITH ;
Anchor = 0, ;
@@ -5028,18 +5028,25 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
WindowState = 0
WindowType = 0
ZoomBox = .F.
cmdCapturar.Height = 27
cmdCapturar.Left = 764
cmdCapturar.Name = "cmdCapturar"
cmdCapturar.RightToLeft = .F.
cmdCapturar.Top = 392
cmdCapturar.Width = 212
Edit1.Height = 144
Edit1.Left = 764
Edit1.Name = "Edit1"
Edit1.RightToLeft = .F.
Edit1.Top = 32
Edit1.Width = 212
Label3.BackColor = 128,255,128
Label3.Height = 17
Label3.Left = 764
Label3.Name = "Label3"
Label3.RightToLeft = .F.
Label3.Top = 8
Label3.Width = 212
cmdCapturar.Height = 27
cmdCapturar.Left = 764
cmdCapturar.Name = "cmdCapturar"
cmdCapturar.RightToLeft = .F.
cmdCapturar.Top = 392
cmdCapturar.Width = 212
Label1.BackColor = 128,255,128
Label1.Caption = "CONTROLES"
Label1.Height = 17
@@ -5056,13 +5063,6 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
Label2.RightToLeft = .F.
Label2.Top = 8
Label2.Width = 460
Label3.BackColor = 128,255,128
Label3.Height = 17
Label3.Left = 764
Label3.Name = "Label3"
Label3.RightToLeft = .F.
Label3.Top = 8
Label3.Width = 212
ADD OBJECT 'Cl_grid1' AS cl_grid WITH ;
AllowAddNew = .F., ;
@@ -7827,18 +7827,25 @@ DEFINE CLASS f_form_aa_ AS f_base OF "lib_controles.vcx"
WindowState = 0
WindowType = 0
ZoomBox = .F.
cmdCapturar.Height = 27
cmdCapturar.Left = 764
cmdCapturar.Name = "cmdCapturar"
cmdCapturar.RightToLeft = .F.
cmdCapturar.Top = 392
cmdCapturar.Width = 212
Edit1.Height = 356
Edit1.Left = 764
Edit1.Name = "Edit1"
Edit1.RightToLeft = .F.
Edit1.Top = 32
Edit1.Width = 212
Label3.BackColor = 128,255,128
Label3.Height = 17
Label3.Left = 764
Label3.Name = "Label3"
Label3.RightToLeft = .F.
Label3.Top = 8
Label3.Width = 212
cmdCapturar.Height = 27
cmdCapturar.Left = 764
cmdCapturar.Name = "cmdCapturar"
cmdCapturar.RightToLeft = .F.
cmdCapturar.Top = 392
cmdCapturar.Width = 212
Label1.BackColor = 128,255,128
Label1.Caption = "CONTROLES"
Label1.Height = 17
@@ -7855,13 +7862,6 @@ DEFINE CLASS f_form_aa_ AS f_base OF "lib_controles.vcx"
Label2.RightToLeft = .F.
Label2.Top = 8
Label2.Width = 460
Label3.BackColor = 128,255,128
Label3.Height = 17
Label3.Left = 764
Label3.Name = "Label3"
Label3.RightToLeft = .F.
Label3.Top = 8
Label3.Width = 212
ADD OBJECT 'Cl_grid1' AS cl_grid WITH ;
AllowAddNew = .F., ;
@@ -10519,18 +10519,18 @@ DEFINE CLASS f_form_controles AS f_base OF "lib_controles.vcx"
WindowState = 0
WindowType = 0
ZoomBox = .F.
Command2.Name = "Command2"
Command2.RightToLeft = .F.
Edit1.Name = "Edit1"
Edit1.RightToLeft = .F.
Label3.Name = "Label3"
Label3.RightToLeft = .F.
Command2.Name = "Command2"
Command2.RightToLeft = .F.
Label1.Caption = "CONTROL NORMAL"
Label1.Name = "Label1"
Label1.RightToLeft = .F.
Label2.Caption = "CONTROL SUBCLASADOS"
Label2.Name = "Label2"
Label2.RightToLeft = .F.
Label3.Name = "Label3"
Label3.RightToLeft = .F.
ADD OBJECT 'Cl_image1' AS cl_image WITH ;
Anchor = 0, ;
@@ -13402,13 +13402,13 @@ DEFINE CLASS f_listbox AS f_base OF "lib_controles.vcx"
DoCreate = .T.
Name = "f_listbox"
Command2.Name = "Command2"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "LISTBOX NORMAL"
Label1.Name = "Label1"
Label2.Caption = "LISTBOX SUBCLASADOS"
Label2.Name = "Label2"
Label3.Name = "Label3"
ADD OBJECT 'Cl_ListBox1' AS cl_listbox WITH ;
Anchor = 0, ;
@@ -13962,14 +13962,14 @@ DEFINE CLASS f_optiongroup AS f_base OF "lib_controles.vcx"
Name = "f_optiongroup"
Top = 0
Width = 819
Command2.Name = "Command2"
Edit1.Name = "Edit1"
Edit1.Value = <fb2p_value>* En los OptionGroup subclasados, cuando el Option de la clase de base tiene Autosize=.T. y la instancia tiene Autosize=.F., ocurre esto:&#13; - Los option normales deben mantener su longitud y apariencia nuevos&#13; - Los option graficos deben mantener su longitud y apariencia, pero pierden en height (bug de VFP)&#13;* En los OptionGroup normales, no hay problemas y se deben mantener igual siempre&#13;&#13;* RECOMENDACI<43>N: No usar Autosize=.T. en una clase de base</fb2p_value>
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "OPTIONGROUP NORMAL"
Label1.Name = "Label1"
Label2.Caption = "OPTIONGROUP SUBCLASADOS"
Label2.Name = "Label2"
Label3.Name = "Label3"
ADD OBJECT 'Cl_optiongroup1' AS cl_optiongroup WITH ;
Anchor = 0, ;
@@ -15186,13 +15186,13 @@ DEFINE CLASS f_textbox AS f_base OF "lib_controles.vcx"
Left = 0
Name = "f_textbox"
Top = 0
Command2.Name = "Command2"
Edit1.Name = "Edit1"
Label3.Name = "Label3"
Command2.Name = "Command2"
Label1.Caption = "TEXTBOX NORMAL"
Label1.Name = "Label1"
Label2.Caption = "TEXTBOX SUBCLASADOS"
Label2.Name = "Label2"
Label3.Name = "Label3"
ADD OBJECT 'Cl_textbox1' AS cl_textbox WITH ;
Alignment = 3, ;