sopendialog.dfm

Alpha Controls 界面控件包

object sOpenDialogForm: TsOpenDialogForm
  Left = 288
  Top = 225
  Width = 480
  Height = 310
  BorderIcons = [biSystemMenu, biHelp]
  BorderStyle = bsSizeToolWin
  Caption = 'Open'
  Color = clBtnFace
  Constraints.MinHeight = 310
  Constraints.MinWidth = 480
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object BackBtn: TsSpeedButton
    Left = 330
    Top = 3
    Width = 38
    Height = 26
    Hint = 'Back'
    Enabled = False
    Flat = True
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
      FF00FFFF00FFFF00FF013002014103025104025104014303013302FF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF014503014503037808039C0B03
      9F0C039F0C039D0C027E09014D04014D04FF00FFFF00FFFF00FFFF00FFFF00FF
      034F0903650904A30D03A60C03A00B029E0A039F0C03A00C03A50C03A60C0269
      06013402FF00FFFF00FFFF00FF044F09066B110AAB1F07A415049E0D029D0A03
      9D0A039E0C039E0C039E0C03A00C03A70C026A06024C04FF00FFFF00FF044F09
      10AC300DAB2809A41C039E0F48C052E9F8EAD5F2D816AA20039E0C039E0C039F
      0C03A70C024C04FF00FF0357060D822317B6410EA92D05A01341BD4BF4FCF6FF
      FFFF82D58907A010039E0C039E0C039E0C03A50C037B0801420303570617A341
      18B54A11AB3441BD4EF3FBF4FCFEFC75D07D039E0C039E0C039E0C039E0C039E
      0C03A10C03960A01420306680D21B1511EB75170D392F0FBF3FFFFFFF7FCF8B7
      E9C5B4E7BDADE5B2ADE5B2AFE5B4B1E6B603A00C039F0C014A040874123EBD69
      2ABA5CBAEACCFFFFFFFFFFFFFCFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FF03A00C039F0C02520506780E54C57A44C6742CBA5CA4E3BCFFFFFFFAFEFB82
      D9A03EBF5E41C05B41BF5B41BF5841BF5707A518039D0C01460306780E4CBD69
      83DDA722B6551DB24F95DEB0FFFFFFE2F7EA4FC67511AB340FAA300FAA2E0CA6
      2706A716038C0A014603FF00FF139923AAE7C568D08E16AF481CB14D8EDCABFF
      FFFFF4FCF72DB85310A9310EA7290BA42009AF1C036B0AFF00FFFF00FF139923
      56C573C5F0D866CF8C20B4521CB24F95DEB0ABE6C11FB44E13AC3C12AA340FB0
      2D0A991F036B0AFF00FFFF00FFFF00FF1399236ACC88D0F4E39AE1B650C77A38
      BD672CBA5D30BB602FBC5D23BC4F11A33006620FFF00FFFF00FFFF00FFFF00FF
      FF00FF13992313992398E1B5BDEED4A7E7C490E0B178D99F49C7791B9D3D1B9D
      3DFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF1DA43513992313
      9923139923139923138C2AFF00FFFF00FFFF00FFFF00FFFF00FF}
    Spacing = 0
    OnClick = BackBtnClick
    Blend = 30
    ButtonStyle = tbsDropDown
    SkinData.SkinSection = 'TOOLBUTTON'
    DisabledGlyphKind = []
    DropdownMenu = HistMenu
  end
  object UpBtn: TsSpeedButton
    Left = 370
    Top = 3
    Width = 25
    Height = 26
    Hint = 'Up one level'
    Flat = True
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      1800000000000003000000000000000000000000000000000000FE00FE0274AB
      0274AB0274AB0274AB0274AB0274AB0274AB0274AB0274AB0274AB0274AB0274
      AB0274ABFE00FEFE00FE0274AB4DC1F00274AB8DEBFC4DC1F04DC1F04DC1F04D
      C1F04DC1F04DC1F04DC1F04DC1F042B4CA96EBFA0274ABFE00FE0274AB51C5F5
      0274AB91EAFB54C7F754C7F754C7F754C7F754C7F754C7F754C7F754C7F741B4
      D09BECFA0274ABFE00FE0274AB57CAF80274AB96EBFA61D3F861D3F861D3F861
      D3F861D3F861D3F861D3F861D3F841B4D0A0EDFA0274ABFE00FE0274AB61D3F8
      0274ABA0EDFA6CDCF727A668046A0B05740C27A6685CCFF66CDCF76CDCF741B4
      D0A9EFFA0274ABFE00FE0274AB66D8F90274ABA9EFFA77E4FB77E4FB36B58606
      770D06770D189D2F73E2FA77E4FB41B4D0AEF0FA0274ABFE00FE0274AB73E2FA
      0274ABC2F2FABBF2FBBBF2FBBBF2FB36B58606770D06770D189D2FBBF2FBA9D2
      DAC2F2FA0274ABFE00FE0274AB7BE7FB0274AB0274AB0274AB0274AB0274AB02
      73AA06770D06770D046A0B0273AA0274AB0274AB0274ABFE00FE0274AB84ECFC
      84ECFC84ECFC84ECFC84ECFC84ECFC3FB6B506770D189D2F06770D38B5960273
      AAFE00FEFE00FEFE00FE0274ABC2F2FA89EDFC89EDFC89EDFC89EDFC89EDFC6C
      DCF706770D189D2F06770D29AF520273AAFE00FEFE00FEFE00FEFE00FE0274AB
      C2F2FA8FEBFB046A0B046A0B046A0B046A0B189D2F1EA83B189D2F046A0B046A
      0B046A0B046A0BFE00FEFE00FEFE00FE0274AB0274AB0273AA046A0B06770D2C
      B35B2CB35B24AF451EA83B189D2F06770D046A0BFE00FEFE00FEFE00FEFE00FE
      FE00FEFE00FEFE00FEFE00FE046A0B1A9F362EB0722CB35B27AE4D1BA033046A
      0BFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FE04
      6A0B24AF4536B5862CB35B046A0BFE00FEFE00FEFE00FEFE00FEFE00FEFE00FE
      FE00FEFE00FEFE00FEFE00FEFE00FEFE00FE046A0B2CB359046A0BFE00FEFE00
      FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE
      00FEFE00FE046A0BFE00FEFE00FEFE00FEFE00FEFE00FEFE00FE}
    OnClick = UpBtnClick
    Blend = 30
    SkinData.SkinSection = 'TOOLBUTTON'
    DisabledGlyphKind = []
  end
  object CreateDirBtn: TsSpeedButton
    Left = 397
    Top = 3
    Width = 25
    Height = 26
    Hint = 'New directory'
    Flat = True
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000C30E0000C30E00000000000000000000FE00FE0274AC
      0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274
      AC0274ACFE00FEFE00FE0274AC49BEEE0274AC91EFFC4BBFF04BBFF04BBFF04B
      BFF04BBFF04BBFF04BBFF04BBFF0289CCF9BECFA0274ACFE00FE0274AC51C4F3
      0274AC95EDFB54C8F554C8F554C8F554C8F554C8F554C8F554C8F554C8F5289C
      CF9BECFA0274ACFE00FE0274AC5ACCF60274AC9BECFA5FD2F95FD2F95FD2F95F
      D2F95FD2F95FD2F95FD2F95FD2F9289CCFA2EDFA0274ACFE00FE0274AC5FD2F9
      0274ACA2EDFA6ADCFA6ADCFA6ADCFA6ADCFA6ADCFA6ADCFA00008000008032A6
      D8AAEFFA0274ACFE00FE0274AC6ADCFA0274ACAAEFFA73E5FB73E5FB73E5FB73
      E5FB73E5FB0000FF0000FF00008032A6D8AAEFFA0274ACFE00FE0274AC71E2FB
      0274ACC7F2FAB8F2FCB8F2FCB8F2FCB8F2FCB8F2FC0000FF0000FF0000805ACC
      F6C7F2FA0274ACFE00FE0274AC78E9FC0274AC0274AC0274AC0274AC0274AC02
      74AC0274AC0000FF0000FF0000800274AC0274AC0274ACFE00FE0274AC84F1FD
      84F1FD84F1FD84F1FD84F1FD0000800000800000800000FF0000FF0000800000
      800000800000800000800274ACC7F2FA89F4FD89F4FD89F4FD0000FF0000FF00
      00FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF000080FE00FE0274AC
      C7F2FA8DF2FD8DF2FD0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
      FF0000FF0000FFFE00FEFE00FEFE00FE0274AC0274AC0274AC0274ACFE00FEFE
      00FEFE00FE0000FF0000FF000080FE00FEFE00FEFE00FEFE00FEFE00FEFE00FE
      FE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FE0000FF0000FF000080FE00
      FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE
      00FEFE00FE0000FF0000FF000080FE00FEFE00FEFE00FEFE00FEFE00FEFE00FE
      FE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FE0000FF0000FFFE00FEFE00
      FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE
      00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FE}
    OnClick = CreateDirBtnClick
    Blend = 30
    SkinData.SkinSection = 'TOOLBUTTON'
    DisabledGlyphKind = []
  end
  object KindBtn: TsSpeedButton
    Left = 425
    Top = 3
    Width = 38
    Height = 26
    Hint = 'View style'
    Flat = True
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      1800000000000003000000000000000000000000000000000000FE00FEFE00FE
      FE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00
      FEFE00FEFE00FEFE00FEFE00FEBD4C00BD4C00BD4C00BD4C00BD4C00BD4C00BD
      4C00BD4C00BD4C00BD4C00BD4C00BD4C00BD4C00BD4C00BD4C00FE00FEBD4C00
      FEFEFEFEFEFEFBF9F7EFECEAFEDBB5FEDAB5FED0A0FDCD99FDCD99FDCD99FDCD
      99FDCD99FDCD99BD4C00FE00FEBD4C00FEFEFEFEFEFEFEFEFEFBF9F7EFECEAFE
      DBB5FEDAB5FED0A0FDCD99FDCD99FDCD99FDCD99FDCD99BD4C00FE00FEBD4C00
      FEFEFE2E5AEE2E5AEE2E5AEEFBF9F7873604873604873604FED0A00A79CA0A79
      CA0A79CAFDCD99BD4C00FE00FEBD4C00FEFEFE2E5AEE2E5AEE2E5AEEFEFEFE87
      3604873604873604FEDAB50A79CA0A79CA0A79CAFDCD99BD4C00FE00FEBD4C00
      FEFEFE2E5AEE2E5AEE2E5AEEFEFEFE873604873604873604FEDBB50A79CA0A79
      CA0A79CAFDCD99BD4C00FE00FEBD4C00FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE
      FEFEFEFEFEFBF9F7EFECEAFEDBB5FEDAB5FED0A0FDCD99BD4C00FE00FEBD4C00
      FEFEFEBA8180BA8180BA8180FEFEFECE5D05CE5D05CE5D05FBF9F7147B00147B
      00147B00FED0A0BD4C00FE00FEBD4C00FEFEFEBA8180BA8180BA8180FEFEFECE
      5D05CE5D05CE5D05FEFEFE147B00147B00147B00FEDAB5BD4C00FE00FEBD4C00
      FEFEFEBA8180BA8180BA8180FEFEFECE5D05CE5D05CE5D05FEFEFE147B00147B
      00147B00FEDBB5BD4C00FE00FEBD4C00FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE
      FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFBF9F7EFECEABD4C00FE00FEBD4C00
      BD4C00BD4C00BD4C00BD4C00BD4C00BD4C00BD4C00BD4C00BD4C00BD4C00BD4C
      00BD4C00BD4C00BD4C00FE00FEFE00FEBD4C00BD4C00BD4C00BD4C00BD4C00BD
      4C00BD4C00BD4C00BD4C00BD4C00BD4C00BD4C00BD4C00FE00FEFE00FEFE00FE
      FE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00
      FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE
      00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FEFE00FE}
    Spacing = 0
    OnClick = KindBtnClick
    Blend = 30
    ButtonStyle = tbsDropDown
    SkinData.SkinSection = 'TOOLBUTTON'
    DisabledGlyphKind = []
    DropdownMenu = PopupMenu1
  end
  object FileNameEdit: TsEdit
    Left = 80
    Top = 198
    Width = 300
    Height = 21
    Color = 16118514
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    SkinData.SkinSection = 'EDIT'
    BoundLabel.Active = True
    BoundLabel.Caption = 'File name :  '
    BoundLabel.Indent = 0
    BoundLabel.Font.Charset = DEFAULT_CHARSET
    BoundLabel.Font.Color = 5391682
    BoundLabel.Font.Height = -11
    BoundLabel.Font.Name = 'MS Sans Serif'
    BoundLabel.Font.Style = []
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
  end
  object FileTypeBox: TsFilterComboBox
    Left = 80
    Top = 226
    Width = 300
    Height = 21
    Alignment = taLeftJustify
    BoundLabel.Active = True
    BoundLabel.Caption = 'Files type :  '
    BoundLabel.Indent = 0
    BoundLabel.Font.Charset = DEFAULT_CHARSET
    BoundLabel.Font.Color = 5391682
    BoundLabel.Font.Height = -11
    BoundLabel.Font.Name = 'MS Sans Serif'
    BoundLabel.Font.Style = []
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    SkinData.SkinSection = 'COMBOBOX'
    Color = 16118514
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnChange = FileTypeBoxChange
  end
  object sButton1: TsButton
    Left = 389
    Top = 200
    Width = 73
    Height = 23
    Caption = 'Open'
    Default = True
    TabOrder = 2
    OnClick = sButton1Click
    SkinData.SkinSection = 'BUTTON'
  end
  object sButton2: TsButton
    Left = 389
    Top = 224
    Width = 73
    Height = 23
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 3
    OnClick = sButton2Click
    SkinData.SkinSection = 'BUTTON'
  end
  object BtnHelp: TsButton
    Left = 389
    Top = 248
    Width = 73
    Height = 23
    Caption = 'Help'
    TabOrder = 4
    OnClick = BtnHelpClick
    SkinData.SkinSection = 'BUTTON'
  end
  object CheckBoxReadOnly: TsCheckBox
    Left = 81
    Top = 255
    Width = 73
    Height = 19
    Caption = 'Read only'
    TabOrder = 7
    Visible = False
    SkinData.SkinSection = 'CHECKBOX'
    ImgChecked = 0
    ImgUnchecked = 0
  end
  object FileListView: TsDlgShellListView
    Left = 7
    Top = 34
    Width = 456
    Height = 157
    BoundLabel.Indent = 0
    BoundLabel.Font.Charset = DEFAULT_CHARSET
    BoundLabel.Font.Color = clWindowText
    BoundLabel.Font.Height = -11
    BoundLabel.Font.Name = 'MS Sans Serif'
    BoundLabel.Font.Style = []
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    SkinData.SkinSection = 'EDIT'
    OnChange = FileListViewChange
    Color = 16118514
    OnDblClick = FileListViewDblClick
    ReadOnly = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Sorted = True
    HideSelection = False
    ParentFont = False
    TabOrder = 6
    ViewStyle = vsList
    AutoRefresh = False
    ObjectTypes = [otFolders, otNonFolders, otHidden]
    Root = 'rfDesktop'
    ShellComboBox = DriveComboBox
    ShowExt = seSystem
  end
  object DriveComboBox: TsShellComboBox
    Tag = 4
    Left = 57
    Top = 6
    Width = 270
    Height = 22
    BoundLabel.Active = True
    BoundLabel.Caption = 'Folder'
    BoundLabel.Indent = 0
    BoundLabel.Font.Charset = DEFAULT_CHARSET
    BoundLabel.Font.Color = 5391682
    BoundLabel.Font.Height = -11
    BoundLabel.Font.Name = 'MS Sans Serif'
    BoundLabel.Font.Style = []
    BoundLabel.Layout = sclLeft
    BoundLabel.MaxWidth = 0
    BoundLabel.UseSkinColor = True
    Color = 16118514
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnChange = DriveComboBoxChange
    ItemsEx = <>
    SkinData.SkinSection = 'COMBOBOX'
    Root = 'rfDesktop'
    ShellListView = FileListView
  end
  object sSkinProvider1: TsSkinProvider
    CaptionAlignment = taCenter
    SkinData.SkinSection = 'DIALOG'
    GripMode = gmRightBottom
    MakeSkinMenu = False
    ScreenSnap = True
    ShowAppIcon = False
    TitleButtons = <>
    Left = 396
    Top = 112
  end
  object PopupMenu1: TPopupMenu
    Left = 116
    Top = 52
    object Icons2: TMenuItem
      OnClick = Icons2Click
    end
    object List1: TMenuItem
      Checked = True
      OnClick = List1Click
    end
    object Smallicons1: TMenuItem
      OnClick = Smallicons1Click
    end
    object Icons1: TMenuItem
      OnClick = Icons1Click
    end
  end
  object HistMenu: TPopupMenu
    Left = 147
    Top = 53
  end
  object ActionList1: TActionList
    Left = 288
    Top = 252
    object ActionOk: TAction
      Caption = 'ActionOk'
      ShortCut = 13
    end
    object ActionCancel: TAction
      Caption = 'ActionCancel'
      ShortCut = 27
    end
  end
end