home *** CD-ROM | disk | FTP | other *** search
- object FEPint: TFEPint
- Left = 232
- Top = 168
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- ClientHeight = 235
- ClientWidth = 466
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 14
- object Label2: TLabel
- Left = 134
- Top = 24
- Width = 27
- Height = 14
- Caption = 'Nume'
- end
- object Label3: TLabel
- Left = 128
- Top = 107
- Width = 35
- Height = 14
- Caption = 'Calitate'
- end
- object Label6: TLabel
- Left = 121
- Top = 52
- Width = 42
- Height = 14
- Caption = 'Prenume'
- end
- object Label7: TLabel
- Left = 59
- Top = 79
- Width = 106
- Height = 14
- Caption = 'Cod Numeric personal'
- end
- object Label1: TLabel
- Left = 112
- Top = 133
- Width = 50
- Height = 14
- Caption = 'Invaliditate'
- end
- object Label4: TLabel
- Left = 383
- Top = 4
- Width = 33
- Height = 17
- Alignment = taCenter
- AutoSize = False
- Caption = ' Coef.'
- Color = clInfoBk
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object lCoef: TLabel
- Left = 420
- Top = 4
- Width = 41
- Height = 17
- Alignment = taCenter
- AutoSize = False
- Caption = '?'
- Color = clInfoBk
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object NCoef: TISCalcEdit
- Left = 420
- Top = 4
- Width = 41
- Height = 28
- Alignment = taCenter
- AutoSelect = False
- AutoSize = False
- BorderStyle = bsNone
- Color = clInfoBk
- Enabled = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- FormatOnEditing = True
- ButtonWidth = 0
- NumGlyphs = 2
- ParentFont = False
- TabOrder = 7
- Visible = False
- end
- object PStergere: TPanel
- Left = 20
- Top = 157
- Width = 428
- Height = 41
- BevelOuter = bvNone
- Caption = ' '
- TabOrder = 8
- Visible = False
- object PSterg: TLabel
- Left = 14
- Top = 11
- Width = 407
- Height = 21
- Alignment = taCenter
- AutoSize = False
- Caption = 'Sigur doriti sa stergeti aceasta persoana ?'
- Color = clRed
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object ISterg: TImage
- Left = 11
- Top = 4
- Width = 33
- Height = 33
- Picture.Data = {<image000.ico>}
- end
- end
- object BOK: TB
- Left = 79
- Top = 199
- Width = 150
- Height = 30
- Caption = '&Confirmare'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- OnClick = BOKClick
- end
- object BX: TB
- Left = 232
- Top = 199
- Width = 149
- Height = 30
- Cancel = True
- Caption = '&Abandon'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ModalResult = 2
- ParentFont = False
- TabOrder = 6
- end
- object ENume: TE
- Left = 174
- Top = 20
- Width = 123
- Height = 24
- AutoSize = False
- CharCase = ecUpperCase
- MaxLength = 20
- TabOrder = 0
- end
- object EPrenume: TE
- Left = 174
- Top = 47
- Width = 123
- Height = 23
- AutoSize = False
- CharCase = ecUpperCase
- MaxLength = 50
- TabOrder = 1
- end
- object ECNP: TE
- Left = 174
- Top = 75
- Width = 123
- Height = 23
- AutoSize = False
- MaxLength = 15
- TabOrder = 2
- end
- object CBCalitate: TComboBox
- Left = 174
- Top = 103
- Width = 182
- Height = 23
- Style = csOwnerDrawFixed
- ItemHeight = 17
- TabOrder = 3
- OnChange = CBCalitateChange
- OnKeyDown = CBCalitateKeyDown
- Items.Strings = (
- 'Sot / Sotie'
- 'Copii <= 2'
- 'Copii > 2'
- 'Alte persoane')
- end
- object CBInvaliditate: TComboBox
- Left = 174
- Top = 130
- Width = 184
- Height = 23
- Style = csOwnerDrawFixed
- ItemHeight = 17
- TabOrder = 4
- OnChange = CBCalitateChange
- OnKeyDown = CBCalitateKeyDown
- Items.Strings = (
- 'Fara handicap'
- 'Inv. grad I'
- 'Inv. grad II')
- end
- end
-