home *** CD-ROM | disk | FTP | other *** search
- object FormPrincipal: TFormPrincipal
- Left = 104
- Top = 154
- ActiveControl = Outline1
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsDialog
- Caption = 'Disk Mensagens (Demonstra��o)'
- ClientHeight = 309
- ClientWidth = 586
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- PopupMenu = PopupMenu1
- Position = poScreenCenter
- Scaled = False
- Visible = True
- OnCreate = FormCreate
- PixelsPerInch = 120
- TextHeight = 20
- object Label3: TLabel
- Left = 384
- Top = 29
- Width = 166
- Height = 64
- Alignment = taCenter
- Caption = 'Na VERS�O REGISTRADA s�o mais de 700 Mensagens e Pensamentos'
- Color = 8454143
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- WordWrap = True
- end
- object Panel3: TPanel
- Left = 0
- Top = 276
- Width = 586
- Height = 33
- Align = alBottom
- BorderWidth = 1
- TabOrder = 0
- object StatusLine: TPanel
- Left = 2
- Top = 2
- Width = 342
- Height = 29
- Align = alClient
- BevelOuter = bvLowered
- BorderWidth = 1
- Caption = 'F1 = Ajuda'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- end
- object PanelCopia: TPanel
- Left = 344
- Top = 2
- Width = 72
- Height = 29
- Align = alRight
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Caption = 'Copiar'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Locked = True
- ParentFont = False
- TabOrder = 1
- OnClick = PanelCopiaClick
- OnMouseDown = PanelCopiaMouseDown
- OnMouseUp = PanelCopiaMouseUp
- end
- object Panel2: TPanel
- Left = 508
- Top = 2
- Width = 76
- Height = 29
- Align = alRight
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Caption = 'Fechar'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 2
- OnClick = Panel2Click
- end
- object Panel5: TPanel
- Left = 416
- Top = 2
- Width = 92
- Height = 29
- Align = alRight
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Caption = 'Menu'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 3
- OnMouseDown = Panel5MouseDown
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 131
- Width = 586
- Height = 134
- BevelInner = bvLowered
- TabOrder = 1
- object Memo1: TMemo
- Left = 8
- Top = 19
- Width = 305
- Height = 97
- TabStop = False
- Alignment = taCenter
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Lines.Strings = (
- '')
- MaxLength = 254
- ParentCtl3D = False
- ParentFont = False
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 0
- end
- object SpinButton1: TSpinButton
- Left = 328
- Top = 34
- Width = 49
- Height = 65
- DownGlyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333003333
- 33333333330B003333333333330BBB0033330000000BBBBB00330BBBBBBBBBBB
- BB000000000BBBBB00333333330BBB0033333333330B00333333333333003333
- 3333333333333333333333333333333333333333333333333333}
- ParentShowHint = False
- ShowHint = False
- TabOrder = 1
- TabStop = True
- UpGlyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333333333333333333333333333333333330033333333333300B033
- 3333333300BBB03333333300BBBBB000000000BBBBBBBBBBBBBB3300BBBBB000
- 0000333300BBB033333333333300B03333333333333300333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- OnDownClick = SpinButton1DownClick
- OnUpClick = SpinButton1UpClick
- end
- object Outline1: TOutline
- Left = 391
- Top = 2
- Width = 193
- Height = 130
- Lines.Nodes = (
- 'Amizade'
- 'Anivers�rio'
- #9'de Casamento'
- #9'Geral'
- 'Ano Novo'
- 'Casamento'
- 'Dia das M�es'
- 'Dia dos Pais'
- 'Melhoras'
- 'Namoro'
- #9'Dia dos Namorados'
- #9'Geral'
- 'Natal'
- #9'Agradecimentos'
- #9'Geral'
- 'Novo Beb�'
- 'P�scoa'
- 'Pensamentos'
- #9'Amizade'
- #9'Amor'
- #9'Diversos')
- OutlineStyle = osPictureText
- ItemHeight = 16
- Align = alRight
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Color = clBtnFace
- ParentCtl3D = False
- Ctl3D = False
- TabOrder = 2
- OnClick = Outline1Click
- BorderStyle = bsNone
- ItemSeparator = ' \ '
- PictureOpen.Data = {
- 16050000424D160500000000000036040000280000000E0000000E0000000100
- 080000000000E000000000000000000000000001000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
- A600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00050505050505
- 0505050505050505000005050505050505050505050505050000050000000000
- 000000050505050500000000FBFBFBFBFBFBFB0005050505000000FB00FBFBFB
- FBFBFBFB00050505000000FBFB00FBFBFBFBFBFBFB000505000000FBFBFB0000
- 0000000000000505000000FBFBFB00FB00FB00FB00050505000000FBFBFBFBFB
- FBFBFB0000050505000000FBFBFBFBFBFB0000000505050500000500FBFBFBFB
- 0005050505050505000005F800000000F8050505050505050000050505050505
- 0505050505050505000005050505050505050505050505050000}
- PictureClosed.Data = {
- E6000000424DE60000000000000076000000280000000E0000000E0000000100
- 0400000000007000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 5500555555555555550050000000000555000BBBBBBBBB0555000BBBBBBBBB05
- 55000BBBBBBBBB0555000BBBBBBBBB0555000BBBBBBBBB0555000BBBBBBBBB05
- 5500000000000055550050BBBB05555555005800008555555500555555555555
- 55005555555555555500}
- PictureLeaf.Data = {
- E6000000424DE60000000000000076000000280000000E0000000E0000000100
- 0400000000007000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 550055555555555555005500000000055500550FFFFFFF055500550FFFFFFF05
- 5500550FFFFFFF055500550FFFFFFF055500550FFFFFFF055500550FFFFFFF05
- 5500550FFFFF00055500550FFFFF0F055500550FFFFF00555500550000000555
- 55005555555555555500}
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- Data = {1C}
- end
- end
- object Panel6: TPanel
- Left = 1
- Top = 8
- Width = 354
- Height = 114
- BevelInner = bvLowered
- BevelOuter = bvLowered
- Color = 33023
- TabOrder = 2
- object Image1: TImage
- Left = 2
- Top = 2
- Width = 350
- Height = 110
- Align = alClient
- AutoSize = True
- Center = True
- Picture.Data = {<image001.bmp>}
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 552
- object Expandir1: TMenuItem
- Caption = '&Expandir'
- OnClick = Expandir1Click
- end
- object Comprimir1: TMenuItem
- Caption = 'Co&mprimir'
- OnClick = Comprimir1Click
- end
- object Copiar1: TMenuItem
- Caption = '&Copiar'
- ShortCut = 16451
- OnClick = Copiar1Click
- end
- object Minimizar1: TMenuItem
- Caption = 'Minimi&zar'
- ShortCut = 16461
- OnClick = Minimizar1Click
- end
- object Fechar1: TMenuItem
- Caption = '&Fechar'
- OnClick = Fechar1Click
- end
- object Ajuda1: TMenuItem
- Caption = '&Ajuda'
- object Conteudo1: TMenuItem
- Caption = '&Conte�do'
- ShortCut = 112
- OnClick = Conteudo1Click
- end
- object SobreoDiskMensagens1: TMenuItem
- Caption = '&Sobre o Disk Mensagens'
- OnClick = SobreoDiskMensagens1Click
- end
- object Registro1: TMenuItem
- Caption = '&Registro'
- OnClick = Registro1Click
- end
- end
- end
- end
-