From 31b180cadf1fd5b75104614a98ac79ed09243e83 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 7 Sep 2016 09:40:46 +0000
Subject: [PATCH] =?UTF-8?q?Revisi=C3=B3n=20de=20TCustomEditor.UpdateAction?=
 =?UTF-8?q?s=20para=20tratar=20de=20solucionar=20el=20alto=20consumo=20de?=
 =?UTF-8?q?=20CPU?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Componentes.Internos.GUISDK/trunk@23 e3f7d858-3362-1a4e-b49c-1b1bd96e4488
---
 Lib/D11/GUISDK_D11D.bpl    | Bin 20480 -> 20480 bytes
 Lib/D11/GUISDK_D11D.dcp    | Bin 3623 -> 3623 bytes
 Lib/D11/GUISDK_D11D.dcu    | Bin 3225 -> 3225 bytes
 Lib/D11/GUISDK_D11R.bpl    | Bin 42496 -> 42496 bytes
 Lib/D11/GUISDK_D11R.dcp    | Bin 29792 -> 29793 bytes
 Lib/D11/GUISDK_D11R.dcu    | Bin 3300 -> 3300 bytes
 Lib/D11/uCustomEditor.dcu  | Bin 11239 -> 11264 bytes
 Lib/D11/uCustomView.dcu    | Bin 9865 -> 9865 bytes
 Lib/D11/uGUIBase.dcu       | Bin 5065 -> 5065 bytes
 Lib/D11/uGUIRegister.dcu   | Bin 981 -> 981 bytes
 Lib/D11/uGUIUtils.dcu      | Bin 1176 -> 1176 bytes
 Packages/GUISDK_D11D.dproj |  19 ++++---------------
 Source/uCustomEditor.pas   |  22 ++++++++++++++++++++--
 13 files changed, 24 insertions(+), 17 deletions(-)

diff --git a/Lib/D11/GUISDK_D11D.bpl b/Lib/D11/GUISDK_D11D.bpl
index e4529162ea55e21988494f3f52cf277d79c62910..64076fe344ba199be2c3d67236e0739db86acb23 100644
GIT binary patch
delta 197
zcmZozz}T>WaRUb<%kE3(!#DFV{xD+E4^{V^%wb{zVK|tGKo}7wDiB74iHHnH4Fec3
zGB5&Z3r2<p5Era>1DXOZ9tMUCkSdsh2WSdF5*^421WZw_0GY4?S%HHo#8sOkOjk$&
E0H>NG761SM

delta 197
zcmZozz}T>WaRUb<i`<K4o|}0Xe;BbGUJzw9nZv{c!f-GVfiNOWR3MB76A>AZ8U`?6
zWMBl+7K{uHATC(%1~dg+JPZsOAXP9056~2VBs!242$-T;0Wx6)vH}NFh^sb7n68il
E067LPe*gdg

diff --git a/Lib/D11/GUISDK_D11D.dcp b/Lib/D11/GUISDK_D11D.dcp
index 70dd0afb0aecb20f6ec0f3582d13387df6713d9c..0d0f03ab55f1fddef71fcc9d9297cec994477a12 100644
GIT binary patch
delta 77
zcmZ23vs`9^AB#b#y640oD+oQIlqDlX-E%W1qX>&~A&|vX!0#UF8SLU6?_y}^qL)&T
aT?Q0oNM#GIEG|jSoqUl)d~-PK1r7jVXBPPY

delta 77
zcmZ23vs`9^AIp&iQC1U!tRVD+QkK&BQC6Ed8AVu>w*h6C3i#baJ%e4m<6R65UG!24
bvJU}88B*DTD~n4~b0=Tq5Z@fmdVvD~E!Z0D

