home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 July / Chip_2000-07_cd.bin / sharewar / prodelph / PROTMAI2.DFM / PROTMAI2.txt
Text File  |  2000-05-01  |  11KB  |  553 lines
  1. object Form1: TForm1
  2.   Left = 231
  3.   Top = 203
  4.   Width = 672
  5.   Height = 458
  6.   Caption = 'Test your Profiler (V2.4)'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Position = poDefaultPosOnly
  12.   PrintScale = poNone
  13.   Scaled = False
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Bevel1: TBevel
  17.     Left = 8
  18.     Top = 8
  19.     Width = 649
  20.     Height = 233
  21.   end
  22.   object Bevel4: TBevel
  23.     Left = 16
  24.     Top = 104
  25.     Width = 633
  26.     Height = 1
  27.     Shape = bsFrame
  28.   end
  29.   object Label1: TLabel
  30.     Left = 24
  31.     Top = 48
  32.     Width = 197
  33.     Height = 16
  34.     AutoSize = False
  35.     Caption = 'Procedure with no instructions:'
  36.     Font.Color = clMaroon
  37.     Font.Height = -13
  38.     Font.Name = 'Arial'
  39.     Font.Style = [fsBold]
  40.     ParentFont = False
  41.   end
  42.   object Label4: TLabel
  43.     Left = 24
  44.     Top = 80
  45.     Width = 169
  46.     Height = 16
  47.     AutoSize = False
  48.     Caption = 'Loop executed 1000 times:'
  49.     Font.Color = clMaroon
  50.     Font.Height = -13
  51.     Font.Name = 'Arial'
  52.     Font.Style = [fsBold]
  53.     ParentFont = False
  54.   end
  55.   object Label5: TLabel
  56.     Left = 24
  57.     Top = 112
  58.     Width = 176
  59.     Height = 16
  60.     AutoSize = False
  61.     Caption = 'Loop executed 10000 times:'
  62.     Font.Color = clMaroon
  63.     Font.Height = -13
  64.     Font.Name = 'Arial'
  65.     Font.Style = [fsBold]
  66.     ParentFont = False
  67.   end
  68.   object Label6: TLabel
  69.     Left = 328
  70.     Top = 16
  71.     Width = 70
  72.     Height = 16
  73.     AutoSize = False
  74.     Caption = 'CPU-cycles'
  75.     Font.Color = clNavy
  76.     Font.Height = -13
  77.     Font.Name = 'Arial'
  78.     Font.Style = [fsBold]
  79.     ParentFont = False
  80.   end
  81.   object Label7: TLabel
  82.     Left = 416
  83.     Top = 16
  84.     Width = 62
  85.     Height = 16
  86.     AutoSize = False
  87.     Caption = '∩┐╜ seconds'
  88.     Font.Color = clNavy
  89.     Font.Height = -13
  90.     Font.Name = 'Arial'
  91.     Font.Style = [fsBold]
  92.     ParentFont = False
  93.   end
  94.   object f0: TLabel
  95.     Left = 386
  96.     Top = 48
  97.     Width = 7
  98.     Height = 16
  99.     Alignment = taRightJustify
  100.     Caption = '0'
  101.     Font.Color = clGreen
  102.     Font.Height = -13
  103.     Font.Name = 'Arial'
  104.     Font.Style = [fsBold]
  105.     ParentFont = False
  106.   end
  107.   object f0d: TLabel
  108.     Left = 456
  109.     Top = 48
  110.     Width = 25
  111.     Height = 16
  112.     Alignment = taRightJustify
  113.     Caption = '0.00'
  114.     Font.Color = clGreen
  115.     Font.Height = -13
  116.     Font.Name = 'Arial'
  117.     Font.Style = [fsBold]
  118.     ParentFont = False
  119.   end
  120.   object f1000: TLabel
  121.     Left = 386
  122.     Top = 80
  123.     Width = 7
  124.     Height = 16
  125.     Alignment = taRightJustify
  126.     Caption = '0'
  127.     Font.Color = clGreen
  128.     Font.Height = -13
  129.     Font.Name = 'Arial'
  130.     Font.Style = [fsBold]
  131.     ParentFont = False
  132.   end
  133.   object f10000: TLabel
  134.     Left = 386
  135.     Top = 112
  136.     Width = 7
  137.     Height = 16
  138.     Alignment = taRightJustify
  139.     Caption = '0'
  140.     Font.Color = clGreen
  141.     Font.Height = -13
  142.     Font.Name = 'Arial'
  143.     Font.Style = [fsBold]
  144.     ParentFont = False
  145.   end
  146.   object f1000d: TLabel
  147.     Left = 456
  148.     Top = 80
  149.     Width = 25
  150.     Height = 16
  151.     Alignment = taRightJustify
  152.     Caption = '0.00'
  153.     Font.Color = clGreen
  154.     Font.Height = -13
  155.     Font.Name = 'Arial'
  156.     Font.Style = [fsBold]
  157.     ParentFont = False
  158.   end
  159.   object f10000d: TLabel
  160.     Left = 456
  161.     Top = 112
  162.     Width = 25
  163.     Height = 16
  164.     Alignment = taRightJustify
  165.     Caption = '0.00'
  166.     Font.Color = clGreen
  167.     Font.Height = -13
  168.     Font.Name = 'Arial'
  169.     Font.Style = [fsBold]
  170.     ParentFont = False
  171.   end
  172.   object Label20: TLabel
  173.     Left = 24
  174.     Top = 176
  175.     Width = 290
  176.     Height = 16
  177.     AutoSize = False
  178.     Caption = 'Checking idle time ability (*)'
  179.     Font.Color = clMaroon
  180.     Font.Height = -13
  181.     Font.Name = 'Arial'
  182.     Font.Style = [fsBold]
  183.     ParentFont = False
  184.   end
  185.   object prom: TLabel
  186.     Left = 386
  187.     Top = 176
  188.     Width = 7
  189.     Height = 16
  190.     Alignment = taRightJustify
  191.     Caption = '0'
  192.     Font.Color = clGreen
  193.     Font.Height = -13
  194.     Font.Name = 'Arial'
  195.     Font.Style = [fsBold]
  196.     ParentFont = False
  197.   end
  198.   object promd: TLabel
  199.     Left = 456
  200.     Top = 176
  201.     Width = 25
  202.     Height = 16
  203.     Alignment = taRightJustify
  204.     Caption = '0.00'
  205.     Font.Color = clGreen
  206.     Font.Height = -13
  207.     Font.Name = 'Arial'
  208.     Font.Style = [fsBold]
  209.     ParentFont = False
  210.   end
  211.   object Label26: TLabel
  212.     Left = 496
  213.     Top = 16
  214.     Width = 122
  215.     Height = 16
  216.     AutoSize = False
  217.     Caption = 'Name of procedure'
  218.     Font.Color = clNavy
  219.     Font.Height = -13
  220.     Font.Name = 'Arial'
  221.     Font.Style = [fsBold]
  222.     ParentFont = False
  223.   end
  224.   object Bevel2: TBevel
  225.     Left = 16
  226.     Top = 72
  227.     Width = 633
  228.     Height = 1
  229.     Shape = bsFrame
  230.   end
  231.   object Bevel5: TBevel
  232.     Left = 16
  233.     Top = 136
  234.     Width = 633
  235.     Height = 1
  236.     Shape = bsFrame
  237.   end
  238.   object Bevel6: TBevel
  239.     Left = 16
  240.     Top = 168
  241.     Width = 633
  242.     Height = 1
  243.     Shape = bsFrame
  244.   end
  245.   object Bevel8: TBevel
  246.     Left = 16
  247.     Top = 40
  248.     Width = 633
  249.     Height = 1
  250.     Shape = bsFrame
  251.   end
  252.   object Bevel9: TBevel
  253.     Left = 320
  254.     Top = 15
  255.     Width = 1
  256.     Height = 218
  257.     Shape = bsFrame
  258.   end
  259.   object Bevel10: TBevel
  260.     Left = 408
  261.     Top = 15
  262.     Width = 1
  263.     Height = 218
  264.     Shape = bsFrame
  265.   end
  266.   object Bevel11: TBevel
  267.     Left = 488
  268.     Top = 15
  269.     Width = 1
  270.     Height = 218
  271.     Shape = bsFrame
  272.   end
  273.   object Label8: TLabel
  274.     Left = 24
  275.     Top = 144
  276.     Width = 289
  277.     Height = 16
  278.     AutoSize = False
  279.     Caption = 'Nested functions  (time incl. child procedures)'
  280.     Font.Color = clMaroon
  281.     Font.Height = -13
  282.     Font.Name = 'Arial'
  283.     Font.Style = [fsBold]
  284.     ParentFont = False
  285.   end
  286.   object tmlf: TLabel
  287.     Left = 386
  288.     Top = 144
  289.     Width = 7
  290.     Height = 16
  291.     Alignment = taRightJustify
  292.     Caption = '0'
  293.     Font.Color = clGreen
  294.     Font.Height = -13
  295.     Font.Name = 'Arial'
  296.     Font.Style = [fsBold]
  297.     ParentFont = False
  298.   end
  299.   object tmlfd: TLabel
  300.     Left = 456
  301.     Top = 144
  302.     Width = 25
  303.     Height = 16
  304.     Alignment = taRightJustify
  305.     Caption = '0.00'
  306.     Font.Color = clGreen
  307.     Font.Height = -13
  308.     Font.Name = 'Arial'
  309.     Font.Style = [fsBold]
  310.     ParentFont = False
  311.   end
  312.   object Label9: TLabel
  313.     Left = 496
  314.     Top = 48
  315.     Width = 41
  316.     Height = 13
  317.     AutoSize = False
  318.     Caption = 'Empty'
  319.     Font.Color = clBlack
  320.     Font.Height = -12
  321.     Font.Name = 'Arial'
  322.     Font.Style = []
  323.     ParentFont = False
  324.   end
  325.   object Label12: TLabel
  326.     Left = 496
  327.     Top = 80
  328.     Width = 105
  329.     Height = 15
  330.     AutoSize = False
  331.     Caption = 'FunctionWith1000'
  332.     Font.Color = clBlack
  333.     Font.Height = -12
  334.     Font.Name = 'Arial'
  335.     Font.Style = []
  336.     ParentFont = False
  337.   end
  338.   object Label13: TLabel
  339.     Left = 496
  340.     Top = 112
  341.     Width = 113
  342.     Height = 15
  343.     AutoSize = False
  344.     Caption = 'FunctionWith1000'
  345.     Font.Color = clBlack
  346.     Font.Height = -12
  347.     Font.Name = 'Arial'
  348.     Font.Style = []
  349.     ParentFont = False
  350.   end
  351.   object Label15: TLabel
  352.     Left = 496
  353.     Top = 176
  354.     Width = 89
  355.     Height = 15
  356.     AutoSize = False
  357.     Caption = 'MBox'
  358.     Font.Color = clBlack
  359.     Font.Height = -12
  360.     Font.Name = 'Arial'
  361.     Font.Style = []
  362.     ParentFont = False
  363.   end
  364.   object Label16: TLabel
  365.     Left = 496
  366.     Top = 144
  367.     Width = 145
  368.     Height = 15
  369.     AutoSize = False
  370.     Caption = 'Top-, Mid-, DeepFunction'
  371.     Font.Color = clBlack
  372.     Font.Height = -12
  373.     Font.Name = 'Arial'
  374.     Font.Style = []
  375.     ParentFont = False
  376.   end
  377.   object Label17: TLabel
  378.     Left = 16
  379.     Top = 248
  380.     Width = 287
  381.     Height = 16
  382.     AutoSize = False
  383.     Caption = 'Times are average times for 1 function call !!!'
  384.     Font.Color = clNavy
  385.     Font.Height = -13
  386.     Font.Name = 'Arial'
  387.     Font.Style = [fsBold]
  388.     ParentFont = False
  389.   end
  390.   object ResLabel: TLabel
  391.     Left = 216
  392.     Top = 104
  393.     Width = 417
  394.     Height = 36
  395.     AutoSize = False
  396.     Caption = 'For results ask your profiler'
  397.     Font.Color = clBlack
  398.     Font.Height = -32
  399.     Font.Name = 'Arial'
  400.     Font.Style = []
  401.     ParentFont = False
  402.     Visible = False
  403.   end
  404.   object Label25: TLabel
  405.     Left = 16
  406.     Top = 272
  407.     Width = 633
  408.     Height = 16
  409.     AutoSize = False
  410.     Caption = 
  411.       '(*) Time measured is not very exact because no loop is used for ' +
  412.       'measuring, nobody likes to click a'
  413.     Font.Color = clBlack
  414.     Font.Height = -13
  415.     Font.Name = 'Arial'
  416.     Font.Style = [fsBold]
  417.     ParentFont = False
  418.   end
  419.   object Label2: TLabel
  420.     Left = 16
  421.     Top = 296
  422.     Width = 633
  423.     Height = 16
  424.     AutoSize = False
  425.     Caption = 
  426.       'a button 200 times. Only the time of the PostMessage is measured' +
  427.       ', the time for the MessageBox'
  428.     Font.Color = clBlack
  429.     Font.Height = -13
  430.     Font.Name = 'Arial'
  431.     Font.Style = [fsBold]
  432.     ParentFont = False
  433.   end
  434.   object Label18: TLabel
  435.     Left = 16
  436.     Top = 320
  437.     Width = 633
  438.     Height = 16
  439.     AutoSize = False
  440.     Caption = 
  441.       'call is not included because the reaction time varies. While wai' +
  442.       'ting for the MessageBox, the pro-'
  443.     Font.Color = clBlack
  444.     Font.Height = -13
  445.     Font.Name = 'Arial'
  446.     Font.Style = [fsBold]
  447.     ParentFont = False
  448.   end
  449.   object Label19: TLabel
  450.     Left = 16
  451.     Top = 344
  452.     Width = 633
  453.     Height = 16
  454.     AutoSize = False
  455.     Caption = 
  456.       'cedure UserMessage ( simple loop ) is executed. A good profiler ' +
  457.       'should neither measure the'
  458.     Font.Color = clBlack
  459.     Font.Height = -13
  460.     Font.Name = 'Arial'
  461.     Font.Style = [fsBold]
  462.     ParentFont = False
  463.   end
  464.   object Label21: TLabel
  465.     Left = 16
  466.     Top = 368
  467.     Width = 633
  468.     Height = 16
  469.     AutoSize = False
  470.     Caption = 
  471.       'idle time while Windows processes MessageBox nor include the tim' +
  472.       'e of UserMessage as child time.'
  473.     Font.Color = clBlack
  474.     Font.Height = -13
  475.     Font.Name = 'Arial'
  476.     Font.Style = [fsBold]
  477.     ParentFont = False
  478.   end
  479.   object Bevel3: TBevel
  480.     Left = 15
  481.     Top = 200
  482.     Width = 633
  483.     Height = 1
  484.     Shape = bsFrame
  485.   end
  486.   object Label3: TLabel
  487.     Left = 24
  488.     Top = 208
  489.     Width = 290
  490.     Height = 16
  491.     AutoSize = False
  492.     Caption = 'Processing while waiting for MessageBox'
  493.     Font.Color = clMaroon
  494.     Font.Height = -13
  495.     Font.Name = 'Arial'
  496.     Font.Style = [fsBold]
  497.     ParentFont = False
  498.   end
  499.   object prouse: TLabel
  500.     Left = 386
  501.     Top = 208
  502.     Width = 7
  503.     Height = 16
  504.     Alignment = taRightJustify
  505.     Caption = '0'
  506.     Font.Color = clGreen
  507.     Font.Height = -13
  508.     Font.Name = 'Arial'
  509.     Font.Style = [fsBold]
  510.     ParentFont = False
  511.   end
  512.   object proused: TLabel
  513.     Left = 456
  514.     Top = 208
  515.     Width = 25
  516.     Height = 16
  517.     Alignment = taRightJustify
  518.     Caption = '0.00'
  519.     Font.Color = clGreen
  520.     Font.Height = -13
  521.     Font.Name = 'Arial'
  522.     Font.Style = [fsBold]
  523.     ParentFont = False
  524.   end
  525.   object Label14: TLabel
  526.     Left = 496
  527.     Top = 208
  528.     Width = 89
  529.     Height = 15
  530.     AutoSize = False
  531.     Caption = 'UserMessage'
  532.     Font.Color = clBlack
  533.     Font.Height = -12
  534.     Font.Name = 'Arial'
  535.     Font.Style = []
  536.     ParentFont = False
  537.   end
  538.   object Button1: TButton
  539.     Left = 8
  540.     Top = 392
  541.     Width = 145
  542.     Height = 33
  543.     Caption = 'Start processing'
  544.     Font.Color = clWindowText
  545.     Font.Height = -16
  546.     Font.Name = 'Arial'
  547.     Font.Style = [fsBold]
  548.     ParentFont = False
  549.     TabOrder = 0
  550.     OnClick = StartItAll
  551.   end
  552. end
  553.