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 33 by tony, Sat Jul 18 12:30:52 2015 UTC vs.
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC

# Line 32 | Line 32 | unit IBDatabaseEdit;
32  
33   {$A+}                           (* Aligned records: On *)
34   {$B-}                           (* Short circuit boolean expressions: Off *)
35 < {$G+}                           (* Imported data: On *)
35 > { $G+}                           (* Imported data: On *)
36   {$H+}                           (* Huge Strings: On *)
37   {$J-}                           (* Modification of Typed Constants: Off *)
38   {$M+}                           (* Generate run-time type information: On *)
# Line 40 | Line 40 | unit IBDatabaseEdit;
40   {$Q-}                           (* Overflow checks: Off *)
41   {$R-}                           (* Range checks: Off *)
42   {$T+}                           (* Typed address: On *)
43 < {$U+}                           (* Pentim-safe FDIVs: On *)
43 > { $U+}                           (* Pentim-safe FDIVs: On *)
44   {$W-}                           (* Always generate stack frames: Off *)
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,
52 <  StdCtrls, ExtCtrls, IBDataBase, IB, IBXConst, LResources;
51 >  SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
52 >  StdCtrls, ExtCtrls, IBDataBase, IB,  LResources;
53  
54   type
55  
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 113 | Line 115 | implementation
115  
116   {$R *.lfm}
117  
118 < uses TypInfo;
118 > uses TypInfo, FBMessages;
119  
120   function EditIBDatabase(ADatabase: TIBDatabase): Boolean;
121   begin
# 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