home *** CD-ROM | disk | FTP | other *** search
- object Vemapa: TVemapa
- Left = 196
- Top = 123
- Width = 589
- Height = 423
- BorderIcons = [biHelp]
- Caption = 'Mapa Individual'
- Color = clInfoBk
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsMDIChild
- Menu = MainMenu1
- Position = poScreenCenter
- Visible = True
- WindowState = wsMaximized
- OnClose = FormClose
- PixelsPerInch = 96
- TextHeight = 13
- object PaintBox1: TPaintBox
- Left = 192
- Top = -8
- Width = 361
- Height = 281
- Color = clInfoBk
- ParentColor = False
- OnPaint = PaintBox1Paint
- end
- object Panel1: TPanel
- Left = 0
- Top = 24
- Width = 98
- Height = 17
- Cursor = crDrag
- Caption = 'TESTE'
- Color = clRed
- Font.Color = clWhite
- Font.Height = -15
- Font.Name = 'VAG Rounded Th'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 3
- end
- object Panel2: TPanel
- Left = 0
- Top = 64
- Width = 98
- Height = 17
- Cursor = crDrag
- Caption = 'Panel2'
- Color = clRed
- Font.Color = clWhite
- Font.Height = -15
- Font.Name = 'VAG Rounded Th'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 4
- OnDblClick = Panel2DblClick
- end
- object Panel3: TPanel
- Left = 0
- Top = 104
- Width = 98
- Height = 17
- Cursor = crDrag
- Caption = 'Panel3'
- Color = clRed
- Font.Color = clWhite
- Font.Height = -15
- Font.Name = 'VAG Rounded Th'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 5
- OnDblClick = Panel3DblClick
- end
- object Panel4: TPanel
- Left = 0
- Top = 144
- Width = 98
- Height = 17
- Cursor = crDrag
- Caption = 'Panel4'
- Color = clRed
- Font.Color = clWhite
- Font.Height = -15
- Font.Name = 'VAG Rounded Th'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 6
- OnDblClick = Panel4DblClick
- end
- object Panel5: TPanel
- Left = 0
- Top = 0
- Width = 98
- Height = 25
- BevelInner = bvRaised
- BorderWidth = 1
- Caption = 'NASCEU EM :'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'VAG Rounded Th'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 7
- end
- object Panel6: TPanel
- Left = 0
- Top = 40
- Width = 98
- Height = 25
- BevelInner = bvRaised
- BorderWidth = 1
- Caption = 'PERSONALIDADE'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'VAG Rounded Th'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 8
- end
- object Panel7: TPanel
- Left = 0
- Top = 80
- Width = 98
- Height = 25
- BevelInner = bvRaised
- BorderWidth = 1
- Caption = 'CONTROLE'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'VAG Rounded Th'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 9
- end
- object Panel8: TPanel
- Left = 0
- Top = 120
- Width = 98
- Height = 25
- BevelInner = bvRaised
- BorderWidth = 1
- Caption = 'TEND�NCIA'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'VAG Rounded Th'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 10
- end
- object Edit1: TEdit
- Left = 106
- Top = 210
- Width = 42
- Height = 26
- Color = clRed
- Font.Color = clWhite
- Font.Height = -15
- Font.Name = 'VAG Rounded Th'
- Font.Style = [fsBold]
- HideSelection = False
- ParentFont = False
- ReadOnly = True
- TabOrder = 2
- Text = '100'
- OnChange = Edit1Change
- end
- object Panel11: TPanel
- Left = -5
- Top = 161
- Width = 103
- Height = 22
- BevelInner = bvRaised
- BorderWidth = 1
- Caption = 'ERA ATUAL'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'VAG Rounded Th'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 11
- Visible = False
- end
- object Panel12: TPanel
- Left = 0
- Top = 183
- Width = 97
- Height = 19
- Cursor = crDrag
- Caption = 'Panel12'
- Color = clRed
- Font.Color = clWhite
- Font.Height = -15
- Font.Name = 'VAG Rounded Th'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 12
- Visible = False
- OnDblClick = Panel12DblClick
- end
- object Panel9: TPanel
- Left = 0
- Top = 211
- Width = 105
- Height = 19
- BevelOuter = bvNone
- Caption = 'TR�NSITOS DO ANO'
- Color = clInfoBk
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'VAG Rounded Th'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 13
- end
- object UpDown1: TUpDown
- Left = 148
- Top = 210
- Width = 12
- Height = 26
- Associate = Edit1
- Min = 0
- Max = 3000
- Position = 100
- TabOrder = 14
- Thousands = False
- Wrap = False
- end
- object Button1: TButton
- Left = 173
- Top = 208
- Width = 26
- Height = 25
- Caption = 'OK'
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'VAG Rounded Th'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- OnClick = Button1Click
- end
- object StringGrid1: TStringGrid
- Left = 0
- Top = 274
- Width = 581
- Height = 103
- Cursor = crDrag
- TabStop = False
- Align = alBottom
- BorderStyle = bsNone
- Color = clRed
- ColCount = 8
- Ctl3D = True
- FixedColor = clRed
- FixedCols = 0
- RowCount = 4
- FixedRows = 0
- Font.Color = clMaroon
- Font.Height = -12
- Font.Name = 'VAG Rounded Th'
- Font.Style = [fsBold]
- GridLineWidth = 0
- Options = []
- ParentCtl3D = False
- ParentFont = False
- ParentShowHint = False
- ScrollBars = ssNone
- ShowHint = False
- TabOrder = 1
- OnDblClick = StringGrid1DblClick
- OnSelectCell = StringGrid1SelectCell
- end
- object MainMenu1: TMainMenu
- Left = 448
- Top = 64
- object Arquivo1: TMenuItem
- Caption = '&Arquivo'
- GroupIndex = 1
- ShortCut = 0
- object Abrir1: TMenuItem
- Caption = 'A&brir'
- ShortCut = 16449
- OnClick = Abrir1Click
- end
- object Novo1: TMenuItem
- Caption = '&Novo'
- ShortCut = 16462
- OnClick = Novo1Click
- end
- object Fechar1: TMenuItem
- Caption = '&Fechar'
- ShortCut = 16474
- OnClick = Fechar1Click
- end
- object Imprimir1: TMenuItem
- Caption = '&Imprimir'
- ShortCut = 16464
- OnClick = Imprimir1Click
- end
- object ImprimirSetup1: TMenuItem
- Caption = 'C&onfigurar Impress�o'
- ShortCut = 0
- OnClick = ImprimirSetup1Click
- end
- object Sair1: TMenuItem
- Caption = '&Sair'
- ShortCut = 16472
- OnClick = Sair1Click
- end
- end
- object Instrues1: TMenuItem
- Caption = '&Quadrado M�gico'
- GroupIndex = 1
- ShortCut = 0
- OnClick = Instrues1Click
- end
- end
- object PrinterSetupDialog1: TPrinterSetupDialog
- Left = 280
- Top = 16
- end
- object PrintDialog1: TPrintDialog
- Left = 352
- Top = 120
- end
- end
-