Skip to content

Commit

Permalink
Updating Samples for Ext JS 4.2
Browse files Browse the repository at this point in the history
  • Loading branch information
wanderlan.anjos@gmail.com committed Mar 28, 2013
1 parent e15ee8f commit d3a8290
Show file tree
Hide file tree
Showing 4 changed files with 225 additions and 82 deletions.
176 changes: 175 additions & 1 deletion ExtJSWrapper/Ext.pas
View file
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
unit Ext;

// Generated by JSToPascal v.0.9.9, at 27/03/2013 13:43:47
// Generated by JSToPascal v.0.9.9, at 28/03/2013 10:27:47
// from "\extpascal\ext-4.2.0\src

interface
Expand Down Expand Up @@ -1778,6 +1778,7 @@ TExtLayout = class(TExtAbstractComponent)
public
function JSClassName : string; override;
{$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF}
function OnContentChange(Child : TExtComponent) : TExtFunction;
property Done : Boolean read FDone write SetFDone;
property IsLayout : Boolean read FIsLayout write SetFIsLayout;
end;
Expand Down Expand Up @@ -2046,6 +2047,25 @@ TExtDomAbstractElement_style = class(TExtAbstractComponent)
public
function JSClassName : string; override;
{$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF}
function ApplyStyles(Styles : String) : TExtFunction; overload;
function GetBorderWidth(Side : String) : TExtFunction;
function GetHeight(ContentHeight : Boolean = false) : TExtFunction;
function GetMargin(Sides : String = '') : TExtFunction;
function GetPadding(Side : String) : TExtFunction;
function GetSize(ContentSize : Boolean = false) : TExtFunction;
function GetStyle(PropertyJS : String; InlineJS : Boolean = false) : TExtFunction; overload;
function GetViewSize : TExtFunction;
function GetWidth(ContentWidth : Boolean = false) : TExtFunction;
function IsStyle(Style : String; Value : String) : TExtFunction;
function IsTransparent(Prop : String) : TExtFunction;
function Mask(Msg : String = ''; MsgCls : String = '') : TExtFunction;
function RadioCls(ClassName : String) : TExtFunction; overload;
function Repaint : TExtFunction;
function SetHeight(Height : Integer) : TExtFunction; overload;
function SetSize(Width : Integer; Height : Integer) : TExtFunction; overload;
function SetStyle(PropertyJS : String; Value : String = '') : TExtFunction; overload;
function SetWidth(Width : Integer) : TExtFunction; overload;
function Unmask : TExtFunction;
end;

TExtDomAbstractElement_traversal = class(TExtAbstractComponent)
Expand Down Expand Up @@ -5621,6 +5641,7 @@ TExtDataJsonPSingleton = class(TExtAbstractComponent)
public
function JSClassName : string; override;
{$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF}
function Abort(Request : String = '') : TExtFunction; overload;
end;

TExtChartHighlight = class(TExtAbstractComponent)
Expand Down Expand Up @@ -14093,6 +14114,14 @@ TExtWindowMessageBox = class(TExtWindow)
public
function JSClassName : string; override;
{$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF}
function Alert(Title : String; Msg : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction;
function Confirm(Title : String; Msg : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction;
function Progress(Title : String; Msg : String; ProgressText : String = '') : TExtFunction;
function Prompt(Title : String; Msg : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Multiline : Boolean = false; Value : String = '') : TExtFunction; overload;
function SetIcon(Icon : String; Width : Integer = 0; Height : Integer = 0) : TExtFunction;
function Show(Config : TExtObject; ConfigAnimateTarget : String; ConfigButtons : Integer = 0; ConfigClosable : Boolean = false; ConfigCls : String = ''; ConfigDefaultTextHeight : Integer = 0; ConfigFn : TExtFunction = nil; ConfigFnButtonId : String = ''; ConfigFnText : String = ''; ConfigFnOpt : TExtObject = nil; ConfigButtonText : TExtObject = nil; ConfigScope : TExtObject = nil; ConfigIcon : String = ''; ConfigIconCls : String = ''; ConfigDefaultFocus : String = ''; ConfigMaxWidth : Integer = 0; ConfigMinWidth : Integer = 0; ConfigModal : Boolean = false; ConfigMsg : String = ''; ConfigMultiline : Boolean = false; ConfigProgress : Boolean = false; ConfigProgressText : String = ''; ConfigPrompt : Boolean = false; ConfigProxyDrag : Boolean = false; ConfigTitle : String = ''; ConfigValue : String = ''; ConfigWait : Boolean = false; ConfigWaitConfig : TExtObject = nil; ConfigWidth : Integer = 0) : TExtFunction; overload;
function UpdateProgress(Value : Integer = 0; ProgressText : String = ''; Msg : String = '') : TExtFunction;
function Wait(Msg : String; Title : String = ''; Config : TExtObject = nil) : TExtFunction;
end;

// Procedural types for events TExtMenuColorPicker
Expand Down Expand Up @@ -17699,6 +17728,11 @@ function TExtLayout.JSClassName : string; begin

{$IFDEF FPC}constructor TExtLayout.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF}

function TExtLayout.OnContentChange(Child : TExtComponent) : TExtFunction; begin
JSCode(JSName + '.onContentChange(' + VarToJSON([Child, false]) + ');', 'TExtLayout');
Result := Self;
end;

function TExtLayoutClassList.JSClassName : string; begin
Result := 'Ext.layout.ClassList';
end;
Expand Down Expand Up @@ -18464,6 +18498,101 @@ function TExtDomAbstractElement_style.JSClassName : string; begin

{$IFDEF FPC}constructor TExtDomAbstractElement_style.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF}

