object FormDemo: TFormDemo Left = 298 Top = 109 ActiveControl = ButtonText BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Drag '#39'n'#39' Drop Demo' ClientHeight = 380 ClientWidth = 292 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] OldCreateOrder = True Position = poScreenCenter Scaled = False PixelsPerInch = 96 TextHeight = 19 object Panel1: TPanel Left = 0 Top = 0 Width = 292 Height = 380 Align = alClient BevelOuter = bvNone BorderWidth = 8 Caption = ' ' TabOrder = 0 object Label3: TLabel Left = 8 Top = 47 Width = 272 Height = 18 Alignment = taCenter AutoSize = False Caption = 'Version 4.0' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False ShowAccelChar = False end object ButtonText: TBitBtn Left = 63 Top = 73 Width = 161 Height = 57 Caption = 'Drag && Drop &Text' TabOrder = 0 OnClick = ButtonTextClick Glyph.Data = { 96010000424D9601000000000000760000002800000018000000180000000100 0400000000002001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777007777777777777777777770F70777777777 788888807770F80777777777777777700F0F70777777777788888870F00F8077 7777777777777770FFF707777777777888888880FFFF00007787780000000080 FFF77807778778FFFFFFFFF0FF778087878778FFFFFFFFF0F7780887878778FF 88888870F780F887878778FFFFFFFFF0780FF087878778FF8888887080FFF087 878778FFFFFFFFF00FFFF087878778FF88888870788FF087877778FFFFFFFFFF FFFFF087877778FF8888888888FFF087777778FFFFFFFFFFFFFFF087777778FF FFFFFFFFFFFFF087777778FFFFFFFFFFFFFFF077777778888888888888888877 7777777777777777777777777777777777777777777777777777} Layout = blGlyphTop end object ButtonExit: TBitBtn Left = 63 Top = 258 Width = 161 Height = 26 Cancel = True Caption = 'E&xit' TabOrder = 3 OnClick = ButtonExitClick end object ButtonFile: TBitBtn Left = 63 Top = 133 Width = 161 Height = 57 Caption = 'Drag && Drop &Files' TabOrder = 1 OnClick = ButtonFileClick Glyph.Data = { 96010000424D9601000000000000760000002800000018000000180000000100 0400000000002001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777007777777777777777777770F70777777777 788888807770F80777777777777777700F0F70777777777788888870F00F8077 7777777777777770FFF707777777777000000080FFFF00007787788888888880 FFF77807778778FB7B7B7B70FF778087878778F7B7B7B7B0F7780887878778FB 7B7B7B70F7807807878778F7B7B7B7B07807B807878778FB7B7B7B70807B7807 878778F7B7B7B7B007B7B807878778FB7B7B7B707B7B7807877778F7B7B7B7B7 B7B7B807877778FB7B7B7B7B7B7B7807777778FFFFFFFFFFFFFFF877777778B7 B7B7B888888888777777778B7B7B877777777777777777788888777777777777 7777777777777777777777777777777777777777777777777777} Layout = blGlyphTop end object Panel2: TPanel Left = 8 Top = 307 Width = 276 Height = 65 Align = alBottom BevelOuter = bvNone BorderStyle = bsSingle Color = clGray TabOrder = 4 object Label2: TLabel Left = 79 Top = 5 Width = 121 Height = 14 Alignment = taCenter Caption = 'Copyright (c) 1997-2001.' Color = clGray Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Label4: TLabel Left = 28 Top = 20 Width = 79 Height = 14 Caption = 'Angus Johnson:' Color = clGray Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Label5: TLabel Left = 28 Top = 35 Width = 86 Height = 14 Caption = 'Anders Melander:' Color = clGray Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Label6: TLabel Left = 127 Top = 20 Width = 100 Height = 14 Cursor = crHandPoint Caption = 'ajohnson@rpi.net.au' Color = clGray Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsUnderline] ParentColor = False ParentFont = False OnClick = Label6Click end object Label7: TLabel Left = 127 Top = 35 Width = 118 Height = 14 Cursor = crHandPoint Caption = 'http://www.melander.dk' Color = clGray Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsUnderline] ParentColor = False ParentFont = False OnClick = Label1Click end end object Panel3: TPanel Left = 8 Top = 8 Width = 276 Height = 29 Align = alTop BevelOuter = bvNone BorderWidth = 1 BorderStyle = bsSingle Caption = 'Drag '#39'n'#39' Drop Demo' Color = clGray Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 5 end object ButtonURL: TBitBtn Left = 63 Top = 193 Width = 161 Height = 57 Caption = '&URLs && Bitmaps' TabOrder = 2 OnClick = ButtonURLClick Glyph.Data = { 96010000424D9601000000000000760000002800000018000000180000000100 0400000000002001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777777777777777777777777777007777777777788888877770F707777777777 77777707770F8077777777788888870070F70777777777777777770F00F80777 777778000000080FFF7088880777784F4B4E4E0FFFF0000B077778C4E4E4CE0F FF7780A80787784C4F4B4E0FF7780A22078778C4B4E4CE0F7780A222078778EF EFEFEE0F780E2A22078778EEEEEEEE0780EEA222078778EEEEEEEE080EEEEEA2 078778EEEEEEEE00EEEEEEEA078778EEEBBEEE0EEEEEEEEE078778EEBFFBEEEE EEEEEEEE078778EEBFFBEEEEEEEEEEEE078778EEEBBEEEEEEEEEEEEE078778EE EEEEEEEEEEEEEEEE077778EEEEEEEEEEEEEEEEEE077778888888888888888888 8777777777777777777777777777777777777777777777777777} Layout = blGlyphTop end end end