object fm0004800PrekidPar: Tfm0004800PrekidPar Left = 290 Top = 195 Width = 637 Height = 416 HelpContext = 430000 Caption = 'fm0004800PrekidPar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsMDIChild Position = poDefaultPosOnly Visible = True OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object paGrid: TPanel Left = 0 Top = 26 Width = 467 Height = 363 Align = alClient TabOrder = 0 object DBGrid1: TDBGrid Left = 1 Top = 1 Width = 465 Height = 361 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] ParentFont = False TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clInfoBk TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnDblClick = DBGrid1DblClick OnKeyDown = DBGrid1KeyDown Columns = < item FieldName = 'opis_prekidaca' Title.Caption = 'Opis prekida�a' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 331 end item FieldName = 'cfVri_prekidVrijednost' Title.Caption = 'Status' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 116 end> end end object paPrvi: TPanel Left = 0 Top = 0 Width = 629 Height = 26 Align = alTop TabOrder = 1 object DBNavigator1: TDBNavigator Left = 1 Top = 1 Width = 139 Height = 24 VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh] Align = alLeft Hints.Strings = ( 'Prvi red' 'Prethodni red' 'Sljede�i red' 'Posljednji red' '' '' '' '' '' 'Obnovi, osvje�i podatke sa diska') TabOrder = 0 end object Panel1: TPanel Left = 529 Top = 1 Width = 99 Height = 24 Align = alRight BevelOuter = bvNone TabOrder = 1 object bbIzlaz: TBitBtn Left = 21 Top = 1 Width = 75 Height = 22 Hint = 'Prekid rada i izlaz iz prozora, teku�i podaci prethodno moraju b' + 'iti spremljeni' Caption = 'I&zlaz' TabOrder = 0 OnClick = bbIzlazClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB 0333337F777FFFFF7F3333000000000003333377777777777333} NumGlyphs = 2 end end end object paVrijednost: TPanel Left = 467 Top = 26 Width = 162 Height = 363 Align = alRight TabOrder = 2 object DBGrid2: TDBGrid Left = 1 Top = 1 Width = 160 Height = 361 Align = alClient Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnCellClick = DBGrid2CellClick OnKeyDown = DBGrid2KeyDown Columns = < item FieldName = 'vrijednost' Title.Caption = 'Opcije prekida�a' Width = 145 end> end end object ta1PrekidPar: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'prekidPar.db' Left = 70 Top = 89 object StringField1: TStringField FieldName = 'Prekidac' Size = 40 end object SmallintField1: TSmallintField FieldName = 'Sifra' end object StringField2: TStringField DisplayLabel = 'Opis prekida�a' FieldName = 'Opis_prekidaca' Size = 80 end object StringField3: TStringField FieldName = 'Grupa' end object StringField4: TStringField FieldName = 'Skupina' Size = 10 end object StringField5: TStringField FieldName = 'cfVri_prekidVrijednost' Calculated = True end end object ds1PrekidPar: TDataSource DataSet = ta1PrekidPar Left = 141 Top = 90 end object ta1Vri_prekidPar: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'vri_prekidPar.db' Left = 66 Top = 155 object StringField6: TStringField FieldName = 'Prekidac' Size = 40 end object SmallintField2: TSmallintField FieldName = 'Sifra' end object StringField7: TStringField DisplayLabel = 'Opcije prekida�a' FieldName = 'vrijednost' Size = 30 end end object ds1Vri_prekidPar: TDataSource DataSet = ta1Vri_prekidPar Left = 162 Top = 157 end object ta1LockSkupnePar: TTable DatabaseName = 'praznepar' TableName = '_lockSkupnePar' Left = 283 Top = 109 end object ta2PrekidPar: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'prekidPar.db' Left = 72 Top = 241 object StringField8: TStringField FieldName = 'Prekidac' Size = 40 end object SmallintField3: TSmallintField FieldName = 'Sifra' end object StringField9: TStringField DisplayLabel = 'Opis prekida�a' FieldName = 'Opis_prekidaca' Size = 80 end object StringField10: TStringField FieldName = 'Grupa' end object StringField11: TStringField FieldName = 'Skupina' Size = 10 end object StringField12: TStringField FieldName = 'cfVri_prekidVrijednost' Calculated = True end end object ta2Vri_prekidPar: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'vri_prekidPar.db' Left = 68 Top = 307 object StringField13: TStringField FieldName = 'Prekidac' Size = 40 end object SmallintField4: TSmallintField FieldName = 'Sifra' end object StringField14: TStringField DisplayLabel = 'Opcije prekida�a' FieldName = 'vrijednost' Size = 30 end end end