object Form2: TForm2 Left = 181 Top = 231 Width = 608 Height = 307 HorzScrollBar.Visible = False VertScrollBar.Visible = False ActiveControl = Edit1 Caption = 'Wyszukiwanie' Color = clTeal Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Icon.Data = {} Position = poScreenCenter OnCreate = FormCreate OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Background1: TBackground Left = 0 Top = 0 Width = 600 Height = 280 Align = alClient Color1 = clWhite Color2 = clBlack BackStyle = bgTileBitmap end object LabelEffect1: TLabelEffect Left = 0 Top = 6 Width = 573 Height = 39 DepthShadow = 5 DirectionHighlight = edDownRight ColourHighlight = clBlack GraduateFrom = clWindowText EffectStyle = esFlying ColourScheme = csCustom Alignment = taCenter Caption = 'Komputerowy Katalog P�yt 1998' Color = clBlack Font.Color = clYellow Font.Height = -27 Font.Name = 'Times New Roman' Font.Style = [] ParentColor = False ParentFont = False end object Label1: TLabelEffect Left = 8 Top = 196 Width = 121 Height = 21 DepthShadow = 5 DirectionHighlight = edDownRight ColourHighlight = clBlack GraduateFrom = clWindowText EffectStyle = esFlying ColourScheme = csCustom Caption = 'Wprowad� wzorzec :' Color = clBlack Font.Color = clYellow Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object Label2: TLabelEffect Left = 8 Top = 222 Width = 361 Height = 22 DepthShadow = 5 DirectionHighlight = edDownRight ColourHighlight = clBlack GraduateFrom = clWindowText EffectStyle = esFlying ColourScheme = csCustom Caption = 'Po wprowadzeniu wzorca zaznacz przeszukiwan� kategori� :' Font.Color = clYellow Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabelEffect Left = 348 Top = 196 Width = 229 Height = 21 DepthShadow = 5 DirectionHighlight = edDownRight ColourHighlight = clBlack GraduateFrom = clWindowText EffectStyle = esFlying ColourScheme = csCustom Alignment = taRightJustify Caption = 'Wyszukiwanie wed�ug pe�nych nazw' Font.Color = clYellow Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Edit1: TEdit Left = 136 Top = 196 Width = 168 Height = 21 AutoSize = False TabOrder = 0 end object Pelny: TCheckBox Left = 577 Top = 197 Width = 14 Height = 14 Alignment = taLeftJustify Color = clTeal Font.Color = clYellow Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 1 end object DBGrid1: TBSDBGrid Left = 7 Top = 44 Width = 585 Height = 145 Hint = 'Kliknij dwukrotnie tytu� p�yty' TabStop = False Color = clBtnFace Columns = < item FieldName = 'Wykonawca' Title.Color = clActiveCaption Title.Font.Color = clWhite Title.Font.Height = -11 Title.Font.Name = 'Arial' Title.Font.Style = [] Width = 180 end item FieldName = 'Plyta' Title.Color = clActiveCaption Title.Font.Color = clWhite Title.Font.Height = -11 Title.Font.Name = 'Arial' Title.Font.Style = [] Width = 180 end item Alignment = taCenter FieldName = 'Rok' Title.Alignment = taCenter Title.Color = clActiveCaption Title.Font.Color = clWhite Title.Font.Height = -11 Title.Font.Name = 'Arial' Title.Font.Style = [] Width = 60 end item FieldName = 'Utw�r' Title.Color = clActiveCaption Title.Font.Color = clWhite Title.Font.Height = -11 Title.Font.Name = 'Arial' Title.Font.Style = [] Width = 400 end> DataSource = DataSource1 FixedColor = clYellow Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [dgEditing, dgTitles, dgTabs, dgConfirmDelete, dgCancelOnExit] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 TitleFont.Color = clRed TitleFont.Height = -12 TitleFont.Name = 'Arial' TitleFont.Style = [] OnDblClick = DBGrid1DblClick Cellstyle = csNone end object b_wykonawca: TColorButton Left = 8 Top = 244 Width = 74 Height = 27 Hint = 'Szukaj w katalogu wykonawc�w (Alt+A)' BevelSize = 1 Caption = '&Artysta' Color = clTeal Font.Color = clYellow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 3 TabStop = True OnClick = b_wykonawcaClick end object b_plyta: TColorButton Left = 82 Top = 244 Width = 74 Height = 27 Hint = 'Szukaj w katalogu p�yt i album�w (Alt+P)' BevelSize = 1 Caption = '&P�yta' Color = clTeal Font.Color = clYellow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 4 TabStop = True OnClick = b_plytaClick end object b_rok_wydania: TColorButton Left = 156 Top = 244 Width = 74 Height = 27 Hint = 'Szukaj wed�ug roku wydania p�yty (Alt+R)' BevelSize = 1 Caption = '&Rok' Color = clTeal Font.Color = clYellow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 5 TabStop = True OnClick = b_rok_wydaniaClick end object b_utwor: TColorButton Left = 230 Top = 244 Width = 74 Height = 27 Hint = 'Szukaj w katalogu utwor�w (Alt+U)' BevelSize = 1 Caption = '&Utw�r' Color = clTeal Font.Color = clYellow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 6 TabStop = True OnClick = b_utworClick end object b_pomoc: TColorButton Left = 446 Top = 244 Width = 74 Height = 27 Hint = 'Otw�rz okno pomocy' BevelSize = 1 Caption = 'Pomoc' Color = clTeal Font.Color = clYellow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 7 TabStop = True OnClick = b_pomocClick end object b_powrot: TColorButton Left = 520 Top = 244 Width = 74 Height = 27 Hint = 'Powr�t do menu' BevelSize = 1 Caption = 'Menu' Color = clTeal Font.Color = clYellow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 8 TabStop = True OnClick = b_powrotClick end object Query1: TQuery Left = 12 Top = 8 end object DataSource1: TDataSource DataSet = Query1 Left = 44 Top = 8 end object MarsCaption1: TMarsCaption ActiveBeginColor = clRed ActiveEndColor = clYellow ActiveFontColor = clYellow InactiveBeginColor = clBlack InactiveEndColor = clSilver InactiveFontColor = clSilver ApplicationNameFont.Color = clBlack ApplicationNameFont.Height = -11 ApplicationNameFont.Name = 'MS Sans Serif' ApplicationNameFont.Style = [fsBold] CaptionFont.Color = clBlack CaptionFont.Height = -11 CaptionFont.Name = 'MS Sans Serif' CaptionFont.Style = [] NumColors = 64 AutoSize = False Left = 540 Top = 8 end end