object fFind: TfFind Left = 261 Top = 130 Width = 232 Height = 339 Caption = 'Lista utwor�w' Color = clTeal Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Icon.Data = {} Position = poScreenCenter OnClose = FormClose OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object DBGrid1: TBSDBGrid Left = 4 Top = 4 Width = 213 Height = 273 TabStop = False BorderStyle = bsNone Color = clTeal DataSource = DataSource2 Font.Color = clYellow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [dgEditing, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit] ParentFont = False ReadOnly = True TabOrder = 1 TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] Cellstyle = csNone end object Button1: TColorButton Left = 4 Top = 284 Width = 217 Height = 25 BevelSize = 1 Caption = 'Zamknij' Color = clTeal Font.Color = clYellow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 0 TabStop = True OnClick = Button1Click OnKeyPress = Button1KeyPress end object Query2: TQuery Left = 4 Top = 8 end object DataSource2: TDataSource DataSet = Query2 Left = 32 Top = 8 end object MarsCaption1: TMarsCaption ActiveBeginColor = clRed ActiveEndColor = clYellow ActiveFontColor = clYellow InactiveBeginColor = clGray InactiveEndColor = clSilver InactiveFontColor = clSilver ApplicationNameFont.Color = clWindowText ApplicationNameFont.Height = -11 ApplicationNameFont.Name = 'MS Sans Serif' ApplicationNameFont.Style = [fsBold] CaptionFont.Color = clWindowText CaptionFont.Height = -11 CaptionFont.Name = 'MS Sans Serif' CaptionFont.Style = [] NumColors = 64 AutoSize = False Left = 72 Top = 8 end end