home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / tenpack.lzh / KEYDEMO.DFM / KEYDEMO.txt < prev   
Encoding:
Text File  |  1995-05-30  |  2.1 KB  |  96 lines
  1. object DemoKeystate: TDemoKeystate
  2.   Left = 161
  3.   Top = 117
  4.   BorderStyle = bsSingle
  5.   Caption = 'Key State Component'
  6.   ClientHeight = 273
  7.   ClientWidth = 427
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   Icon.Data = {<image000.ico>}
  13.   PixelsPerInch = 96
  14.   Position = poDefault
  15.   Visible = True
  16.   TextHeight = 16
  17.   object KeyState1: TKeyState
  18.     Left = 156
  19.     Top = 63
  20.     Width = 41
  21.     Height = 25
  22.     AllowAllUp = True
  23.     GroupIndex = 1
  24.     Caption = 'Caps'
  25.     Font.Color = clBlack
  26.     Font.Height = -11
  27.     Font.Name = 'MS Sans Serif'
  28.     Font.Style = []
  29.     ParentFont = False
  30.     OnClick = KeyState1Click
  31.     Style = CapsLock
  32.   end
  33.   object KeyState2: TKeyState
  34.     Left = 196
  35.     Top = 63
  36.     Width = 41
  37.     Height = 25
  38.     AllowAllUp = True
  39.     GroupIndex = 2
  40.     Caption = 'Num'
  41.     Font.Color = clBlack
  42.     Font.Height = -11
  43.     Font.Name = 'MS Sans Serif'
  44.     Font.Style = []
  45.     ParentFont = False
  46.     Style = NumLock
  47.   end
  48.   object KeyState3: TKeyState
  49.     Left = 236
  50.     Top = 63
  51.     Width = 41
  52.     Height = 25
  53.     AllowAllUp = True
  54.     GroupIndex = 3
  55.     Caption = 'Scroll'
  56.     Font.Color = clBlack
  57.     Font.Height = -11
  58.     Font.Name = 'MS Sans Serif'
  59.     Font.Style = []
  60.     ParentFont = False
  61.     Style = ScrollLock
  62.   end
  63.   object Label1: TLabel
  64.     Left = 102
  65.     Top = 102
  66.     Width = 231
  67.     Height = 81
  68.     AutoSize = False
  69.     Caption = 
  70.       'Easily create status bars displaying the keyboard state with the' +
  71.       ' State Button component.  Just set the style to CapsLock, NumLoc' +
  72.       'k or ScorllLock and your done.  Any change in state is reflected' +
  73.       ' in the button appearance.'
  74.     Font.Color = clBlack
  75.     Font.Height = -11
  76.     Font.Name = 'MS Sans Serif'
  77.     Font.Style = [fsBold]
  78.     ParentFont = False
  79.   end
  80.   object Label2: TLabel
  81.     Left = 102
  82.     Top = 181
  83.     Width = 231
  84.     Height = 34
  85.     AutoSize = False
  86.     Caption = 
  87.       'When the user clicks on the state button, the keyboard state is ' +
  88.       'toggled.'
  89.     Font.Color = clBlack
  90.     Font.Height = -11
  91.     Font.Name = 'MS Sans Serif'
  92.     Font.Style = [fsBold]
  93.     ParentFont = False
  94.   end
  95. end
  96.