home *** CD-ROM | disk | FTP | other *** search
- 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 = {<image000.bmp>}
- 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
-