First commit

BDLoginUnit.dfm

@@ -0,0 +1,252 @@
+inherited BDLoginForm: TBDLoginForm
+  Left = 440
+  Top = 383
+  ActiveControl = ServerList
+  Caption = ''
+  ClientHeight = 162
+  ClientWidth = 295
+  OldCreateOrder = True
+  Position = poScreenCenter
+  OnActivate = FormActivate
+  ExplicitWidth = 301
+  ExplicitHeight = 190
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 124
+    Width = 295
+    Height = 38
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 0
+    object Panel2: TPanel
+      Left = 107
+      Top = 0
+      Width = 188
+      Height = 38
+      Align = alRight
+      BevelOuter = bvNone
+      TabOrder = 0
+      object OkBtn: TBitBtn
+        Left = 21
+        Top = 8
+        Width = 75
+        Height = 25
+        Action = OkAction
+        Caption = 'OK'
+        Default = True
+        Glyph.Data = {
+          36030000424D3603000000000000360000002800000010000000100000000100
+          18000000000000030000C40E0000C40E00000000000000000000FFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFB8D2B7357F33C8DCC7FFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB9D8B7398E332BAE2041
+          963CD7E9D6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFBADCB73C9B3333C32524CD132BBB1D4DA445E5F2E4FFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBBDDB73D9F334ACC3A29C31839CC2828
+          C21731B1235AAD51F0F8EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBBDFB7
+          3EA43363DA5333BC2255D1453EA43334B6252CB81B36AC286AB861F7FBF7FFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFF3FA83370E65F59D0486BE15A3FA83398D09243
+          AB373AB62932B2213BAB2D7BC373FDFEFDFFFFFFFFFFFFFFFFFFFFFFFFBCE1B7
+          41AC3374EA6341AC33BCE1B7FFFFFFB8E0B340AE3340B72F38AF2740AE318CCD
+          84FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBCE3B741AF33BCE3B7FFFFFFFFFFFFFF
+          FFFF9DD69645B73758CF4756CD4545B536A3D99CFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFE84CD7A4DC13D61D8505FD6
+          4F46B737B9E3B3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFF9FDF96DC66156CC466BE25A72E96243B533FFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0F9EF5DC24F77EE
+          6643B933BDE6B7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFE3F5E044BB33BDE7B7FFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
+        ModalResult = 1
+        TabOrder = 0
+      end
+      object CancelBtn: TBitBtn
+        Left = 102
+        Top = 8
+        Width = 75
+        Height = 25
+        Cancel = True
+        Caption = #1054#1090#1084#1077#1085#1072
+        Glyph.Data = {
+          36030000424D3603000000000000360000002800000010000000100000000100
+          18000000000000030000C40E0000C40E00000000000000000000FFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE5E5EF9393BA5959963B
+          3B823B3B825959969393BAE5E5EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFB2B2D44141972323A81717C61313D41313D41717C62323A8414197B2B2
+          D4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB2B2D835359F1A1AC61212B61111D111
+          11D11111D11111D11111B61717C434349FB2B2D8FFFFFFFFFFFFFFFFFFE5E5F3
+          4242A72020C31212B2DCDCDC1111B21111C81111C81111B2EEEEEE1111B21717
+          BE4141A7E5E5F3FFFFFFFFFFFF9393CD3030B41616C1D1D1D1D6D6D6DCDCDC11
+          11AD1111ADEAEAEAEEEEEEEEEEEE1111BE2424AB9393CDFFFFFFFFFFFF5858B4
+          3636C21212B41111B4D1D1D1D6D6D6DCDCDCE2E2E2E6E6E6EAEAEA1111B41111
+          B41B1BB25858B4FFFFFFFFFFFF3B3BAB4545CD2626B51414AB1111AAD1D1D1D6
+          D6D6DCDCDCE2E2E21111AA1111AA1111AA1A1AB03B3BABFFFFFFFFFFFF3B3BAE
+          4A4AD13333BB2E2EB813139FCECECED1D1D1D6D6D6DCDCDC11119E1111A11111
+          A11F1FAD3B3BAEFFFFFFFFFFFF5858BD4E4ED53737BF2323ABFFFFFFF7F7F7E8
+          E8E8DEDEDEDBDBDBDDDDDD11119B1616A02F2FB75858BDFFFFFFFFFFFF9393D6
+          4949CC4949D1FFFFFFFFFFFFFFFFFF4242CA4242CAFFFFFFFFFFFFFFFFFF4747
+          CF4141C49393D6FFFFFFFFFFFFE5E5F54646BE5C5CE35151D9FFFFFF4F4FD74F
+          4FD74F4FD74F4FD7FFFFFF5050D85555DD4545BDE5E5F5FFFFFFFFFFFFFFFFFF
+          B2B2E43F3FC06161E95F5FE75B5BE35B5BE35B5BE35B5BE35F5FE75E5EE53E3E
+          BFB2B2E4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB2B2E54747C24D4DD56262EB6B
+          6BF36A6AF26161EA4C4CD44747C2B2B2E5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFE5E5F69393DB5959C83B3BBE3B3BBE5959C89393DBE5E5F6FFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
+        ModalResult = 2
+        TabOrder = 1
+      end
+    end
+  end
+  object GroupBox1: TGroupBox
+    Left = 0
+    Top = 0
+    Width = 295
+    Height = 124
+    Align = alClient
+    Caption = #1055#1072#1088#1072#1084#1077#1090#1088#1099' '#1087#1086#1076#1082#1083#1102#1095#1077#1085#1080#1103
+    TabOrder = 1
+    object Panel3: TPanel
+      Left = 2
+      Top = 15
+      Width = 291
+      Height = 107
+      Align = alClient
+      Alignment = taLeftJustify
+      BevelOuter = bvNone
+      Font.Charset = RUSSIAN_CHARSET
+      Font.Color = clWindowText
+      Font.Height = 11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 0
+      object SLabel: TLabel
+        Left = 20
+        Top = 13
+        Width = 37
+        Height = 13
+        Caption = #1057#1077#1088#1074#1077#1088
+        FocusControl = ServerList
+      end
+      object Label2: TLabel
+        Left = 20
+        Top = 48
+        Width = 22
+        Height = 13
+        Caption = #1048#1084#1103
+        FocusControl = Login
+      end
+      object Label3: TLabel
+        Left = 20
+        Top = 83
+        Width = 38
+        Height = 13
+        Caption = #1055#1072#1088#1086#1083#1100
+      end
+      object Image1: TImage
+        Left = 85
+        Top = 0
+        Width = 16
+        Height = 13
+        AutoSize = True
+        Picture.Data = {
+          07544269746D6170A6020000424DA60200000000000036000000280000001000
+          00000D0000000100180000000000700200000000000000000000000000000000
+          0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8080
+          80C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080000000FF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFF808080C0C0C0000000FFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF0000000000
+          00000000000000000000FFFFFFFFFFFF000000FFFFFF000000000000000000FF
+          FFFFFFFFFFFFFFFFFFFFFF008080FFFFFF00FFFF008080000000FFFFFFFFFFFF
+          000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF008080FFFF
+          FF00FFFF008080000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFF008080008080008080008080000000FFFFFFFFFFFF
+          000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8080
+          80C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFF808080C0C0C0000000FFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C0C0
+          C0FFFFFF808080000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFF000000000000000000C0C0C0FFFFFF000000FFFFFF808080000000000000
+          000000000000000000000000000000000000C0C0C0C0C0C0C0C0C0FFFFFF0000
+          00FFFFFF808080FFFFFFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
+          C0C0808080808080808080808080FFFFFFFFFFFFFFFFFF808080808080808080
+          808080808080808080808080808080808080}
+        Visible = False
+      end
+      object ServerList: TComboBox
+        Left = 107
+        Top = 8
+        Width = 175
+        Height = 24
+        Hint = #1057#1077#1088#1074#1077#1088'/'#1087#1086#1088#1090
+        Style = csOwnerDrawFixed
+        DropDownCount = 0
+        Font.Charset = RUSSIAN_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'MS Sans Serif'
+        Font.Style = []
+        ItemHeight = 18
+        ItemIndex = 0
+        ParentFont = False
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 0
+        Text = #1057#1077#1088#1074#1077#1088
+        OnDrawItem = ServerListDrawItem
+        Items.Strings = (
+          #1057#1077#1088#1074#1077#1088)
+      end
+      object Login: TComboBox
+        Left = 107
+        Top = 44
+        Width = 175
+        Height = 21
+        Hint = #1048#1084#1103' '#1087#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1103
+        Font.Charset = RUSSIAN_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'MS Sans Serif'
+        Font.Style = []
+        ParentFont = False
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 1
+        OnKeyDown = LoginKeyDown
+        Items.Strings = (
+          'diasoft'
+          'dca'
+          'sa')
+      end
+      object Password: TEdit
+        Left = 107
+        Top = 79
+        Width = 175
+        Height = 21
+        Hint = #1055#1072#1088#1086#1083#1100' '#1087#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1103
+        ParentShowHint = False
+        PasswordChar = '*'
+        ShowHint = True
+        TabOrder = 2
+      end
+    end
+  end
+  object ActionList1: TActionList
+    Left = 32
+    Top = 134
+    object OkAction: TAction
+      Caption = 'OK'
+      OnExecute = OkActionExecute
+      OnUpdate = OkActionUpdate
+    end
+  end
+end