function TExtDomAbstractElement_style.ApplyStyles(Styles : String) : TExtFunction; begin
JSCode(JSName + '.applyStyles(' + VarToJSON([Styles]) + ');', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.GetBorderWidth(Side : String) : TExtFunction; begin
JSCode(JSName + '.getBorderWidth(' + VarToJSON([Side]) + ');', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.GetHeight(ContentHeight : Boolean = false) : TExtFunction; begin
JSCode(JSName + '.getHeight(' + VarToJSON([ContentHeight]) + ');', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.GetMargin(Sides : String = '') : TExtFunction; begin
JSCode(JSName + '.getMargin(' + VarToJSON([Sides]) + ');', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.GetPadding(Side : String) : TExtFunction; begin
JSCode(JSName + '.getPadding(' + VarToJSON([Side]) + ');', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.GetSize(ContentSize : Boolean = false) : TExtFunction; begin
JSCode(JSName + '.getSize(' + VarToJSON([ContentSize]) + ');', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.GetStyle(PropertyJS : String; InlineJS : Boolean = false) : TExtFunction; begin
JSCode(JSName + '.getStyle(' + VarToJSON([PropertyJS, InlineJS]) + ');', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.GetViewSize : TExtFunction; begin
JSCode(JSName + '.getViewSize();', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.GetWidth(ContentWidth : Boolean = false) : TExtFunction; begin
JSCode(JSName + '.getWidth(' + VarToJSON([ContentWidth]) + ');', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.IsStyle(Style : String; Value : String) : TExtFunction; begin
JSCode(JSName + '.isStyle(' + VarToJSON([Style, Value]) + ');', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.IsTransparent(Prop : String) : TExtFunction; begin
JSCode(JSName + '.isTransparent(' + VarToJSON([Prop]) + ');', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.Mask(Msg : String = ''; MsgCls : String = '') : TExtFunction; begin
JSCode(JSName + '.mask(' + VarToJSON([Msg, MsgCls]) + ');', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.RadioCls(ClassName : String) : TExtFunction; begin
JSCode(JSName + '.radioCls(' + VarToJSON([ClassName]) + ');', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.Repaint : TExtFunction; begin
JSCode(JSName + '.repaint();', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.SetHeight(Height : Integer) : TExtFunction; begin
JSCode(JSName + '.setHeight(' + VarToJSON([Height]) + ');', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.SetSize(Width : Integer; Height : Integer) : TExtFunction; begin
JSCode(JSName + '.setSize(' + VarToJSON([Width, Height]) + ');', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.SetStyle(PropertyJS : String; Value : String = '') : TExtFunction; begin
JSCode(JSName + '.setStyle(' + VarToJSON([PropertyJS, Value]) + ');', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.SetWidth(Width : Integer) : TExtFunction; begin
JSCode(JSName + '.setWidth(' + VarToJSON([Width]) + ');', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_style.Unmask : TExtFunction; begin
JSCode(JSName + '.unmask();', 'TExtDomAbstractElement_style');
Result := Self;
end;

function TExtDomAbstractElement_traversal.JSClassName : string; begin
Result := 'Ext.dom.AbstractElementtraversal';
end;
Expand Down Expand Up @@ -27666,6 +27795,11 @@ function TExtDataJsonPSingleton.JSClassName : string; begin

{$IFDEF FPC}constructor TExtDataJsonPSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF}

function TExtDataJsonPSingleton.Abort(Request : String = '') : TExtFunction; begin
JSCode(JSName + '.abort(' + VarToJSON([Request]) + ');', 'TExtDataJsonPSingleton');
Result := Self;
end;

procedure TExtChartHighlight.SetFHighlight(Value : Boolean); begin
FHighlight := Value;
JSCode('highlight:' + VarToJSON([Value]));
Expand Down Expand Up @@ -45626,6 +45760,46 @@ function TExtWindowMessageBox.JSClassName : string; begin

{$IFDEF FPC}constructor TExtWindowMessageBox.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF}

function TExtWindowMessageBox.Alert(Title : String; Msg : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin
JSCode(JSName + '.alert(' + VarToJSON([Title, Msg, Fn, true, Scope, false]) + ');', 'TExtWindowMessageBox');
Result := Self;
end;

function TExtWindowMessageBox.Confirm(Title : String; Msg : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin
JSCode(JSName + '.confirm(' + VarToJSON([Title, Msg, Fn, true, Scope, false]) + ');', 'TExtWindowMessageBox');
Result := Self;
end;

function TExtWindowMessageBox.Progress(Title : String; Msg : String; ProgressText : String = '') : TExtFunction; begin
JSCode(JSName + '.progress(' + VarToJSON([Title, Msg, ProgressText]) + ');', 'TExtWindowMessageBox');
Result := Self;
end;

function TExtWindowMessageBox.Prompt(Title : String; Msg : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Multiline : Boolean = false; Value : String = '') : TExtFunction; begin
JSCode(JSName + '.prompt(' + VarToJSON([Title, Msg, Fn, true, Scope, false, Multiline, Value]) + ');', 'TExtWindowMessageBox');
Result := Self;
end;

function TExtWindowMessageBox.SetIcon(Icon : String; Width : Integer = 0; Height : Integer = 0) : TExtFunction; begin
JSCode(JSName + '.setIcon(' + VarToJSON([Icon, Width, Height]) + ');', 'TExtWindowMessageBox');
Result := Self;
end;

function TExtWindowMessageBox.Show(Config : TExtObject; ConfigAnimateTarget : String; ConfigButtons : Integer = 0; ConfigClosable : Boolean = false; ConfigCls : String = ''; ConfigDefaultTextHeight : Integer = 0; ConfigFn : TExtFunction = nil; ConfigFnButtonId : String = ''; ConfigFnText : String = ''; ConfigFnOpt : TExtObject = nil; ConfigButtonText : TExtObject = nil; ConfigScope : TExtObject = nil; ConfigIcon : String = ''; ConfigIconCls : String = ''; ConfigDefaultFocus : String = ''; ConfigMaxWidth : Integer = 0; ConfigMinWidth : Integer = 0; ConfigModal : Boolean = false; ConfigMsg : String = ''; ConfigMultiline : Boolean = false; ConfigProgress : Boolean = false; ConfigProgressText : String = ''; ConfigPrompt : Boolean = false; ConfigProxyDrag : Boolean = false; ConfigTitle : String = ''; ConfigValue : String = ''; ConfigWait : Boolean = false; ConfigWaitConfig : TExtObject = nil; ConfigWidth : Integer = 0) : TExtFunction; begin
JSCode(JSName + '.show(' + VarToJSON([Config, false, ConfigAnimateTarget, ConfigButtons, ConfigClosable, ConfigCls, ConfigDefaultTextHeight, ConfigFn, true, ConfigFnButtonId, ConfigFnText, ConfigFnOpt, false, ConfigButtonText, false, ConfigScope, false, ConfigIcon, ConfigIconCls, ConfigDefaultFocus, ConfigMaxWidth, ConfigMinWidth, ConfigModal, ConfigMsg, ConfigMultiline, ConfigProgress, ConfigProgressText, ConfigPrompt, ConfigProxyDrag, ConfigTitle, ConfigValue, ConfigWait, ConfigWaitConfig, false, ConfigWidth]) + ');', 'TExtWindowMessageBox');
Result := Self;
end;

function TExtWindowMessageBox.UpdateProgress(Value : Integer = 0; ProgressText : String = ''; Msg : String = '') : TExtFunction; begin
JSCode(JSName + '.updateProgress(' + VarToJSON([Value, ProgressText, Msg]) + ');', 'TExtWindowMessageBox');
Result := Self;
end;

function TExtWindowMessageBox.Wait(Msg : String; Title : String = ''; Config : TExtObject = nil) : TExtFunction; begin
JSCode(JSName + '.wait(' + VarToJSON([Msg, Title, Config, false]) + ');', 'TExtWindowMessageBox');
Result := Self;
end;

procedure TExtMenuColorPicker.SetFHideOnClick(Value : Boolean); begin
FHideOnClick := Value;
JSCode('hideOnClick:' + VarToJSON([Value]));
Expand Down
Loading

0 comments on commit d3a8290

Please sign in to comment.