From cffa40bc134ac7bc00f68021954a16cb592a9199 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Sat, 17 May 2014 18:55:49 +0200
Subject: [PATCH] Changeset: 253 fdbozzo - 17/05/2014 18:43:41:

---
 TESTS/DATOS_READONLY/fb2p_frm_1.sc2 |  20 +++++++++++++++++---
 TESTS/DATOS_READONLY/fb2p_frm_1.sct | Bin 14967 -> 15381 bytes
 TESTS/DATOS_READONLY/fb2p_frm_1.scx | Bin 4303 -> 4303 bytes
 3 files changed, 17 insertions(+), 3 deletions(-)

diff --git a/TESTS/DATOS_READONLY/fb2p_frm_1.sc2 b/TESTS/DATOS_READONLY/fb2p_frm_1.sc2
index 9dd38d0..ed1de4c 100644
--- a/TESTS/DATOS_READONLY/fb2p_frm_1.sc2
+++ b/TESTS/DATOS_READONLY/fb2p_frm_1.sc2
@@ -163,7 +163,7 @@ DEFINE CLASS cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Name = "Cl_olecontrol1", ;
 		Top = 256, ;
 		Width = 131
-		*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="olecontrol"  Nombre="cl_form1.Cl_olecontrol1" Parent="cl_form1" ObjName="Cl_olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMC9jhY4as8BAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAOAAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAAIAAAABwAAAP7///8JAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP////8AAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAADQAAAAAAAAUAAIAAAAAAAAABAAAAAAABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dABCdWxsZXRJbmRlbnQAEQAAAE4NAAAABwAAAAAAAAAAAAAAEAAAAERpc2FibGVOb1Njcm9sbAAFAAAATAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABSaWdodE1hcmdpbgARAAAATg0AAAAHAAAAAAAAAAAAAAAFAAAAVGV4dAAUAAAASAAAAAALAAAAT2xlY29udHJvbDENAAAAQXV0b1ZlcmJNZW51AAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
+		*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="olecontrol"  Nombre="cl_form1.Cl_olecontrol1" Parent="cl_form1" ObjName="Cl_olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADDFeaPwcc8BAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAOAAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAAIAAAABwAAAP7///8JAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP////8AAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAADQAAAAAAAAUAAIAAAAAAAAABAAAAAAABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dABCdWxsZXRJbmRlbnQAEQAAAE4NAAAABwAAAAAAAAAAAAAAEAAAAERpc2FibGVOb1Njcm9sbAAFAAAATAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABSaWdodE1hcmdpbgARAAAATg0AAAAHAAAAAAAAAAAAAAAFAAAAVGV4dAAUAAAASAAAAAALAAAAT2xlY29udHJvbDENAAAAQXV0b1ZlcmJNZW51AAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
 
 	ADD OBJECT 'Commandgroup1' AS commandgroup WITH ;
 		BackColor = 255,128,255, ;
@@ -534,12 +534,21 @@ DEFINE CLASS dataenvironment AS dataenvironment
 
 	ADD OBJECT 'Cursor1' AS cursor WITH ;
 		Alias = "encuestas", ;
+		BufferModeOverride = 1, ;
+		Comment = "", ;
 		CursorSource = encuestas.dbf, ;
-		Height = 90, ;
+		Exclusive = .F., ;
+		Filter = "", ;
+		Height = 98, ;
 		Left = 10, ;
 		Name = "Cursor1", ;
+		NoDataOnLoad = .F., ;
+		Order = "", ;
+		OrderDirection = 0, ;
+		ReadOnly = .F., ;
+		Tag = "", ;
 		Top = 20, ;
-		Width = 90
+		Width = 102
 		*< END OBJECT: BaseClass="cursor" />
 	
 	PROCEDURE BeforeOpenTables
@@ -547,4 +556,9 @@ DEFINE CLASS dataenvironment AS dataenvironment
 		
 	ENDPROC
 
+	PROCEDURE Cursor1.Init
+		*-- Comentario en método [Dataenvironment.Cursor1.Init]
+		
+	ENDPROC
+
 ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/fb2p_frm_1.sct b/TESTS/DATOS_READONLY/fb2p_frm_1.sct
