object batwizard: Tbatwizard Left = 200 Top = 108 BorderStyle = bsDialog Caption = 'Batch Rendering Wizard' ClientHeight = 373 ClientWidth = 492 Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 14 object SpeedButton1: TSpeedButton Left = 384 Top = 336 Width = 100 Height = 25 Caption = 'Next Page' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333FF3333333333333003333 3333333333773FF3333333333309003333333333337F773FF333333333099900 33333FFFFF7F33773FF30000000999990033777777733333773F099999999999 99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900 33333333337F3F77333333333309003333333333337F77333333333333003333 3333333333773333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} Layout = blGlyphRight NumGlyphs = 2 end object SpeedButton2: TSpeedButton Left = 280 Top = 336 Width = 100 Height = 25 Caption = 'Previous Page' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333FF3333333333333003333333333333F77F33333333333009033 333333333F7737F333333333009990333333333F773337FFFFFF330099999000 00003F773333377777770099999999999990773FF33333FFFFF7330099999000 000033773FF33777777733330099903333333333773FF7F33333333333009033 33333333337737F3333333333333003333333333333377333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 end object Notebook1: TNotebook Left = 16 Top = 8 Width = 465 Height = 321 PageIndex = 1 TabOrder = 0 object TPage Left = 0 Top = 0 Caption = 'Introduction' object Label1: TLabel Left = 16 Top = 8 Width = 124 Height = 24 Caption = 'Introduction' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [fsBold, fsItalic, fsUnderline] ParentFont = False end object Memo1: TMemo Left = 16 Top = 48 Width = 321 Height = 249 BorderStyle = bsNone Color = clBtnFace Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Lines.Strings = ( 'This batch rendering wizard will guide you through the ' 'process of rendering multiple similar button with different ' 'captions.' '' 'Setting up the batch rendering requires 4 steps:' '' '1. Enter the desired captions' '2. Choose the desired output file format.' '3. Choose the output directory' '4. Finish the setup and start rendering.' '' 'You browse through the wizard'#39's pages using the buttons ' 'labeled Next and Previous.') ParentFont = False ReadOnly = True TabOrder = 0 end end object TPage Left = 0 Top = 0 Caption = 'Enter Captions' object Label2: TLabel Left = 16 Top = 8 Width = 307 Height = 24 Caption = 'Step 1: Enter desired captions' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [fsBold, fsItalic, fsUnderline] ParentFont = False end object Label3: TLabel Left = 16 Top = 42 Width = 433 Height = 33 Alignment = taCenter AutoSize = False Caption = 'Enter desired button captions below - be sure to use one line fo' + 'r each caption! (multiple line captions are only supported when ' + 'rendering single buttons)' WordWrap = True end object Label4: TLabel Left = 16 Top = 288 Width = 433 Height = 14 Alignment = taCenter AutoSize = False Caption = 'Hit the "Next Page" button when you'#39're done.' end object Memo2: TMemo Left = 56 Top = 80 Width = 337 Height = 193 TabOrder = 0 end end object TPage Left = 0 Top = 0 Caption = 'Choose File Format' object Label5: TLabel Left = 16 Top = 8 Width = 382 Height = 24 Caption = 'Step 2: Choose desired output format' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [fsBold, fsItalic, fsUnderline] ParentFont = False end object Label6: TLabel Left = 16 Top = 288 Width = 433 Height = 14 Alignment = taCenter AutoSize = False Caption = 'Hit the "Next Page" button when you'#39're done.' end object RadioGroup1: TRadioGroup Left = 56 Top = 56 Width = 353 Height = 201 Caption = 'Available Formats:' ItemIndex = 1 Items.Strings = ( 'BMP - Bitmap' 'JPG - JPEG (JFIF compliant)' 'PNG - Portable Network Graphics' 'TIF - Tagged Image File Format') TabOrder = 0 end end object TPage Left = 0 Top = 0 Caption = 'Choose Output Directoy' object Label7: TLabel Left = 16 Top = 8 Width = 406 Height = 24 Caption = 'Step 3: Choose desired output directory' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [fsBold, fsItalic, fsUnderline] ParentFont = False end object Label8: TLabel Left = 16 Top = 40 Width = 433 Height = 14 Alignment = taCenter AutoSize = False Caption = 'Choose the directory you want the files to be saved in:' end object Label9: TLabel Left = 24 Top = 288 Width = 433 Height = 14 Alignment = taCenter AutoSize = False Caption = 'Hit the "Next Page" button when you'#39're done.' end object Panel1: TPanel Left = 32 Top = 80 Width = 401 Height = 185 BevelInner = bvLowered Color = clWindow TabOrder = 0 object Label10: TLabel Left = 8 Top = 5 Width = 38 Height = 14 Caption = 'Label10' end object dirtree1: Tdirtree Left = 0 Top = 24 Width = 401 Height = 161 Directory = '?' ReadOnStart = True DirType = [dtNormal, dtAll] AllowNetwork = True GoBelowRecycleBin = True Readonly = True HideSelection = False OnChange = dirtree1Change ParentColor = False TabOrder = 0 end end end object TPage Left = 0 Top = 0 Caption = 'Finish' object Label12: TLabel Left = 16 Top = 8 Width = 297 Height = 24 Caption = 'Step 4: We'#39're nearly finished!' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [fsBold, fsItalic, fsUnderline] ParentFont = False end object Label11: TLabel Left = 24 Top = 208 Width = 417 Height = 14 Alignment = taCenter AutoSize = False Caption = 'Hit the OK button to start rendering! (Might take a few minutes)' end object Label13: TLabel Left = 16 Top = 48 Width = 441 Height = 65 AutoSize = False Caption = 'Just one thing left: enter a base name for your button files. Th' + 'e caption of each button will be added to the filename, e.g. if ' + 'your basename is "marble" and your first caption is"home", then ' + 'the final filename will be "marblehome". ' WordWrap = True end object Label14: TLabel Left = 16 Top = 112 Width = 416 Height = 14 Caption = 'Do not add an extension to the basename (i.e. ".jpg"), this will' + ' be done automatically!' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsItalic] ParentFont = False end object BitBtn2: TBitBtn Left = 184 Top = 232 Width = 75 Height = 25 TabOrder = 0 OnClick = BitBtn2Click Kind = bkOK end object Edit971: TEdit97 Left = 128 Top = 152 Width = 201 Height = 20 TabOrder = 1 Text = 'basename' end end end object BitBtn1: TBitBtn Left = 16 Top = 336 Width = 75 Height = 25 TabOrder = 1 Kind = bkCancel end object PageManager1: TPageManager PageOwner = Notebook1 NextBtn = SpeedButton1 PriorBtn = SpeedButton2 Left = 456 Top = 8 object PageProxy2: TPageProxy PageName = 'Introduction' end object PageProxy3: TPageProxy PageName = 'Enter Captions' end object PageProxy4: TPageProxy PageName = 'Choose File Format' end object PageProxy5: TPageProxy PageName = 'Choose Output Directoy' end object PageProxy1: TPageProxy PageName = 'Default' end end end