object FormWall: TFormWall Left = 322 Top = 107 BorderStyle = bsDialog Caption = 'Set wallpaper' ClientHeight = 366 ClientWidth = 382 Color = clBtnFace Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #65325#65331' '#65328#12468#12471#12483#12463 Font.Style = [] OldCreateOrder = False Scaled = False OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object Image1: TImage Left = 0 Top = 0 Width = 383 Height = 259 Picture.Data = {} end object PBScreen: TPaintBox Left = 23 Top = 27 Width = 226 Height = 170 OnPaint = PBScreenPaint end object PBEntryList: TPaintBox Left = 272 Top = 20 Width = 101 Height = 227 OnMouseDown = PBEntryListMouseDown OnPaint = PBEntryListPaint end object PBHLLeft: TPaintBox Left = 272 Top = 20 Width = 13 Height = 71 OnPaint = PBHLLeftPaint end object PBHLRight: TPaintBox Left = 359 Top = 20 Width = 13 Height = 71 OnPaint = PBHLRightPaint end object LabelInfo: TLabel Left = 16 Top = 235 Width = 213 Height = 12 Caption = 'Please select the image for the wallpaper' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = #65325#65331' '#65328#12468#12471#12483#12463 Font.Style = [] ParentFont = False Transparent = True end object RGImageSize: TRadioGroup Left = 8 Top = 264 Width = 169 Height = 45 Caption = 'Image size' Columns = 2 ItemIndex = 0 Items.Strings = ( 'Original' 'Expanded') TabOrder = 0 OnClick = Size_StyleChange end object RGStyle: TRadioGroup Left = 8 Top = 320 Width = 169 Height = 45 Caption = 'Style' Columns = 2 ItemIndex = 0 Items.Strings = ( 'Centered' 'Tiled') TabOrder = 1 OnClick = Size_StyleChange end object ButtonUpdate: TButton Left = 192 Top = 264 Width = 177 Height = 25 Caption = 'Update' TabOrder = 2 OnClick = ButtonUpdateClick end object ButtonCancel: TButton Left = 192 Top = 336 Width = 177 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 3 OnClick = ButtonCancelClick end object ButtonApply: TButton Left = 192 Top = 296 Width = 177 Height = 33 Caption = 'Apply and Close' Default = True ModalResult = 1 TabOrder = 4 OnClick = ButtonApplyClick end end