trackResetOnLoad是在form load数据的时候是否记录字段原始值的开关。
在setVlaues中会根据这个开关进行判断,如果为true就记录这个数据。
setValues : function(values){
if(values instanceof Array){ // array of objects
for(var i = 0, len = values.length; i < len; i++){
var v = values[i];
var f = this.findField(v.id);
if(f){
f.setValue(v.value);
if(this.trackResetOnLoad){
f.originalValue = f.getValue();
}
}
}
}else{ // object hash
var field, id;
for(id in values){
if(typeof values[id] != 'function' && (field = this.findField(id))){
field.setValue(values[id]);
if(this.trackResetOnLoad){
field.originalValue = field.getValue();
}
}
}
}
return this;
}
分享到:
相关推荐
matlab开发-PreprocessCP2TFORM。在分段线性图像转换中删除折叠的三角形,因此cp2tform始终有效。
当CP2TFORM用于分段线性图像变换模式时,它使用三角测量来计算局部图像变换。 有时,当与输入点一起使用时,基点的良好三角剖分会产生折叠三角形。 函数 CP2TFORM 尝试删除导致折叠的控制点,但经常失败并显示错误:...
cp2tform() uses matrix mathematics to perform its tranformation. For an ‘affine’ transformation, as was the case in this project, the parametric motion can be described by the following formulas: u...
function TrimTextOfEdt(aFormObject: TForm): string; //清除Form上EDIT的前后空格 function ClearTextOfEdt(aFormObject: TForm): string; //清除Form上EDIT的内容 function ClearCaptionOfPnl(aFormObject: TForm...
规则很简单,可以序列化并扔入数据库中。 Tform提供反序列化功能。 类型检查。 Tform允许您的规则在编译时进行类型检查。 无国籍状态。 应将状态最小化,并在需要时使其明确。 文献资料 API概述 为您的JSON输入...
Delphi制作最小化到系统托盘的程序&TForm1.FormDestroy不执行的原因.zip
代码演示DELPHI三种调用BPL中FORM的方法,以及正确释放BPL包的方法。
Delphi 获取鼠标按键状态源码,运行本程序后,操作鼠标左右键和中轮,程序将监控到这些鼠标键被按下的状态,并将信息显示在窗口的标题栏中,本程序同时也实现了动态改变窗口标题文字的功能,各个鼠标按键状态获取及...
Delphi 获取系统中已安装的中文输入法,判断是否在中文状态,若是则关闭它,切换半角和全角模式,切换中文标点模式和英文标点模式,并对输入法做相关设置。以下是相关代码: procedure TForm1.closecid; var ...
tform.offsetx=tform.offsetx*scaling; tform.offsety=tform.offsety*scaling; % Get the PCA model for this scale ShapeAppearanceData=Data{scale}.ShapeAppearanceData; ShapeData=Data{scale}.ShapeData; ...
Delphi 拖动treeview菜单节点到右侧列表中,如图所示的示例中,拖动节点可以一直到右侧的列表中,松开鼠标后节点会被保存在右侧列表中,很好的实现了树形菜单TreeView节点的拖动功能。 procedure TForm1.TreeView2...
Delphi添加图层蒙版,运行本程序后,在屏幕上添加一层阴影,透明度大概在70%左右,可看作是在屏幕上方蒙了一层薄膜的感觉,代码简单:procedure TForm1.FormCreate(Sender: TObject); var bTrans: Byte; Old...
procedure TForm1.btnExeClick(Sender: TObject); begin SwitchInput(cmbInput.Text[1]); end; procedure TForm1.btnSoundUpClick(Sender: TObject); begin IncSound(); end; procedure TForm1....
实验要求:设计一个n 个用户的文件系统,每次用户可保存m 个文件,用户在一次运行中只能打开一个文件,对文件必须设置保护措施。至少要有create,delete,open,close,read,write等命令。 概要设计: TForm1 *Form1; ...
TForm1 class TForm Image1: TImage; Label1: TLabel; Timer1: TTimer; Button1: TButton; Edit1: TEdit; procedure Timer1Timer Sender: TObject ; procedure FormCreate Sender: TObject ; procedure ...
Delphi 在ListView中拖动图标,本实例演示如何在程序运行过程中动态拖动TListView组件中的图标。在窗体中添加一个TImageList组件,并且为它添加3个图像文件。然后添加一个TListView组件,设置它的LargeImages和Small...
(3) 在Main.pas中uses中添加unit9, (4) 在Main.pas的最后 在initialization中添加 RegisterClass(TForm9); 在finalization中添加 UnRegisterClass(TForm9); 6 重新编译DelphiWeb.dproj 7 在浏览器中打开,...
TForm1 = class(TForm) MainMenu1: TMainMenu; F1: TMenuItem; fw1: TMenuItem; V1: TMenuItem; H1: TMenuItem; N1: TMenuItem; O1: TMenuItem; S1: TMenuItem; N2: TMenuItem; N3: TMenuItem; Q1: ...
procedure TForm1.Button4Click(Sender: TObject); begin Edit1.Text:=Edit1.Text+'2'; end;
这个是本人最近编制的一个窗体继承类。程序代码很短,但很有用,解决了...用法很简单,只要在新创建的窗体中引用这个类所在的单元,并将TForm1=Class(TForm)改为TForm1=Class(TfdForm)就可以了,其他不需要做任何修改。