Revista do CD-ROM 61/CDRom61-2.iso/Programas/visual/visual.exe/0/RCDATA/TFORMVISUAL/TFORMVISUAL.txt

Text File | 2000-02-02 | 15.2 KB | 675 lines

object formVisual: TformVisual
  Left = 109
  Top = 43
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'Novo Visual'
  ClientHeight = 495
  ClientWidth = 662
  Color = clYellow
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object panelBase: TPanel
    Left = 8
    Top = 8
    Width = 640
    Height = 480
    BevelOuter = bvNone
    TabOrder = 0
    object Fundo: TImage
      Left = 0
      Top = 0
      Width = 640
      Height = 480
      Align = alClient
      Picture.Data = {<image000.bmp>}
    end
    object btnSair: TImage
      Left = 512
      Top = 429
      Width = 79
      Height = 22
      Cursor = 1
      AutoSize = True
      Picture.Data = {<image001.bmp>}
      OnMouseDown = btnSairMouseDown
    end
    object btnImprimir: TImage
      Left = 246
      Top = 429
      Width = 79
      Height = 22
      Cursor = 1
      AutoSize = True
      Picture.Data = {<image002.bmp>}
      OnClick = btnImprimirClick
    end
    object btnCreditos: TImage
      Left = 423
      Top = 429
      Width = 79
      Height = 22
      Cursor = 1
      AutoSize = True
      Picture.Data = {<image003.bmp>}
      OnClick = btnCreditosClick
    end
    object Work: TImage
      Left = 245
      Top = 65
      Width = 350
      Height = 350
    end
    object Label3: TLabel
      Left = 32
      Top = 128
      Width = 131
      Height = 14
      Caption = 'O que voc� deseja alterar?'
      Transparent = True
    end
    object Loadimg: TImage
      Left = 16
      Top = 80
      Width = 33
      Height = 33
      Visible = False
    end
    object btnExportar: TImage
      Left = 334
      Top = 429
      Width = 79
      Height = 22
      Cursor = 1
      AutoSize = True
      Picture.Data = {<image004.bmp>}
      OnClick = btnExportarClick
    end
    object comboItems: TComboBox
      Left = 32
      Top = 144
      Width = 177
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 2
      OnChange = comboItemsChange
    end
    object Img: TFileListBox
      Left = 64
      Top = 8
      Width = 42
      Height = 33
      ItemHeight = 13
      Mask = 'i*.bmp'
      TabOrder = 3
      Visible = False
    end
    object Mask: TFileListBox
      Left = 112
      Top = 8
      Width = 41
      Height = 33
      ItemHeight = 13
      Mask = 'm*.bmp'
      TabOrder = 4
      Visible = False
    end
    object Prev: TFileListBox
      Left = 16
      Top = 8
      Width = 41
      Height = 33
      ItemHeight = 13
      Mask = 'p*.bmp'
      TabOrder = 5
      Visible = False
    end
    object panelItems: TPanel
      Left = 0
      Top = 177
      Width = 234
      Height = 297
      BevelOuter = bvNone
      TabOrder = 0
      Visible = False
      object FundoItems: TImage
        Left = 0
        Top = 0
        Width = 234
        Height = 297
        Align = alClient
        Picture.Data = {<image005.bmp>}
      end
      object btnAjustes: TImage
        Left = 15
        Top = 252
        Width = 102
        Height = 22
        Cursor = 1
        AutoSize = True
        Picture.Data = {<image006.bmp>}
        OnMouseDown = btnAjustesMouseDown
      end
      object btnRosto: TImage
        Left = 127
        Top = 252
        Width = 102
        Height = 22
        Cursor = 1
        AutoSize = True
        Picture.Data = {<image007.bmp>}
        Visible = False
        OnClick = btnRostoClick
      end
      object Image1: TImage
        Left = 16
        Top = 8
        Width = 60
        Height = 60
        Cursor = 1
        OnClick = ImagePreviewClick
      end
      object Image2: TImage
        Tag = 1
        Left = 88
        Top = 8
        Width = 60
        Height = 60
        Cursor = 1
        OnClick = ImagePreviewClick
      end
      object Image3: TImage
        Tag = 2
        Left = 160
        Top = 8
        Width = 60
        Height = 60
        Cursor = 1
        OnClick = ImagePreviewClick
      end
      object Image4: TImage
        Tag = 3
        Left = 16
        Top = 80
        Width = 60
        Height = 60
        Cursor = 1
        OnClick = ImagePreviewClick
      end
      object Image5: TImage
        Tag = 4
        Left = 88
        Top = 80
        Width = 60
        Height = 60
        Cursor = 1
        OnClick = ImagePreviewClick
      end
      object Image6: TImage
        Tag = 5
        Left = 160
        Top = 80
        Width = 60
        Height = 60
        Cursor = 1
        OnClick = ImagePreviewClick
      end
      object Image7: TImage
        Tag = 6
        Left = 16
        Top = 152
        Width = 60
        Height = 60
        Cursor = 1
        OnClick = ImagePreviewClick
      end
      object Image8: TImage
        Tag = 7
        Left = 88
        Top = 152
        Width = 60
        Height = 60
        Cursor = 1
        OnClick = ImagePreviewClick
      end
      object Image9: TImage
        Tag = 8
        Left = 160
        Top = 152
        Width = 60
        Height = 60
        Cursor = 1
        OnClick = ImagePreviewClick
      end
      object btnSetaE: TImage
        Left = 15
        Top = 220
        Width = 18
        Height = 18
        Cursor = 1
        Hint = 'Imagens anteriores'
        AutoSize = True
        ParentShowHint = False
        Picture.Data = {<image008.bmp>}
        ShowHint = True
        Visible = False
        OnMouseDown = btnSetaEMouseDown
      end
      object btnSetaD: TImage
        Left = 204
        Top = 220
        Width = 18
        Height = 18
        Cursor = 1
        Hint = 'Pr�ximas imagens'
        AutoSize = True
        ParentShowHint = False
        Picture.Data = {<image009.bmp>}
        ShowHint = True
        Visible = False
        OnMouseDown = btnSetaDMouseDown
      end
      object btnCor: TImage
        Left = 66
        Top = 220
        Width = 102
        Height = 22
        Cursor = 1
        AutoSize = True
        Picture.Data = {<image010.bmp>}
        Visible = False
        OnClick = btnCorClick
      end
      object btnRemover: TImage
        Left = 126
        Top = 252
        Width = 102
        Height = 22
        Cursor = 1
        AutoSize = True
        Picture.Data = {<image011.bmp>}
        Visible = False
        OnClick = btnRemoverClick
      end
    end
    object panelCreditos: TPanel
      Left = 245
      Top = 65
      Width = 350
      Height = 350
      BevelOuter = bvNone
      Color = clWhite
      TabOrder = 6
      Visible = False
      object btnOk2: TImage
        Left = 126
        Top = 321
        Width = 102
        Height = 22
        Cursor = 1
        AutoSize = True
        Picture.Data = {<image012.bmp>}
        OnClick = btnOk2Click
      end
      object imageCreditos: TImage
        Left = 29
        Top = 0
        Width = 289
        Height = 109
        AutoSize = True
        Picture.Data = {<image013.bmp>}
      end
      object Label4: TLabel
        Left = 47
        Top = 107
        Width = 86
        Height = 16
        Caption = 'Programa��o'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label5: TLabel
        Left = 48
        Top = 121
        Width = 82
        Height = 14
        Caption = 'Leandro Cal�ada'
      end
      object Label6: TLabel
        Left = 231
        Top = 160
        Width = 68
        Height = 16
        Caption = 'Ilustra��es'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label7: TLabel
        Left = 232
        Top = 174
        Width = 76
        Height = 14
        Caption = 'Miriam Duenhas'
      end
      object Label8: TLabel
        Left = 231
        Top = 107
        Width = 61
        Height = 16
        Caption = 'Produ��o'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 232
        Top = 121
        Width = 62
        Height = 14
        Caption = 'Luiz Siqueira'
      end
      object Label12: TLabel
        Left = 136
        Top = 198
        Width = 81
        Height = 16
        Caption = 'Colabora��o'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label13: TLabel
        Left = 8
        Top = 217
        Width = 337
        Height = 14
        Alignment = taCenter
        AutoSize = False
        Caption = 'Marij� Perucas e Pr�teses Capilares'
      end
      object Label14: TLabel
        Left = 72
        Top = 283
        Width = 212
        Height = 28
        Alignment = taCenter
        AutoSize = False
        Caption = 'Os rostos de exemplo foram cedidos pela equipe Editora Europa.'
        WordWrap = True
      end
      object Label15: TLabel
        Left = 232
        Top = 134
        Width = 65
        Height = 14
        Caption = 'F�bio Garrido'
      end
      object Label10: TLabel
        Left = 48
        Top = 174
        Width = 76
        Height = 14
        Caption = 'Adriano Severo'
      end
      object Label11: TLabel
        Left = 48
        Top = 161
        Width = 91
        Height = 14
        Caption = 'Alexandre Mazega'
      end
      object Label16: TLabel
        Left = 48
        Top = 147
        Width = 54
        Height = 16
        Caption = 'Imagens'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label17: TLabel
        Left = 8
        Top = 229
        Width = 337
        Height = 14
        Alignment = taCenter
        AutoSize = False
        Caption = 'Av. Paulista, 648 - Loja 15 - Fone: (0xx11) 289-4365'
      end
      object Label18: TLabel
        Left = 8
        Top = 241
        Width = 337
        Height = 14
        Cursor = 1
        Alignment = taCenter
        AutoSize = False
        Caption = 'http://www.mariju.com.br/'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsUnderline]
        ParentFont = False
        OnClick = Label18Click
      end
      object Label19: TLabel
        Left = 8
        Top = 258
        Width = 337
        Height = 14
        Alignment = taCenter
        AutoSize = False
        Caption = 'Mitani �tica - Fone: (0xx11) 814-6066'
      end
    end
    object panelAjustes: TPanel
      Left = 0
      Top = 177
      Width = 234
      Height = 297
      BevelOuter = bvNone
      Caption = 'panelAjustes'
      TabOrder = 1
      Visible = False
      object FundoAjustes: TImage
        Left = 0
        Top = 0
        Width = 234
        Height = 297
        Align = alClient
        Picture.Data = {<image014.bmp>}
      end
      object btnOK: TImage
        Left = 70
        Top = 263
        Width = 102
        Height = 22
        Cursor = 1
        AutoSize = True
        Picture.Data = {<image015.bmp>}
        OnMouseDown = btnOKMouseDown
      end
      object Label1: TLabel
        Left = 86
        Top = -3
        Width = 69
        Height = 22
        Caption = 'Ajustes'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label2: TLabel
        Left = 8
        Top = 210
        Width = 225
        Height = 47
        Alignment = taCenter
        AutoSize = False
        Caption =
          'Utilize os bot�es acima para ajustar a posi��o e o tamanho de se' +
          'u rosto, ou de um dos acess�rios, a seu gosto.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object btnMais: TImage
        Left = 92
        Top = 73
        Width = 26
        Height = 37
        Cursor = 1
        Hint = 'Aumenta'
        ParentShowHint = False
        ShowHint = True
        OnMouseDown = btnMaisMouseDown
      end
      object btnMenos: TImage
        Left = 120
        Top = 73
        Width = 26
        Height = 37
        Cursor = 1
        Hint = 'Diminui'
        ParentShowHint = False
        ShowHint = True
        OnMouseDown = btnMenosMouseDown
      end
      object btnDireita: TImage
        Left = 151
        Top = 73
        Width = 43
        Height = 37
        Cursor = 1
        Hint = 'Move para a direita'
        ParentShowHint = False
        ShowHint = True
        OnMouseDown = btnDireitaMouseDown
      end
      object btnEsquerda: TImage
        Left = 45
        Top = 73
        Width = 43
        Height = 37
        Cursor = 1
        Hint = 'Move para a esquerda'
        ParentShowHint = False
        ShowHint = True
        OnMouseDown = btnEsquerdaMouseDown
      end
      object btnAcima: TImage
        Left = 101
        Top = 23
        Width = 37
        Height = 45
        Cursor = 1
        Hint = 'Move para cima'
        ParentShowHint = False
        ShowHint = True
        OnMouseDown = btnAcimaMouseDown
      end
      object btnAbaixo: TImage
        Left = 101
        Top = 119
        Width = 37
        Height = 45
        Cursor = 1
        Hint = 'Move para baixo'
        ParentShowHint = False
        ShowHint = True
        OnMouseDown = btnAbaixoMouseDown
      end
      object btnMenosMenos: TImage
        Left = 136
        Top = 140
        Width = 41
        Height = 57
        Cursor = 1
        Hint = 'Diminui'
        ParentShowHint = False
        ShowHint = True
        OnMouseDown = btnMenosMenosMouseDown
      end
      object btnMaisMais: TImage
        Left = 65
        Top = 140
        Width = 38
        Height = 55
        Cursor = 1
        Hint = 'Aumenta'
        ParentShowHint = False
        ShowHint = True
        OnMouseDown = btnMaisMaisMouseDown
      end
    end
  end
  object ColorDialog: TColorDialog
    Ctl3D = True
    Color = clGray
    Options = [cdFullOpen, cdAnyColor]
    Left = 192
    Top = 48
  end
  object Exporta: TSaveDialog
    DefaultExt = 'jpg'
    Filter = 'Imagem JPEG|*.jpg|Bitmap|*.bmp'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Title = 'Exportar Imagem'
    Left = 224
    Top = 48
  end
  object PrintDialog: TPrintDialog
    Left = 208
    Top = 112
  end
  object OpenRosto: TOpenDialog
    DefaultExt = 'bmp'
    Filter =
      'Imagens (*.jpg;*.jpeg;*.bmp)|*.jpg;*.jpeg;*.bmp;|JPEG Image File' +
      ' (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|Bitmaps (*.bmp)|*' +
      '.bmp'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Title = 'Outro rosto'
    Left = 112
    Top = 64
  end
end