From 453e0d930b512dc73e6049afc7c68cef4d7338ee Mon Sep 17 00:00:00 2001
From: "wanderlan.anjos" <wanderlan.anjos@0bf252ff-4e48-0410-9925-dbe306d98b98>
Date: Wed, 14 Apr 2010 14:41:09 +0000
Subject: [PATCH] * AjaxForms now supports individual fields * UAC.res added to
 ExtPascalSamples folder

---
 ExtPascal.pas            |   7 ++++++-
 ExtPascalSamples/UAC.res | Bin 0 -> 564 bytes
 2 files changed, 6 insertions(+), 1 deletion(-)
 create mode 100644 ExtPascalSamples/UAC.res

diff --git a/ExtPascal.pas b/ExtPascal.pas
index 287a101..1177269 100644
--- a/ExtPascal.pas
+++ b/ExtPascal.pas
@@ -1654,7 +1654,12 @@ function TExtObject.AjaxForms(Method : TExtProcedure; Forms : array of TExtObjec
 begin
   S := '';
   for I := 0 to high(Forms) do begin
-    TExtFormBasicForm(TExtFormFormPanel(Forms[I]).GetForm).GetValues(true);
+    if Forms[I] is TExtFormField then begin
+      S := S + '"' + TExtFormField(Forms[I]).ID + '="+';
+      TExtFormField(Forms[I]).GetValue;
+    end
+    else
+      TExtFormBasicForm(TExtFormFormPanel(Forms[I]).GetForm).GetValues(true);
     S := S + TExtObject(Forms[I]).ExtractJSCommand;
     if I <> high(Forms) then S := S + '+"&"+';
   end;
diff --git a/ExtPascalSamples/UAC.res b/ExtPascalSamples/UAC.res
new file mode 100644
index 0000000000000000000000000000000000000000..3c857d3a17206cdde000e24ffb88b5b3ea810d90
GIT binary patch
literal 564
zcma)3O>e?54DGH++;@y}oJ0%bvY{5lfk{X^AnoIxr3ND9gV||E|M%|9Re`}_(jqyE
z{rv1_CrOe-upJJa@$>3@-<<GU&S8hoFzMx|q<pq_R@8uGf-mGK9ZCUShtl{>A>Uq~
z1`kqDRK8R;cqn88BxlopFIPn1K5QenfTu!M=qIGN;1ms<(HJPK<3I;DQRLEkB!yGn
ztbyYDWw)v5_k=iCTbAIXiA@_6zq*F$L;A?ty6_Hz2BLs-)LRol#|l~6-4XW6vA5XA
zl_IU|i*h^5syl9Mb_{+QKfagQv3bOb;?l3fKW7<BUO=laC(sqL+@sGCgwKj+gmQ(Z
zHWoHOXYdkU?3o&Q>CaGu6}G(#*|H77ymZDJil|~hmf3Y<diHnuJi8K;XXmMyo@b};
GV&?}t2dU@)

literal 0
HcmV?d00001