object DeskPropDlg: TDeskPropDlg Left = 197 Top = 115 HelpContext = 51 ActiveControl = OKBtn BorderStyle = bsDialog Caption = 'Desktop Properties' ClientHeight = 335 ClientWidth = 317 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] PixelsPerInch = 96 Position = poScreenCenter OnCreate = FormCreate TextHeight = 13 object OKBtn: TBitBtn Left = 74 Top = 304 Width = 77 Height = 27 TabOrder = 1 OnClick = OKBtnClick Kind = bkOK Margin = 4 Style = bsNew Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 154 Top = 304 Width = 77 Height = 27 TabOrder = 2 Kind = bkCancel Margin = 4 Style = bsNew Spacing = -1 IsControl = True end object Notebook: TTabbedNotebook Left = 4 Top = 0 Width = 309 Height = 301 TabFont.Color = clBtnText TabFont.Height = -11 TabFont.Name = 'MS Sans Serif' TabFont.Style = [] TabOrder = 0 object TTabPage Left = 5 Top = 26 Caption = 'General' object Label1: TLabel Left = 10 Top = 100 Width = 69 Height = 13 Caption = '&Preferences' FocusControl = CheckList end object CheckList: TCheckList Left = 10 Top = 116 Width = 279 Height = 142 Color = clBtnFace Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] IntegralHeight = True ItemHeight = 20 Items.Strings = ( 'Automatically resize icon windows to fit contents' 'Move and resize windows using hollow boxes' 'Save open browser windows between sessions' 'Display arrow symbols next to shortcuts' 'Animate cursor when dragging files over desktop' 'Right-click on wallpaper to popup desktop menu' 'Align attached icon windows with Explorer' 'Ask for confirmation before deleting a shortcut' 'Only move shortcuts when caption is dragged' 'Activate shortcuts after a single mouse click' 'Browse through folders in the same icon window' 'Right click on minimize/maximize box to close') ParentFont = False TabOrder = 1 end object Placement: TRadioGroup Left = 10 Top = 8 Width = 279 Height = 87 Caption = 'Place new icon windows' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Items.Strings = ( '&Cascaded from the previous one' '&Randomly on the desktop' 'In the &same location the folder was last shown') ParentFont = False TabOrder = 0 end end end object HelpBtn: TBitBtn Left = 234 Top = 304 Width = 77 Height = 27 TabOrder = 3 Kind = bkHelp Margin = 4 Style = bsNew Spacing = -1 end end