home *** CD-ROM | disk | FTP | other *** search
- object Multiptf: TMultiptf
- Left = 228
- Top = 222
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- ActiveControl = ListBox1
- BorderStyle = bsToolWindow
- Caption = 'Slide Configuration'
- ClientHeight = 157
- ClientWidth = 356
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- Position = poScreenCenter
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 356
- Height = 157
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- object PageControl1: TPageControl
- Left = 0
- Top = 0
- Width = 356
- Height = 157
- ActivePage = TabSheet1
- Align = alClient
- TabOrder = 0
- object TabSheet1: TTabSheet
- Caption = 'Main'
- object Image2: TImage
- Left = 236
- Top = 88
- Width = 109
- Height = 41
- Picture.Data = {<image000.bmp>}
- Visible = False
- end
- object Image3: TImage
- Left = 235
- Top = 88
- Width = 109
- Height = 41
- Picture.Data = {<image001.bmp>}
- Visible = False
- end
- object Label2: TLabel
- Left = 124
- Top = 88
- Width = 112
- Height = 13
- Caption = 'Effect for selected Slide'
- end
- object PaintBox1: TPaintBox
- Left = 240
- Top = 44
- Width = 105
- Height = 37
- end
- object SpeedButton1: TSpeedButton
- Left = 236
- Top = 0
- Width = 29
- Height = 21
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
- 333333777777777F33333330B00000003333337F7777777F3333333000000000
- 333333777777777F333333330EEEEEE033333337FFFFFF7F3333333300000000
- 333333377777777F3333333330BFBFB03333333373333373F33333330BFBFBFB
- 03333337F33333F7F33333330FBFBF0F03333337F33337F7F33333330BFBFB0B
- 03333337F3F3F7F7333333330F0F0F0033333337F7F7F773333333330B0B0B03
- 3333333737F7F7F333333333300F0F03333333337737F7F33333333333300B03
- 333333333377F7F33333333333330F03333333333337F7F33333333333330B03
- 3333333333373733333333333333303333333333333373333333}
- NumGlyphs = 2
- OnClick = ArrowBtn1Click
- end
- object SpeedButton2: TSpeedButton
- Left = 236
- Top = 21
- Width = 29
- Height = 21
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333033333
- 33333333373F33333333333330B03333333333337F7F33333333333330F03333
- 333333337F7FF3333333333330B00333333333337F773FF33333333330F0F003
- 333333337F7F773F3333333330B0B0B0333333337F7F7F7F3333333300F0F0F0
- 333333377F73737F33333330B0BFBFB03333337F7F33337F33333330F0FBFBF0
- 3333337F7333337F33333330BFBFBFB033333373F3333373333333330BFBFB03
- 33333337FFFFF7FF3333333300000000333333377777777F333333330EEEEEE0
- 33333337FFFFFF7FF3333333000000000333333777777777F33333330000000B
- 03333337777777F7F33333330000000003333337777777773333}
- NumGlyphs = 2
- OnClick = ArrowBtn2Click
- end
- object SpeedButton3: TSpeedButton
- Left = 320
- Top = 104
- Width = 25
- Height = 25
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
- 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
- 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
- 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
- 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
- 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
- 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
- 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
- 0333337F777FFFFF7F3333000000000003333377777777777333}
- NumGlyphs = 2
- OnClick = Button1Click
- end
- object SpeedButton4: TSpeedButton
- Left = 272
- Top = 104
- Width = 21
- Height = 21
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
- 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
- 70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
- 70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
- 70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
- 70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
- 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
- 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
- NumGlyphs = 2
- OnClick = SpeedButton4Click
- end
- object ListBox1: TListBox
- Left = 124
- Top = 0
- Width = 109
- Height = 85
- ItemHeight = 13
- Style = lbOwnerDrawFixed
- TabOrder = 0
- OnClick = ListBox1Click
- end
- object RadioGroup1: TRadioGroup
- Left = 8
- Top = 56
- Width = 109
- Height = 69
- Caption = 'Selected Slide Style'
- ItemIndex = 0
- Items.Strings = (
- 'Empty'
- 'Text'
- 'Bitmap')
- TabOrder = 1
- OnClick = RadioGroup1Click
- end
- object ComboBox1: TComboBox
- Left = 124
- Top = 104
- Width = 149
- Height = 21
- ItemHeight = 13
- Items.Strings = (
- '00 - Random'
- '01 - None'
- '02 - Wipe Top To Bottom'
- '03 - Wipe Bottom To Top'
- '04 - Wipe Left To Right'
- '05 - Wipe Right To Left'
- '06 - Stretch Up'
- '07 - Stretch Down'
- '08 - Stretch Left'
- '09 - Stretch Right'
- '10 - Close Horizontal Curtain'
- '11 - Open Horizontal Curtain'
- '12 - Close Vertical Curtain'
- '13 - Open Vertical Curtain'
- '14 - Vertical Interlace'
- '15 - Horizontal Interlace'
- '16 - Left-Right Doppel'
- '17 - Top-Bottom Doppel'
- '18 - Right-Left Doppel'
- '19 - Bottom-Top Doppel'
- '20 - Left-Right Doppel In Out'
- '21 - Top-Bottom Doppel In Out'
- '22 - Right-Left Doppel In Out'
- '23 - Bottom-Top Doppel In Out'
- '24 - Left-Top To Right-Bottom Wipe'
- '25 - Left-Bottom To Right-Top Wipe'
- '26 - Right-Top To Left-Bottom Wipe'
- '27 - Right-Bottom To Left-Top Wipe'
- '28 - LTRB Closing Curtain'
- '29 - RTLB Closing Curtain'
- '30 - Quad Vertical Interlace'
- '31 - Quad Horizontal Interlace'
- '32 - Doppel Vertical Interlace'
- '33 - Doppel Horizontal Interlace'
- '34 - Vertical Quad Up'
- '35 - Vertical Doppel Down'
- '36 - Vetical Quad Down'
- '37 - Vertical Doppel Up'
- '38 - Wipe Effect 1'
- '39 - Wipe Effect 2'
- '40 - Wipe Effect 3'
- '41 - BitBlt'
- '42 - Drip Vertical'
- '43 - Drip Horizontal'
- '44 - Step Wipe Vertical'
- '45 - Step Wipe Horizontal'
- '46 - Screen Off'
- '47 - Fade Down'
- '48 - Wipe Effect 4'
- '49 - Wipe Effect 5'
- '50 - Wipe Effect 6'
- '51 - Horizontal Quad Left'
- '52 - Horizontal Doppel Right'
- '53 - Horizontal Quad Right'
- '54 - Horizontal Doppel Left')
- TabOrder = 2
- OnChange = ComboBox1Change
- end
- object BitBtn1: TBitBtn
- Left = 4
- Top = 4
- Width = 109
- Height = 21
- Caption = 'Add Slide'
- TabOrder = 3
- OnClick = Button8Click
- end
- object BitBtn2: TBitBtn
- Left = 4
- Top = 24
- Width = 109
- Height = 21
- Caption = 'Delete Slide'
- TabOrder = 4
- OnClick = Button9Click
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'Text'
- object Label1: TLabel
- Left = 4
- Top = 0
- Width = 135
- Height = 13
- Caption = 'Insert the Text to be shown :'
- end
- object Memo1: TMemo
- Left = 4
- Top = 16
- Width = 337
- Height = 109
- TabOrder = 0
- OnExit = Memo1Exit
- end
- end
- object TabSheet3: TTabSheet
- Caption = 'Bitmap'
- object Panel1: TPanel
- Left = 4
- Top = 4
- Width = 205
- Height = 121
- BevelInner = bvLowered
- BorderWidth = 3
- TabOrder = 0
- object Image1: TImage
- Left = 5
- Top = 5
- Width = 195
- Height = 111
- Align = alClient
- Center = True
- end
- end
- object BitBtn3: TBitBtn
- Left = 236
- Top = 104
- Width = 105
- Height = 21
- Caption = 'Insert Bitmap'
- TabOrder = 1
- OnClick = Office97Btn3Click
- end
- end
- end
- end
- object OpenPictureDialog1: TOpenPictureDialog
- DefaultExt = '*.bmp'
- Filter = 'Bitmaps|*.bmp'
- Title = 'Select Bitmap'
- Left = 300
- Top = 32
- end
- end
-