object frmSingleton: TfrmSingleton
  Left = 728
  Top = 480
  Caption = 'Teste de Singleton'
  ClientHeight = 455
  ClientWidth = 565
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 96
    Top = 16
    Width = 286
    Height = 39
    Caption = 
      'Esses dois bot'#245'es criam um objeto atrav'#233's do m'#233'todo create'#13#10'e pr' +
      'ovam que os dois objetos na verdade s'#227'o o mesmo,'#13#10'porque a class' +
      'e '#233' um singleton'
  end
  object Label2: TLabel
    Left = 96
    Top = 80
    Width = 286
    Height = 52
    Caption = 
      'O bot'#227'o Teste 3 mostra que tanto executando o constructor '#13#10'crea' +
      'te como o InstanciaPadr'#227'o, o objeto criado '#233' o mesmo'#13#10'O Teste 4 ' +
      #233' a mesma coisa, mas usando uma outra vari'#225'vel,'#13#10'para refor'#231'ar a' +
      ' quest'#227'o.'
  end
  object Label3: TLabel
    Left = 96
    Top = 144
    Width = 298
    Height = 65
    Caption = 
      'O teste 5 seta a mensagem  e a exibe atrav'#233's dos m'#233'todos '#13#10'creat' +
      'e e InstanciaPadrao, sem armazenar a referencia numa '#13#10'variavel.' +
      ' Essa '#233' a maneira correta de se usar singletons.'#13#10'O Teste 6 '#233' o ' +
      'teste derradeiro que prova que n'#227'o ocorrem nem'#13#10'leaks e nem viol' +
      'ations.'
  end
  object Label4: TLabel
    Left = 8
    Top = 384
    Width = 521
    Height = 58
    AutoSize = False
    Caption = 
      'O teste derradeiro serivr'#225' para  verificar se algum singleton te' +
      'm influ'#234'ncia no outro devido a erros de implementa'#231#227'o, ou compar' +
      'tilhamento e uso das mesmas variaveis internas est'#225'ticas, como o' +
      's contadores, flag de destrui'#231#227'o ou vari'#225'vel que armazena a inst' +
      #226'ncia. Foi adicionado '#224's mensagens o n'#250'mero da inst'#226'ncia para a ' +
      'verifica'#231#227'o de qual o lugar que o bjeto efetivamente ocupa na me' +
      'm'#243'ria.'
    WordWrap = True
  end
  object btTeste1: TButton
    Left = 8
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Teste 1'
    TabOrder = 0
    OnClick = btTeste1Click
  end
  object btTeste2: TButton
    Left = 8
    Top = 40
    Width = 75
    Height = 25
    Caption = 'Teste 2'
    TabOrder = 1
    OnClick = btTeste2Click
  end
  object btTEste3: TButton
    Left = 8
    Top = 80
    Width = 75
    Height = 25
    Caption = 'Teste 3'
    TabOrder = 2
    OnClick = btTEste3Click
  end
  object btTeste4: TButton
    Left = 8
    Top = 104
    Width = 75
    Height = 25
    Caption = 'Teste 4'
    TabOrder = 3
    OnClick = btTeste4Click
  end
  object btTeste6: TButton
    Left = 8
    Top = 175
    Width = 75
    Height = 25
    Caption = 'Teste 6'
    TabOrder = 5
    OnClick = btTeste6Click
  end
  object btTeste5: TButton
    Left = 8
    Top = 144
    Width = 75
    Height = 25
    Caption = 'Teste 5'
    TabOrder = 4
    OnClick = btTeste5Click
  end
  object btTesteDerivado1: TButton
    Left = 424
    Top = 16
    Width = 105
    Height = 25
    Caption = 'Teste Derivado 1'
    TabOrder = 6
    OnClick = btTesteDerivado1Click
  end
  object btTesteDerivado2: TButton
    Left = 424
    Top = 40
    Width = 105
    Height = 25
    Caption = 'Teste Derivado  2'
    TabOrder = 7
    OnClick = btTesteDerivado2Click
  end
  object btTesteDerivado3: TButton
    Left = 424
    Top = 80
    Width = 105
    Height = 25
    Caption = 'Teste Derivado  3'
    TabOrder = 8
    OnClick = btTesteDerivado3Click
  end
  object btTesteDerivado4: TButton
    Left = 424
    Top = 104
    Width = 105
    Height = 25
    Caption = 'Teste Derivado  4'
    TabOrder = 9
    OnClick = btTesteDerivado4Click
  end
  object btTesteDerivado5: TButton
    Left = 424
    Top = 144
    Width = 105
    Height = 25
    Caption = 'Teste Derivado  5'
    TabOrder = 10
    OnClick = btTesteDerivado5Click
  end
  object btTesteDerivado6: TButton
    Left = 424
    Top = 169
    Width = 105
    Height = 25
    Caption = 'Teste Derivado  6'
    TabOrder = 11
    OnClick = btTesteDerivado6Click
  end
  object btTesteDerradeiro: TButton
    Left = 201
    Top = 353
    Width = 146
    Height = 25
    Caption = 'Teste Derradeiro'
    TabOrder = 12
    OnClick = btTesteDerradeiroClick
  end
  object btCria1: TButton
    Left = 8
    Top = 232
    Width = 75
    Height = 25
    Caption = 'cria 1'
    TabOrder = 13
    OnClick = btCria1Click
  end
  object btCria2: TButton
    Left = 89
    Top = 232
    Width = 75
    Height = 25
    Caption = 'cria 2'
    TabOrder = 14
    OnClick = btCria2Click
  end
  object btTesta1: TButton
    Left = 8
    Top = 294
    Width = 75
    Height = 25
    Caption = 'testa 1'
    TabOrder = 15
    OnClick = btTesta1Click
  end
  object btTesta2: TButton
    Left = 89
    Top = 294
    Width = 75
    Height = 25
    Caption = 'testa 2'
    TabOrder = 16
    OnClick = btTesta2Click
  end
  object btDestroi1: TButton
    Left = 8
    Top = 263
    Width = 75
    Height = 25
    Caption = 'destroi 1'
    TabOrder = 17
    OnClick = btDestroi1Click
  end
  object btDestroi2: TButton
    Left = 89
    Top = 263
    Width = 75
    Height = 25
    Caption = 'destroi 2'
    TabOrder = 18
    OnClick = btDestroi2Click
  end
end
