meillo@0: object form_Editor_ws: Tform_Editor_ws meillo@0: Left = 171 meillo@0: Top = 275 meillo@0: BorderIcons = [] meillo@0: BorderStyle = bsSingle meillo@0: Caption = 'Welcome-Screen Settings' meillo@0: ClientHeight = 350 meillo@0: ClientWidth = 470 meillo@0: Color = clBtnFace meillo@0: Font.Charset = DEFAULT_CHARSET meillo@0: Font.Color = clWindowText meillo@0: Font.Height = -11 meillo@0: Font.Name = 'MS Sans Serif' meillo@0: Font.Style = [] meillo@0: FormStyle = fsStayOnTop meillo@0: Icon.Data = { meillo@0: 0000010001002020100000000000E80200001600000028000000200000004000 meillo@0: 0000010004000000000080020000000000000000000000000000000000000000 meillo@0: 000000008000008000000080800080000000800080008080000080808000C0C0 meillo@0: C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000 meillo@0: 0000000000000000000000000000000000000000000000000000000000000000 meillo@0: 0000000000000000000000000000000000000000000000000000000000000000 meillo@0: 000000000000BBBBBBBB000000000000000000000BBBBBBBBBBBBB0000000000 meillo@0: 0000000BBBBBBBBBBB0000000000000000000BBBBBBBBBB000BBBB0000000000 meillo@0: 0000BBBBBBBBB00BBBBBB00000000000000BBBBBBBB00BBBBBB0000000000000 meillo@0: 000BBBBBBB0BBBBBB00000000000000000BBBBBBB0BBBBB00000000000000000 meillo@0: 00BBBBBB0BBBBB0000000000000000000BBBBBB0BBBB00000000000000000000 meillo@0: 0BBBBB0BBBB0000000000000000000000BBBB0BBBB0000000000000000000000 meillo@0: BBBB0BBBB00000000000000000000000BBBB0BBB000000000000000000000000 meillo@0: BBB0BBB0000000000000000000000000BBB0BB00000000000000000000000000 meillo@0: BB0BBB00000000000000000000000000BB0BB000000000000000000000000000 meillo@0: 0B0BB0000000000000000000000000000B0B0000000000000000000000000000 meillo@0: 0000000000000000000000000000000000000000000000000000000000000000 meillo@0: 0000000000000000000000000000000000000000000000000000000000000000 meillo@0: 0000000000000000000000000000000000000000000000000000000000000000 meillo@0: 000000000000000000000000000000000000000000000000000000000000FFFF meillo@0: FFFFFFFFFFFFFFFFFFFFFFFF00FFFFF8003FFFE0001FFF80000FFF00000FFE00 meillo@0: 001FFC00007FFC0001FFF80007FFF8001FFFF0003FFFF000FFFFF001FFFFE003 meillo@0: FFFFE007FFFFE00FFFFFE01FFFFFE01FFFFFE03FFFFFE03FFFFFF07FFFFFF07F meillo@0: FFFFF8FFFFFFF8FFFFFFF8FFFFFFF8FFFFFFFCFFFFFFFFFFFFFFFFFFFFFF} meillo@0: OldCreateOrder = False meillo@0: Position = poScreenCenter meillo@0: OnClose = FormClose meillo@0: OnCreate = FormCreate meillo@0: OnShow = FormShow meillo@0: PixelsPerInch = 96 meillo@0: TextHeight = 13 meillo@0: object btn_cancel: TButton meillo@0: Left = 250 meillo@0: Top = 310 meillo@0: Width = 101 meillo@0: Height = 31 meillo@0: Caption = 'Cancel Changes' meillo@0: TabOrder = 0 meillo@0: OnClick = btn_cancelClick meillo@0: end meillo@0: object btn_Apply: TButton meillo@0: Left = 360 meillo@0: Top = 310 meillo@0: Width = 101 meillo@0: Height = 31 meillo@0: Caption = 'Apply Changes' meillo@0: TabOrder = 1 meillo@0: OnClick = btn_ApplyClick meillo@0: end meillo@0: object gbx_BilderLaden: TGroupBox meillo@0: Left = 10 meillo@0: Top = 10 meillo@0: Width = 451 meillo@0: Height = 141 meillo@0: TabOrder = 2 meillo@0: object lbl_1: TLabel meillo@0: Left = 20 meillo@0: Top = 20 meillo@0: Width = 234 meillo@0: Height = 16 meillo@0: Caption = 'Background-Picture: (600x450 px)' meillo@0: Font.Charset = DEFAULT_CHARSET meillo@0: Font.Color = clWindowText meillo@0: Font.Height = -13 meillo@0: Font.Name = 'MS Sans Serif' meillo@0: Font.Style = [fsBold] meillo@0: ParentFont = False meillo@0: end meillo@0: object lbl_2: TLabel meillo@0: Left = 20 meillo@0: Top = 80 meillo@0: Width = 282 meillo@0: Height = 16 meillo@0: Caption = 'Enter-Picture: (150x40 px recommended)' meillo@0: Font.Charset = DEFAULT_CHARSET meillo@0: Font.Color = clWindowText meillo@0: Font.Height = -13 meillo@0: Font.Name = 'MS Sans Serif' meillo@0: Font.Style = [fsBold] meillo@0: ParentFont = False meillo@0: end meillo@0: object btn_bp: TButton meillo@0: Left = 20 meillo@0: Top = 40 meillo@0: Width = 91 meillo@0: Height = 21 meillo@0: Caption = 'Browse' meillo@0: TabOrder = 0 meillo@0: OnClick = btn_bpClick meillo@0: end meillo@0: object tbx_BackgroundPath: TEdit meillo@0: Left = 130 meillo@0: Top = 40 meillo@0: Width = 311 meillo@0: Height = 21 meillo@0: TabOrder = 1 meillo@0: Text = 'tbx_BackgroundPath' meillo@0: OnChange = tbx_BackgroundPathChange meillo@0: end meillo@0: object tbx_EnterPath: TEdit meillo@0: Left = 130 meillo@0: Top = 100 meillo@0: Width = 311 meillo@0: Height = 21 meillo@0: TabOrder = 3 meillo@0: Text = 'tbx_EnterPath' meillo@0: OnChange = tbx_EnterPathChange meillo@0: end meillo@0: object btn_ep: TButton meillo@0: Left = 20 meillo@0: Top = 100 meillo@0: Width = 91 meillo@0: Height = 21 meillo@0: Caption = 'Browse' meillo@0: TabOrder = 2 meillo@0: OnClick = btn_epClick meillo@0: end meillo@0: end meillo@0: object gbx_EnterPos: TGroupBox meillo@0: Left = 10 meillo@0: Top = 160 meillo@0: Width = 231 meillo@0: Height = 181 meillo@0: TabOrder = 3 meillo@0: object lbl_3: TLabel meillo@0: Left = 110 meillo@0: Top = 50 meillo@0: Width = 47 meillo@0: Height = 13 meillo@0: Caption = 'X-Position' meillo@0: Font.Charset = DEFAULT_CHARSET meillo@0: Font.Color = clWindowText meillo@0: Font.Height = -11 meillo@0: Font.Name = 'MS Sans Serif' meillo@0: Font.Style = [] meillo@0: ParentFont = False meillo@0: end meillo@0: object lbl_4: TLabel meillo@0: Left = 40 meillo@0: Top = 90 meillo@0: Width = 47 meillo@0: Height = 13 meillo@0: Caption = 'Y-Position' meillo@0: Font.Charset = DEFAULT_CHARSET meillo@0: Font.Color = clWindowText meillo@0: Font.Height = -11 meillo@0: Font.Name = 'MS Sans Serif' meillo@0: Font.Style = [] meillo@0: ParentFont = False meillo@0: end meillo@0: object lbl_5: TLabel meillo@0: Left = 80 meillo@0: Top = 120 meillo@0: Width = 128 meillo@0: Height = 13 meillo@0: Caption = '... of the Enter-Picture' meillo@0: Font.Charset = DEFAULT_CHARSET meillo@0: Font.Color = clWindowText meillo@0: Font.Height = -11 meillo@0: Font.Name = 'MS Sans Serif' meillo@0: Font.Style = [fsBold] meillo@0: ParentFont = False meillo@0: end meillo@0: object lbl_6: TLabel meillo@0: Left = 50 meillo@0: Top = 150 meillo@0: Width = 166 meillo@0: Height = 13 meillo@0: Caption = '(You can move by Drag'#39'n'#39'Drop too)' meillo@0: end meillo@0: object hsb_EnterXPos: TScrollBar meillo@0: Left = 30 meillo@0: Top = 20 meillo@0: Width = 191 meillo@0: Height = 20 meillo@0: LargeChange = 10 meillo@0: Max = 0 meillo@0: PageSize = 0 meillo@0: TabOrder = 0 meillo@0: OnChange = hsb_EnterXPosChange meillo@0: end meillo@0: object tbx_XPos: TEdit meillo@0: Left = 170 meillo@0: Top = 50 meillo@0: Width = 31 meillo@0: Height = 21 meillo@0: TabStop = False meillo@0: AutoSize = False meillo@0: BevelEdges = [] meillo@0: BevelInner = bvNone meillo@0: BevelKind = bkFlat meillo@0: BevelOuter = bvNone meillo@0: Enabled = False meillo@0: TabOrder = 2 meillo@0: Text = '325' meillo@0: end meillo@0: object tbx_YPos: TEdit meillo@0: Left = 100 meillo@0: Top = 90 meillo@0: Width = 31 meillo@0: Height = 21 meillo@0: TabStop = False meillo@0: AutoSize = False meillo@0: BevelEdges = [] meillo@0: BevelInner = bvNone meillo@0: BevelKind = bkFlat meillo@0: BevelOuter = bvNone meillo@0: BiDiMode = bdLeftToRight meillo@0: Enabled = False meillo@0: ParentBiDiMode = False meillo@0: TabOrder = 3 meillo@0: Text = '225' meillo@0: end meillo@0: object vsb_EnterYPos: TScrollBar meillo@0: Left = 10 meillo@0: Top = 40 meillo@0: Width = 20 meillo@0: Height = 131 meillo@0: Kind = sbVertical meillo@0: LargeChange = 10 meillo@0: Max = 0 meillo@0: PageSize = 0 meillo@0: TabOrder = 1 meillo@0: OnChange = vsb_EnterYPosChange meillo@0: end meillo@0: end meillo@0: object gbx_ShowTill: TGroupBox meillo@0: Left = 250 meillo@0: Top = 160 meillo@0: Width = 211 meillo@0: Height = 141 meillo@0: TabOrder = 4 meillo@0: object rbtn_DoShow: TRadioButton meillo@0: Left = 30 meillo@0: Top = 30 meillo@0: Width = 171 meillo@0: Height = 17 meillo@0: Caption = 'Show Welcome-Screen ...' meillo@0: Checked = True meillo@0: TabOrder = 0 meillo@0: TabStop = True meillo@0: OnClick = rbtn_DoShowClick meillo@0: end meillo@0: object rbtn_NotShow: TRadioButton meillo@0: Left = 30 meillo@0: Top = 100 meillo@0: Width = 171 meillo@0: Height = 17 meillo@0: Caption = 'Don'#39't show Welcome-Screen' meillo@0: TabOrder = 1 meillo@0: OnClick = rbtn_NotShowClick meillo@0: end meillo@0: object pan_ShowTill: TPanel meillo@0: Left = 60 meillo@0: Top = 50 meillo@0: Width = 141 meillo@0: Height = 41 meillo@0: BevelOuter = bvNone meillo@0: TabOrder = 2 meillo@0: object rbtn_TillClick: TRadioButton meillo@0: Left = 0 meillo@0: Top = 1 meillo@0: Width = 131 meillo@0: Height = 17 meillo@0: Caption = '... till click' meillo@0: Checked = True meillo@0: TabOrder = 0 meillo@0: TabStop = True meillo@0: OnClick = rbtn_TillClickClick meillo@0: end meillo@0: object rbtn_TillTime: TRadioButton meillo@0: Left = 0 meillo@0: Top = 22 meillo@0: Width = 141 meillo@0: Height = 17 meillo@0: Caption = '... seconds' meillo@0: TabOrder = 1 meillo@0: OnClick = rbtn_TillTimeClick meillo@0: end meillo@0: object cobx_Delay: TComboBox meillo@0: Left = 30 meillo@0: Top = 20 meillo@0: Width = 41 meillo@0: Height = 21 meillo@0: Style = csDropDownList meillo@0: Enabled = False meillo@0: ItemHeight = 13 meillo@0: TabOrder = 2 meillo@0: Items.Strings = ( meillo@0: '1' meillo@0: '2' meillo@0: '3' meillo@0: '5' meillo@0: '7' meillo@0: '10' meillo@0: '15' meillo@0: '20') meillo@0: end meillo@0: end meillo@0: end meillo@0: object OpenDialog1: TOpenPictureDialog meillo@0: Filter = 'JPEG Image File (*.jpg)|*.jpg;*.jpeg' meillo@0: OptionsEx = [ofExNoPlacesBar] meillo@0: Left = 440 meillo@0: end meillo@0: end