home *** CD-ROM | disk | FTP | other *** search
- object MainForm: TMainForm
- Left = 360
- Top = 379
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Start Hidden?'
- ClientHeight = 175
- ClientWidth = 249
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poDesktopCenter
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 8
- Width = 233
- Height = 26
- AutoSize = False
- Caption =
- 'This demo demonstrates how to determine if the main form should ' +
- 'be visible at application startup.'
- WordWrap = True
- end
- object Label2: TLabel
- Left = 8
- Top = 42
- Width = 233
- Height = 39
- AutoSize = False
- Caption =
- 'Set the checkbox below, then close the app. Next time you start ' +
- 'the app. it will remember the setting.'
- WordWrap = True
- end
- object Label3: TLabel
- Left = 8
- Top = 90
- Width = 233
- Height = 39
- AutoSize = False
- Caption =
- 'Notice that the form'#39's Visible property must be false for this t' +
- 'o work. You will probably also want to set the tray icon'#39's IconV' +
- 'isible property to true.'
- WordWrap = True
- end
- object CheckBox1: TCheckBox
- Left = 8
- Top = 148
- Width = 133
- Height = 17
- Caption = '&Start hidden next time'
- TabOrder = 0
- OnClick = CheckBox1Click
- end
- object Button1: TButton
- Left = 164
- Top = 142
- Width = 75
- Height = 25
- Caption = 'E&xit'
- TabOrder = 1
- OnClick = Button1Click
- end
- object CoolTrayIcon1: TCoolTrayIcon
- CycleInterval = 0
- Hint = 'StartHidden Demo'
- Icon.Data = {<image000.ico>}
- IconVisible = True
- IconIndex = 0
- OnMouseDown = CoolTrayIcon1MouseDown
- OnStartup = CoolTrayIcon1Startup
- Left = 132
- Top = 126
- end
- end
-