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