[extpascal] r816 committed - Updating Samples for Ext JS 4.2

[extp...@googlecode.com]

Revision: 816
Author: wanderl...@gmail.com
Date: Thu Apr 4 12:11:50 2013
Log: Updating Samples for Ext JS 4.2
http://code.google.com/p/extpascal/source/detail?r=816

Modified:
/trunk/ExtJSWrapper/ExtToPascal.dsk
/trunk/ExtPascalSamples/ArrayGrid.pas
/trunk/ExtPascalSamples/MessageBoxes.pas

=======================================
--- /trunk/ExtJSWrapper/ExtToPascal.dsk Thu Apr 4 11:42:55 2013
+++ /trunk/ExtJSWrapper/ExtToPascal.dsk Thu Apr 4 12:11:50 2013
@@ -21,20 +21,20 @@

File_19=TSourceModule,'E:\extpascal\ext-4.2.0\docs\resources\prettify\prettify.css',0,1,1,59,2,0,0,,

[Modules]
-Module0=E:\extpascal\ExtJSWrapper\ExtToPascal.dproj
-Module1=E:\extpascal\ExtJSWrapper\ExtFixes.txt
+Module0=E:\extpascal\ExtJSWrapper\ExtFixes.txt
+Module1=E:\extpascal\ExtJSWrapper\ExtToPascal.dproj
Module2=E:\extpascal\ExtJSWrapper\Ext.pas
Module3=E:\extpascal\ExtPascalUtils.pas
Module4=E:\extpascal\ExtPascal.pas
Count=5
EditWindowCount=1

+[E:\extpascal\ExtJSWrapper\ExtFixes.txt]
+ModuleType=TSourceModule
+
[E:\extpascal\ExtJSWrapper\ExtToPascal.dproj]
ModuleType=TBaseProject

-[E:\extpascal\ExtJSWrapper\ExtFixes.txt]
-ModuleType=TSourceModule
-
[E:\extpascal\ExtJSWrapper\Ext.pas]
ModuleType=TSourceModule
FormState=0
@@ -52,7 +52,7 @@

[EditWindow0]
ViewCount=5
-CurrentEditView=E:\extpascal\ExtJSWrapper\ExtToPascal.dpr
+CurrentEditView=E:\extpascal\ExtJSWrapper\ExtFixes.txt
View0=0
View1=1
View2=2
@@ -87,8 +87,8 @@
[View0]
CustomEditViewType=TEditView
Module=E:\extpascal\ExtJSWrapper\ExtToPascal.dpr
-CursorX=19
-CursorY=7
+CursorX=1
+CursorY=1533
TopLine=1
LeftCol=1
Elisions=
@@ -109,9 +109,9 @@
[View2]
CustomEditViewType=TEditView
Module=E:\extpascal\ExtJSWrapper\Ext.pas
-CursorX=23
-CursorY=17306
-TopLine=17276
+CursorX=136
+CursorY=3
+TopLine=1
LeftCol=1
Elisions=
Bookmarks=
@@ -169,7 +169,7 @@

[Breakpoints]
Count=1
-Breakpoint0='E:\extpascal\ExtJSWrapper\ExtToPascal.dpr',824,'',0,1,'',1,0,0,'',1,'','','',0,''
+Breakpoint0='E:\extpascal\ExtJSWrapper\ExtToPascal.dpr',827,'',0,1,'',1,0,0,'',1,'','','',0,''

[EmbarcaderoWin32Debugger_AddressBreakpoints]
Count=0
=======================================
--- /trunk/ExtPascalSamples/ArrayGrid.pas Fri Mar 22 14:59:53 2013
+++ /trunk/ExtPascalSamples/ArrayGrid.pas Thu Apr 4 12:11:50 2013
@@ -73,34 +73,34 @@
'return V;');
with TExtGridColumn.AddTo(Columns) do begin
Id := 'company';
- Header := 'Company';
+ Text := 'Company';
Width := 160;
Sortable := true;
DataIndex := Id;
end;
with TExtGridColumn.AddTo(Columns) do begin
- Header := 'Price';
+ Text := 'Price';
Width := 75;
Sortable := true;
DataIndex := 'price';
Renderer := 'usMoney';
end;
with TExtGridColumn.AddTo(Columns) do begin
- Header := 'Change';
+ Text := 'Change';
Width := 75;
Sortable := true;
DataIndex := 'change';
RendererExtFunction := ColorValue;
end;
with TExtGridColumn.AddTo(Columns) do begin
- Header := '% Change';
+ Text := '% Change';
Width := 75;
Sortable := true;
DataIndex := 'pctchange';
RendererExtFunction := ColorValue;
end;
with TExtGridColumn.AddTo(Columns) do begin
- Header := 'Last Updated';
+ Text := 'Last Updated';
Width := 85;
Sortable := true;
DataIndex := 'lastchange';
=======================================
--- /trunk/ExtPascalSamples/MessageBoxes.pas Sat Mar 30 13:46:36 2013
+++ /trunk/ExtPascalSamples/MessageBoxes.pas Thu Apr 4 12:11:50 2013
@@ -52,7 +52,7 @@
Width := 300;
Buttons := ExtMessageBox.OKCANCEL;
Multiline := true;
- AnimTarget:= 'ButtonMultiline';
+ AnimateTarget := 'ButtonMultiline';
Fn := JSFunction(ReadButtonJS);
end;
Handler := ExtMessageBox.Show(ShowConfig);
@@ -67,7 +67,7 @@
Msg := 'You are closing a tab that has unsaved
changes.<br/>Would you like to save your changes?';
Icon := ExtMessageBox.QUESTION;
Buttons := ExtMessageBox.YESNOCANCEL;
- AnimTarget := Id;
+ AnimateTarget := Id;
Fn := Ajax(ReadButtonAjax, ['ButtonID', '%0']);
end;
Handler := ExtMessageBox.Show(ShowConfig);
@@ -83,9 +83,9 @@
Progress := true;
Msg := 'Loading items...';
Wait := true;
- AnimTarget := Id;
+ AnimateTarget := Id;
ProgressText := 'Loading...';
- WaitConfig := TExtProgressWaitConfig.Create;
+ WaitConfig := TExtWaitConfig.Create;
with WaitConfig do begin
Duration := 5000;
Interval := 500;
@@ -108,9 +108,9 @@
Width := 300;
Wait := true;
Icon := 'ext-mb-download';
- AnimTarget := Id;
+ AnimateTarget := Id;
ProgressText := 'Saving...';
- WaitConfig := TExtProgressWaitConfig.Create;
+ WaitConfig := TExtWaitConfig.Create;
with WaitConfig do begin
Duration := 5000;
Interval := 500;