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

Comparing ibx/trunk/design/ibrefreshsqleditor.pas (file contents):
Revision 106 by tony, Thu Jan 18 14:37:35 2018 UTC vs.
Revision 107 by tony, Thu Jan 18 14:37:40 2018 UTC

# Line 73 | Line 73 | begin
73        GenerateParams.Checked := DataSet.GenerateParamNames;
74      end;
75      IBSQLEditFrame1.SQLText.Lines.Assign(SelectSQL);
76 +    IBSQLEditFrame1.SelectProcs := true;
77      Result := ShowModal = mrOK;
78      if Result then
79      begin
# Line 89 | Line 90 | end;
90  
91   procedure TIBRefreshSQLEditorForm.GenerateBtnClick(Sender: TObject);
92   begin
93 <  IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked);
93 >  if PageControl.ActivePage = ExecutePage then
94 >    IBSQLEditFrame1.GenerateExecuteSQL(QuoteFields.Checked)
95 >  else
96 >    IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked);
97   end;
98  
99  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines