Changeset 65 for trunk/Application
- Timestamp:
- Dec 19, 2011, 3:48:33 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Application/UWebObjects.pas
r48 r65 94 94 with TXmlTag(Result).SubElements do begin 95 95 for G := 0 to Groups.Count - 1 do 96 with TQueryFormGroup(Groups[G]) do 97 begin 98 with TXmlString(Items[Add(TXmlString.Create)]) do begin 96 with TQueryFormGroup(Groups[G]) do begin 97 with TXmlString(AddNew(TXmlString.Create)) do begin 99 98 Text := Title; 100 99 end; … … 104 103 for I := 0 to Rows.Count - 1 do 105 104 with TQueryFormItem(Rows[I]) do begin 106 with TXmlString( Items[Add(TXmlString.Create)]) do begin105 with TXmlString(AddNew(TXmlString.Create)) do begin 107 106 Text := Caption + ': '; 108 107 end;
Note:
See TracChangeset
for help on using the changeset viewer.