home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 June / Chip_2004-06_cd1.bin / program / delphi / download / nastroje / d234567 / PRODELD.ZIP / PROTMAI2.DFM / PROTMAI2.txt
Encoding:
Text File  |  2002-07-23  |  13.9 KB  |  701 lines
  1. object Form1: TForm1
  2.   Left = 258
  3.   Top = 171
  4.   Width = 672
  5.   Height = 458
  6.   Caption = 'Test your Profiler (V2.6)'
  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 f1000s: TLabel
  17.     Left = 386
  18.     Top = 120
  19.     Width = 7
  20.     Height = 15
  21.     Alignment = taRightJustify
  22.     Caption = '0'
  23.     Font.Color = clNavy
  24.     Font.Height = -12
  25.     Font.Name = 'Arial'
  26.     Font.Style = [fsBold]
  27.     ParentFont = False
  28.   end
  29.   object f1000ds: TLabel
  30.     Left = 457
  31.     Top = 120
  32.     Width = 24
  33.     Height = 15
  34.     Alignment = taRightJustify
  35.     Caption = '0.00'
  36.     Font.Color = clNavy
  37.     Font.Height = -12
  38.     Font.Name = 'Arial'
  39.     Font.Style = [fsBold]
  40.     ParentFont = False
  41.   end
  42.   object Bevel1: TBevel
  43.     Left = 8
  44.     Top = 8
  45.     Width = 649
  46.     Height = 233
  47.   end
  48.   object Bevel4: TBevel
  49.     Left = 16
  50.     Top = 104
  51.     Width = 633
  52.     Height = 1
  53.     Shape = bsFrame
  54.   end
  55.   object Label1: TLabel
  56.     Left = 24
  57.     Top = 48
  58.     Width = 197
  59.     Height = 16
  60.     AutoSize = False
  61.     Caption = 'Procedure with no instructions:'
  62.     Font.Color = clBlack
  63.     Font.Height = -13
  64.     Font.Name = 'Arial'
  65.     Font.Style = [fsBold]
  66.     ParentFont = False
  67.   end
  68.   object Label4: TLabel
  69.     Left = 24
  70.     Top = 80
  71.     Width = 169
  72.     Height = 16
  73.     AutoSize = False
  74.     Caption = 'Loop executed 100 times:'
  75.     Font.Color = clBlack
  76.     Font.Height = -13
  77.     Font.Name = 'Arial'
  78.     Font.Style = [fsBold]
  79.     ParentFont = False
  80.   end
  81.   object Label5: TLabel
  82.     Left = 24
  83.     Top = 112
  84.     Width = 176
  85.     Height = 16
  86.     AutoSize = False
  87.     Caption = 'Loop executed 1000 times:'
  88.     Font.Color = clBlack
  89.     Font.Height = -13
  90.     Font.Name = 'Arial'
  91.     Font.Style = [fsBold]
  92.     ParentFont = False
  93.   end
  94.   object Label6: TLabel
  95.     Left = 328
  96.     Top = 16
  97.     Width = 73
  98.     Height = 16
  99.     Alignment = taCenter
  100.     AutoSize = False
  101.     Caption = 'CPU-cycles'
  102.     Font.Color = clBlack
  103.     Font.Height = -13
  104.     Font.Name = 'Arial'
  105.     Font.Style = [fsBold]
  106.     ParentFont = False
  107.   end
  108.   object Label7: TLabel
  109.     Left = 416
  110.     Top = 16
  111.     Width = 65
  112.     Height = 16
  113.     Alignment = taCenter
  114.     AutoSize = False
  115.     Caption = 'Time'
  116.     Font.Color = clBlack
  117.     Font.Height = -13
  118.     Font.Name = 'Arial'
  119.     Font.Style = [fsBold]
  120.     ParentFont = False
  121.   end
  122.   object f0: TLabel
  123.     Left = 386
  124.     Top = 42
  125.     Width = 7
  126.     Height = 15
  127.     Alignment = taRightJustify
  128.     Caption = '0'
  129.     Font.Color = clMaroon
  130.     Font.Height = -12
  131.     Font.Name = 'Arial'
  132.     Font.Style = [fsBold]
  133.     ParentFont = False
  134.   end
  135.   object f0d: TLabel
  136.     Left = 457
  137.     Top = 42
  138.     Width = 24
  139.     Height = 15
  140.     Alignment = taRightJustify
  141.     Caption = '0.00'
  142.     Font.Color = clMaroon
  143.     Font.Height = -12
  144.     Font.Name = 'Arial'
  145.     Font.Style = [fsBold]
  146.     ParentFont = False
  147.   end
  148.   object f100: TLabel
  149.     Left = 386
  150.     Top = 74
  151.     Width = 7
  152.     Height = 15
  153.     Alignment = taRightJustify
  154.     Caption = '0'
  155.     Font.Color = clMaroon
  156.     Font.Height = -12
  157.     Font.Name = 'Arial'
  158.     Font.Style = [fsBold]
  159.     ParentFont = False
  160.   end
  161.   object f1000: TLabel
  162.     Left = 386
  163.     Top = 106
  164.     Width = 7
  165.     Height = 15
  166.     Alignment = taRightJustify
  167.     Caption = '0'
  168.     Font.Color = clMaroon
  169.     Font.Height = -12
  170.     Font.Name = 'Arial'
  171.     Font.Style = [fsBold]
  172.     ParentFont = False
  173.   end
  174.   object f100d: TLabel
  175.     Left = 457
  176.     Top = 74
  177.     Width = 24
  178.     Height = 15
  179.     Alignment = taRightJustify
  180.     Caption = '0.00'
  181.     Font.Color = clMaroon
  182.     Font.Height = -12
  183.     Font.Name = 'Arial'
  184.     Font.Style = [fsBold]
  185.     ParentFont = False
  186.   end
  187.   object f1000d: TLabel
  188.     Left = 457
  189.     Top = 106
  190.     Width = 24
  191.     Height = 15
  192.     Alignment = taRightJustify
  193.     Caption = '0.00'
  194.     Font.Color = clMaroon
  195.     Font.Height = -12
  196.     Font.Name = 'Arial'
  197.     Font.Style = [fsBold]
  198.     ParentFont = False
  199.   end
  200.   object Label20: TLabel
  201.     Left = 24
  202.     Top = 176
  203.     Width = 290
  204.     Height = 16
  205.     AutoSize = False
  206.     Caption = 'Checking idle time ability (*)'
  207.     Font.Color = clBlack
  208.     Font.Height = -13
  209.     Font.Name = 'Arial'
  210.     Font.Style = [fsBold]
  211.     ParentFont = False
  212.   end
  213.   object prom: TLabel
  214.     Left = 386
  215.     Top = 177
  216.     Width = 7
  217.     Height = 15
  218.     Alignment = taRightJustify
  219.     Caption = '0'
  220.     Font.Color = clMaroon
  221.     Font.Height = -12
  222.     Font.Name = 'Arial'
  223.     Font.Style = [fsBold]
  224.     ParentFont = False
  225.   end
  226.   object promd: TLabel
  227.     Left = 457
  228.     Top = 177
  229.     Width = 24
  230.     Height = 15
  231.     Alignment = taRightJustify
  232.     Caption = '0.00'
  233.     Font.Color = clMaroon
  234.     Font.Height = -12
  235.     Font.Name = 'Arial'
  236.     Font.Style = [fsBold]
  237.     ParentFont = False
  238.   end
  239.   object Label26: TLabel
  240.     Left = 496
  241.     Top = 16
  242.     Width = 122
  243.     Height = 16
  244.     AutoSize = False
  245.     Caption = 'Name of procedure'
  246.     Font.Color = clBlack
  247.     Font.Height = -13
  248.     Font.Name = 'Arial'
  249.     Font.Style = [fsBold]
  250.     ParentFont = False
  251.   end
  252.   object Bevel2: TBevel
  253.     Left = 16
  254.     Top = 72
  255.     Width = 633
  256.     Height = 1
  257.     Shape = bsFrame
  258.   end
  259.   object Bevel5: TBevel
  260.     Left = 16
  261.     Top = 136
  262.     Width = 633
  263.     Height = 1
  264.     Shape = bsFrame
  265.   end
  266.   object Bevel6: TBevel
  267.     Left = 16
  268.     Top = 168
  269.     Width = 633
  270.     Height = 1
  271.     Shape = bsFrame
  272.   end
  273.   object Bevel8: TBevel
  274.     Left = 16
  275.     Top = 40
  276.     Width = 633
  277.     Height = 1
  278.     Shape = bsFrame
  279.   end
  280.   object Bevel9: TBevel
  281.     Left = 320
  282.     Top = 15
  283.     Width = 1
  284.     Height = 218
  285.     Shape = bsFrame
  286.   end
  287.   object Bevel10: TBevel
  288.     Left = 408
  289.     Top = 15
  290.     Width = 1
  291.     Height = 218
  292.     Shape = bsFrame
  293.   end
  294.   object Bevel11: TBevel
  295.     Left = 488
  296.     Top = 15
  297.     Width = 1
  298.     Height = 218
  299.     Shape = bsFrame
  300.   end
  301.   object Label8: TLabel
  302.     Left = 24
  303.     Top = 144
  304.     Width = 289
  305.     Height = 16
  306.     AutoSize = False
  307.     Caption = 'Nested functions  (time incl. child procedures)'
  308.     Font.Color = clBlack
  309.     Font.Height = -13
  310.     Font.Name = 'Arial'
  311.     Font.Style = [fsBold]
  312.     ParentFont = False
  313.   end
  314.   object tmlf: TLabel
  315.     Left = 386
  316.     Top = 138
  317.     Width = 7
  318.     Height = 15
  319.     Alignment = taRightJustify
  320.     Caption = '0'
  321.     Font.Color = clMaroon
  322.     Font.Height = -12
  323.     Font.Name = 'Arial'
  324.     Font.Style = [fsBold]
  325.     ParentFont = False
  326.   end
  327.   object tmlfd: TLabel
  328.     Left = 457
  329.     Top = 138
  330.     Width = 24
  331.     Height = 15
  332.     Alignment = taRightJustify
  333.     Caption = '0.00'
  334.     Font.Color = clMaroon
  335.     Font.Height = -12
  336.     Font.Name = 'Arial'
  337.     Font.Style = [fsBold]
  338.     ParentFont = False
  339.   end
  340.   object Label9: TLabel
  341.     Left = 496
  342.     Top = 48
  343.     Width = 41
  344.     Height = 13
  345.     AutoSize = False
  346.     Caption = 'Empty'
  347.     Font.Color = clBlack
  348.     Font.Height = -12
  349.     Font.Name = 'Arial'
  350.     Font.Style = []
  351.     ParentFont = False
  352.   end
  353.   object Label12: TLabel
  354.     Left = 496
  355.     Top = 80
  356.     Width = 105
  357.     Height = 15
  358.     AutoSize = False
  359.     Caption = 'FunctionWith100'
  360.     Font.Color = clBlack
  361.     Font.Height = -12
  362.     Font.Name = 'Arial'
  363.     Font.Style = []
  364.     ParentFont = False
  365.   end
  366.   object Label13: TLabel
  367.     Left = 496
  368.     Top = 112
  369.     Width = 113
  370.     Height = 15
  371.     AutoSize = False
  372.     Caption = 'FunctionWith1000'
  373.     Font.Color = clBlack
  374.     Font.Height = -12
  375.     Font.Name = 'Arial'
  376.     Font.Style = []
  377.     ParentFont = False
  378.   end
  379.   object Label15: TLabel
  380.     Left = 496
  381.     Top = 176
  382.     Width = 89
  383.     Height = 15
  384.     AutoSize = False
  385.     Caption = 'MBox'
  386.     Font.Color = clBlack
  387.     Font.Height = -12
  388.     Font.Name = 'Arial'
  389.     Font.Style = []
  390.     ParentFont = False
  391.   end
  392.   object Label16: TLabel
  393.     Left = 496
  394.     Top = 144
  395.     Width = 145
  396.     Height = 15
  397.     AutoSize = False
  398.     Caption = 'Top-, Mid-, DeepFunction'
  399.     Font.Color = clBlack
  400.     Font.Height = -12
  401.     Font.Name = 'Arial'
  402.     Font.Style = []
  403.     ParentFont = False
  404.   end
  405.   object Label17: TLabel
  406.     Left = 8
  407.     Top = 248
  408.     Width = 193
  409.     Height = 16
  410.     AutoSize = False
  411.     Caption = 'Times/cycles for 1 function call !!!'
  412.     Font.Color = clMaroon
  413.     Font.Height = -12
  414.     Font.Name = 'Arial'
  415.     Font.Style = [fsBold]
  416.     ParentFont = False
  417.   end
  418.   object ResLabel: TLabel
  419.     Left = 104
  420.     Top = 104
  421.     Width = 417
  422.     Height = 36
  423.     Alignment = taCenter
  424.     AutoSize = False
  425.     Caption = 'For results ask your profiler'
  426.     Font.Color = clBlack
  427.     Font.Height = -32
  428.     Font.Name = 'Arial'
  429.     Font.Style = []
  430.     ParentFont = False
  431.     Visible = False
  432.   end
  433.   object Label25: TLabel
  434.     Left = 16
  435.     Top = 272
  436.     Width = 633
  437.     Height = 16
  438.     AutoSize = False
  439.     Caption = 
  440.       '(*) Time measured is not very exact because no loop is used for ' +
  441.       'measuring, nobody likes to click a'
  442.     Font.Color = clBlack
  443.     Font.Height = -13
  444.     Font.Name = 'Arial'
  445.     Font.Style = [fsBold]
  446.     ParentFont = False
  447.   end
  448.   object Label2: TLabel
  449.     Left = 16
  450.     Top = 296
  451.     Width = 633
  452.     Height = 16
  453.     AutoSize = False
  454.     Caption = 
  455.       'a button 100 times. Only the time of the PostMessage is measured' +
  456.       ', the time for the MessageBox'
  457.     Font.Color = clBlack
  458.     Font.Height = -13
  459.     Font.Name = 'Arial'
  460.     Font.Style = [fsBold]
  461.     ParentFont = False
  462.   end
  463.   object Label18: TLabel
  464.     Left = 16
  465.     Top = 320
  466.     Width = 633
  467.     Height = 16
  468.     AutoSize = False
  469.     Caption = 
  470.       'call is not included because the reaction time varies. While wai' +
  471.       'ting for the MessageBox, the pro-'
  472.     Font.Color = clBlack
  473.     Font.Height = -13
  474.     Font.Name = 'Arial'
  475.     Font.Style = [fsBold]
  476.     ParentFont = False
  477.   end
  478.   object Label19: TLabel
  479.     Left = 16
  480.     Top = 344
  481.     Width = 633
  482.     Height = 16
  483.     AutoSize = False
  484.     Caption = 
  485.       'cedure UserMessage ( simple loop ) is executed. A good profiler ' +
  486.       'should neither measure the'
  487.     Font.Color = clBlack
  488.     Font.Height = -13
  489.     Font.Name = 'Arial'
  490.     Font.Style = [fsBold]
  491.     ParentFont = False
  492.   end
  493.   object Label21: TLabel
  494.     Left = 16
  495.     Top = 368
  496.     Width = 633
  497.     Height = 16
  498.     AutoSize = False
  499.     Caption = 
  500.       'idle time while Windows processes MessageBox nor include the tim' +
  501.       'e of UserMessage as child time.'
  502.     Font.Color = clBlack
  503.     Font.Height = -13
  504.     Font.Name = 'Arial'
  505.     Font.Style = [fsBold]
  506.     ParentFont = False
  507.   end
  508.   object Bevel3: TBevel
  509.     Left = 15
  510.     Top = 200
  511.     Width = 633
  512.     Height = 1
  513.     Shape = bsFrame
  514.   end
  515.   object Label3: TLabel
  516.     Left = 24
  517.     Top = 208
  518.     Width = 290
  519.     Height = 16
  520.     AutoSize = False
  521.     Caption = 'Processing while waiting for MessageBox'
  522.     Font.Color = clBlack
  523.     Font.Height = -13
  524.     Font.Name = 'Arial'
  525.     Font.Style = [fsBold]
  526.     ParentFont = False
  527.   end
  528.   object prouse: TLabel
  529.     Left = 386
  530.     Top = 209
  531.     Width = 7
  532.     Height = 15
  533.     Alignment = taRightJustify
  534.     Caption = '0'
  535.     Font.Color = clMaroon
  536.     Font.Height = -12
  537.     Font.Name = 'Arial'
  538.     Font.Style = [fsBold]
  539.     ParentFont = False
  540.   end
  541.   object proused: TLabel
  542.     Left = 457
  543.     Top = 209
  544.     Width = 24
  545.     Height = 15
  546.     Alignment = taRightJustify
  547.     Caption = '0.00'
  548.     Font.Color = clMaroon
  549.     Font.Height = -12
  550.     Font.Name = 'Arial'
  551.     Font.Style = [fsBold]
  552.     ParentFont = False
  553.   end
  554.   object Label14: TLabel
  555.     Left = 496
  556.     Top = 208
  557.     Width = 89
  558.     Height = 15
  559.     AutoSize = False
  560.     Caption = 'UserMessage'
  561.     Font.Color = clBlack
  562.     Font.Height = -12
  563.     Font.Name = 'Arial'
  564.     Font.Style = []
  565.     ParentFont = False
  566.   end
  567.   object Label10: TLabel
  568.     Left = 208
  569.     Top = 248
  570.     Width = 217
  571.     Height = 16
  572.     AutoSize = False
  573.     Caption = 'Times/cycles for 100 function calls !!!'
  574.     Font.Color = clNavy
  575.     Font.Height = -12
  576.     Font.Name = 'Arial'
  577.     Font.Style = [fsBold]
  578.     ParentFont = False
  579.   end
  580.   object Label11: TLabel
  581.     Left = 432
  582.     Top = 248
  583.     Width = 225
  584.     Height = 16
  585.     AutoSize = False
  586.     Caption = 'Times and cycles are average values !!!'
  587.     Font.Color = clPurple
  588.     Font.Height = -12
  589.     Font.Name = 'Arial'
  590.     Font.Style = [fsBold]
  591.     ParentFont = False
  592.   end
  593.   object f0s: TLabel
  594.     Left = 386
  595.     Top = 56
  596.     Width = 7
  597.     Height = 15
  598.     Alignment = taRightJustify
  599.     Caption = '0'
  600.     Font.Color = clNavy
  601.     Font.Height = -12
  602.     Font.Name = 'Arial'
  603.     Font.Style = [fsBold]
  604.     ParentFont = False
  605.   end
  606.   object f100s: TLabel
  607.     Left = 386
  608.     Top = 88
  609.     Width = 7
  610.     Height = 15
  611.     Alignment = taRightJustify
  612.     Caption = '0'
  613.     Font.Color = clNavy
  614.     Font.Height = -12
  615.     Font.Name = 'Arial'
  616.     Font.Style = [fsBold]
  617.     ParentFont = False
  618.   end
  619.   object tmlfs: TLabel
  620.     Left = 386
  621.     Top = 152
  622.     Width = 7
  623.     Height = 15
  624.     Alignment = taRightJustify
  625.     Caption = '0'
  626.     Font.Color = clNavy
  627.     Font.Height = -12
  628.     Font.Name = 'Arial'
  629.     Font.Style = [fsBold]
  630.     ParentFont = False
  631.   end
  632.   object f0ds: TLabel
  633.     Left = 457
  634.     Top = 56
  635.     Width = 24
  636.     Height = 15
  637.     Alignment = taRightJustify
  638.     Caption = '0.00'
  639.     Font.Color = clNavy
  640.     Font.Height = -12
  641.     Font.Name = 'Arial'
  642.     Font.Style = [fsBold]
  643.     ParentFont = False
  644.   end
  645.   object f100ds: TLabel
  646.     Left = 457
  647.     Top = 88
  648.     Width = 24
  649.     Height = 15
  650.     Alignment = taRightJustify
  651.     Caption = '0.00'
  652.     Font.Color = clNavy
  653.     Font.Height = -12
  654.     Font.Name = 'Arial'
  655.     Font.Style = [fsBold]
  656.     ParentFont = False
  657.   end
  658.   object tmlfds: TLabel
  659.     Left = 457
  660.     Top = 152
  661.     Width = 24
  662.     Height = 15
  663.     Alignment = taRightJustify
  664.     Caption = '0.00'
  665.     Font.Color = clNavy
  666.     Font.Height = -12
  667.     Font.Name = 'Arial'
  668.     Font.Style = [fsBold]
  669.     ParentFont = False
  670.   end
  671.   object Warnlab: TLabel
  672.     Left = 192
  673.     Top = 400
  674.     Width = 393
  675.     Height = 18
  676.     Alignment = taCenter
  677.     AutoSize = False
  678.     Caption = 'Define the compiler switch PROFILE please !!!'
  679.     Font.Color = clWindowText
  680.     Font.Height = 18
  681.     Font.Name = 'Arial'
  682.     Font.Style = [fsBold]
  683.     ParentFont = False
  684.     Visible = False
  685.   end
  686.   object Button1: TButton
  687.     Left = 8
  688.     Top = 392
  689.     Width = 145
  690.     Height = 33
  691.     Caption = 'Start processing'
  692.     Font.Color = clWindowText
  693.     Font.Height = -16
  694.     Font.Name = 'Arial'
  695.     Font.Style = [fsBold]
  696.     ParentFont = False
  697.     TabOrder = 0
  698.     OnClick = StartItAll
  699.   end
  700. end
  701.