Changeset: 278 fdbozzo - 05/06/2014 23:04:19:

- Garbage collect en Unit Tests
- Agregada props Stretch en props_image.txt (Kenny Vermassen)
- Agregada props Enabled en props_image.txt

TESTS/DATOS_READONLY/f_form_aa.sc2

@@ -692,8 +692,8 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
 	ADD OBJECT 'Cl_image1' AS cl_image WITH ;
 		Anchor = 0, ;
 		BackStyle = 1, ;
-		BorderColor = 100,100,100, ;
-		BorderStyle = 0, ;
+		BorderColor = 255,0,0, ;
+		BorderStyle = 1, ;
 		ColorSource = 4, ;
 		Comment = "", ;
 		DragIcon = ..\..\, ;
@@ -725,11 +725,14 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
 		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
 
 	ADD OBJECT 'Image1' AS image WITH ;
-		Height = 100, ;
+		BorderColor = 255,0,0, ;
+		BorderStyle = 1, ;
+		Enabled = .T., ;
+		Height = 104, ;
 		Left = 764, ;
 		Name = "Image1", ;
 		Picture = bmps\vfpxlogo.bmp, ;
-		Top = 184, ;
+		Top = 180, ;
 		Width = 212
 		*< END OBJECT: BaseClass="image" />
 

TESTS/DATOS_READONLY/f_form_aa2.sc2

@@ -23,7 +23,11 @@ DEFINE CLASS f_form_aa1 AS f_form_aa OF "lib_controles.vcx"
 	DefTop = 
 	DefWidth = 
 	DoCreate = .T.
+	Height = (460)
+	Left = (2)
 	Name = "F_form_aa1"
+	Top = (4)
+	Width = (980)
 	Cl_grid1.AllowAddNew = .F.
 	Cl_grid1.AllowAutoColumnFit = 0
 	Cl_grid1.AllowCellSelection = .T.
@@ -400,8 +404,10 @@ 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.Name = "Cl_image1"
 	cmdCapturar.Name = "cmdCapturar"
 	Edit1.Name = "Edit1"
+	Image1.Name = "Image1"
 	Label1.Name = "Label1"
 	Label2.Name = "Label2"
 	Label3.Name = "Label3"

TESTS/DATOS_READONLY/lib_controles.vc2

@@ -5568,8 +5568,8 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
 	ADD OBJECT 'Cl_image1' AS cl_image WITH ;
 		Anchor = 0, ;
 		BackStyle = 1, ;
-		BorderColor = 100,100,100, ;
-		BorderStyle = 0, ;
+		BorderColor = 255,0,0, ;
+		BorderStyle = 1, ;
 		ColorSource = 4, ;
 		Comment = "", ;
 		DragIcon = ..\..\, ;
@@ -5601,11 +5601,13 @@ DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
 		*< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
 
 	ADD OBJECT 'Image1' AS image WITH ;
-		Height = 100, ;
+		BorderColor = 255,0,0, ;
+		BorderStyle = 1, ;
+		Height = 104, ;
 		Left = 764, ;
 		Name = "Image1", ;
 		Picture = bmps\vfpxlogo.bmp, ;
-		Top = 184, ;
+		Top = 180, ;
 		Width = 212
 		*< END OBJECT: BaseClass="image" />