home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D / WIDGETS.ZIP / WidgetDemoU.dfm / WidgetDemoU.txt
Encoding:
Text File  |  1998-07-29  |  2.3 KB  |  101 lines
  1. object Form1: TForm1
  2.   Left = 342
  3.   Top = 274
  4.   Width = 449
  5.   Height = 255
  6.   Caption = 'Widget Demo'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Menu = MainMenu1
  12.   PixelsPerInch = 120
  13.   TextHeight = 16
  14.   object Widget1: TWidget
  15.     Font.Color = clRed
  16.     Font.Height = -13
  17.     Font.Name = 'Marlett'
  18.     Font.Style = [fsBold]
  19.     Gap = 3
  20.     Glyph = 't'
  21.     Hint = 'Click to roll up'
  22.     OffsetLeft = 0
  23.     OffsetTop = -1
  24.     ShowHint = True
  25.     OnClick = Widget1Click
  26.     Left = 160
  27.     Top = 24
  28.   end
  29.   object Widget2: TWidget
  30.     Font.Color = clWindowText
  31.     Font.Height = -13
  32.     Font.Name = 'Symbol'
  33.     Font.Style = [fsBold]
  34.     Glyph = '∩┐╜'
  35.     Hint = 'Click to change border icons'
  36.     Image.Data = {
  37.       F6000000424DF600000000000000760000002800000010000000100000000100
  38.       0400000000008000000000000000000000001000000000000000000000000000
  39.       80000080000000808000800000008000800080800000C0C0C000808080000000
  40.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  41.       3333333333000333393333333000703393333333080878333339333088077703
  42.       3393333088077703393330088800770393330807770707833333080888070783
  43.       9999070777070783333330077700770393333330770877033933333077088703
  44.       3393333307888833333933333070803393333333330003333933}
  45.     OffsetLeft = -1
  46.     OffsetTop = -1
  47.     ShowHint = True
  48.     OnClick = Widget2Click
  49.     Left = 104
  50.     Top = 24
  51.   end
  52.   object Widget3: TWidget
  53.     Font.Color = clBlue
  54.     Font.Height = -13
  55.     Font.Name = 'Marlett'
  56.     Font.Style = []
  57.     Glyph = 'n'
  58.     Hint = 'Click to change border style'
  59.     OffsetLeft = -1
  60.     OffsetTop = -1
  61.     PopupMenu = PopupMenu1
  62.     ShowHint = True
  63.     OnClick = Widget3Click
  64.     Left = 48
  65.     Top = 24
  66.   end
  67.   object MainMenu1: TMainMenu
  68.     Left = 272
  69.     Top = 112
  70.     object hggh1: TMenuItem
  71.       Caption = 'Dummy Menu'
  72.       ShortCut = 0
  73.     end
  74.   end
  75.   object PopupMenu1: TPopupMenu
  76.     Left = 256
  77.     Top = 16
  78.     object one1: TMenuItem
  79.       Caption = 'one'
  80.       ShortCut = 0
  81.       OnClick = Widget3Click
  82.     end
  83.     object two1: TMenuItem
  84.       Caption = 'two'
  85.       ShortCut = 0
  86.     end
  87.     object three1: TMenuItem
  88.       Caption = 'three'
  89.       ShortCut = 0
  90.     end
  91.     object N1: TMenuItem
  92.       Caption = '-'
  93.       ShortCut = 0
  94.     end
  95.     object exxit1: TMenuItem
  96.       Caption = 'exxit'
  97.       ShortCut = 0
  98.     end
  99.   end
  100. end
  101.