home *** CD-ROM | disk | FTP | other *** search
- object FConfigDep: TFConfigDep
- Left = 279
- Top = 141
- Width = 593
- Height = 430
- Caption = 'Configurare Departamente'
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- OldCreateOrder = False
- Position = poDesktopCenter
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 15
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 585
- Height = 34
- Align = alTop
- BevelInner = bvLowered
- TabOrder = 0
- object Panel3: TPanel
- Left = 2
- Top = 2
- Width = 581
- Height = 29
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- object LE1: TLabelEffect
- Left = 110
- Top = 0
- Width = 471
- Height = 29
- ColourShadow = clGray
- GraduateFrom = clWindowText
- ColourScheme = csText
- Align = alRight
- Alignment = taRightJustify
- Caption = 'Configurare departamente '
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Panel6: TPanel
- Left = -111
- Top = 0
- Width = 221
- Height = 29
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 0
- end
- end
- object DBNavigator1: TDBNavigator
- Left = 176
- Top = 2
- Width = 148
- Height = 30
- DataSource = DV.dParf
- VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
- Anchors = [akTop, akRight, akBottom]
- Flat = True
- TabOrder = 1
- end
- end
- object P3: TPanel
- Left = 0
- Top = 367
- Width = 585
- Height = 36
- Align = alBottom
- BevelInner = bvLowered
- TabOrder = 1
- object Bevel3: TBevel
- Left = 4
- Top = 2
- Width = 5
- Height = 32
- Style = bsRaised
- end
- object Bevel4: TBevel
- Left = 432
- Top = 2
- Width = 5
- Height = 32
- Anchors = [akTop, akRight]
- Style = bsRaised
- end
- object Bevel5: TBevel
- Left = 577
- Top = 2
- Width = 5
- Height = 32
- Anchors = [akTop, akRight]
- Style = bsRaised
- end
- object BAdaug: TB
- Left = 11
- Top = 3
- Width = 130
- Height = 30
- Caption = '&Adaugare'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = BAdaugClick
- end
- object BModific: TB
- Left = 145
- Top = 3
- Width = 130
- Height = 30
- Caption = '&Modificare'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = BModificClick
- end
- object BSterg: TB
- Left = 280
- Top = 3
- Width = 130
- Height = 30
- Caption = '&Stergere'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = BStergClick
- end
- object Bx: TB
- Left = 442
- Top = 3
- Width = 130
- Height = 30
- Anchors = [akTop, akRight]
- Cancel = True
- Caption = '&Iesire'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = BxClick
- end
- end
- object DBG1: TDBGrid
- Left = 0
- Top = 34
- Width = 585
- Height = 333
- Align = alClient
- DataSource = DV.dParf
- Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
- PopupMenu = PM1
- ReadOnly = True
- TabOrder = 2
- TitleFont.Charset = ANSI_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -12
- TitleFont.Name = 'Arial'
- TitleFont.Style = []
- Columns = <
- item
- Expanded = False
- FieldName = 'Nr'
- Visible = False
- end
- item
- Expanded = False
- FieldName = 'Luna'
- Visible = False
- end
- item
- Expanded = False
- FieldName = 'Den'
- Visible = False
- end
- item
- Expanded = False
- FieldName = 'Val'
- Visible = False
- end
- item
- Expanded = False
- FieldName = 'Denumire'
- Title.Caption = 'Cod departament'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Grupa'
- Title.Caption = 'Denumire departament'
- Visible = True
- end>
- end
- object PM1: TPopupMenu
- Left = 208
- Top = 184
- object Adaugare1: TMenuItem
- Caption = '&Adaugare'
- ShortCut = 45
- OnClick = BAdaugClick
- end
- object Modificare1: TMenuItem
- Caption = '&Modificare'
- ShortCut = 13
- OnClick = BModificClick
- end
- object Stergere1: TMenuItem
- Caption = '&Stergere'
- ShortCut = 46
- OnClick = BStergClick
- end
- end
- end
-