home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 March / Chip_1999-03_cd.bin / zkuste / delphi / D23 / CNTXHELP.ZIP / HelpDemoUnit.dfm / HelpDemoUnit.txt
Encoding:
Text File  |  1998-09-14  |  3.5 KB  |  161 lines
  1. object Form1: TForm1
  2.   Left = 180
  3.   Top = 126
  4.   Width = 587
  5.   Height = 410
  6.   BorderIcons = [biSystemMenu, biHelp]
  7.   Caption = 'Context help demo: Form1'
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Position = poScreenCenter
  14.   Scaled = False
  15.   OnCreate = FormCreate
  16.   PixelsPerInch = 120
  17.   TextHeight = 16
  18.   object GroupBox1: TGroupBox
  19.     Left = 212
  20.     Top = 8
  21.     Width = 361
  22.     Height = 201
  23.     HelpContext = 1
  24.     Caption = 'GroupBox1'
  25.     PopupMenu = PopupMenu1
  26.     TabOrder = 0
  27.     object Edit1: TEdit
  28.       Left = 12
  29.       Top = 28
  30.       Width = 337
  31.       Height = 24
  32.       HelpContext = 1
  33.       PopupMenu = PopupMenu1
  34.       TabOrder = 0
  35.       Text = 'Edit1: has a help topic (Form1.Edit1)'
  36.     end
  37.     object Edit2: TEdit
  38.       Left = 12
  39.       Top = 60
  40.       Width = 337
  41.       Height = 24
  42.       HelpContext = 1
  43.       PopupMenu = PopupMenu1
  44.       TabOrder = 1
  45.       Text = 'Edit2: has a help topic (Form1.Edit2)'
  46.     end
  47.     object Memo1: TMemo
  48.       Left = 12
  49.       Top = 100
  50.       Width = 257
  51.       Height = 89
  52.       Lines.Strings = (
  53.         'Memo1: has NO help topic, context help is '
  54.         'redirected to Groupbox1 (TopicID: '
  55.         'Form1.Groupbox1)')
  56.       PopupMenu = PopupMenu1
  57.       TabOrder = 2
  58.     end
  59.   end
  60.   object Panel1: TPanel
  61.     Left = 212
  62.     Top = 216
  63.     Width = 361
  64.     Height = 145
  65.     Caption = 'Panel1'
  66.     PopupMenu = PopupMenu1
  67.     TabOrder = 1
  68.     object SpeedButton1: TSpeedButton
  69.       Left = 16
  70.       Top = 112
  71.       Width = 277
  72.       Height = 25
  73.       Caption = 'SpeedButtons do not have context help...'
  74.     end
  75.     object Edit3: TEdit
  76.       Left = 12
  77.       Top = 12
  78.       Width = 325
  79.       Height = 24
  80.       HelpContext = 1
  81.       PopupMenu = PopupMenu1
  82.       TabOrder = 0
  83.       Text = 'Edit3: has a help topic (Form1.Edit3)'
  84.     end
  85.     object Edit4: TEdit
  86.       Left = 12
  87.       Top = 44
  88.       Width = 325
  89.       Height = 24
  90.       PopupMenu = PopupMenu1
  91.       TabOrder = 1
  92.       Text = 'Edit4: has NO help at all (redirected to NoHelpTopic)'
  93.     end
  94.     object Button1: TButton
  95.       Left = 16
  96.       Top = 80
  97.       Width = 233
  98.       Height = 25
  99.       Caption = 'No help available for Button1'
  100.       PopupMenu = PopupMenu1
  101.       TabOrder = 2
  102.     end
  103.   end
  104.   object Memo2: TMemo
  105.     Left = 8
  106.     Top = 4
  107.     Width = 197
  108.     Height = 317
  109.     Font.Charset = DEFAULT_CHARSET
  110.     Font.Color = clWindowText
  111.     Font.Height = -13
  112.     Font.Name = 'MS Sans Serif'
  113.     Font.Style = []
  114.     Lines.Strings = (
  115.       'This demo form shows how '
  116.       'to use context sensitive Help '
  117.       'with TContextHelp.'
  118.       ''
  119.       'NONE of these controls have '
  120.       'an individual ContextHelp-ID!'
  121.       ''
  122.       'There is NO [MAP]-section in '
  123.       'the .HPJ-file (check it out, if you '
  124.       'can'#39't believe it)!'
  125.       ''
  126.       'Press the Help-button below to'
  127.       'open the help file.')
  128.     ParentFont = False
  129.     PopupMenu = PopupMenu1
  130.     ReadOnly = True
  131.     ScrollBars = ssHorizontal
  132.     TabOrder = 2
  133.     WordWrap = False
  134.   end
  135.   object Button2: TButton
  136.     Left = 16
  137.     Top = 332
  138.     Width = 177
  139.     Height = 25
  140.     Caption = 'Overview + Help'
  141.     PopupMenu = PopupMenu1
  142.     TabOrder = 3
  143.     OnClick = Button2Click
  144.   end
  145.   object ContextHelp1: TContextHelp
  146.     NoHelpTopic = 'NoHelpAvailable'
  147.     TestMode = True
  148.     UsePrefix = True
  149.     Left = 164
  150.     Top = 44
  151.   end
  152.   object PopupMenu1: TPopupMenu
  153.     Left = 164
  154.     Top = 92
  155.     object Whatsthis: TMenuItem
  156.       Caption = 'What'#39's this?'
  157.       OnClick = WhatsthisClick
  158.     end
  159.   end
  160. end
  161.