home *** CD-ROM | disk | FTP | other *** search
- object MegaPropForm: TMegaPropForm
- Left = 315
- Top = 101
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'MegaPropForm'
- ClientHeight = 232
- ClientWidth = 285
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- OnCreate = FormCreate
- TextHeight = 16
- object Pages: TNotebook
- Left = 0
- Top = 0
- Width = 285
- Height = 232
- Align = alClient
- PageIndex = 1
- TabOrder = 0
- object TPage
- Left = 0
- Top = 0
- Caption = 'Hint Editor'
- object Panel3: TPanel
- Left = 0
- Top = 0
- Width = 285
- Height = 166
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 2
- TabOrder = 0
- object Label1: TLabel
- Left = 2
- Top = 2
- Width = 281
- Height = 15
- Align = alTop
- Caption = 'Tool Tip / Flyover Hint / MegaPanel Caption'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 2
- Top = 89
- Width = 281
- Height = 15
- Align = alBottom
- Caption = 'Status Hint / MegaPanel Label'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object FlyoverHint: TMemo
- Left = 2
- Top = 17
- Width = 281
- Height = 60
- Align = alTop
- Color = clWhite
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 255
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- WordWrap = False
- OnChange = FlyoverHintChange
- end
- object StatusHint: TMemo
- Left = 2
- Top = 104
- Width = 281
- Height = 60
- Align = alBottom
- Color = clWhite
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 255
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 1
- WordWrap = False
- OnChange = StatusHintChange
- end
- end
- object StatusPanel: TPanel
- Left = 0
- Top = 207
- Width = 285
- Height = 25
- Align = alBottom
- BevelInner = bvLowered
- BevelOuter = bvNone
- BorderWidth = 2
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- object Panel4: TPanel
- Left = 0
- Top = 166
- Width = 285
- Height = 41
- Align = alBottom
- BevelOuter = bvNone
- BorderWidth = 2
- TabOrder = 2
- object Copy0: TBitBtn
- Left = 18
- Top = 8
- Width = 73
- Height = 25
- Caption = 'Copy'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = Copy0Click
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
- FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
- FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
- 007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
- 7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
- 99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
- 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
- 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
- 93337FFFF7737777733300000033333333337777773333333333}
- NumGlyphs = 2
- end
- object OK0: TBitBtn
- Left = 106
- Top = 8
- Width = 73
- Height = 25
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- Kind = bkOK
- Spacing = 2
- end
- object Cancel0: TBitBtn
- Left = 194
- Top = 8
- Width = 73
- Height = 25
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- Kind = bkCancel
- Spacing = 0
- end
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Class Fixup Editor'
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 285
- Height = 191
- Align = alClient
- BevelInner = bvLowered
- BevelOuter = bvNone
- BorderWidth = 2
- TabOrder = 0
- object Header: THeader
- Left = 3
- Top = 3
- Width = 279
- Height = 19
- Align = alTop
- AllowResize = False
- BorderStyle = bsNone
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Sections.Sections = (
- #0'110'#0'Class Name'
- #0'50'#0'Enter'
- #0'50'#0'Arrow'
- #0'50'#0'Shadow'
- #0'13'#0' ')
- TabOrder = 0
- end
- object Grid: TStringGrid
- Left = 3
- Top = 22
- Width = 279
- Height = 166
- Align = alClient
- BorderStyle = bsNone
- ColCount = 4
- DefaultRowHeight = 19
- FixedCols = 0
- FixedRows = 0
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goEditing, goTabs, goThumbTracking]
- ParentFont = False
- RowCount = 1
- TabOrder = 1
- OnDrawCell = GridDrawCell
- OnKeyDown = GridKeyUpDown
- OnKeyPress = GridKeyPress
- OnKeyUp = GridKeyUpDown
- OnMouseDown = GridMouseDown
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 191
- Width = 285
- Height = 41
- Align = alBottom
- BevelOuter = bvNone
- BorderWidth = 2
- TabOrder = 1
- object OK1: TBitBtn
- Left = 143
- Top = 8
- Width = 64
- Height = 25
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- Kind = bkOK
- Spacing = 2
- end
- object Cancel1: TBitBtn
- Left = 215
- Top = 8
- Width = 64
- Height = 25
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- Kind = bkCancel
- Margin = 2
- Spacing = 0
- end
- object Get1: TBitBtn
- Left = 71
- Top = 8
- Width = 64
- Height = 25
- Caption = 'Get'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = GatherClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
- 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
- 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
- 07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
- 07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
- 0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
- 33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
- B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
- 3BB33773333773333773B333333B3333333B7333333733333337}
- NumGlyphs = 2
- end
- object Add1: TBitBtn
- Left = 7
- Top = 8
- Width = 24
- Height = 25
- Caption = '+'
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = Add1Click
- NumGlyphs = 2
- Spacing = 2
- end
- object Remove1: TBitBtn
- Left = 39
- Top = 8
- Width = 24
- Height = 25
- Caption = '--'
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = Remove1Click
- NumGlyphs = 2
- end
- end
- end
- end
- end
-