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

Comparing ibx/trunk/design/IBDatabaseEdit.pas (file contents):
Revision 38 by tony, Sat Jul 18 12:30:52 2015 UTC vs.
Revision 39 by tony, Tue May 17 08:14:52 2016 UTC

# Line 45 | Line 45 | unit IBDatabaseEdit;
45   {$X+}                           (* Extended syntax: On *)
46   {$Z1}                           (* Minimum Enumeration Size: 1 Byte *)
47  
48
48   interface
49  
50   uses
51 <  {Windows,} Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
51 >  Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
52    StdCtrls, ExtCtrls, IBDataBase, IB, IBXConst, LResources;
53  
54   type
# Line 57 | Line 56 | type
56    { TIBDatabaseEditForm }
57  
58    TIBDatabaseEditForm = class(TForm)
59 +    UseSystemDefaultCS: TCheckBox;
60 +    GroupBox2: TGroupBox;
61      Panel1: TPanel;
62      DatabaseName: TEdit;
63      Label1: TLabel;
# Line 93 | Line 94 | type
94      procedure SQLRoleChange(Sender: TObject);
95      procedure CharacterSetChange(Sender: TObject);
96      procedure TestClick(Sender: TObject);
97 +    procedure UseSystemDefaultCSChange(Sender: TObject);
98    private
99      { Private declarations }
100      Database: TIBDatabase;
# Line 243 | Line 245 | begin
245    st := GetParam('lc_ctype');
246    if (st <> '') then
247      CharacterSet.ItemIndex := CharacterSet.Items.IndexOf(st);
248 +  if Database.UseDefaultSystemCodePage then
249 +    UseSystemDefaultCS.Checked := true
250 +  else
251 +    UseSystemDefaultCS.Checked := false;
252    Result := False;
253    if ShowModal = mrOk then
254    begin
# Line 257 | Line 263 | begin
263        end;
264      Database.Params := DatabaseParams.Lines;
265      Database.LoginPrompt := LoginPrompt.Checked;
266 +    Database.UseDefaultSystemCodePage := UseSystemDefaultCS.Checked;
267      Result := True;
268    end;
269   end;
# Line 368 | Line 375 | begin
375    end;
376   end;
377  
378 + procedure TIBDatabaseEditForm.UseSystemDefaultCSChange(Sender: TObject);
379 + begin
380 +  CharacterSet.Enabled := not UseSystemDefaultCS.Checked;
381 +  if UseSystemDefaultCS.Checked then
382 +    DeleteParam('lc_ctype')
383 +  else
384 +  if (CharacterSet.Text <> 'None') then {do not localize}
385 +      AddParam('lc_ctype', CharacterSet.Text)
386 + end;
387 +
388  
389   end.

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines