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

Text File | 1999-04-22 | 10.2 KB | 388 lines

object PICModuleForm: TPICModuleForm
  Left = 224
  Top = 106
  Width = 586
  Height = 418
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = PICMainMenu
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DummyPageControl: TPageControl
    Left = 4
    Top = 8
    Width = 573
    Height = 361
    ActivePage = PICTS
    TabOrder = 0
    object PICTS: TTabSheet
      Caption = 'Obr�zky'
      object PICCoolBar: TCoolBar
        Left = 0
        Top = 0
        Width = 565
        Height = 26
        Bands = <
          item
            Control = ToolBar1
            ImageIndex = -1
            MinHeight = 22
            Width = 561
          end>
        Visible = False
        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 UkazatSBtn: TToolButton
            Left = 0
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Uk�zat obr�zek'
            Caption = 'Uk�zat'
            ImageIndex = 2
            ParentShowHint = False
            ShowHint = True
            OnClick = UkazatSBtnClick
          end
          object PridatSBtn: TToolButton
            Left = 23
            Top = 0
            Width = 23
            Height = 22
            Hint = 'P�idat obr�zek'
            Caption = 'P�idat'
            ImageIndex = 0
            ParentShowHint = False
            ShowHint = True
            OnClick = PridatSBtnClick
          end
          object VymazatSBtn: TToolButton
            Left = 46
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Vymazat obr�zek'
            Caption = 'Vymazat'
            ImageIndex = 3
            ParentShowHint = False
            ShowHint = True
            OnClick = VymazatSBtnClick
          end
          object PrejmenujSBtn: TToolButton
            Left = 69
            Top = 0
            Width = 23
            Height = 22
            Hint = 'P�ejmenovat obr�zek'
            Caption = 'P�ejmenuj'
            ImageIndex = 14
            ParentShowHint = False
            ShowHint = True
            OnClick = PrejmenujSBtnClick
          end
          object VybratProTiskSbtn: TToolButton
            Left = 92
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Nastavit obr�zek'#13#10'pro tisk'
            Caption = 'Pro tisk'
            ImageIndex = 32
            ParentShowHint = False
            ShowHint = True
            OnClick = VybratProTiskSbtnClick
          end
          object ToolButton1: TToolButton
            Left = 115
            Top = 0
            Width = 8
            Height = 22
            Caption = 'ToolButton1'
            ImageIndex = 33
            Style = tbsSeparator
          end
          object SaveBtn: TToolButton
            Left = 123
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Exportovat obr�zek'
            Caption = 'Export'
            ImageIndex = 33
            ParentShowHint = False
            ShowHint = True
            OnClick = SaveBtnClick
          end
        end
      end
      object PICMainPanel: TPanel
        Left = 0
        Top = 26
        Width = 565
        Height = 303
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        Visible = False
        object PrehledLbl: TLabel
          Left = 8
          Top = 8
          Width = 184
          Height = 13
          Caption = 'P�ehled obrazov�ch dokument�:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object NahledLbl: TLabel
          Left = 376
          Top = 8
          Width = 37
          Height = 13
          Caption = 'N�hled:'
        end
        object InformaceLabel: TLabel
          Left = 8
          Top = 240
          Width = 124
          Height = 13
          Caption = 'Technick� �daje obr�zku:'
        end
        object InfoLabel: TLabel
          Left = 8
          Top = 256
          Width = 361
          Height = 13
          AutoSize = False
        end
        object PICDBGrid: TDBGrid
          Left = 8
          Top = 24
          Width = 359
          Height = 209
          DataSource = PICTblDS
          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
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
        end
        object PrevImagePanel: TPanel
          Left = 376
          Top = 24
          Width = 177
          Height = 209
          BevelOuter = bvNone
          BorderStyle = bsSingle
          TabOrder = 1
          object PrevImage: TImage
            Left = 3
            Top = 3
            Width = 167
            Height = 200
            Center = True
            IncrementalDisplay = True
            Stretch = True
            OnProgress = PrevImageProgress
          end
        end
        object NahledProgressBar: TProgressBar
          Left = 416
          Top = 12
          Width = 137
          Height = 9
          Min = 0
          Max = 100
          TabOrder = 2
          Visible = False
        end
        object ZobrazovatNahledCheckBox: TCheckBox
          Left = 376
          Top = 234
          Width = 113
          Height = 17
          Caption = 'Zobrazovat &n�hled'
          State = cbChecked
          TabOrder = 3
          OnClick = ZobrazovatNahledCheckBoxClick
        end
        object DBNavigator: TDBNavigator
          Left = 286
          Top = 3
          Width = 80
          Height = 18
          DataSource = PICTblDS
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
          Flat = True
          Hints.Strings = (
            'Prvn�'
            'P�edchoz�'
            'N�sleduj�c�'
            'Posledn�')
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
        end
        object ImgPanel: TPanel
          Left = 332
          Top = 26
          Width = 16
          Height = 16
          BevelOuter = bvNone
          TabOrder = 5
          object Image1: TImage
            Left = 0
            Top = 0
            Width = 16
            Height = 16
            AutoSize = True
            Picture.Data = {<image000.bmp>}
            Transparent = True
          end
        end
      end
    end
  end
  object PICMainMenu: TMainMenu
    AutoMerge = True
    Left = 528
    Top = 65520
    object ObrazkyMnI: TMenuItem
      Caption = '&Obr�zky'
      Enabled = False
      GroupIndex = 100
      object UkazatMnI: TMenuItem
        Caption = '&Uk�z�n� obr�zku'
        GroupIndex = 100
        ShortCut = 16469
        OnClick = UkazatSBtnClick
      end
      object PridatMnI: TMenuItem
        Caption = '&P�id�n� nov�ho obr�zku'
        GroupIndex = 100
        OnClick = PridatSBtnClick
      end
      object VymazatMnI: TMenuItem
        Caption = '&Vymaz�n� obr�zku'
        GroupIndex = 100
        OnClick = VymazatSBtnClick
      end
      object PrejmenujMnI: TMenuItem
        Caption = 'P�ej&menov�n� obr�zku'
        GroupIndex = 100
        OnClick = PrejmenujSBtnClick
      end
      object VYbratProTiskMnI: TMenuItem
        Caption = 'Vybr�n� pro &tisk'
        GroupIndex = 100
        OnClick = VybratProTiskSbtnClick
      end
      object SaveMnI: TMenuItem
        Caption = 'E&xportov�n� obr�zku'
        GroupIndex = 100
        OnClick = SaveBtnClick
      end
    end
  end
  object PICHeapTbl: TTable
    DatabaseName = 'RealityDB'
    IndexFieldNames = 'CisloZakazky'
    TableName = 'PICHeap.DB'
    Left = 416
    Top = 178
    object PICHeapTblCisloZaznamu: TAutoIncField
      FieldName = 'CisloZaznamu'
      Visible = False
    end
    object PICHeapTblCisloZakazky: TStringField
      FieldName = 'CisloZakazky'
      Visible = False
      Size = 30
    end
    object PICHeapTblPopis: TStringField
      DisplayWidth = 42
      FieldName = 'Popis'
      Size = 60
    end
    object PICHeapTblDatum: TDateField
      Alignment = taRightJustify
      DisplayWidth = 10
      FieldName = 'Datum'
      DisplayFormat = 'DD.MM.YYYY'
    end
    object PICHeapTblPICClass: TStringField
      FieldName = 'PICClass'
      Visible = False
    end
    object PICHeapTblPICStream: TBlobField
      FieldName = 'PICStream'
      Visible = False
      BlobType = ftBlob
      Size = 240
    end
    object PICHeapTblTisknout: TBooleanField
      Alignment = taCenter
      DisplayLabel = ' '
      DisplayWidth = 2
      FieldName = 'Tisknout'
      DisplayValues = 'X'
    end
  end
  object PICTblDS: TDataSource
    DataSet = PICHeapTbl
    OnDataChange = PICHeapTblDSDataChange
    Left = 376
    Top = 65522
  end
  object NahledTimer: TTimer
    Interval = 500
    OnTimer = NahledTimerTimer
    Left = 456
    Top = 65520
  end
  object OpenPictureDialog: TOpenPictureDialog
    Filter =
      'V�echny obr�zky|*.bmp;*.ico;*.emf;*.wmf;*.jpg;*.jpeg;*gif|Bitmap' +
      's (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*' +
      '.emf|Metafiles (*.wmf)|*.wmf|JPeg (*.jpg, *jpeg)|*.jpg;*.jpeg|GI' +
      'F (*.gif)|*.gif'
    Left = 200
    Top = 65520
  end
  object SavePictureDialog: TSavePictureDialog
    Filter =
      'All (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.jpg;*.jpeg;*.bmp;*.' +
      'ico;*.emf;*.wmf|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*' +
      '.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced' +
      ' Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf'
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Left = 296
    Top = 65520
  end
end