home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 2003 November A
/
PCWK1103A.iso
/
BazaArt
/
BazaArt.exe
/
0
/
RCDATA
/
TMN_FRM
/
TMN_FRM.txt
< prev
Wrap
Text File
|
2003-10-05
|
24KB
|
947 lines
object MN_FRM: TMN_FRM
Left = 181
Top = 65
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 Label16: 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 Label18: TLabel
Left = 8
Top = 54
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 = 54
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 = 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 ISED: 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 = ISEDChange
end
object ISSG: TStringGrid
Left = 8
Top = 72
Width = 377
Height = 433
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 = 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 = 2
OnChange = IOEDChange
end
object IOSG: TStringGrid
Left = 400
Top = 72
Width = 377
Height = 433
ColCount = 3
DefaultRowHeight = 20
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
ScrollBars = ssVertical
TabOrder = 3
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 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 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 = 169
Height = 24
Caption = 'w s'#322'owach kluczowych'
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 = []
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 = []
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 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
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 Label8: TLabel
Left = 8
Top = 8
Width = 45
Height = 13
Caption = 'Wydanie:'
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 = 8
Top = 58
Width = 34
Height = 13
Caption = 'Strona:'
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 = 8
Top = 106
Width = 28
Height = 13
Caption = 'Dzia'#322':'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = 11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 8
Top = 154
Width = 28
Height = 13
Caption = 'Autor:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = 11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 8
Top = 224
Width = 24
Height = 13
Caption = 'Opis:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = 11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
end
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 INFOWD: TPanel
Left = 8
Top = 24
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
end
object INFOST: TPanel
Left = 8
Top = 72
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 = 1
end
object INFODZ: TPanel
Left = 8
Top = 120
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 = 2
end
object INFOMO: TMemo
Left = 8
Top = 240
Width = 369
Height = 97
TabStop = False
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Microsoft Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 3
end
object INFOAU: TMemo
Left = 8
Top = 168
Width = 369
Height = 49
TabStop = False
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Microsoft Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 4
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 = 5
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
end
end
end