home *** CD-ROM | disk | FTP | other *** search
- object FormPicRename: TFormPicRename
- Left = 445
- Top = 364
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Picture Rename'
- ClientHeight = 141
- ClientWidth = 313
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnActivate = FormActivate
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 100
- Width = 313
- Height = 41
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 0
- object BtnOk: TButton
- Left = 136
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Ok'
- Default = True
- TabOrder = 0
- OnClick = BtnOkClick
- end
- object Button2: TButton
- Left = 224
- Top = 8
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- OnClick = Button2Click
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 313
- Height = 100
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 1
- DesignSize = (
- 313
- 100)
- object LblDir: TLabel
- Left = 54
- Top = 79
- Width = 27
- Height = 13
- Anchors = [akLeft, akBottom]
- Caption = 'LblDir'
- end
- object Label3: TLabel
- Left = 15
- Top = 10
- Width = 185
- Height = 13
- Caption = 'Enter the new filename for the picture. '
- end
- object Label1: TLabel
- Left = 15
- Top = 43
- Width = 70
- Height = 13
- Caption = 'New Filename:'
- end
- object Label2: TLabel
- Left = 15
- Top = 79
- Width = 32
- Height = 13
- Anchors = [akLeft, akBottom]
- Caption = 'Folder:'
- end
- object Bevel1: TBevel
- Left = 0
- Top = 96
- Width = 313
- Height = 4
- Align = alBottom
- Shape = bsBottomLine
- end
- object EditNewName: TEdit
- Left = 92
- Top = 39
- Width = 194
- Height = 21
- TabOrder = 0
- end
- end
- end
-