index 0aa742d5b44eded9395a8e5b0595faf0c2bd854d..09244dfba2929b253b0b1eefde691e4f9ccb823b 100644
GIT binary patch
delta 463
zcmexfGPQz*fx$*}a=)qgMuo?W6BSrDGc#RdVq#>Q+{Pp~`5}vBv;{9$cxFmThJvkv
zp@9)Emt#(5Vlj}Tl$w`Znp#|vSggd$<y4xMmRjVSpOWfdmReMlnUV@p&dcRrl#*Hm
zQVdiBX1in-r6!kT=H~$g4JOO5Dmb`SB<GYCXO@9<=(*|fa=B&Zl)yCwr6#8M=jBww
zB>nPT5=#>O^L+9XQy^lKtyrb`Ljr>Qon2i*gIpCn^D;{&_b}@iIF}X`=NB33fdpcC
zxp=u;{airGc)1uD7#M+g`M*#96_`M*J`kQLC@Eb#5yVvmVq+i%0aqYq0%FI>3M^7=
zEDT`deOMHP1b~8`Kn&8rpb5l41H?85vZm^=862%#{Go939z$aeCcS%;KUylKnB5Ow
zx=2rqK~FCRh%)nleoje^Nz1P&D9YE%uzN7YS3p++O*T8VG8q`6#d;ZT53$LYXXY6j
QB^G4rW%xb1Ev#h#07w0S)Bpeg

delta 159
zcmbPQ@x6qDfx)Vrfq{W>qu?jTi3*&XnVGIJ=`j?C<QFK|Di|5?a`~jDl>nKBK&D4(
zW_kvQV+rJhXQq^7fZ3B3Sj8vjv&v0A&nmh3Gh3n#+kw4(VisAOql}F?n9SZy?zdJ_
zuzMfAbdjDIgPvXt5M|~i=ai<T#-!y}6cpv_Ww?Eqe9>Bt$?xOjkJfT*VV`abYZ(9l
DcC|AI

diff --git a/TESTS/DATOS_READONLY/fb2p_frm_1.scx b/TESTS/DATOS_READONLY/fb2p_frm_1.scx
index 3813f51c869a2e8705c84f706099972b5ad99f3e..46c39386490dbc7e20625bd44d2178cbefb82a43 100644
GIT binary patch
literal 4303
zcmeH~Pe>GD7{<R$%>)BA%}iyp)GQO%bk)RQoSkrEznyhwR!Jxlu`JLcgDzo0hfaw>
zUHU^pmkudJ1RW&IYaWWgOGO10Asz|}iO70pzt?3~W<S_rj=k`kXXbt8d!Lzc)!BwE
zS@{)=v7F3dY?CWvBV*y9Vjk8b9FDpHo1ElRSTq#qj%oqF<!{C&cb#trxMr9N4>J}j
zwDHxTVi;l#FNbEXTOad-x{5a6Y2$Y)hDI}Zm5r}=9tkO2v!?P|8$YZ>w2*1pjPJMe
zBYIeim;udT+-vWfnrdoz0KD18=bG82`(t;=+iZMXpQ`)C^>xJj<R_p9V;&sF6}$C8
zt<f@3vAaxO%~(V;v`CNU$F=hSPD<rt2)BO7sr&=*yCr@T{HVmov*AZ2z7PH}iQfXh
zU*fmIAGGnKxP7#(;-|4$e}8!~>;J~1>YU>@!D9@Z9~>O<Bvo3ECnNRQCFFT}10lcO
zYb1rxK|>pz6o#In{V~!r_=~g%5^FhI9Q`Cs^sIfGFt4|{v8lDq>+@cx&%-_FG?)di
zsrNC9v5pi&*N3bfOT$(%EN>HIm7pG2b%<0PrMI;Si$BqZcll!25_AP*6);u=oR&1~
zF%6!Fz5<`X59&Dyl!pDX{*R!tw=z};s(}wUEos;?4gL+yEn=(`>;+Cs8dh5@#`>Tt
zFu(xyoCHe43b%=ol~6BGfk8dj!^{#fvL8AE#=#`@To2Q>i;*UD0E~hw)N?&-v{Z~7
zhh77B!8G+;4?Dg?j2wnu0+V2hdaj2(C=(-}K<B|C_(DC`!=|j4Kh#6$Q?LNuQtyw4
zu|DhNFO8CZ^n;aRQXg~(Tm*NhmqteXRB6}(4SoY%0xO_wSA1>SJJPTz8axA?1uwui
z>ZP581=6tc-C|@Nv>kMTVd}Xa_MHa*h2~Y^5dsA`E$N+|qrsP<6W}(Oqn?vMX_&uS
zjEq1}fV1ER^;{2oPJ>@U--Bh4U*jZ3tdZW?O&WY3`UuQ{&(w1gDGe*$BSuz1n}7mN
zQqT3UB^ta6Ex`B68qflqmh{dp>=R?JLT`Z?@Qiv+0;OSf^>}ok2MmERFaZ+l1CGBQ
gOzfoIkAJaP`z9KHMa7QYvWj-QE-ofTKk@9+e_UNTH2?qr

literal 4303
zcmeH~OK1~O6o$uW@d0XmYkkGGDvC;Gk~GOeWipwzskxbSCbcahDpGvl1AL$hsV)Q+
zMHE4FAqt{`peq#@U5Fw`H@;ACBPzIXrF5YiU;pHudXt$+NQW%F@Xg7b|K9V@xoI;q
zp-FXP7f6ycZp>~ROGjX|B;_({zSS@p6m1j^<4UJUUD<SJm!3}9`gj~BIP`p)=~iB4
zIZ4V+^U$@7YFT^@n~ylgvA&>Z3=L_v$U{%6mQFR;Vh`O&c4Sqi+f~^z4?U-vdNyy%
z5?kq|n?_DI^J(3ZnCz|RbuF)B16b5UXL`QfNEJF{2@f6Drx_`JeX9$4=?)l~f(Aum
zs@M9AuGk_*q07?Ml4R<ZZm!o;xOSGtq;finF#Ag`r-z|;R?s8RyDI3|8`fJvZ-KtC
zf*ymurGg%Z-shorp?#$7!FJ%_>~CU0`hN&&24nb72wGeB_4VxumW&Z?PoVtl*`x)#
z)7g~KZ3Q=ld%8nO*;KN!9F^k{B@$N>G%1I;jXw8N+=*YLx1e}r>-bqW#bV9=EX*QG
zLJq~-qw9p(dHQ>}ig*VMfY+3B7OLi4m<@Mk2(!(&!oA=)I7e4|jbb&$opT&!oh%lT
z<**V9g|Lrn>-qEyVlUVR4pGiosG4(!Su~!r&BBp*xFwXBF@=|CMht^iu%2?&6nD;X
zo5{j#!&E+fJK{lb5?rF3vrskXZZk!g6>eInvJp40UEl~f1N;uRSy-5zp3ci&Lc9U)
zgQt}9W9T-E2(yDTc**047r+g0pK`S^iwd&`GkM7;h%dk=Fhsf9n6(JATeEn{2Z&F>
z8}ONOwK0ncvp2JO$xn!1!5=VrjvpJo#{Heeh1nx2{2cK;7y^NYTAC$<*@U^g@GQh;
z5C`p)^JD4mOciE<dA#H##0IbmtfAbdh4^6xBN=Y9B+QhSL?R-G?gn|O0mMP@4*Ujw
zhucgOovpGTTQOE6W<W3KryN&Cc66JiL}!6UUaTH*0ayu4%8ks1&vu*XqO+q^_$=ZT
za2q_QTy4x+MQ2tMFS!MAFX#u?DOVe_HqqHDD*O@g8~6npoBi1EHSTR}7oFXt!uJp#
zgO}ht<@{K>&C;T?rp3IZf~bNl*iX6In01KGeo*1MC6Y7^G=etZcep#lqulT_$YCmc
z0`Vfa4xUlYkD<d%V=?;{Lr+(krM%>3!~@_IxJ<d)nAx`&GJ9*kxMF-k{0Zup<Ea+-
z9gfa=+B8#`on3*g0}sI<_yE3v;*rFgaz~;#Q~vY67mMLH(c(7?uVu%|6do*-FRsz>
E7mjjqrT_o{