Chip 1999 June/Chip_1999-06_cd.bin/tema/Diadema/Demo/setup.exe/Pantheon.csy/RCDATA/TNAKLADYFORM/TNAKLADYFORM.txt

Text File | 1999-04-22 | 9.0 KB | 345 lines

object NakladyForm: TNakladyForm
  Left = 153
  Top = 105
  Width = 603
  Height = 436
  Caption = 'NakladyForm'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = NakMainMenu
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DummyPageControl: TPageControl
    Left = 4
    Top = 8
    Width = 573
    Height = 361
    ActivePage = NakTS
    TabOrder = 0
    object NakTS: TTabSheet
      Caption = 'N�klady a inzerce'
      object NakCoolBar: TCoolBar
        Left = 0
        Top = 0
        Width = 565
        Height = 26
        Bands = <
          item
            Control = ToolBar1
            ImageIndex = -1
            MinHeight = 22
            Width = 561
          end>
        object ToolBar1: TToolBar
          Left = 0
          Top = 0
          Width = 557
          Height = 22
          EdgeBorders = []
          EdgeInner = esNone
          EdgeOuter = esNone
          Flat = True
          HotImages = PomocneDM.BtnHotImages
          Images = PomocneDM.BtnImages
          TabOrder = 0
          object PridatSBtn: TToolButton
            Left = 0
            Top = 0
            Width = 23
            Height = 22
            Hint = 'P�idat polo�ku '#13#10'do n�klad�'
            Caption = 'P�idat'
            ImageIndex = 21
            ParentShowHint = False
            ShowHint = True
            OnClick = PridatSBtnClick
          end
          object StornovatSBtn: TToolButton
            Left = 23
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Stornovat polo�ku'
            Caption = 'Stornovat'
            ImageIndex = 17
            ParentShowHint = False
            ShowHint = True
            OnClick = StornovatSBtnClick
          end
          object OpravitSBtn: TToolButton
            Left = 46
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Opravit polo�ku'
            Caption = 'Opravit'
            ImageIndex = 1
            ParentShowHint = False
            ShowHint = True
            OnClick = OpravitSBtnClick
          end
          object VymazatSBtn: TToolButton
            Left = 69
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Vymazat polozku'
            Caption = 'Vymazat'
            ImageIndex = 3
            ParentShowHint = False
            ShowHint = True
            OnClick = VymazatSBtnClick
          end
          object TiskNakladuBtn: TToolButton
            Left = 92
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Vytisknout n�klady'
            Caption = 'Tisk'
            ImageIndex = 33
            ParentShowHint = False
            ShowHint = True
            OnClick = TiskNakladuBtnClick
          end
        end
      end
      object NakMainPanel: TPanel
        Left = 0
        Top = 26
        Width = 565
        Height = 307
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        Visible = False
        object PrehledLbl: TLabel
          Left = 8
          Top = 8
          Width = 167
          Height = 13
          Caption = 'P�ehled n�klad� na zak�zku:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label1: TLabel
          Left = 8
          Top = 183
          Width = 44
          Height = 13
          Caption = '&Inzer�t:'
          FocusControl = InzerceMemo
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object UlozitInzeratSBtn: TSpeedButton
          Left = 496
          Top = 228
          Width = 60
          Height = 25
          Hint = 'Ulo�it inzer�t'
          Caption = 'Ulo�it'
          Enabled = False
          OnClick = UlozitInzeratSBtnClick
        end
        object VytvoritInzeratSBtn: TSpeedButton
          Left = 496
          Top = 199
          Width = 60
          Height = 25
          Hint = 'Vytvo�it inzer�t'
          Caption = 'Vytvo�it'
          OnClick = VytvoritInzeratSBtnClick
        end
        object TiskInzeratuSBtn: TSpeedButton
          Left = 496
          Top = 256
          Width = 60
          Height = 25
          Hint = 'Bytisknout inzer�t'
          Caption = 'Tisk'
          Enabled = False
          OnClick = TiskInzeratuSBtnClick
        end
        object NakDBGrid: TDBGrid
          Left = 8
          Top = 24
          Width = 545
          Height = 145
          Ctl3D = True
          DataSource = NakladyDS
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnEditButtonClick = NakDBGridEditButtonClick
          Columns = <
            item
              FieldName = 'Datum'
              Width = 60
            end
            item
              FieldName = 'Popis'
              Width = 221
            end
            item
              FieldName = 'Zapsal'
              Width = 80
            end
            item
              FieldName = 'Stornoval'
              Width = 80
            end
            item
              FieldName = 'Cena'
              Width = 79
            end>
        end
        object SumaEdit: TMemo
          Left = 184
          Top = 172
          Width = 353
          Height = 13
          Alignment = taRightJustify
          BorderStyle = bsNone
          Color = clBtnFace
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
        end
        object InzerceMemo: TMemo
          Left = 8
          Top = 199
          Width = 475
          Height = 82
          ScrollBars = ssVertical
          TabOrder = 2
          OnChange = InzerceMemoChange
        end
      end
    end
  end
  object NakMainMenu: TMainMenu
    Left = 504
    object NakladyMnI: TMenuItem
      Caption = '&N�klady'
      Enabled = False
      GroupIndex = 120
      object PridatMnI: TMenuItem
        Caption = '&P�id�n� nov� polo�ky'
        GroupIndex = 121
        OnClick = PridatSBtnClick
      end
      object StornovatMnI: TMenuItem
        Caption = '&Stornov�n� polo�ky'
        GroupIndex = 122
        OnClick = StornovatSBtnClick
      end
      object VymazatMnI: TMenuItem
        Caption = '&Vymaz�n� polo�ky'
        GroupIndex = 123
        OnClick = VymazatSBtnClick
      end
      object OpravitMnI: TMenuItem
        Caption = '&Oprava polo�ky'
        GroupIndex = 124
        OnClick = OpravitSBtnClick
      end
      object NakladyTiskMnI: TMenuItem
        Caption = 'Tisk &n�klad�'
        GroupIndex = 124
        OnClick = TiskNakladuBtnClick
      end
      object InzerceTiskMnI: TMenuItem
        Caption = 'Tisk &inzerce'
        GroupIndex = 124
        OnClick = TiskInzeratuSBtnClick
      end
    end
  end
  object NakladyTbl: TTable
    AutoCalcFields = False
    AfterOpen = NakladyTblAfterOpen
    AfterInsert = NakladyTblAfterInsert
    BeforePost = NakladyTblBeforePost
    AfterDelete = NakladyTblAfterDelete
    DatabaseName = 'RealityDB'
    IndexFieldNames = 'CisloZakazky'
    TableName = 'Naklady.DB'
    Left = 416
    Top = 65530
    object NakladyTblCisloZakazky: TStringField
      FieldName = 'CisloZakazky'
      Required = True
      Size = 30
    end
    object NakladyTblDatum: TDateField
      FieldName = 'Datum'
      DisplayFormat = 'DD.MM.YYYY'
    end
    object NakladyTblPopis: TStringField
      FieldName = 'Popis'
      Size = 40
    end
    object NakladyTblCena: TCurrencyField
      FieldName = 'Cena'
    end
    object NakladyTblZapsal: TStringField
      FieldName = 'Zapsal'
      Required = True
    end
    object NakladyTblStornoval: TStringField
      FieldName = 'Stornoval'
    end
  end
  object NakladyDS: TDataSource
    DataSet = NakladyTbl
    OnDataChange = NakladyDSDataChange
    OnUpdateData = NakladyDSUpdateData
    Left = 360
    Top = 65530
  end
  object InzerceTbl: TTable
    DatabaseName = 'RealityDB'
    TableName = 'Inzerce.db'
    Left = 304
    object InzerceTblCisloZakazky: TStringField
      FieldName = 'CisloZakazky'
      Size = 25
    end
    object InzerceTblInzerat: TBlobField
      FieldName = 'Inzerat'
      BlobType = ftBlob
      Size = 240
    end
  end
end