ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibdataseteditor.pas
(Generate patch)

Comparing ibx/trunk/design/ibdataseteditor.pas (file contents):
Revision 17 by tony, Sat Dec 28 19:22:24 2013 UTC vs.
Revision 19 by tony, Mon Jul 7 13:00:15 2014 UTC

# Line 39 | Line 39 | type
39    { TIBDataSetEditorForm }
40  
41    TIBDataSetEditorForm = class(TForm)
42 +    GenerateParams: TCheckBox;
43      TestBtn: TButton;
44      CancelButton: TButton;
45      FieldsPage: TTabSheet;
# Line 108 | Line 109 | begin
109    with TIBDataSetEditorForm.Create(Application) do
110    try
111      SetDataSet(DataSet);
112 <    Result := ShowModal = mrOK
112 >    if assigned(DataSet) then
113 >        GenerateParams.Checked := DataSet.GenerateParamNames;
114 >    Result := ShowModal = mrOK;
115 >    if Result and assigned(DataSet) then
116 >      DataSet.GenerateParamNames := GenerateParams.Checked
117    finally
118      Free
119    end;
# Line 161 | Line 166 | end;
166   procedure TIBDataSetEditorForm.TestBtnClick(Sender: TObject);
167   begin
168    if SQLMemo.Lines.Text <> '' then
169 <    FIBSystemTables.TestSQL(SQLMemo.Lines.Text);
169 >    FIBSystemTables.TestSQL(SQLMemo.Lines.Text,GenerateParams.Checked);
170   end;
171  
172   procedure TIBDataSetEditorForm.GenerateButtonClick(Sender: TObject);
# Line 285 | Line 290 | begin
290   end;
291  
292   end.
293 <
293 >

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines