home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 342
- Top = 274
- Width = 449
- Height = 255
- Caption = 'Widget Demo'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- PixelsPerInch = 120
- TextHeight = 16
- object Widget1: TWidget
- Font.Color = clRed
- Font.Height = -13
- Font.Name = 'Marlett'
- Font.Style = [fsBold]
- Gap = 3
- Glyph = 't'
- Hint = 'Click to roll up'
- OffsetLeft = 0
- OffsetTop = -1
- ShowHint = True
- OnClick = Widget1Click
- Left = 160
- Top = 24
- end
- object Widget2: TWidget
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Symbol'
- Font.Style = [fsBold]
- Glyph = '�'
- Hint = 'Click to change border icons'
- Image.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333000333393333333000703393333333080878333339333088077703
- 3393333088077703393330088800770393330807770707833333080888070783
- 9999070777070783333330077700770393333330770877033933333077088703
- 3393333307888833333933333070803393333333330003333933}
- OffsetLeft = -1
- OffsetTop = -1
- ShowHint = True
- OnClick = Widget2Click
- Left = 104
- Top = 24
- end
- object Widget3: TWidget
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Marlett'
- Font.Style = []
- Glyph = 'n'
- Hint = 'Click to change border style'
- OffsetLeft = -1
- OffsetTop = -1
- PopupMenu = PopupMenu1
- ShowHint = True
- OnClick = Widget3Click
- Left = 48
- Top = 24
- end
- object MainMenu1: TMainMenu
- Left = 272
- Top = 112
- object hggh1: TMenuItem
- Caption = 'Dummy Menu'
- ShortCut = 0
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 256
- Top = 16
- object one1: TMenuItem
- Caption = 'one'
- ShortCut = 0
- OnClick = Widget3Click
- end
- object two1: TMenuItem
- Caption = 'two'
- ShortCut = 0
- end
- object three1: TMenuItem
- Caption = 'three'
- ShortCut = 0
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object exxit1: TMenuItem
- Caption = 'exxit'
- ShortCut = 0
- end
- end
- end
-