diff --git a/Lib/D11/GUISDK_D11D.dcu b/Lib/D11/GUISDK_D11D.dcu
index 6830ad0af59d7d98300415e89466719c02d78f27..c6616d451f94f8121eb988a85b9b0283dbd8b730 100644
GIT binary patch
delta 63
zcmbO!Ia88HnSnuQCJzIHL8!XtL>@b(!Vq;&rUHKVP|si&?|2tOLl?c2g6uM&C_^e+
RaAk2x>SRMUiH$9yJOJVt5M=-W

delta 63
zcmbO!Ia88HnSnuQCJzI{kp)p!6M5{EwgG9T0)F>U&tMntco#!M7rm5%>_b3NhE%rT
Q%HopL$%bqa8(Tzq06&ou*#H0l

diff --git a/Lib/D11/GUISDK_D11R.bpl b/Lib/D11/GUISDK_D11R.bpl
index 9ccf54422d6c0cb875cdbb66074e04f2ad2e3772..85f3bcf8c5458505c57ca71e8ca06e02d09f2145 100644
GIT binary patch
delta 808
zcmZ9KQAkr!7{||D3M=+7V$q603QB8C*!{jw@<C`++JYfkOr2>i+{1z%tR_V)9oVRG
zCXD7o4?!z@5b|Mkiv}qTChEhW5kVtX2}#^&fe$u(7@Y1klI1xZ&Ueo5$M@&Ji53je
zf+1s+8eYGDH;^((TT+K28Ezhx?8=1AVLZjRpOzwS#+f?(U5M!0PZDD+e6@PcW}X=1
ztLoA>A^2ubtQzrkuXfcm$hfbjfyX*1rOGX~DaThK?&ZRVd0xGx-Ntg0Cf;T2)s9gi
zgkN;kdM1?7%a{Bk`58C!@yf;i0bZ(}(ISSTZ~i9s@jN$+3lXj)4UEOA;gi#o#KJP~
zCe^VageR7Zw7BCdDEPE)a5wRfs#PP=)L84m)BE)#E#qGV=6s<g+0BB&6^u8D#-@Oq
zVQ$Fp55~=*Wewzitb7sT=k`dR=R(@6ipr~2@4jPeI^wykzN>dW3z1LO*Qw?cYcCvX
zcjF_OF?;IQ_~;>LJ7Z1SvTAF$R<2y{J3RHw_1pDCelBO_f?SfzvMN_(BbdMp7O;X1
z?BIkB=ma;M1rK;(5QZTDL3jWONWv_nVGibD0kW_NIar1@D1Z@7XhsXVkgx+g(Su$b
z#9<6z5R*8I^SFRnT*MNV`*9sNP{j&v;udaW4H-3%kxXPJ3)#s@9`aI%uF-9ZP?BaT
zO>>l?mz1SND$)lkQJL0hgH)=}CT-D?_U86B<$nCGp`p!p{CvuoaN6`j{}zl%+GH%l
zSX4jl2)zl~6?AyRz@l!cPDm##yMo@~fQhkj-PFcThvFVV2gy3&;mrRHbe^f>Dc2rB
NPbk(2N?;~!{R1`_93cPz

delta 758
zcmZ9HPe@cj9LMKv3R`&C!%ACh=s_W5i8sIB&r49e$bXTEl^Q0dK?jdkE9_yTM<gn5
zg~jKgLx)#cbnvkBJS-&fXgzq?U=Kn|nHfpE$Y7yG_OLL`7|7-f!~Ev={qUI?GaoSX
zflN@VJLSK+WH)GKt=ZKA_fKjOcPiQzJU7=_eO62w%wqndA3|82RWtiZV~oXzWbMEE
zE_<cE>Ahrk7Ygg6>OEJz;`HaZZf~_juf)Cz@z{$uSe?OsE9cJ(A%?sArdG#pjSP?G
zEN{@-y*_lqD(+p3hNcG0xBu*yt(+AS*OHc-4lp*o7w1+N`G!5xdZO*jju2+zJd4*W
z#E`OYgVNlj%+flVOG_tugA*@pr!~^J%ng?NxwR$4uZp^GLcTuherWAI(v(q=<z?0G
zFMJUqm#(et3$g7tZGKn1$r+2-zbD5U!|jX(<zjLj)b8!OSC2n@q5simxXm5D!acsm
z3w(o@c$rstl{2V=5QL!_THrLqKnDT?I-m!7VG`nyfF#U93evC$4lKcIScVL&KncoF
zfht5Wip|)9IuaV#fj!uZ2~1)d7tz5b^l)tm*D;R;+`uAk;x_J}kGojHGFGsPAqtaD
zMEx{C<8+4-l%!co(Gz+~4lPlZR>`9^TBke}XoHHhNm~2S_C|MR?m?jLy>s)d9Zbcd
zs*t~zLz9!S3}dD`?F0QOIsjC7FThMgs{x!;_yACbV-1W=DpHPpL*Wphf^-eAF#o?m
U<(Zn?)(-*dhC&VCj?X)hzavc+od5s;

diff --git a/Lib/D11/GUISDK_D11R.dcp b/Lib/D11/GUISDK_D11R.dcp
index e422f208e6e2d725012cfcc8d6785a1494f2d51b..76917d3a9cb0f5334ada074bee1058c0a708bcf3 100644
GIT binary patch
delta 274
zcmaFxg7M)C#tCjLdZFr`6TQqJbc;EJ-fsz^|Csac%3@#usgY`!Cv#%517ikDMu@uS
z<~58PMIfw1v5hP$ATg!_Nj<%o;QZ2}<kXl_=hEVm{M@k2)N;Lo#A1;A<U}!v&3@AF
zg;{P$yNXVB)DK}<BI7E$d8WRn5aXT6j~$IzszJ&mo#a>~fHrQncH$LdDL4sK;uA4}
zP1=-+!GS@M(>Xt{Br!8DwMdLXic5jfGmU}i$K-EuCXBZ>YsYhPGdZ$OHp@CIRS0$w
tzk8@>u#0!Ri=knVUP?hW*zK~}yVyC}WtdqUc{M~PUn~~c{JAKX5ddmzRwMub

delta 263
zcmaF(g7Lu%#tCjLhZjUyP4qH@&@JW=dcP%v{$tL&GmC)%q(-V?p3H{H4vZNrL6zo~
zo7XUI6oIf3#Wu32q|A-7Vk(f-(~AktFD*(=jVX05EiTE=4a-a|*DFXY)}0q+H91jC
zVzZz0dtsK4(>H}DJL-q9D4e+|ym_X+rx4@q$&Ve4Sk?iJnJnof$MS7Pl+|WyCtfj@
z3l+D7H~U0PV3Yd8;J~2B>71Wel9-v7T9n2h^+SQtQ;dO$Yx4Iv6UK9!b>ca>nSQcN
vHqSaMwGHTGrUHKVP|si&?|2tO!yvtsg6us&(amz%yV#l7r8nOyYG(uhUPNET

diff --git a/Lib/D11/GUISDK_D11R.dcu b/Lib/D11/GUISDK_D11R.dcu
index 14e0b2d639598c91da28a560b2a16169b25d0a69..fc5b31f976224a1c63565304cdb2e748fddae0f2 100644
GIT binary patch
delta 63
zcmaDN`9zXOnSnv*2@eB<UZ}d~L>@b(!Vq;&rUHKVP|si&?|2tO!yvtsg6s^SC_^e+
RaAk2x>SRSW@r})iJOCC?5q<yw

delta 63
zcmaDN`9zXOnSnv*2@eCq;RR7v6M5{EwgG9T0)F>U&tMntco##%Aib1=>^(qHhE%rT
Q%HopL$%<^^8=Dh(0CbBJ`v3p{

diff --git a/Lib/D11/uCustomEditor.dcu b/Lib/D11/uCustomEditor.dcu
index 77b6c2b99618f1175130cd1a150a6d7d78a84bc8..898acdc37e597eef0839856d7706643044b9b0d6 100644
GIT binary patch
delta 293
zcmaDJ-Vni~%)lVTpu@nR7pm?#kw=@QIs`~t%dtoR`5R*&ib<O?F*q<NaysYdl_X~7
zr51@XNO37JdZsZj{g@mfZp?UVbB}l{3$vj9naK-elsB8plylj4|5(TX1l<fTKvcv2
zTZ}-eB=eiQj6i8}_i?aj_Xoe$Z#AKA$6fz`6m^IGfl1t${8~*pK)m}fSY7LZI-YJ<
zjsPe(^1tgJztYX|anX^nheNyH1c!xp-}vSXG&rhZH^iR6?!(;z|AT6}H&0+<U}*hT
zV%}V5!Z6uey@FA8^AYtBW(5&uUnV}LOeP(sGe%73tXQvbF<FT*osnbGWKrU=WJ#H9
Os;$f9$T~SiyBPqq0$vjU

delta 268
zcmZpOcplE9%)lV@T$_R6@Pa6-i9FgY>*fM!YdMy0Goq|E#y%92`orMBpvdW*pI4HY
znU`9W#vt`WfzeZpfr)E!q_{ETxy`-ett`xY_0CLQD5JdDLZ+O{w$t^`LIxn{W_SUn
zT>muexWx!$mV|Y?{(*>n@N4~6<L+kszxz5|>_+SD5`)R_)Rb*`x?MQ}x(|buM!Nfz
z?un0!j*LAV+WjUtEWG>1H)k1v(vXJT5JSDY4|fav531?jJb{UUq4nG3MD+?r$<4Ra
wLzrd7n0=Y}m@=6(n9gW0opWNn!o_4I$E3+3$79J7G1*UBm+2?V<XY`!0A@a1vj6}9

