home *** CD-ROM | disk | FTP | other *** search
- object BrowserFrame: TBrowserFrame
- Left = 0
- Top = 0
- Width = 723
- Height = 409
- TabOrder = 0
- OnResize = FrameResize
- object RxSplitter1: TRxSplitter
- Left = 265
- Top = 29
- Width = 3
- Height = 380
- ControlFirst = Panel1
- ControlSecond = Panel2
- Align = alLeft
- end
- object Panel1: TPanel
- Left = 0
- Top = 29
- Width = 265
- Height = 380
- Align = alLeft
- TabOrder = 1
- object dfsSystemTreeView1: TdfsSystemTreeView
- Left = 1
- Top = 1
- Width = 263
- Height = 378
- Hint = 'Choose a directory for the '#13#10'pictures you want to show.'
- ComboBox = dfsSystemComboBox1
- Align = alClient
- Indent = 19
- OnChange = dfsSystemTreeView1Change
- TabOrder = 0
- end
- end
- object Panel2: TPanel
- Left = 268
- Top = 29
- Width = 455
- Height = 380
- Align = alClient
- TabOrder = 2
- inline catalogframe1: Tcatalogframe
- Left = 1
- Top = 1
- Width = 453
- Height = 378
- Align = alClient
- PopupMenu = PopupMenurightclick
- inherited DrawGrid1: TRxDrawGrid
- Width = 453
- Height = 378
- Hint =
- 'The Images from the chosen folder will be shown here.'#13#10'You can l' +
- 'oad them by double clicking with the mouse.'
- end
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 0
- Width = 723
- Height = 29
- Align = alTop
- TabOrder = 3
- object Panel4: TPanel
- Left = 384
- Top = 1
- Width = 338
- Height = 27
- Align = alRight
- TabOrder = 0
- object BitBtnSort2: TBitBtn
- Left = 138
- Top = 4
- Width = 77
- Height = 17
- Hint =
- 'The second sort will be used if the first sort has two equal ele' +
- 'ments.'
- Caption = '2.Sort'
- TabOrder = 2
- OnClick = BitBtnSort2Click
- Glyph.Data = {
- EA000000424DEA00000000000000360000002800000006000000090000000100
- 180000000000B4000000C40E0000C40E00000000000000000001007878007878
- 0078780078780078780078780000007878000000007878007878007878007878
- 0000007878000000000000007878007878007878E80000787800000000000000
- 0000007878007878000000787800000000000000000000000000787800000078
- 7800000000000000000000787800787800000078780000000000000078780078
- 78007878FFFF0078780000000078780078780078780078784504007878007878
- 007878007878007878007878EC01}
- Layout = blGlyphRight
- end
- object BitBtnSort1: TBitBtn
- Left = 62
- Top = 4
- Width = 77
- Height = 17
- Hint = 'Choose the order in which the images should appear.'
- Caption = '1.Sort'
- TabOrder = 1
- OnClick = BitBtnSort1Click
- Glyph.Data = {
- EA000000424DEA00000000000000360000002800000006000000090000000100
- 180000000000B4000000C40E0000C40E00000000000000000001007878007878
- 0078780078780078780078780000007878000000007878007878007878007878
- 0000007878000000000000007878007878007878E80000787800000000000000
- 0000007878007878000000787800000000000000000000000000787800000078
- 7800000000000000000000787800787800000078780000000000000078780078
- 78007878FFFF0078780000000078780078780078780078784504007878007878
- 007878007878007878007878EC01}
- Layout = blGlyphRight
- end
- object BitBtnView: TBitBtn
- Left = 6
- Top = 4
- Width = 57
- Height = 17
- Hint = 'Here you can change the view of the images.'
- Caption = 'View'
- TabOrder = 0
- OnClick = BitBtnViewClick
- Glyph.Data = {
- EA000000424DEA00000000000000360000002800000006000000090000000100
- 180000000000B4000000C40E0000C40E00000000000000000001007878007878
- 0078780078780078780078780000007878000000007878007878007878007878
- 0000007878000000000000007878007878007878E80000787800000000000000
- 0000007878007878000000787800000000000000000000000000787800000078
- 7800000000000000000000787800787800000078780000000000000078780078
- 78007878FFFF0078780000000078780078780078780078784504007878007878
- 007878007878007878007878EC01}
- Layout = blGlyphRight
- end
- object bSpeedBar1: TSpeedBar
- Left = 220
- Top = 0
- Width = 117
- Height = 29
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = bpCustom
- Align = alNone
- BtnOffsetHorz = 6
- BtnOffsetVert = 4
- BtnWidth = 21
- BtnHeight = 21
- Images = form1.ImageList1
- TabOrder = 3
- InternalVer = 1
- object SpeedbarSection1: TSpeedbarSection
- Caption = 'Edit'
- end
- object cutitem: TSpeedItem
- Action = bcutAction
- BtnCaption = 'Ausschneiden (zum Verschieben)'
- Caption = 'Cut (for moving)'
- Glyph.Data = {
- 36020000424D3602000000000000360000002800000010000000100000000100
- 10000000000000020000000000000000000000000000000000001F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C0F000F001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C0F001F7C1F7C0F001F7C1F7C0F000F001F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C0F001F7C1F7C0F001F7C0F001F7C1F7C0F001F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C0F001F7C1F7C0F001F7C0F001F7C1F7C0F001F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C0F000F000F001F7C0F001F7C1F7C0F001F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C0F001F7C0F000F000F001F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C0F0000000F001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C00001F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C000000001F7C000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C00001F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C00001F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C00001F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C}
- Hint = 'Cut (for moving)'
- ImageIndex = 6
- Spacing = 1
- Left = 6
- Top = 4
- Visible = True
- OnClick = bcutActionExecute
- SectionName = 'Edit'
- end
- object copyitem: TSpeedItem
- Action = bcopyaction
- BtnCaption = 'Kopieren'
- Caption = 'Copy'
- Glyph.Data = {
- 36020000424D3602000000000000360000002800000010000000100000000100
- 10000000000000020000000000000000000000000000000000001F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C0F000F000F000F000F000F000F000F000F001F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C0F00FF7FFF7FFF7FFF7FFF7FFF7FFF7F0F001F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C0F00FF7F00000000000000000000FF7F0F001F7C00000000
- 00000000000000000F00FF7FFF7FFF7FFF7FFF7FFF7FFF7F0F001F7C0000FF7F
- FF7FFF7FFF7FFF7F0F00FF7F00000000000000000000FF7F0F001F7C0000FF7F
- 00000000000000000F00FF7FFF7FFF7FFF7FFF7FFF7FFF7F0F001F7C0000FF7F
- FF7FFF7FFF7FFF7F0F00FF7F00000000FF7F0F000F000F000F001F7C0000FF7F
- 00000000000000000F00FF7FFF7FFF7FFF7F0F00FF7F0F001F7C1F7C0000FF7F
- FF7FFF7FFF7FFF7F0F00FF7FFF7FFF7FFF7F0F000F001F7C1F7C1F7C0000FF7F
- 00000000FF7F00000F000F000F000F000F000F001F7C1F7C1F7C1F7C0000FF7F
- FF7FFF7FFF7F0000FF7F00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000FF7F
- FF7FFF7FFF7F000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C00000000
- 00000000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C}
- Hint = 'Copy'
- ImageIndex = 7
- Spacing = 1
- Left = 27
- Top = 4
- Visible = True
- OnClick = bcopyactionExecute
- SectionName = 'Edit'
- end
- object pasteitem: TSpeedItem
- Action = bpasteaction
- BtnCaption = 'Einf�gen'
- Caption = 'Paste'
- Glyph.Data = {
- 36020000424D3602000000000000360000002800000010000000100000000100
- 10000000000000020000000000000000000000000000000000001F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C0F000F000F000F000F000F000F000F000F001F7C1F7C0000
- 00000000000000000F00FF7FFF7FFF7FFF7FFF7FFF7FFF7F0F001F7C0000E03D
- EF3DE03DEF3DE03D0F00FF7F0F000F000F000F000F00FF7F0F001F7C0000EF3D
- E03DEF3DE03DEF3D0F00FF7FFF7FFF7FFF7FFF7FFF7FFF7F0F001F7C0000E03D
- EF3DE03DEF3DE03D0F00FF7F0F000F000F00FF7F0F000F000F001F7C0000EF3D
- E03DEF3DE03DEF3D0F00FF7FFF7FFF7FFF7FFF7F0F00FF7F0F001F7C0000E03D
- EF3DE03DEF3DE03D0F00FF7FFF7FFF7FFF7FFF7F0F000F001F7C1F7C0000EF3D
- E03DEF3DE03DEF3D0F000F000F000F000F000F000F0000001F7C1F7C0000E03D
- EF3DE03DEF3DE03DEF3DE03DEF3DE03DEF3DE03DEF3D00001F7C1F7C0000EF3D
- E03D00000000000000000000000000000000EF3DE03D00001F7C1F7C0000E03D
- EF3D0000F75EF75EF75EF75EF75EF75E0000E03DEF3D00001F7C1F7C0000EF3D
- E03DEF3D0000E07F00000000E07F0000E03DEF3DE03D00001F7C1F7C1F7C0000
- 0000000000000000E07FE07F000000000000000000001F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C00000000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C}
- Hint = 'Paste'
- ImageIndex = 8
- Spacing = 1
- Left = 48
- Top = 4
- Visible = True
- OnClick = bpasteactionExecute
- SectionName = 'Edit'
- end
- object deleteitem: TSpeedItem
- Action = bdeleteaction
- BtnCaption = 'L�schen'
- Caption = 'Delete'
- Glyph.Data = {
- 36020000424D3602000000000000360000002800000010000000100000000100
- 10000000000000020000000000000000000000000000000000001F7C003C003C
- 003CFF7F1F7C1F7C1F7C1F7C1F7C1F7C1F7C003CFF7F1F7C1F7C1F7C003C003C
- 003CFF7F1F7C1F7C1F7C1F7C1F7C1F7C1F7C003CFF7F1F7C1F7C1F7C003C003C
- 003CFF7F1F7C1F7C1F7C1F7C1F7C1F7C003CFF7F1F7C1F7C1F7C1F7C1F7C003C
- 003C003CFF7F1F7C1F7C1F7C1F7C003C003CFF7F1F7C1F7C1F7C1F7C1F7C1F7C
- 003C003C003CFF7FFF7F1F7C003C003CFF7F1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 003C003C003CFF7FFF7F1F7C003C003CFF7F1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C003C003C003C003C003C003CFF7F1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C003C003C003C003CFF7F1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C003C003C003C003CFF7F1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C003C003C003C003C003C003CFF7F1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 003C003C003CFF7FFF7F1F7C003CFF7F1F7C1F7C1F7C1F7C1F7C1F7C003C003C
- 003C003CFF7F1F7C1F7C1F7C1F7C003C003CFF7F1F7C1F7C1F7C1F7C003C003C
- 003C003CFF7F1F7C1F7C1F7C1F7C003C003CFF7F1F7C1F7C1F7C003C003C003C
- 003CFF7F1F7C1F7C1F7C1F7C1F7C1F7C003C003CFF7F1F7C1F7C003C003CFF7F
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C003C003CFF7F1F7C003C003CFF7F
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C003C003CFF7F1F7C}
- Hint = 'Delete'
- ImageIndex = 57
- Spacing = 1
- Left = 90
- Top = 4
- Visible = True
- OnClick = bdeleteactionExecute
- SectionName = 'Edit'
- end
- object renameitem: TSpeedItem
- Action = brenameaction
- BtnCaption = 'Umbenennen'
- Caption = 'Rename'
- Glyph.Data = {
- 36020000424D3602000000000000360000002800000010000000100000000100
- 10000000000000020000000000000000000000000000000000001F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000
- 0000000000000000000000000000000000000000000000001F7C0000FF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00001F7C0000FF7FFF7F
- FF7FFF7FFF7FFF7F1F00FF7FFF7FFF7FFF7FFF7FFF7F00001F7C0000FF7F0000
- 00000000FF7FFF7F1F000000FF7FFF7FFF7F0000FF7F00001F7C0000FF7F0000
- FF7FFF7F0000FF7F1F00FF7F0000FF7F0000FF7FFF7F00001F7C0000FF7F0000
- FF7FFF7F0000FF7F1F00FF7FFF7F00000000FF7FFF7F00001F7C0000FF7F0000
- FF7FFF7F0000FF7F1F00FF7FFF7F00000000FF7FFF7F00001F7C0000FF7F0000
- FF7FFF7F0000FF7F1F00FF7F0000FF7FFF7F0000FF7F00001F7C0000FF7FFF7F
- FF7FFF7FFF7FFF7F1F00FF7FFF7FFF7FFF7FFF7FFF7F00001F7C0000FF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00001F7C000000000000
- 0000000000000000000000000000000000000000000000001F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C}
- Hint = 'Rename'
- ImageIndex = 59
- Spacing = 1
- Left = 69
- Top = 4
- Visible = True
- OnClick = brenameactionExecute
- SectionName = 'Edit'
- end
- end
- end
- object Panel5: TPanel
- Left = 1
- Top = 1
- Width = 383
- Height = 27
- Align = alClient
- TabOrder = 1
- object dfsSystemComboBox1: TdfsSystemComboBox
- Left = 1
- Top = 3
- Width = 105
- Height = 22
- TreeView = dfsSystemTreeView1
- ItemHeight = 16
- TabOrder = 0
- end
- end
- end
- object tformstorage11: tformstorage1
- IniFileName = '\software\PicMaster\storage'
- Options = []
- UseRegistry = True
- OnRestorePlacement = tformstorage11RestorePlacement
- StoredProps.Strings = (
- 'dfsSystemTreeView1.Directory'
- 'Panel1.Width')
- StoredValues = <>
- AllwaysSave = True
- Left = 200
- Top = 39
- end
- object PopupMenuView: TPopupMenu
- Left = 456
- Top = 1
- end
- object PopupMenuSort1: TPopupMenu
- Left = 528
- Top = 65533
- end
- object PopupMenuSort2: TPopupMenu
- Left = 724
- Top = 65533
- end
- object PopupMenurightclick: TPopupMenu
- Images = form1.ImageList1
- Left = 265
- Top = 1
- object Cut1: TMenuItem
- Action = bcutAction
- end
- object cut2: TMenuItem
- Action = bcopyaction
- end
- object Einfgen1: TMenuItem
- Action = bpasteaction
- end
- object Lschen1: TMenuItem
- Action = bdeleteaction
- end
- object Umbenennen1: TMenuItem
- Action = brenameaction
- end
- end
- object ActionList1: TActionList
- Images = form1.ImageList1
- Left = 233
- Top = 1
- object bcutAction: TAction
- Category = 'Browser'
- Caption = 'Cut (for moving)'
- Hint = 'Cut (for moving)'
- ImageIndex = 6
- ShortCut = 16472
- OnExecute = bcutActionExecute
- end
- object bcopyaction: TAction
- Category = 'Browser'
- Caption = 'Copy'
- Hint = 'Copy'
- ImageIndex = 7
- ShortCut = 16451
- OnExecute = bcopyactionExecute
- end
- object bpasteaction: TAction
- Category = 'Browser'
- Caption = 'Paste'
- Hint = 'Paste'
- ImageIndex = 8
- ShortCut = 16470
- OnExecute = bpasteactionExecute
- end
- object bdeleteaction: TAction
- Category = 'Browser'
- Caption = 'Delete'
- Hint = 'Delete'
- ImageIndex = 57
- ShortCut = 46
- OnExecute = bdeleteactionExecute
- end
- object brenameaction: TAction
- Category = 'Browser'
- Caption = 'Rename'
- Hint = 'Rename'
- ImageIndex = 59
- ShortCut = 113
- OnExecute = brenameactionExecute
- end
- end
- end
-