home *** CD-ROM | disk | FTP | other *** search
- object TelefoniSeznam: TTelefoniSeznam
- Left = 499
- Top = 66
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Telef�n� seznam'
- ClientHeight = 413
- ClientWidth = 228
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- OnCloseQuery = FormCloseQuery
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Shape1: TShape
- Left = 32
- Top = 20
- Width = 185
- Height = 325
- Brush.Style = bsClear
- end
- object Image1: TImage
- Left = 8
- Top = 23
- Width = 25
- Height = 280
- OnMouseDown = Image1MouseDown
- end
- object Label3: TLabel
- Left = 55
- Top = 4
- Width = 161
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '1000'
- Color = clBtnFace
- ParentColor = False
- end
- object Button1: TButton
- Left = 136
- Top = 376
- Width = 49
- Height = 22
- Cancel = True
- Caption = 'Zav��t'
- ModalResult = 2
- TabOrder = 0
- OnClick = Button1Click
- end
- object ListBox1: TListBox
- Left = 33
- Top = 21
- Width = 183
- Height = 323
- BorderStyle = bsNone
- Color = 48168959
- Ctl3D = False
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentCtl3D = False
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 1
- OnClick = ListBox1Click
- end
- object Edit1: TEdit
- Left = 72
- Top = 80
- Width = 121
- Height = 19
- BorderStyle = bsNone
- Ctl3D = False
- ParentCtl3D = False
- TabOrder = 2
- Text = 'Edit1'
- Visible = False
- end
- object Panel1: TPanel
- Left = 32
- Top = 346
- Width = 185
- Height = 19
- BevelInner = bvLowered
- BevelOuter = bvNone
- Caption = 'Panel1'
- Ctl3D = False
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentCtl3D = False
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 3
- end
- object Button2: TButton
- Left = 48
- Top = 375
- Width = 49
- Height = 22
- Caption = 'Ulo�it'
- Enabled = False
- TabOrder = 4
- OnClick = Button2Click
- end
- object ScrollBar1: TScrollBar
- Left = 16
- Top = 306
- Width = 15
- Height = 32
- Kind = sbVertical
- Max = 11
- TabOrder = 5
- TabStop = False
- OnChange = ScrollBar1Change
- end
- object Panel2: TPanel
- Left = 13
- Top = 4
- Width = 17
- Height = 16
- BevelOuter = bvLowered
- Caption = 'A'
- Color = 48168959
- Ctl3D = False
- ParentCtl3D = False
- TabOrder = 6
- Visible = False
- end
- object PopupMenu1: TPopupMenu
- OnPopup = PopupMenu1Popup
- Left = 184
- Top = 160
- object NovaP: TMenuItem
- Caption = 'Nov� polo�ka'
- OnClick = NovaPClick
- end
- object OpravaP: TMenuItem
- Caption = 'Oprava polo�ky'
- OnClick = OpravaPClick
- end
- object SmazatP: TMenuItem
- Caption = 'Smazat polozku'
- OnClick = SmazatPClick
- end
- object ZobrazP: TMenuItem
- Caption = 'Zobrazen� polo�ky v okn�'
- OnClick = ZobrazPClick
- end
- object ZkopirujP: TMenuItem
- Caption = 'Zkop�ruj polo�ku do schr�nky'
- OnClick = ZkopirujPClick
- end
- end
- end
-