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 1 by tony, Mon Jul 31 16:43:00 2000 UTC vs.
Revision 5 by tony, Fri Feb 18 16:26:16 2011 UTC

# Line 28 | Line 28
28  
29   unit IBDatabaseEdit;
30  
31 + {$MODE Delphi}  {$H-}
32 +
33   interface
34  
35   uses
36 <  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
37 <  StdCtrls, ExtCtrls, IBDatabase, IB, IBXConst;
36 >  {Windows,} Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
37 >  StdCtrls, ExtCtrls, IBDataBase, IB, IBXConst, LResources;
38  
39   type
40 +
41 +  { TIBDatabaseEditForm }
42 +
43    TIBDatabaseEditForm = class(TForm)
44      Panel1: TPanel;
45      DatabaseName: TEdit;
# Line 62 | Line 67 | type
67      Label7: TLabel;
68      Label8: TLabel;
69      Test: TButton;
70 +    procedure CharacterSetCloseUp(Sender: TObject);
71      procedure RemoteRbtnClick(Sender: TObject);
72      procedure BrowseClick(Sender: TObject);
73      procedure LocalRbtnClick(Sender: TObject);
# Line 91 | Line 97 | var
97  
98   implementation
99  
94 – {$R *.DFM}
100  
101 < uses LibHelp, TypInfo;
101 > uses {LibHelp,} TypInfo;
102  
103   function EditIBDatabase(ADatabase: TIBDatabase): Boolean;
104   begin
# Line 246 | Line 251 | begin
251    ServerName.Enabled := True;
252   end;
253  
254 + procedure TIBDatabaseEditForm.CharacterSetCloseUp(Sender: TObject);
255 + begin
256 +  if (CharacterSet.Text <> 'None') then {do not localize}
257 +    AddParam('lc_ctype', CharacterSet.Text)
258 +  else
259 +    DeleteParam('lc_ctype');
260 +
261 + end;
262 +
263   procedure TIBDatabaseEditForm.BrowseClick(Sender: TObject);
264   begin
265    with TOpenDialog.Create(Application) do
# Line 282 | Line 296 | end;
296  
297   procedure TIBDatabaseEditForm.FormCreate(Sender: TObject);
298   begin
299 <  HelpContext := hcDIBDataBaseEdit;
299 > //  HelpContext := hcDIBDataBaseEdit;
300   end;
301  
302   procedure TIBDatabaseEditForm.HelpBtnClick(Sender: TObject);
# Line 307 | Line 321 | end;
321  
322   procedure TIBDatabaseEditForm.CharacterSetChange(Sender: TObject);
323   begin
324 +  ShowMessage(CharacterSet.Text);
325    if (CharacterSet.Text <> 'None') then {do not localize}
326      AddParam('lc_ctype', CharacterSet.Text)
327    else
# Line 338 | Line 353 | begin
353    end;
354   end;
355  
356 + initialization
357 +  {$i IBDatabaseEdit.lrs}
358 +
359   end.

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines