home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 July / PCWorld_1999-07_cd.bin / software / TemaCD / Massiva / MASSIVA.EXE / 0 / RCDATA / TFMSCREENS / TFMSCREENS.txt < prev   
Encoding:
Text File  |  1999-04-03  |  7.3 KB  |  321 lines
  1. object fmScreens: TfmScreens
  2.   Left = 199
  3.   Top = 105
  4.   HelpContext = 8
  5.   BorderStyle = bsDialog
  6.   Caption = 'Locators'
  7.   ClientHeight = 253
  8.   ClientWidth = 277
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   Position = poScreenCenter
  15.   OnClose = FormClose
  16.   OnCreate = FormCreate
  17.   OnShow = FormShow
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object Image1: TImage
  21.     Left = 70
  22.     Top = 0
  23.     Width = 207
  24.     Height = 253
  25.     Align = alClient
  26.     AutoSize = True
  27.     Picture.Data = {<image000.bmp>}
  28.     Stretch = True
  29.   end
  30.   object Label1: TLabel
  31.     Left = 88
  32.     Top = 56
  33.     Width = 27
  34.     Height = 14
  35.     Caption = 'Name'
  36.     Font.Charset = ANSI_CHARSET
  37.     Font.Color = clWindowText
  38.     Font.Height = -11
  39.     Font.Name = 'Arial'
  40.     Font.Style = []
  41.     ParentFont = False
  42.     Transparent = True
  43.   end
  44.   object Label2: TLabel
  45.     Left = 88
  46.     Top = 101
  47.     Width = 83
  48.     Height = 14
  49.     Caption = 'Locator positions'
  50.     Font.Charset = ANSI_CHARSET
  51.     Font.Color = clWindowText
  52.     Font.Height = -11
  53.     Font.Name = 'Arial'
  54.     Font.Style = []
  55.     ParentFont = False
  56.     Transparent = True
  57.   end
  58.   object RotateLabel1: TRotateLabel
  59.     Left = 173
  60.     Top = 224
  61.     Width = 90
  62.     Height = 24
  63.     Cursor = crHandPoint
  64.     Escapement = 0
  65.     TextStyle = tsRecessed
  66.     Caption = 'Locators'
  67.     Font.Charset = DEFAULT_CHARSET
  68.     Font.Color = clSilver
  69.     Font.Height = -21
  70.     Font.Name = 'Arial'
  71.     Font.Style = [fsBold]
  72.     ParentFont = False
  73.     OnClick = RotateLabel1Click
  74.   end
  75.   object Label3: TLabel
  76.     Left = 88
  77.     Top = 8
  78.     Width = 19
  79.     Height = 14
  80.     Caption = 'Left'
  81.     Font.Charset = ANSI_CHARSET
  82.     Font.Color = clWindowText
  83.     Font.Height = -11
  84.     Font.Name = 'Arial'
  85.     Font.Style = []
  86.     ParentFont = False
  87.     Transparent = True
  88.   end
  89.   object Label4: TLabel
  90.     Left = 88
  91.     Top = 24
  92.     Width = 24
  93.     Height = 14
  94.     Caption = 'Right'
  95.     Font.Charset = ANSI_CHARSET
  96.     Font.Color = clWindowText
  97.     Font.Height = -11
  98.     Font.Name = 'Arial'
  99.     Font.Style = []
  100.     ParentFont = False
  101.     Transparent = True
  102.   end
  103.   object labelLeft: TLabel
  104.     Left = 136
  105.     Top = 8
  106.     Width = 22
  107.     Height = 14
  108.     Caption = 'Left'
  109.     Font.Charset = ANSI_CHARSET
  110.     Font.Color = clWindowText
  111.     Font.Height = -11
  112.     Font.Name = 'Arial'
  113.     Font.Style = [fsBold]
  114.     ParentFont = False
  115.     Transparent = True
  116.   end
  117.   object labelRight: TLabel
  118.     Left = 136
  119.     Top = 24
  120.     Width = 22
  121.     Height = 14
  122.     Caption = 'Left'
  123.     Font.Charset = ANSI_CHARSET
  124.     Font.Color = clWindowText
  125.     Font.Height = -11
  126.     Font.Name = 'Arial'
  127.     Font.Style = [fsBold]
  128.     ParentFont = False
  129.     Transparent = True
  130.   end
  131.   object Bevel1: TBevel
  132.     Left = 88
  133.     Top = 46
  134.     Width = 177
  135.     Height = 3
  136.     Style = bsRaised
  137.   end
  138.   object btnUp: TSpeedButton
  139.     Left = 86
  140.     Top = 224
  141.     Width = 20
  142.     Height = 20
  143.     Hint = 'Move up'
  144.     Flat = True
  145.     Glyph.Data = {
  146.       E2000000424DE200000000000000760000002800000012000000090000000100
  147.       0400000000006C00000000000000000000001000000000000000000000000000
  148.       80000080000000808000800000008000800080800000C0C0C000808080000000
  149.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  150.       FFFFFF000000FFFFFFFFFFFFFFFFFF000000CCCCCCCCC888888888000000FCCC
  151.       CCCCFF8888888F000000FFCCCCCFFFF88888FF000000FFFCCCFFFFFF888FFF00
  152.       0000FFFFCFFFFFFFF8FFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
  153.       FFFFFF000000}
  154.     NumGlyphs = 2
  155.     ParentShowHint = False
  156.     ShowHint = True
  157.     OnClick = btnUpClick
  158.   end
  159.   object btnDown: TSpeedButton
  160.     Left = 109
  161.     Top = 224
  162.     Width = 20
  163.     Height = 20
  164.     Hint = 'Move down'
  165.     Flat = True
  166.     Glyph.Data = {
  167.       E2000000424DE200000000000000760000002800000012000000090000000100
  168.       0400000000006C00000000000000000000001000000000000000000000000000
  169.       80000080000000808000800000008000800080800000C0C0C000808080000000
  170.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  171.       FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFCFFFFFFFF8FFFF000000FFFC
  172.       CCFFFFFF888FFF000000FFCCCCCFFFF88888FF000000FCCCCCCCFF8888888F00
  173.       0000CCCCCCCCC888888888000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
  174.       FFFFFF000000}
  175.     NumGlyphs = 2
  176.     ParentShowHint = False
  177.     ShowHint = True
  178.     OnClick = btnDownClick
  179.   end
  180.   object editName: TEdit
  181.     Left = 88
  182.     Top = 72
  183.     Width = 177
  184.     Height = 21
  185.     Color = clBlack
  186.     Font.Charset = DEFAULT_CHARSET
  187.     Font.Color = clWhite
  188.     Font.Height = -11
  189.     Font.Name = 'MS Sans Serif'
  190.     Font.Style = []
  191.     ParentFont = False
  192.     TabOrder = 0
  193.     Text = 'Undefined'
  194.     OnChange = editNameChange
  195.   end
  196.   object screens: TListBox
  197.     Left = 88
  198.     Top = 120
  199.     Width = 177
  200.     Height = 97
  201.     Color = clBlack
  202.     Font.Charset = DEFAULT_CHARSET
  203.     Font.Color = clWhite
  204.     Font.Height = -11
  205.     Font.Name = 'MS Sans Serif'
  206.     Font.Style = []
  207.     ItemHeight = 13
  208.     ParentFont = False
  209.     TabOrder = 1
  210.     OnClick = screensClick
  211.     OnKeyPress = screensKeyPress
  212.     OnMouseDown = screensMouseDown
  213.     OnMouseMove = screensMouseMove
  214.     OnMouseUp = screensMouseUp
  215.   end
  216.   object Panel1: TPanel
  217.     Left = 0
  218.     Top = 0
  219.     Width = 70
  220.     Height = 253
  221.     Align = alLeft
  222.     BevelOuter = bvNone
  223.     Color = clBlack
  224.     Font.Charset = DEFAULT_CHARSET
  225.     Font.Color = clSilver
  226.     Font.Height = -11
  227.     Font.Name = 'MS Sans Serif'
  228.     Font.Style = []
  229.     ParentFont = False
  230.     TabOrder = 2
  231.     object labelText: TLabel
  232.       Left = 7
  233.       Top = 136
  234.       Width = 55
  235.       Height = 81
  236.       AutoSize = False
  237.       Caption = 'Input name to store with locator positions'
  238.       Font.Charset = ANSI_CHARSET
  239.       Font.Color = 8454143
  240.       Font.Height = -11
  241.       Font.Name = 'Arial'
  242.       Font.Style = []
  243.       ParentFont = False
  244.       Transparent = True
  245.       WordWrap = True
  246.     end
  247.     object btnClose: tnybutton
  248.       Left = 7
  249.       Top = 93
  250.       Width = 57
  251.       Height = 25
  252.       Cursor = crHandPoint
  253.       Cancel = True
  254.       Caption = '&Close'
  255.       Font.Charset = ANSI_CHARSET
  256.       Font.Color = clSilver
  257.       Font.Height = -11
  258.       Font.Name = 'Arial'
  259.       Font.Style = [fsBold]
  260.       ModalResult = 2
  261.       ParentFont = False
  262.       TabOrder = 0
  263.     end
  264.     object btnOK: tnybutton
  265.       Left = 7
  266.       Top = 9
  267.       Width = 57
  268.       Height = 25
  269.       Cursor = crHandPoint
  270.       Caption = '&Store'
  271.       Default = True
  272.       Font.Charset = ANSI_CHARSET
  273.       Font.Color = clSilver
  274.       Font.Height = -11
  275.       Font.Name = 'Arial'
  276.       Font.Style = [fsBold]
  277.       ModalResult = 1
  278.       ParentFont = False
  279.       TabOrder = 1
  280.     end
  281.     object tnybutton1: tnybutton
  282.       Left = 7
  283.       Top = 37
  284.       Width = 57
  285.       Height = 25
  286.       Cursor = crHandPoint
  287.       Caption = '&Add'
  288.       Font.Charset = ANSI_CHARSET
  289.       Font.Color = clSilver
  290.       Font.Height = -11
  291.       Font.Name = 'Arial'
  292.       Font.Style = [fsBold]
  293.       ParentFont = False
  294.       TabOrder = 2
  295.       OnClick = tnybutton1Click
  296.     end
  297.     object btnDelete: tnybutton
  298.       Left = 7
  299.       Top = 65
  300.       Width = 57
  301.       Height = 25
  302.       Cursor = crHandPoint
  303.       Caption = '&Delete'
  304.       Font.Charset = ANSI_CHARSET
  305.       Font.Color = clSilver
  306.       Font.Height = -11
  307.       Font.Name = 'Arial'
  308.       Font.Style = [fsBold]
  309.       ParentFont = False
  310.       TabOrder = 3
  311.       OnClick = btnDeleteClick
  312.     end
  313.   end
  314.   object Timer1: TTimer
  315.     Interval = 10
  316.     OnTimer = Timer1Timer
  317.     Left = 224
  318.     Top = 144
  319.   end
  320. end
  321.