home *** CD-ROM | disk | FTP | other *** search
- object FormDuplicates: TFormDuplicates
- Left = 294
- Top = 273
- AutoScroll = False
- BorderIcons = [biSystemMenu]
- Caption = 'Picture duplicates'
- ClientHeight = 495
- ClientWidth = 657
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 657
- Height = 41
- Align = alTop
- BevelOuter = bvNone
- Color = clWindow
- TabOrder = 0
- object LblTotalNumDups: TLabel
- Left = 24
- Top = 20
- Width = 100
- Height = 13
- Caption = '23 Duplicate pictures'
- end
- object LblExtraFileInfo: TLabel
- Left = 188
- Top = 20
- Width = 64
- Height = 13
- Caption = 'Extra File Info'
- end
- object Bevel2: TBevel
- Left = 0
- Top = 37
- Width = 657
- Height = 4
- Align = alBottom
- Shape = bsBottomLine
- end
- object Label1: TLabel
- Left = 7
- Top = 3
- Width = 153
- Height = 13
- Caption = 'Summary for all duplicates:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 454
- Width = 657
- Height = 41
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 1
- DesignSize = (
- 657
- 41)
- object BtnClose: TButton
- Left = 556
- Top = 8
- Width = 90
- Height = 25
- Anchors = [akTop, akRight]
- Cancel = True
- Caption = 'Close'
- Default = True
- TabOrder = 0
- OnClick = BtnCloseClick
- end
- object BtnRemoveDups: TButton
- Left = 458
- Top = 8
- Width = 90
- Height = 25
- Anchors = [akTop, akRight]
- Caption = 'Merge All'
- TabOrder = 1
- OnClick = BtnRemoveDupsClick
- end
- object BtnMergeSelected: TButton
- Left = 359
- Top = 8
- Width = 90
- Height = 25
- Anchors = [akTop, akRight]
- Caption = 'Merge Selected'
- TabOrder = 2
- OnClick = BtnMergeSelectedClick
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 41
- Width = 657
- Height = 413
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 2
- object Bevel1: TBevel
- Left = 0
- Top = 409
- Width = 657
- Height = 4
- Align = alBottom
- Shape = bsBottomLine
- end
- object Panel4: TPanel
- Left = 0
- Top = 0
- Width = 657
- Height = 409
- Align = alClient
- BevelOuter = bvLowered
- TabOrder = 0
- object ThumbView1: TThumbView
- Left = 1
- Top = 1
- Width = 655
- Height = 281
- Align = alClient
- TabOrder = 0
- OnSelectionChange = ThumbView1SelectionChange
- OnNeedThumbnail = ThumbView1NeedThumbnail
- AllowReordering = False
- AllowDragIn = True
- AllowDragOut = True
- TooltipFilename = False
- TooltipCaptions = False
- TooltipFilesize = False
- TooltipFiledate = False
- TooltipDimensions = False
- TooltipPicDate = False
- TooltipMergeDescr = False
- TooltipMergeDebug = False
- AllowDragMove = True
- end
- object Panel5: TPanel
- Left = 1
- Top = 282
- Width = 655
- Height = 126
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 1
- object Bevel3: TBevel
- Left = 0
- Top = 0
- Width = 655
- Height = 4
- Align = alTop
- Shape = bsTopLine
- end
- object Label2: TLabel
- Left = 96
- Top = 10
- Width = 112
- Height = 13
- Caption = 'Selected picture(s):'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object BtnChangeKeep: TSpeedButton
- Left = 4
- Top = 6
- Width = 85
- Height = 21
- Caption = 'Change keep'
- OnClick = BtnChangeKeepClick
- end
- object LblSelMsg: TLabel
- Left = 215
- Top = 10
- Width = 49
- Height = 13
- Caption = 'LblSelMsg'
- end
- object sgDupDetail: TStringGrid
- Left = 0
- Top = 30
- Width = 655
- Height = 96
- Align = alBottom
- ColCount = 3
- DefaultRowHeight = 15
- FixedCols = 0
- RowCount = 2
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goColSizing, goRowSelect, goThumbTracking]
- TabOrder = 0
- OnDblClick = sgDupDetailDblClick
- ColWidths = (
- 64
- 64
- 64)
- end
- end
- object PanelNoDups: TPanel
- Left = 416
- Top = 72
- Width = 185
- Height = 41
- BevelOuter = bvNone
- Caption = 'No duplicate pictures exist.'
- TabOrder = 2
- object Bevel4: TBevel
- Left = 0
- Top = 37
- Width = 185
- Height = 4
- Align = alBottom
- Shape = bsBottomLine
- end
- end
- end
- end
- end
-