home *** CD-ROM | disk | FTP | other *** search
Text File | 2007-10-27 | 26.2 KB | 1,076 lines |
- object MN_FRM: TMN_FRM
- Left = 192
- Top = 100
- ActiveControl = WAED
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'MN_FRM'
- ClientHeight = 573
- ClientWidth = 792
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- OnActivate = FormActivate
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel2: TBevel
- Left = 4
- Top = 553
- Width = 786
- Height = 19
- end
- object Label1: TLabel
- Left = 655
- Top = 556
- Width = 131
- Height = 13
- Caption = 'EmZet Computing 2002'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label21: TLabel
- Left = 8
- Top = 556
- Width = 78
- Height = 13
- Caption = 'BazaArt II 1.0'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Panel7: TPanel
- Left = 4
- Top = 4
- Width = 786
- Height = 546
- BevelOuter = bvLowered
- TabOrder = 0
- object Bevel1: TBevel
- Left = 1
- Top = 22
- Width = 790
- Height = 10
- Shape = bsBottomLine
- end
- object SpeedButton1: TSpeedButton
- Left = 4
- Top = 4
- Width = 105
- Height = 22
- GroupIndex = 1
- Down = True
- Caption = 'Wszystkie artyku'#322'y'
- Flat = True
- OnClick = SpeedButton1Click
- end
- object SpeedButton2: TSpeedButton
- Left = 116
- Top = 4
- Width = 105
- Height = 22
- GroupIndex = 1
- Caption = 'Wydania'
- Flat = True
- OnClick = SpeedButton2Click
- end
- object SpeedButton3: TSpeedButton
- Left = 228
- Top = 4
- Width = 105
- Height = 22
- GroupIndex = 1
- Caption = 'Autorzy'
- Flat = True
- OnClick = SpeedButton3Click
- end
- object SpeedButton4: TSpeedButton
- Left = 340
- Top = 4
- Width = 105
- Height = 22
- GroupIndex = 1
- Caption = 'Wyszukiwanie'
- Flat = True
- OnClick = SpeedButton4Click
- end
- object SpeedButton5: TSpeedButton
- Left = 452
- Top = 4
- Width = 105
- Height = 22
- GroupIndex = 1
- Caption = 'S'#322'owa kluczowe'
- Flat = True
- OnClick = SpeedButton5Click
- end
- object SpeedButton6: TSpeedButton
- Left = 564
- Top = 4
- Width = 105
- Height = 22
- GroupIndex = 1
- Caption = 'Indeks produkt'#243'w'
- Flat = True
- OnClick = SpeedButton6Click
- end
- object IP_PN: TPanel
- Left = 2
- Top = 32
- Width = 783
- Height = 513
- BevelOuter = bvNone
- TabOrder = 4
- object Bevel3: TBevel
- Left = 0
- Top = 0
- Width = 782
- Height = 49
- Shape = bsBottomLine
- end
- object Label16: TLabel
- Left = 8
- Top = 58
- Width = 272
- Height = 13
- Caption = 'Wpisz pocz'#261'tkowe litery nazwy poszukiwanego produktu:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label18: TLabel
- Left = 8
- Top = 106
- Width = 72
- Height = 13
- Caption = 'Indeks sprz'#281'tu:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label19: TLabel
- Left = 400
- Top = 106
- Width = 116
- Height = 13
- Caption = 'Indeks oprogramowania:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label20: TLabel
- Left = 400
- Top = 58
- Width = 272
- Height = 13
- Caption = 'Wpisz pocz'#261'tkowe litery nazwy poszukiwanego produktu:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label22: TLabel
- Left = 264
- Top = 106
- Width = 87
- Height = 13
- Caption = 'Liczba produkt'#243'w:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label23: TLabel
- Left = 656
- Top = 106
- Width = 87
- Height = 13
- Caption = 'Liczba produkt'#243'w:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object LB_SIDX_CNT: TLabel
- Left = 352
- Top = 106
- Width = 32
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '0000'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object LB_OIDX_CNT: TLabel
- Left = 744
- Top = 106
- Width = 32
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '0000'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object ISED: TEdit
- Left = 8
- Top = 76
- Width = 377
- Height = 24
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnChange = ISEDChange
- end
- object ISSG: TStringGrid
- Left = 8
- Top = 124
- Width = 377
- Height = 381
- ColCount = 3
- DefaultColWidth = 120
- DefaultRowHeight = 20
- FixedCols = 0
- RowCount = 100
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
- ScrollBars = ssVertical
- TabOrder = 1
- end
- object IOED: TEdit
- Left = 400
- Top = 76
- Width = 377
- Height = 24
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnChange = IOEDChange
- end
- object IOSG: TStringGrid
- Left = 400
- Top = 124
- Width = 377
- Height = 381
- ColCount = 3
- DefaultRowHeight = 20
- FixedCols = 0
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
- ScrollBars = ssVertical
- TabOrder = 3
- end
- object RB_ALLYEARS: TRadioButton
- Tag = 1
- Left = 8
- Top = 6
- Width = 201
- Height = 17
- Caption = 'wszystkie roczniki (od 2002 do 2007)'
- Checked = True
- TabOrder = 4
- TabStop = True
- OnClick = RB_ALLSELYEARSClick
- end
- object RB_SELYEARS: TRadioButton
- Tag = 2
- Left = 8
- Top = 26
- Width = 121
- Height = 17
- Caption = 'wybrane roczniki -->'
- TabOrder = 5
- OnClick = RB_ALLSELYEARSClick
- end
- object CB_2002: TCheckBox
- Left = 128
- Top = 26
- Width = 49
- Height = 17
- Caption = '2002'
- Enabled = False
- TabOrder = 6
- OnClick = CB_FILTERClick
- end
- object CB_2003: TCheckBox
- Left = 192
- Top = 26
- Width = 49
- Height = 17
- Caption = '2003'
- Enabled = False
- TabOrder = 7
- OnClick = CB_FILTERClick
- end
- object CB_2004: TCheckBox
- Left = 256
- Top = 26
- Width = 49
- Height = 17
- Caption = '2004'
- Enabled = False
- TabOrder = 8
- OnClick = CB_FILTERClick
- end
- object CB_2005: TCheckBox
- Left = 320
- Top = 26
- Width = 49
- Height = 17
- Caption = '2005'
- Enabled = False
- TabOrder = 9
- OnClick = CB_FILTERClick
- end
- object CB_OPISY: TCheckBox
- Left = 512
- Top = 26
- Width = 137
- Height = 17
- Caption = 'tylko produkty z opisami'
- Enabled = False
- TabOrder = 10
- OnClick = CB_FILTERClick
- end
- object CB_2006: TCheckBox
- Left = 384
- Top = 26
- Width = 49
- Height = 17
- Caption = '2006'
- Enabled = False
- TabOrder = 11
- OnClick = CB_FILTERClick
- end
- object CB_2007: TCheckBox
- Left = 448
- Top = 26
- Width = 49
- Height = 17
- Caption = '2007'
- Checked = True
- Enabled = False
- State = cbChecked
- TabOrder = 12
- OnClick = CB_FILTERClick
- end
- end
- object INFO_PN: TPanel
- Left = 397
- Top = 32
- Width = 388
- Height = 513
- BevelOuter = bvNone
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- object ONLINEBM: TImage
- Left = 93
- Top = 400
- Width = 199
- Height = 94
- Cursor = crHandPoint
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- Visible = False
- OnClick = ONLINEBMClick
- end
- object ADLB: TLabel
- Left = 8
- Top = 344
- Width = 66
- Height = 13
- Caption = 'Adres WWW:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label24: TLabel
- Left = 8
- Top = 8
- Width = 52
- Height = 13
- Caption = 'Informacje:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Panel1: TPanel
- Left = 8
- Top = 360
- Width = 369
- Height = 25
- Alignment = taLeftJustify
- BevelInner = bvLowered
- BevelOuter = bvLowered
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object INFOAD: TLabel
- Left = 4
- Top = 4
- Width = 362
- Height = 16
- Cursor = crHandPoint
- AutoSize = False
- Caption = 'Adres www'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = [fsUnderline]
- ParentFont = False
- OnClick = INFOADClick
- end
- end
- object INFORE: TRichEdit
- Left = 8
- Top = 24
- Width = 369
- Height = 313
- TabStop = False
- BorderWidth = 3
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- TabOrder = 1
- end
- end
- object SK_PN: TPanel
- Left = 2
- Top = 32
- Width = 395
- Height = 513
- BevelOuter = bvNone
- TabOrder = 5
- object Label13: TLabel
- Left = 8
- Top = 6
- Width = 209
- Height = 13
- Caption = 'Wpisz pocz'#261'tkowe litery s'#322'owa kluczowego:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label14: TLabel
- Left = 8
- Top = 56
- Width = 127
- Height = 13
- Caption = 'Pasuj'#261'ce s'#322'owa kluczowe:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label15: TLabel
- Left = 8
- Top = 282
- Width = 134
- Height = 13
- Caption = 'Znalezione tytu'#322'y artyku'#322#243'w:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label8: TLabel
- Left = 264
- Top = 282
- Width = 84
- Height = 13
- Caption = 'Liczba artyku'#322#243'w:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object LB_ART_CNT_KEYW: TLabel
- Left = 352
- Top = 282
- Width = 32
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '0000'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object SKED: TEdit
- Left = 8
- Top = 24
- Width = 377
- Height = 24
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnChange = SKEDChange
- end
- object SKLB1: TListBox
- Left = 8
- Top = 72
- Width = 377
- Height = 201
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ItemHeight = 16
- ParentFont = False
- TabOrder = 1
- OnClick = SKLB1Click
- end
- object SKLB2: TListBox
- Left = 8
- Top = 296
- Width = 377
- Height = 196
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- IntegralHeight = True
- ItemHeight = 16
- ParentFont = False
- TabOrder = 2
- OnClick = SKLB2Click
- end
- end
- object WS_PN: TPanel
- Left = 2
- Top = 32
- Width = 395
- Height = 513
- BevelOuter = bvNone
- TabOrder = 6
- object SpeedButton7: TSpeedButton
- Left = 296
- Top = 72
- Width = 89
- Height = 25
- Caption = 'Szukaj'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- OnClick = SpeedButton7Click
- end
- object Label2: TLabel
- Left = 8
- Top = 8
- Width = 98
- Height = 13
- Caption = 'Poszukiwane s'#322'owo:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 8
- Top = 56
- Width = 110
- Height = 13
- Caption = 'Warunki rozszerzaj'#261'ce:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label5: TLabel
- Left = 8
- Top = 234
- Width = 134
- Height = 13
- Caption = 'Znalezione tytu'#322'y artyku'#322#243'w:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label6: TLabel
- Left = 8
- Top = 152
- Width = 112
- Height = 13
- Caption = 'Warunki ograniczaj'#261'ce:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label17: TLabel
- Left = 8
- Top = 6
- Width = 272
- Height = 13
- Caption = 'Wpisz pocz'#261'tkowe litery nazwy poszukiwanego produktu:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object LB_ART_CNT_SRCH: TLabel
- Left = 352
- Top = 234
- Width = 32
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '0000'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label10: TLabel
- Left = 264
- Top = 234
- Width = 84
- Height = 13
- Caption = 'Liczba artyku'#322#243'w:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object WSED: TEdit
- Left = 8
- Top = 24
- Width = 377
- Height = 24
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnChange = SKEDChange
- end
- object WSLB: TListBox
- Left = 8
- Top = 248
- Width = 377
- Height = 244
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- IntegralHeight = True
- ItemHeight = 16
- ParentFont = False
- TabOrder = 8
- OnClick = WSLBClick
- end
- object TTCB: TCheckBox
- Left = 8
- Top = 72
- Width = 73
- Height = 24
- Caption = 'w tytule'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 1
- OnClick = TTCBClick
- end
- object OPCB: TCheckBox
- Left = 8
- Top = 96
- Width = 81
- Height = 24
- Caption = 'w opisie'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 2
- OnClick = OPCBClick
- end
- object SKCB: TCheckBox
- Left = 8
- Top = 120
- Width = 241
- Height = 24
- Caption = 'w s'#322'owach kluczowych i produktach'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 3
- OnClick = SKCBClick
- end
- object TACB: TCheckBox
- Left = 8
- Top = 200
- Width = 113
- Height = 24
- Caption = 'tylko u autora:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- OnClick = TACBClick
- end
- object AUCB: TComboBox
- Left = 120
- Top = 203
- Width = 265
- Height = 24
- Style = csDropDownList
- DropDownCount = 15
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ItemHeight = 16
- ParentFont = False
- TabOrder = 6
- OnChange = AUCBChange
- end
- object TDCB: TCheckBox
- Left = 8
- Top = 168
- Width = 113
- Height = 24
- Caption = 'tylko w dziale:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = TDCBClick
- end
- object DZCB: TComboBox
- Left = 120
- Top = 171
- Width = 265
- Height = 24
- Style = csDropDownList
- DropDownCount = 15
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ItemHeight = 16
- ParentFont = False
- TabOrder = 7
- OnChange = DZCBChange
- end
- end
- object WD_PN: TPanel
- Left = 2
- Top = 32
- Width = 395
- Height = 513
- BevelOuter = bvNone
- TabOrder = 1
- object WDTV: TTreeView
- Left = 8
- Top = 8
- Width = 377
- Height = 490
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- HideSelection = False
- Indent = 19
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- OnChange = WDTVChange
- OnClick = WDTVClick
- end
- end
- object AT_PN: TPanel
- Left = 2
- Top = 32
- Width = 395
- Height = 513
- BevelOuter = bvNone
- TabOrder = 3
- object ATTV: TTreeView
- Left = 8
- Top = 8
- Width = 377
- Height = 490
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- HideSelection = False
- Indent = 19
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- OnChange = ATTVChange
- OnClick = ATTVClick
- end
- end
- object WA_PN: TPanel
- Left = 2
- Top = 32
- Width = 395
- Height = 513
- BevelOuter = bvNone
- TabOrder = 0
- object Label3: TLabel
- Left = 8
- Top = 6
- Width = 224
- Height = 13
- Caption = 'Wpisz pocz'#261'tkowe litery poszukiwanego tytu'#322'u:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label7: TLabel
- Left = 8
- Top = 54
- Width = 137
- Height = 13
- Caption = 'Tytu'#322'y wszystkich artyku'#322#243'w:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object LB_ART_CNT: TLabel
- Left = 352
- Top = 54
- Width = 33
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '0000'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label9: TLabel
- Left = 264
- Top = 54
- Width = 84
- Height = 13
- Caption = 'Liczba artyku'#322#243'w:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object WAED: TEdit
- Left = 8
- Top = 24
- Width = 377
- Height = 24
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnChange = WAEDChange
- end
- object WALB: TListBox
- Left = 8
- Top = 72
- Width = 377
- Height = 420
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Microsoft Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- IntegralHeight = True
- ItemHeight = 16
- ParentFont = False
- TabOrder = 1
- OnClick = WALBClick
- end
- end
- end
- end
-