* AjaxForms now supports individual fields

* UAC.res added to ExtPascalSamples folder
nikitayev · Apr 14, 2010 · 453e0d9 · 453e0d9
1 parent 5c09052
commit 453e0d9
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git 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