object MainForm: TMainForm Left = 403 Top = 350 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsDialog Caption = 'TextTrayIcon Test' ClientHeight = 315 ClientWidth = 263 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Button7: TButton Left = 155 Top = 131 Width = 95 Height = 25 Caption = 'E&xit' TabOrder = 4 OnClick = Button7Click end object Button2: TButton Left = 155 Top = 47 Width = 95 Height = 25 Caption = '&Loop chars' TabOrder = 2 OnClick = Button2Click end object Button1: TButton Left = 155 Top = 15 Width = 95 Height = 25 Caption = 'Loop &numbers' TabOrder = 1 OnClick = Button1Click end object Button3: TButton Left = 155 Top = 79 Width = 95 Height = 25 Caption = '&Stop loop' TabOrder = 3 OnClick = Button3Click end object GroupBox1: TGroupBox Left = 11 Top = 10 Width = 122 Height = 293 Caption = ' Appearance ' TabOrder = 0 object Label1: TLabel Left = 15 Top = 24 Width = 24 Height = 13 Caption = '&Text:' FocusControl = Edit1 end object Label2: TLabel Left = 15 Top = 180 Width = 38 Height = 13 Caption = '&OffsetX:' end object Label3: TLabel Left = 15 Top = 208 Width = 38 Height = 13 Caption = 'Offset&Y:' end object Label4: TLabel Left = 15 Top = 236 Width = 45 Height = 13 Caption = 'Line &dist.:' end object Edit1: TEdit Left = 63 Top = 20 Width = 44 Height = 21 Ctl3D = True MaxLength = 9 ParentCtl3D = False TabOrder = 0 Text = 'Yo' OnChange = Edit1Change end object Button4: TButton Left = 12 Top = 73 Width = 95 Height = 25 Caption = '&Font...' TabOrder = 2 OnClick = Button4Click end object CheckBox1: TCheckBox Left = 13 Top = 48 Width = 63 Height = 17 Alignment = taLeftJustify Caption = '&Border' TabOrder = 1 OnClick = CheckBox1Click end object Button5: TButton Left = 12 Top = 105 Width = 95 Height = 25 Caption = '&Color...' TabOrder = 3 OnClick = Button5Click end object Button6: TButton Left = 12 Top = 137 Width = 95 Height = 25 Caption = 'B&order color...' TabOrder = 4 OnClick = Button6Click end object Edit2: TEdit Left = 63 Top = 176 Width = 29 Height = 21 TabOrder = 5 Text = '0' OnChange = Edit2Change end object UpDown2: TUpDown Left = 92 Top = 176 Width = 15 Height = 21 Associate = Edit2 Min = -10 Max = 10 Position = 0 TabOrder = 6 Wrap = False end object Edit3: TEdit Left = 63 Top = 204 Width = 29 Height = 21 TabOrder = 7 Text = '0' OnChange = Edit3Change end object UpDown3: TUpDown Left = 92 Top = 204 Width = 15 Height = 21 Associate = Edit3 Min = -10 Max = 10 Position = 0 TabOrder = 8 Wrap = False end object Edit4: TEdit Left = 63 Top = 232 Width = 29 Height = 21 TabOrder = 9 Text = '0' OnChange = Edit4Change end object UpDown4: TUpDown Left = 92 Top = 232 Width = 15 Height = 21 Associate = Edit4 Min = -10 Max = 10 Position = 0 TabOrder = 10 Wrap = False end object CheckBox2: TCheckBox Left = 13 Top = 264 Width = 63 Height = 17 Alignment = taLeftJustify Caption = 'Bg. &icon' TabOrder = 11 OnClick = CheckBox2Click end end object Timer1: TTimer Enabled = False Interval = 200 OnTimer = Timer1Timer Left = 192 Top = 172 end object FontDialog1: TFontDialog Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 208 Top = 172 end object ColorDialog1: TColorDialog Ctl3D = True Left = 224 Top = 172 end object TrayIcon1: TTextTrayIcon CycleInterval = 0 ShowHint = False Icon.Data = {} IconVisible = True IconIndex = 0 OnMouseDown = TrayIcon1MouseDown BackgroundIcon.Data = {} Text = 'X' Font.Charset = ANSI_CHARSET Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] Color = clYellow Border = False Options.OffsetX = 0 Options.OffsetY = 0 Options.LineDistance = 0 Left = 152 Top = 172 end end