Added AMXX-Studio to CVS

editor/studio/UnitfrmConnGen.pas

@@ -0,0 +1,40 @@
+unit UnitfrmConnGen;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, SpTBXEditors, TntStdCtrls, TBXDkPanels,
+  SpTBXDkPanels;
+
+type
+  TfrmConnGen = class(TForm)
+    lblState: TLabel;
+    pnlSettings: TPanel;
+    lblHost: TLabel;
+    txtHost: TSpTBXEdit;
+    lblPort: TLabel;
+    txtPort: TSpTBXEdit;
+    lblProtocol: TLabel;
+    cboProtocol: TSpTBXComboBox;
+    cmdOK: TSpTBXButton;
+    cmdCancel: TSpTBXButton;
+    lblSocketName: TLabel;
+    txtName: TSpTBXEdit;
+    procedure txtNameKeyPress(Sender: TObject; var Key: Char);
+  end;
+
+var
+  frmConnGen: TfrmConnGen;
+
+implementation
+
+{$R *.DFM}
+
+procedure TfrmConnGen.txtNameKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #32 then
+    Key := #0;
+end;
+
+end.