Chip 1999 June/Chip_1999-06_cd.bin/tema/Diadema/Demo/setup.exe/pantheon.exe/0/RCDATA/TOLEMODULEFORM/TOLEMODULEFORM.txt

Text File | 1999-04-22 | 10.1 KB | 394 lines

object OLEModuleForm: TOLEModuleForm
  Left = 190
  Top = 107
  Width = 593
  Height = 414
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = OLEMainMenu
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DummyPageControl: TPageControl
    Left = 4
    Top = 0
    Width = 573
    Height = 361
    ActivePage = OLETS
    TabOrder = 0
    object OLETS: TTabSheet
      Caption = 'Objekty OLE'
      object OLEMainPanel: TPanel
        Left = 0
        Top = 26
        Width = 565
        Height = 303
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        Visible = False
        object PrehledLbl: TLabel
          Left = 8
          Top = 8
          Width = 95
          Height = 13
          Caption = 'P�ehled objekt�:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object NahledLbl: TLabel
          Left = 392
          Top = 8
          Width = 159
          Height = 13
          Caption = 'Vybran� dokument (n�hled):'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object OLEDBGrid: TDBGrid
          Left = 8
          Top = 24
          Width = 377
          Height = 201
          DataSource = OLEHeapTblDS
          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]
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = OLEDBGridDblClick
          OnKeyPress = OLEDBGridKeyPress
          Columns = <
            item
              FieldName = 'Popis'
              Width = 292
            end
            item
              FieldName = 'Datum'
              Width = 62
            end>
        end
        object ClassPanel: TPanel
          Left = 8
          Top = 230
          Width = 377
          Height = 48
          BevelInner = bvRaised
          BevelOuter = bvLowered
          TabOrder = 1
          object ClassLabel: TLabel
            Left = 48
            Top = 8
            Width = 321
            Height = 17
            AutoSize = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            Transparent = True
            WordWrap = True
          end
          object ClassImage: TImage
            Left = 8
            Top = 8
            Width = 32
            Height = 32
          end
          object ServerLabel: TLabel
            Left = 48
            Top = 28
            Width = 5
            Height = 13
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object SourceDocLabel: TLabel
            Left = 104
            Top = 28
            Width = 265
            Height = 13
            AutoSize = False
            Transparent = True
            WordWrap = True
          end
        end
        object NahledPanel: TPanel
          Left = 392
          Top = 24
          Width = 169
          Height = 200
          BevelOuter = bvNone
          BorderStyle = bsSingle
          TabOrder = 2
          object OLEContainer: TOleContainer
            Left = 6
            Top = 7
            Width = 154
            Height = 182
            AllowInPlace = False
            AllowActiveDoc = False
            AutoActivate = aaManual
            AutoVerbMenu = False
            BorderStyle = bsNone
            Caption = 'OLEContainer'
            CopyOnSave = False
            PopupMenu = OLEPopupMenu
            TabOrder = 0
          end
        end
        object GroupBox1: TGroupBox
          Left = 392
          Top = 224
          Width = 169
          Height = 54
          Caption = 'Dokument zobrazit jako'
          TabOrder = 3
          object VyrezRB: TRadioButton
            Left = 104
            Top = 15
            Width = 57
            Height = 17
            Caption = 'V��ez'
            TabOrder = 0
            OnClick = NahledTimerTimer
          end
          object CelyDokumentRB: TRadioButton
            Left = 8
            Top = 16
            Width = 97
            Height = 17
            Caption = 'Cel� dokument'
            Checked = True
            TabOrder = 1
            TabStop = True
            OnClick = NahledTimerTimer
          end
          object IkonaRB: TRadioButton
            Left = 8
            Top = 33
            Width = 49
            Height = 17
            Caption = 'Ikonu'
            TabOrder = 2
            OnClick = NahledTimerTimer
          end
        end
      end
      object OLECoolBar: 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�id�n� nov�ho OLE objektu'
            Caption = 'P�idat'
            ImageIndex = 0
            ParentShowHint = False
            ShowHint = True
            OnClick = PridatSBtnClick
          end
          object EditovatSBtn: TToolButton
            Left = 23
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Aktivace vybran�ho objektu'
            Caption = 'Aktivovat'
            ImageIndex = 29
            ParentShowHint = False
            ShowHint = True
            OnClick = EditovatSBtnClick
          end
          object VymazatSBtn: TToolButton
            Left = 46
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Vymaz�n� objektu'
            Caption = 'Vymazat'
            ImageIndex = 3
            ParentShowHint = False
            ShowHint = True
            OnClick = VymazatSBtnClick
          end
          object PrejmenujSBtn: TToolButton
            Left = 69
            Top = 0
            Width = 23
            Height = 22
            Hint = 'P�ejmenov�n� objektu'
            Caption = 'P�ejmenuj'
            ImageIndex = 14
            ParentShowHint = False
            ShowHint = True
            OnClick = PrejmenujSBtnClick
          end
          object ToolButton1: TToolButton
            Left = 92
            Top = 0
            Width = 8
            Height = 22
            Caption = 'ToolButton1'
            ImageIndex = 15
            Style = tbsSeparator
          end
          object ManualCloseBtn: TToolButton
            Left = 17388312
            Top = 10025260
            Width = 1076547527
            Height = -10025260
            Hint = 'Manu�ln� zav�en� objektu'
            Caption = 'Zavr��t'
            ImageIndex = 30
            ParentShowHint = False
            ShowHint = True
            Visible = False
            OnClick = ManualCloseBtnClick
          end
        end
      end
    end
  end
  object OLEHeapTbl: TTable
    DatabaseName = 'RealityDB'
    IndexFieldNames = 'CisloZakazky'
    TableName = 'OLEHeap.db'
    Left = 54
    Top = 112
    object OLEHeapTblCisloZakazky: TStringField
      FieldName = 'CisloZakazky'
      Size = 30
    end
    object OLEHeapTblProgID: TStringField
      FieldName = 'ProgID'
      Size = 40
    end
    object OLEHeapTblOLEStream: TBlobField
      FieldName = 'OLEStream'
      BlobType = ftBlob
      Size = 240
    end
    object OLEHeapTblPopis: TStringField
      FieldName = 'Popis'
      Size = 60
    end
    object OLEHeapTblDatum: TDateField
      Alignment = taRightJustify
      FieldName = 'Datum'
      DisplayFormat = 'dd.mm.yyyy'
    end
  end
  object OLEHeapTblDS: TDataSource
    DataSet = OLEHeapTbl
    OnDataChange = OLEHeapTblDSDataChange
    Left = 176
    Top = 112
  end
  object NahledTimer: TTimer
    OnTimer = NahledTimerTimer
    Left = 120
    Top = 112
  end
  object OLEMainMenu: TMainMenu
    Left = 56
    Top = 176
    object ObjektyMnI: TMenuItem
      Caption = 'Objekty O&LE'
      Enabled = False
      GroupIndex = 110
      object PridatMnI: TMenuItem
        Caption = '&P�id�n� nov�ho dokumentu'
        GroupIndex = 111
        OnClick = PridatSBtnClick
      end
      object VymazatMnI: TMenuItem
        Caption = '&Vymaz�n� dokumentu'
        GroupIndex = 112
        OnClick = VymazatSBtnClick
      end
      object EditovatMnI: TMenuItem
        Caption = '&Oprava dokumentu'
        GroupIndex = 113
        OnClick = EditovatSBtnClick
      end
      object PrejmenujMnI: TMenuItem
        Caption = 'P�ej&menov�n� dokumentu'
        GroupIndex = 114
        OnClick = PrejmenujSBtnClick
      end
      object N1: TMenuItem
        Caption = '-'
        GroupIndex = 114
      end
      object VerbsMnI: TMenuItem
        Caption = '&Akce objektu'
        GroupIndex = 114
      end
    end
  end
  object AlwaysAskList: TStrHolder
    Sorted = True
    Left = 338
    Top = 140
    StrData = (
      ''
      'AVIFILE'
      'MIDFILE'
      'MPLAYER')
  end
  object OLEPopupMenu: TPopupMenu
    Left = 482
    Top = 92
  end
end