home *** CD-ROM | disk | FTP | other *** search
- object CanSaveDialog: TCanSaveDialog
- Left = 564
- Top = 219
- BorderStyle = bsDialog
- Caption = 'Save'
- ClientHeight = 147
- ClientWidth = 268
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object FilenameLabel: TLabel
- Left = 65
- Top = 13
- Width = 157
- Height = 16
- Caption = 'filename already exists.'
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'System'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 65
- Top = 33
- Width = 168
- Height = 16
- Caption = 'Do you want to replace it?'
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'System'
- Font.Style = []
- ParentFont = False
- end
- object Image1: TImage
- Left = 20
- Top = 20
- Width = 27
- Height = 27
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- end
- object Button1: TButton
- Left = 78
- Top = 72
- Width = 61
- Height = 28
- Caption = '&Yes'
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'System'
- Font.Style = []
- ModalResult = 1
- ParentFont = False
- TabOrder = 2
- end
- object SaveAsButton: TButton
- Left = 78
- Top = 111
- Width = 137
- Height = 28
- Caption = '&Change filename'
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'System'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = SaveAsButtonClick
- end
- object Button3: TButton
- Left = 154
- Top = 72
- Width = 61
- Height = 28
- Caption = '&No'
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'System'
- Font.Style = []
- ModalResult = 3
- ParentFont = False
- TabOrder = 1
- end
- object SaveDialog: TSaveDialog
- FileEditStyle = fsEdit
- Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
- Left = 32
- Top = 96
- end
- end
-