PC World 1999 June/PCWorld_1999-06_cd.bin/software/Vyzkuste/Painter/Painter17.exe/0/RCDATA/TSURF3DF/TSURF3DF.txt

Text File | 1999-04-23 | 6KB | 296 lines

object Surf3DF: TSurf3DF
  Left = 53
  Top = 45
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Surf 3D'
  ClientHeight = 470
  ClientWidth = 726
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object LabelFigureSelect: TLabel
    Left = 10
    Top = 7
    Width = 142
    Height = 16
    Caption = 'Select Figure to Display'
  end
  object Label2: TLabel
    Left = 8
    Top = 336
    Width = 34
    Height = 16
    Caption = 'f(x,y)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 8
    Top = 368
    Width = 23
    Height = 16
    Caption = 'f(y)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object goMakePoints: TSpeedButton
    Left = 16
    Top = 400
    Width = 65
    Height = 22
    Caption = 'Show'
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -14
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = goMakePointsClick
  end
  object goCopy: TSpeedButton
    Left = 192
    Top = 400
    Width = 57
    Height = 22
    Caption = 'Copy'
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -14
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = False
    OnClick = goCopyClick
  end
  object GroupBoxEyePosition: TGroupBox
    Left = 10
    Top = 67
    Width = 237
    Height = 142
    Caption = 'Eye Position'
    TabOrder = 0
    object LabelAzimuth: TLabel
      Left = 18
      Top = 30
      Width = 105
      Height = 16
      Caption = 'Azimuth[degrees]'
    end
    object LabelElevation: TLabel
      Left = 18
      Top = 69
      Width = 115
      Height = 16
      Caption = 'Elevation[degrees]'
    end
    object LabelDistance: TLabel
      Left = 18
      Top = 108
      Width = 53
      Height = 16
      Caption = 'Distance'
    end
    object SpinEditAzimuth: TSpinEdit
      Left = 144
      Top = 25
      Width = 68
      Height = 26
      Hint = '0 .. 360'
      Increment = 5
      MaxValue = 360
      MinValue = 0
      TabOrder = 0
      Value = 30
      OnChange = SpinEditBoxChange
    end
    object SpinEditElevation: TSpinEdit
      Left = 144
      Top = 64
      Width = 68
      Height = 26
      Increment = 2
      MaxValue = 90
      MinValue = -90
      TabOrder = 1
      Value = 45
      OnChange = SpinEditBoxChange
    end
    object SpinEditDistance: TSpinEdit
      Left = 145
      Top = 103
      Width = 68
      Height = 26
      MaxValue = 1000
      MinValue = 2
      TabOrder = 2
      Value = 11
      OnChange = SpinEditBoxChange
    end
  end
  object GroupBoxScreen: TGroupBox
    Left = 10
    Top = 218
    Width = 237
    Height = 111
    Caption = 'Screen'
    TabOrder = 1
    object Label1: TLabel
      Left = 18
      Top = 30
      Width = 85
      Height = 16
      Caption = 'Width / Height'
    end
    object Label3: TLabel
      Left = 18
      Top = 69
      Width = 68
      Height = 16
      Caption = 'To Camera'
    end
    object SpinEditScreenWidthHeight: TSpinEdit
      Left = 145
      Top = 25
      Width = 68
      Height = 26
      MaxValue = 100
      MinValue = 1
      TabOrder = 0
      Value = 10
      OnChange = SpinEditBoxChange
    end
    object SpinEditScreenToCamera: TSpinEdit
      Left = 145
      Top = 69
      Width = 68
      Height = 26
      Increment = 2
      MaxValue = 100
      MinValue = 1
      TabOrder = 1
      Value = 30
      OnChange = SpinEditBoxChange
    end
  end
  object ComboBoxFigure: TComboBox
    Left = 10
    Top = 30
    Width = 237
    Height = 24
    ItemHeight = 16
    Items.Strings = (
      'Cube'
      'Sphere'
      'Sphere In Cube'
      'Surface'
      'Football Field')
    TabOrder = 2
    Text = 'ComboBoxFigure'
    OnChange = ComboBoxFigureChange
  end
  object Panel3DLab: TPanel
    Left = 284
    Top = 30
    Width = 418
    Height = 418
    TabOrder = 3
    object Image: TImage
      Left = 12
      Top = 12
      Width = 394
      Height = 394
    end
  end
  object SurFx: TEdit
    Left = 40
    Top = 336
    Width = 209
    Height = 24
    TabOrder = 4
    Text = 'sqr(x)'
  end
  object SurFy: TEdit
    Left = 40
    Top = 368
    Width = 209
    Height = 24
    TabOrder = 5
    Text = 'sqr(y)'
  end
  object presets: TComboBox
    Left = 16
    Top = 432
    Width = 233
    Height = 22
    Style = csOwnerDrawFixed
    Color = 12639424
    ItemHeight = 16
    PopupMenu = surfpop
    TabOrder = 6
    OnClick = presetsClick
    OnDrawItem = presetsDrawItem
  end
  object surfcolor: TColorGrid
    Left = 256
    Top = 32
    Width = 17
    Height = 304
    GridOrdering = go1x16
    ForegroundIndex = 11
    TabOrder = 7
  end
  object usecolor: TCheckBox
    Left = 96
    Top = 400
    Width = 81
    Height = 17
    Caption = 'use color'
    TabOrder = 8
  end
  object ParserX: TParser
    OnParserError = ParserXParserError
    Left = 420
    Top = 238
  end
  object ParserY: TParser
    OnParserError = ParserYParserError
    Left = 420
    Top = 278
  end
  object surfpop: TPopupMenu
    Left = 48
    Top = 416
    object Add1: TMenuItem
      Caption = '&Add'
      OnClick = Add1Click
    end
    object Delete1: TMenuItem
      Caption = '&Delete'
      OnClick = Delete1Click
    end
    object Update1: TMenuItem
      Caption = '&Update'
      OnClick = Update1Click
    end
  end
end