diff --git a/Lib/D11/uCustomView.dcu b/Lib/D11/uCustomView.dcu
index 9547a6726acd8004003775cac7eee0b78b21dfbf..caf17ce7e213c9ff5770d89c716bfe91987bc11a 100644
GIT binary patch
delta 61
zcmeD5?eyhQW?&HNRAXS!3sv`=$fK^35u)zNR3NFR7ZaRcT9lj`Q|eq=T#}y~mYG_v
OSCCi?lHV9^qy_-^2NFF1

delta 61
zcmeD5?eyhQW?&HNRAXQ`ydcVIB9FRC%G@X`rUFSly_n$q(xT+lm{RA`;*$K_u*}qQ
Qy@JGI-FZ<~8^ev%069$)-2eap

diff --git a/Lib/D11/uGUIBase.dcu b/Lib/D11/uGUIBase.dcu
index 40a0d8879e79b7f664c0e8475cdc73fb5575b0cc..cb157db5c1f05be877fd6a779e8ee46f48f1ca6b 100644
GIT binary patch
delta 29
kcmX@9eo~!BnSnv*q%Z@6UZ}d~L>_IHj1YCtjn;j_0B*Ghb^rhX

delta 29
lcmX@9eo~!BnSnv*q%Z@+;RR7v6M3{*f-21|H(K`z0|0*12#Ejy

diff --git a/Lib/D11/uGUIRegister.dcu b/Lib/D11/uGUIRegister.dcu
index 13573055d61f7397edd5c10e8a1b4ce48f5629ad..cc8aadbaf57d54da701cb18947610a7724daadfc 100644
GIT binary patch
delta 29
kcmcc0ewCd^nSnv*Dl-FvL8!XtL>^<7j1YCtjn0#p0czC;Pyhe`

delta 29
lcmcc0ewCd^nSnv*Dl-Gakp)p!6M2kTO6NyeZFHW*3;=!I2+sfj

diff --git a/Lib/D11/uGUIUtils.dcu b/Lib/D11/uGUIUtils.dcu
index 58c1415de35095f696b6c868b95f7ff8777d11f9..7fa9ad7825637aada55e5ab8b6db8df9bb382501 100644
GIT binary patch
delta 29
kcmbQiIfIi&nSnuQ1`7j&UZ}d~L>^t1j1YCtjkeJ&09aiHS^xk5

delta 29
lcmbQiIfIi&nSnuQ1`7kj;RR7v6M1x5f-21|H`+$C003xw2W<cV

diff --git a/Packages/GUISDK_D11D.dproj b/Packages/GUISDK_D11D.dproj
index f224cd5..7d5fe4b 100644
--- a/Packages/GUISDK_D11D.dproj
+++ b/Packages/GUISDK_D11D.dproj
@@ -49,25 +49,14 @@
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
     <DCCReference Include="..\Source\uGUIRegister.pas" />
-    <DCCReference Include="designide.dcp" />
-    <DCCReference Include="G.dcp" />
-    <DCCReference Include="GU.dcp" />
-    <DCCReference Include="GUI.dcp" />
-    <DCCReference Include="GUIS.dcp" />
-    <DCCReference Include="GUISD.dcp" />
-    <DCCReference Include="GUISDJ.dcp" />
-    <DCCReference Include="GUISDK.dcp" />
-    <DCCReference Include="GUISDK_.dcp" />
-    <DCCReference Include="GUISDK_D.dcp" />
-    <DCCReference Include="GUISDK_D1.dcp" />
-    <DCCReference Include="GUISDK_D11.dcp" />
-    <DCCReference Include="GUISDK_D11R.dcp" />
-    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6011
+EurekaLog Version=6006
 Activate=0
 Activate Handle=1
 Save Log File=1
diff --git a/Source/uCustomEditor.pas b/Source/uCustomEditor.pas
index 2137fdd..4e0cbf5 100644
--- a/Source/uCustomEditor.pas
+++ b/Source/uCustomEditor.pas
@@ -280,7 +280,25 @@ procedure TCustomEditor.UpdateActions;
 var
   I: Integer;
 
+  { Copiado de http://stackoverflow.com/questions/10127685/how-can-i-use-an-action-to-determine-a-controls-visibility }
   procedure TraverseClients(Container: TWinControl);
+  var
+    I: Integer;
+    Control: TControl;
+  begin
+    Application.ProcessMessages;  //  <--- Modificación
+    if Container.Showing and not (csDesigning in Container.ComponentState) then
+      for I := 0 to Container.ControlCount - 1 do
+      begin
+        Control := Container.Controls[I];
+        if (csActionClient in Control.ControlStyle) and Control.Visible then
+            Control.InitiateAction;
+        if (Control is TWinControl) and (TWinControl(Control).ControlCount > 0) then
+          TraverseClients(TWinControl(Control));
+      end;
+  end;
+
+  {procedure TraverseClients(Container: TWinControl);
   var
     I: Integer;
     Control: TControl;
@@ -299,14 +317,14 @@ var
             TraverseClients(TWinControl(Control));
         end;
       end;
-  end;
+  end;}
 
 begin
   if (csDesigning in ComponentState) or not Showing then Exit;
   { Update form }
   InitiateAction;
   { Update main menu's top-most items }
-  if Menu <> nil then
+  if (Assigned(Menu) and Assigned(Menu.Items)) then
     for I := 0 to Menu.Items.Count - 1 do
       with Menu.Items[I] do
         if Visible then InitiateAction;