home *** CD-ROM | disk | FTP | other *** search
- object slideform: Tslideform
- Left = 466
- Top = 586
- HelpContext = 4112
- BorderStyle = bsDialog
- Caption = 'Options for Slide Show'
- ClientHeight = 396
- ClientWidth = 538
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- ShowHint = True
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label15: TmyRxLabel
- Left = 60
- Top = 4
- Width = 110
- Height = 13
- Caption = 'Pictures come from'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ShadowSize = 0
- end
- object Label16: TmyRxLabel
- Left = 320
- Top = 4
- Width = 131
- Height = 13
- Caption = 'Slide Show Settings'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ShadowSize = 0
- end
- object Button2: TButton
- Left = 104
- Top = 364
- Width = 69
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 0
- end
- object Button1: TButton
- Left = 193
- Top = 364
- Width = 73
- Height = 25
- HelpContext = 418
- Caption = 'Help'
- TabOrder = 1
- OnClick = helpclick
- end
- object PageControl2: TPageControl
- Left = 278
- Top = 20
- Width = 251
- Height = 349
- ActivePage = TabSheet6
- HotTrack = True
- TabOrder = 2
- object TabSheet6: TTabSheet
- Caption = 'View'
- object Label12: TmyRxLabel
- Left = 12
- Top = 164
- Width = 22
- Height = 21
- AutoSize = False
- Caption = 'Filter'
- Layout = tlCenter
- ShadowSize = 0
- end
- object Label18: TmyRxLabel
- Left = 12
- Top = 16
- Width = 81
- Height = 13
- Caption = 'Background Color'
- ShadowSize = 0
- end
- object Label13: TmyRxLabel
- Left = 184
- Top = 236
- Width = 49
- Height = 21
- AutoSize = False
- Caption = 'Seconds'
- Layout = tlCenter
- ShadowSize = 0
- end
- object myRxLabel1: TmyRxLabel
- Left = 204
- Top = 136
- Width = 29
- Height = 21
- AutoSize = False
- Caption = 'Sec'
- Layout = tlCenter
- ShadowSize = 0
- end
- object filterchoosebox: mycombobox
- Left = 40
- Top = 164
- Width = 77
- Height = 21
- Hint =
- 'Here you can choose a filter which will be used on the image.'#13#1'T' +
- 'his way the pixel will not look so cornered.'
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- Itemindex = -1
- end
- object CheckBox22: TCheckBox
- Left = 8
- Top = 192
- Width = 113
- Height = 17
- Caption = 'no Borders'
- Checked = True
- State = cbChecked
- TabOrder = 1
- end
- object CheckBox20: TCheckBox
- Left = 8
- Top = 212
- Width = 105
- Height = 17
- Caption = 'Hide Mouse'
- TabOrder = 2
- end
- inline Framehsvform1: TFramehsvform
- Left = 10
- Top = 40
- Width = 135
- Height = 89
- TabOrder = 3
- inherited Panel1: TPanel
- Top = 72
- Width = 135
- end
- inherited HSVBox1: THSVBox
- Width = 135
- Height = 72
- end
- end
- object CheckBox19: TCheckBox
- Left = 8
- Top = 264
- Width = 161
- Height = 17
- Caption = 'Repeat when finished'
- TabOrder = 4
- end
- object CheckBox17: TCheckBox
- Left = 8
- Top = 236
- Width = 109
- Height = 25
- Caption = 'next Pic after'
- Checked = True
- State = cbChecked
- TabOrder = 5
- OnClick = updateall
- end
- object RxSpinEdit2: TRxSpinEdit
- Left = 124
- Top = 236
- Width = 57
- Height = 21
- MaxValue = 1000000
- Value = 10
- TabOrder = 6
- end
- object CheckBox1: TCheckBox
- Left = 8
- Top = 140
- Width = 133
- Height = 17
- Caption = 'Fading Effects'
- Checked = True
- State = cbChecked
- TabOrder = 7
- OnClick = updateall
- end
- object RxSpinEdit1: TRxSpinEdit
- Left = 140
- Top = 136
- Width = 57
- Height = 21
- MaxValue = 1000000
- Value = 2
- TabOrder = 8
- end
- end
- object TabSheet4: TTabSheet
- Caption = 'Size'
- object Label17: TmyRxLabel
- Left = 180
- Top = 136
- Width = 30
- Height = 13
- Caption = 'Anchor'
- Layout = tlCenter
- ShadowSize = 0
- end
- object GroupBox9: TGroupBox
- Left = 8
- Top = 12
- Width = 189
- Height = 113
- Hint = 'The canvas is the window where the show will take place.'
- Caption = 'Canvas Size'
- TabOrder = 0
- object Label8: TmyRxLabel
- Left = 36
- Top = 64
- Width = 29
- Height = 13
- Caption = 'Width'
- ShadowSize = 0
- end
- object Label9: TmyRxLabel
- Left = 36
- Top = 84
- Width = 28
- Height = 13
- Caption = 'Height'
- ShadowSize = 0
- end
- object Label10: TmyRxLabel
- Left = 148
- Top = 64
- Width = 24
- Height = 13
- Caption = 'Pixel'
- ShadowSize = 0
- end
- object Label11: TmyRxLabel
- Left = 148
- Top = 84
- Width = 24
- Height = 13
- Caption = 'Pixel'
- ShadowSize = 0
- end
- object RadioButton16: TRadioButton
- Left = 16
- Top = 16
- Width = 81
- Height = 17
- Caption = 'Full Size'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = updateall
- end
- object RadioButton17: TRadioButton
- Left = 16
- Top = 32
- Width = 73
- Height = 17
- Caption = 'Image Size'
- TabOrder = 1
- OnClick = updateall
- end
- object RadioButton18: TRadioButton
- Left = 16
- Top = 48
- Width = 113
- Height = 17
- Caption = 'Set Size:'
- TabOrder = 2
- OnClick = updateall
- end
- object RxCalcEdit3: TRxCalcEdit
- Left = 68
- Top = 64
- Width = 73
- Height = 18
- AutoSize = False
- DecimalPlaces = 0
- NumGlyphs = 2
- TabOrder = 3
- Value = 400
- end
- object RxCalcEdit4: TRxCalcEdit
- Left = 68
- Top = 84
- Width = 73
- Height = 18
- AutoSize = False
- DecimalPlaces = 0
- NumGlyphs = 2
- TabOrder = 4
- Value = 400
- end
- end
- inline directionframe1: Tdirectionframe
- Left = 168
- Top = 151
- Hint = 'Here you can set an anchor for the image.'
- TabOrder = 1
- inherited SpeedButton5: TSpeedButton
- Down = True
- Font.Color = clMaroon
- Font.Style = [fsBold]
- ParentFont = False
- end
- end
- object RadioGroup4: TRadioGroup
- Left = 12
- Top = 140
- Width = 145
- Height = 73
- Caption = 'Image Size'
- ItemIndex = 1
- Items.Strings = (
- 'Original size'
- 'Full (Fit)'
- 'Full (Cut)')
- TabOrder = 2
- end
- end
- object TabSheet7: TTabSheet
- Caption = 'Info'
- ImageIndex = 3
- object Label36: TmyRxLabel
- Left = 12
- Top = 292
- Width = 59
- Height = 13
- Caption = 'Font Size'
- ShadowSize = 0
- end
- object RxSpinEdit8: TRxSpinEdit
- Left = 76
- Top = 288
- Width = 49
- Height = 21
- MaxValue = 9999
- MinValue = 1
- Value = 6
- TabOrder = 2
- OnChange = RxSpinEdit8Change
- end
- object Button10: TButton
- Left = 136
- Top = 288
- Width = 97
- Height = 21
- Caption = 'Font-Settings'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = Button10Click
- end
- object tgrafikformat1: tgrafikformat
- Left = 8
- Top = 120
- Width = 229
- Height = 161
- Hint =
- 'Here you can set additional information that is to be printed wi' +
- 'th the image.'
- Caption = 'Additional Information'
- TabOrder = 1
- Kind = imageinfo
- ImageInfoset = []
- FileFormatset = []
- end
- object GroupBox12: TGroupBox
- Left = 4
- Top = 4
- Width = 237
- Height = 97
- Caption = 'Sound'
- TabOrder = 0
- object FilenameEdit2: TFilenameEdit
- Left = 24
- Top = 50
- Width = 205
- Height = 18
- OnBeforeDialog = FilenameEdit2BeforeDialog
- FilterIndex = 3
- NumGlyphs = 1
- TabOrder = 2
- OnClick = FilenameEdit2Click
- end
- object RadioButton22: TRadioButton
- Left = 12
- Top = 32
- Width = 161
- Height = 17
- Caption = 'Play WAV/Midi-File:'
- TabOrder = 1
- end
- object RadioButton23: TRadioButton
- Left = 12
- Top = 72
- Width = 221
- Height = 17
- Caption = 'Play Sound Comment (if exists)'
- Checked = True
- TabOrder = 3
- TabStop = True
- end
- object RadioButton24: TRadioButton
- Left = 12
- Top = 16
- Width = 89
- Height = 17
- Caption = 'No Sound'
- TabOrder = 0
- end
- end
- end
- end
- object Button11: TButton
- Left = 12
- Top = 364
- Width = 77
- Height = 25
- Cancel = True
- Caption = 'Slide Show'
- ModalResult = 1
- TabOrder = 3
- OnClick = Button11Click
- end
- inline imageSourceframe1: TimageSourceframe
- Left = 4
- Top = 24
- Width = 265
- Height = 329
- TabOrder = 4
- inherited pagecontrol1: TPageControl
- Width = 265
- Height = 329
- Hint = 'Choose where the pictures should come from for the slideshow.'
- ActivePage = imageSourceframe1.directorytab
- inherited catalogtab: TTabSheet
- inherited Panel1: TPanel
- Top = 171
- Width = 257
- end
- inherited catalogframe1: Tcatalogframe
- Width = 257
- Height = 171
- inherited DrawGrid1: TRxDrawGrid
- Width = 257
- Height = 171
- end
- end
- end
- inherited directorytab: TTabSheet
- inherited tgrafikformat1: tgrafikformat
- ImageInfoset = [filename, filepath, filedate, filesize, filetype, imageheight, numpixels, textcomment]
- FileFormatset = [jpg, png, bmp, pcx, tiff, wmf, emf, ico]
- end
- end
- inherited openedtab: TTabSheet
- TabVisible = False
- end
- inherited scannertab: TTabSheet
- TabVisible = False
- end
- end
- end
- object FontDialog1: TFontDialog
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -32
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- MinFontSize = 0
- MaxFontSize = 0
- Left = 172
- Top = 360
- end
- object MDIWallpaper11: TMDIWallpaper1
- TileWidth = 0
- TileHeight = 0
- dialogImage = False
- Left = 492
- ClientIsOwnerForm = True
- end
- object tformstorage11: tformstorage1
- IniFileName = '\software\PicMaster\storage'
- UseRegistry = True
- StoredProps.Strings = (
- 'RxCalcEdit3.Value'
- 'RxCalcEdit4.Value'
- 'RxSpinEdit2.Alignment'
- 'RxSpinEdit8.Alignment'
- 'CheckBox17.Checked'
- 'CheckBox19.Checked'
- 'CheckBox20.Checked'
- 'CheckBox22.Checked'
- 'FilenameEdit2.Text'
- 'filterchoosebox.Itemindex'
- 'FontDialog1.Font'
- 'PageControl2.ActivePage'
- 'RadioButton16.Checked'
- 'RadioButton17.Checked'
- 'RadioButton18.Checked'
- 'RadioButton22.Checked'
- 'RadioButton23.Checked'
- 'RadioButton24.Checked'
- 'RadioGroup4.ItemIndex'
- 'directionframe1.Tag'
- 'tgrafikformat1.ImageInfoset'
- 'CheckBox1.Checked'
- 'RxSpinEdit1.Value'
- 'RxSpinEdit2.Value')
- StoredValues = <>
- AllwaysSave = False
- Left = 464
- end
- end
-