home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / graphex.pak / GRAPHWIN.DFM / GRAPHWIN.txt
Encoding:
Text File  |  1995-08-24  |  21.4 KB  |  584 lines
  1. object Form1: TForm1
  2.   Left = 224
  3.   Top = 99
  4.   ActiveControl = ScrollBox1
  5.   AutoScroll = False
  6.   Caption = 'Graphics Example'
  7.   ClientHeight = 216
  8.   ClientWidth = 473
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   Menu = MainMenu1
  14.   PixelsPerInch = 96
  15.   Position = poDefault
  16.   OnCreate = FormCreate
  17.   OnMouseDown = FormMouseDown
  18.   OnMouseMove = FormMouseMove
  19.   OnMouseUp = FormMouseUp
  20.   TextHeight = 16
  21.   object ToolBar: TPanel
  22.     Left = 0
  23.     Top = 0
  24.     Width = 473
  25.     Height = 41
  26.     Align = alTop
  27.     TabOrder = 0
  28.     object LineButton: TSpeedButton
  29.       Left = 8
  30.       Top = 8
  31.       Width = 25
  32.       Height = 25
  33.       GroupIndex = 1
  34.       Glyph.Data = {
  35.         66010000424D6601000000000000760000002800000014000000140000000100
  36.         040000000000F000000000000000000000001000000000000000000000000000
  37.         80000080000000808000800000008000800080800000C0C0C000808080000000
  38.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  39.         3333333300003333333333333333300300003333333333333333003300003333
  40.         3333333333300333000033333333333333003333000033333333333330033333
  41.         0000333333333333003333330000333333333330033333330000333333333300
  42.         3333333300003333333330033333333300003333333300333333333300003333
  43.         3330033333333333000033333300333333333333000033333003333333333333
  44.         0000333300333333333333330000333003333333333333330000330033333333
  45.         3333333300003003333333333333333300003033333333333333333300003333
  46.         33333333333333330000}
  47.       OnClick = LineButtonClick
  48.     end
  49.     object RectangleButton: TSpeedButton
  50.       Left = 40
  51.       Top = 8
  52.       Width = 25
  53.       Height = 25
  54.       GroupIndex = 1
  55.       Glyph.Data = {
  56.         66010000424D6601000000000000760000002800000014000000140000000100
  57.         040000000000F000000000000000000000000000000000000000000000000000
  58.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  59.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  60.         3333333300003000000000000000000300003033333333333333330300003033
  61.         3333333333333303000030333333333333333303000030333333333333333303
  62.         0000303333333333333333030000303333333333333333030000303333333333
  63.         3333330300003033333333333333330300003033333333333333330300003033
  64.         3333333333333303000030333333333333333303000030333333333333333303
  65.         0000303333333333333333030000303333333333333333030000303333333333
  66.         3333330300003033333333333333330300003000000000000000000300003333
  67.         33333333333333330000}
  68.       OnClick = RectangleButtonClick
  69.     end
  70.     object EllipseButton: TSpeedButton
  71.       Left = 72
  72.       Top = 8
  73.       Width = 25
  74.       Height = 25
  75.       GroupIndex = 1
  76.       Glyph.Data = {
  77.         4E010000424D4E01000000000000760000002800000012000000120000000100
  78.         040000000000D800000000000000000000001000000000000000000000000000
  79.         80000080000000808000800000008000800080800000C0C0C000808080000000
  80.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
  81.         3333330000003333003333330033330000003330333333333303330000003303
  82.         3333333333303300000030333333333333330300000030333333333333330300
  83.         0000033333333333333330000000033333333333333330000000033333333333
  84.         3333300000000333333333333333300000000333333333333333300000000333
  85.         3333333333333000000030333333333333330300000030333333333333330300
  86.         0000330333333333333033000000333033333333330333000000333300333333
  87.         003333000000333333000000333333000000}
  88.       OnClick = EllipseButtonClick
  89.     end
  90.     object RoundRectButton: TSpeedButton
  91.       Left = 104
  92.       Top = 8
  93.       Width = 25
  94.       Height = 25
  95.       GroupIndex = 1
  96.       Glyph.Data = {
  97.         4E010000424D4E01000000000000760000002800000012000000120000000100
  98.         040000000000D800000000000000000000001000000000000000000000000000
  99.         80000080000000808000800000008000800080800000C0C0C000808080000000
  100.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
  101.         0033330000003300333333333300330000003033333333333333030000003033
  102.         3333333333330300000003333333333333333000000003333333333333333000
  103.         0000033333333333333330000000033333333333333330000000033333333333
  104.         3333300000000333333333333333300000000333333333333333300000000333
  105.         3333333333333000000003333333333333333000000003333333333333333000
  106.         0000303333333333333303000000303333333333333303000000330033333333
  107.         330033000000333300000000003333000000}
  108.       OnClick = RoundRectButtonClick
  109.     end
  110.     object PenButton: TSpeedButton
  111.       Left = 184
  112.       Top = 8
  113.       Width = 25
  114.       Height = 25
  115.       AllowAllUp = True
  116.       GroupIndex = 2
  117.       Glyph.Data = {
  118.         66010000424D6601000000000000760000002800000015000000140000000100
  119.         040000000000F000000000000000000000001000000000000000000000000000
  120.         80000080000000808000800000008000800080800000C0C0C000808080000000
  121.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  122.         3333333339003333333333333333003334003333333333333330F00334003333
  123.         33333333330F0003300033333333333330F00033300033333333333300000333
  124.         3C00333333333330F0003333380033333333330F0003333330003333333330F0
  125.         003333333700333333330F0003333333370033333330F000333333333F003333
  126.         330F0003333333333700333330F00033333333333F0033330F00033333333333
  127.         37003330F0003333333333333700333000033333333333333000330F00333333
  128.         3333333337003300333333333333333337003033333333333333333337003333
  129.         33333333333333333700}
  130.       OnClick = PenButtonClick
  131.     end
  132.     object BrushButton: TSpeedButton
  133.       Left = 216
  134.       Top = 8
  135.       Width = 25
  136.       Height = 25
  137.       AllowAllUp = True
  138.       GroupIndex = 3
  139.       Glyph.Data = {
  140.         66010000424D6601000000000000760000002800000013000000140000000100
  141.         040000000000F000000000000000000000001000000000000000000000000000
  142.         80000080000000808000800000008000800080800000C0C0C000808080000000
  143.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  144.         3333333F000030030000003333333337000033333330F0003333333B00003333
  145.         33330F000333333000003333333330F00033333700003333333330F000333330
  146.         00003333333300F00003333A0000333333300FF0000333370000333333300F00
  147.         00033337000033333300FF000000333E00003333330FF0000000333700003333
  148.         330FF00000003337000033333300F0000000333F000033333330000000033337
  149.         0000333333330FFF003333370000333333330FFF0033333F0000333333330FFF
  150.         0033333E0000333333330FFF0033333700003333333330000333333F00003333
  151.         33333333333333300000}
  152.       OnClick = BrushButtonClick
  153.     end
  154.   end
  155.   object PenBar: TPanel
  156.     Left = 0
  157.     Top = 82
  158.     Width = 473
  159.     Height = 41
  160.     Align = alTop
  161.     TabOrder = 1
  162.     Visible = False
  163.     object SolidPen: TSpeedButton
  164.       Left = 8
  165.       Top = 8
  166.       Width = 25
  167.       Height = 25
  168.       GroupIndex = 1
  169.       Glyph.Data = {
  170.         B2000000424DB200000000000000760000002800000015000000050000000100
  171.         0400000000003C00000000000000000000000000000000000000000000000000
  172.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  173.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  174.         333333333700333333333333333333333000300000000000000000003F003333
  175.         33333333333333333000333333333333333333333000}
  176.       OnClick = SetPenStyle
  177.     end
  178.     object DashPen: TSpeedButton
  179.       Left = 40
  180.       Top = 8
  181.       Width = 25
  182.       Height = 25
  183.       GroupIndex = 1
  184.       Glyph.Data = {
  185.         B2000000424DB200000000000000760000002800000015000000050000000100
  186.         0400000000003C00000000000000000000000000000000000000000000000000
  187.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  188.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  189.         333333333700333333333333333333333000300000300000030000033F003333
  190.         33333333333333333000333333333333333333333000}
  191.       OnClick = SetPenStyle
  192.     end
  193.     object DotPen: TSpeedButton
  194.       Left = 72
  195.       Top = 8
  196.       Width = 25
  197.       Height = 25
  198.       GroupIndex = 1
  199.       Glyph.Data = {
  200.         B2000000424DB200000000000000760000002800000015000000050000000100
  201.         0400000000003C00000000000000000000001000000000000000000000000000
  202.         80000080000000808000800000008000800080800000C0C0C000808080000000
  203.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  204.         3333333333003333333333333333333333003030303030303030303033003333
  205.         33333333333333333300333333333333333333333300}
  206.       OnClick = SetPenStyle
  207.     end
  208.     object DashDotPen: TSpeedButton
  209.       Left = 104
  210.       Top = 8
  211.       Width = 25
  212.       Height = 25
  213.       GroupIndex = 1
  214.       Glyph.Data = {
  215.         B2000000424DB200000000000000760000002800000015000000050000000100
  216.         0400000000003C00000000000000000000001000000000000000000000000000
  217.         80000080000000808000800000008000800080800000C0C0C000808080000000
  218.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  219.         3333333330003333333333333333333330003000003030000030300030003333
  220.         33333333333333333F00333333333333333333333700}
  221.       OnClick = SetPenStyle
  222.     end
  223.     object DashDotDotPen: TSpeedButton
  224.       Left = 136
  225.       Top = 8
  226.       Width = 25
  227.       Height = 25
  228.       GroupIndex = 1
  229.       Glyph.Data = {
  230.         B2000000424DB200000000000000760000002800000015000000050000000100
  231.         0400000000003C00000000000000000000001000000000000000000000000000
  232.         80000080000000808000800000008000800080800000C0C0C000808080000000
  233.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  234.         3333333333003333333333333333333333003000003030300000303033003333
  235.         33333333333333333300333333333333333333333300}
  236.       OnClick = SetPenStyle
  237.     end
  238.     object ClearPen: TSpeedButton
  239.       Left = 168
  240.       Top = 8
  241.       Width = 25
  242.       Height = 25
  243.       GroupIndex = 1
  244.       Glyph.Data = {
  245.         B2000000424DB200000000000000760000002800000015000000050000000100
  246.         0400000000003C00000000000000000000001000000000000000000000000000
  247.         80000080000000808000800000008000800080800000C0C0C000808080000000
  248.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  249.         3333333333003333333333333333333333003FFFFFFFFFFFFFFFFFFF33003333
  250.         33333333333333333300333333333333333333333300}
  251.       OnClick = SetPenStyle
  252.     end
  253.     object PenSize: TLabel
  254.       Left = 448
  255.       Top = 12
  256.       Width = 7
  257.       Height = 16
  258.       Caption = '1'
  259.       FocusControl = PenWidth
  260.     end
  261.     object PenColor: TColorGrid
  262.       Left = 208
  263.       Top = 8
  264.       Width = 96
  265.       Height = 24
  266.       GridOrdering = go8x2
  267.       BackgroundEnabled = False
  268.       TabOrder = 0
  269.       OnClick = PenColorClick
  270.     end
  271.     object PenWidth: TScrollBar
  272.       Left = 320
  273.       Top = 12
  274.       Width = 121
  275.       Height = 17
  276.       LargeChange = 10
  277.       Min = 1
  278.       Position = 1
  279.       TabOrder = 1
  280.       OnChange = PenWidthChange
  281.     end
  282.   end
  283.   object BrushBar: TPanel
  284.     Left = 0
  285.     Top = 41
  286.     Width = 473
  287.     Height = 41
  288.     Align = alTop
  289.     TabOrder = 2
  290.     Visible = False
  291.     object SolidBrush: TSpeedButton
  292.       Left = 8
  293.       Top = 8
  294.       Width = 25
  295.       Height = 25
  296.       GroupIndex = 1
  297.       Glyph.Data = {
  298.         66010000424D6601000000000000760000002800000014000000140000000100
  299.         040000000000F000000000000000000000000000000000000000000000000000
  300.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  301.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  302.         3333333300003000000000000000000300003000000000000000000300003000
  303.         0000000000000003000030000000000000000003000030000000000000000003
  304.         0000300000000000000000030000300000000000000000030000300000000000
  305.         0000000300003000000000000000000300003000000000000000000300003000
  306.         0000000000000003000030000000000000000003000030000000000000000003
  307.         0000300000000000000000030000300000000000000000030000300000000000
  308.         0000000300003000000000000000000300003000000000000000000300003333
  309.         33333333333333330000}
  310.       OnClick = SetBrushStyle
  311.     end
  312.     object ClearBrush: TSpeedButton
  313.       Left = 40
  314.       Top = 8
  315.       Width = 25
  316.       Height = 25
  317.       GroupIndex = 1
  318.       Glyph.Data = {
  319.         66010000424D6601000000000000760000002800000014000000140000000100
  320.         040000000000F000000000000000000000000000000000000000000000000000
  321.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  322.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  323.         3333333300003000000000000000000300003033333333333333330300003033
  324.         3333333333333303000030333333333333333303000030333333333333333303
  325.         0000303333333333333333030000303333333333333333030000303333333333
  326.         3333330300003033333333333333330300003033333333333333330300003033
  327.         3333333333333303000030333333333333333303000030333333333333333303
  328.         0000303333333333333333030000303333333333333333030000303333333333
  329.         3333330300003033333333333333330300003000000000000000000300003333
  330.         33333333333333330000}
  331.       OnClick = SetBrushStyle
  332.     end
  333.     object HorizontalBrush: TSpeedButton
  334.       Left = 72
  335.       Top = 8
  336.       Width = 25
  337.       Height = 25
  338.       GroupIndex = 1
  339.       Glyph.Data = {
  340.         66010000424D6601000000000000760000002800000014000000140000000100
  341.         040000000000F000000000000000000000000000000000000000000000000000
  342.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  343.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  344.         3333333300003000000000000000000300003033333333333333330300003000
  345.         0000000000000003000030333333333333333303000030333333333333333303
  346.         0000300000000000000000030000303333333333333333030000303333333333
  347.         3333330300003000000000000000000300003033333333333333330300003033
  348.         3333333333333303000030000000000000000003000030333333333333333303
  349.         0000303333333333333333030000300000000000000000030000303333333333
  350.         3333330300003033333333333333330300003000000000000000000300003333
  351.         33333333333333330000}
  352.       OnClick = SetBrushStyle
  353.     end
  354.     object VerticalBrush: TSpeedButton
  355.       Left = 104
  356.       Top = 8
  357.       Width = 25
  358.       Height = 25
  359.       GroupIndex = 1
  360.       Glyph.Data = {
  361.         66010000424D6601000000000000760000002800000014000000140000000100
  362.         040000000000F000000000000000000000000000000000000000000000000000
  363.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  364.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  365.         3333333300003000000000000000000300003033033033033033030300003033
  366.         0330330330330303000030330330330330330303000030330330330330330303
  367.         0000303303303303303303030000303303303303303303030000303303303303
  368.         3033030300003033033033033033030300003033033033033033030300003033
  369.         0330330330330303000030330330330330330303000030330330330330330303
  370.         0000303303303303303303030000303303303303303303030000303303303303
  371.         3033030300003033033033033033030300003000000000000000000300003333
  372.         33333333333333330000}
  373.       OnClick = SetBrushStyle
  374.     end
  375.     object FDiagonalBrush: TSpeedButton
  376.       Left = 136
  377.       Top = 8
  378.       Width = 25
  379.       Height = 25
  380.       GroupIndex = 1
  381.       Glyph.Data = {
  382.         66010000424D6601000000000000760000002800000014000000140000000100
  383.         040000000000F000000000000000000000000000000000000000000000000000
  384.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  385.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  386.         3333333300003000000000000000000300003033303330333033300300003033
  387.         0333033303330303000030303330333033303303000030033303330333033303
  388.         0000303330333033303330030000303303330333033303030000303033303330
  389.         3330330300003003330333033303330300003033303330333033300300003033
  390.         0333033303330303000030303330333033303303000030033303330333033303
  391.         0000303330333033303330030000303303330333033303030000303033303330
  392.         3330330300003003330333033303330300003000000000000000000300003333
  393.         33333333333333330000}
  394.       OnClick = SetBrushStyle
  395.     end
  396.     object BDiagonalBrush: TSpeedButton
  397.       Left = 168
  398.       Top = 8
  399.       Width = 25
  400.       Height = 25
  401.       GroupIndex = 1
  402.       Glyph.Data = {
  403.         66010000424D6601000000000000760000002800000014000000140000000100
  404.         040000000000F000000000000000000000000000000000000000000000000000
  405.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  406.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  407.         3333333300003000000000000000000300003003330333033303330300003030
  408.         3330333033303303000030330333033303330303000030333033303330333003
  409.         0000300333033303330333030000303033303330333033030000303303330333
  410.         0333030300003033303330333033300300003003330333033303330300003030
  411.         3330333033303303000030330333033303330303000030333033303330333003
  412.         0000300333033303330333030000303033303330333033030000303303330333
  413.         0333030300003033303330333033300300003000000000000000000300003333
  414.         33333333333333330000}
  415.       OnClick = SetBrushStyle
  416.     end
  417.     object CrossBrush: TSpeedButton
  418.       Left = 200
  419.       Top = 8
  420.       Width = 25
  421.       Height = 25
  422.       GroupIndex = 1
  423.       Glyph.Data = {
  424.         66010000424D6601000000000000760000002800000014000000140000000100
  425.         040000000000F000000000000000000000000000000000000000000000000000
  426.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  427.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  428.         3333333300003000000000000000000300003033033033033033030300003000
  429.         0000000000000003000030330330330330330303000030330330330330330303
  430.         0000300000000000000000030000303303303303303303030000303303303303
  431.         3033030300003000000000000000000300003033033033033033030300003033
  432.         0330330330330303000030000000000000000003000030330330330330330303
  433.         0000303303303303303303030000300000000000000000030000303303303303
  434.         3033030300003033033033033033030300003000000000000000000300003333
  435.         33333333333333330000}
  436.       OnClick = SetBrushStyle
  437.     end
  438.     object DiagCrossBrush: TSpeedButton
  439.       Left = 232
  440.       Top = 8
  441.       Width = 25
  442.       Height = 25
  443.       GroupIndex = 1
  444.       Glyph.Data = {
  445.         66010000424D6601000000000000760000002800000014000000140000000100
  446.         040000000000F000000000000000000000000000000000000000000000000000
  447.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  448.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  449.         3333333300003000000000000000000300003033303330333033300300003003
  450.         0303030303030303000030303330333033303303000030030303030303030303
  451.         0000303330333033303330030000300303030303030303030000303033303330
  452.         3330330300003003030303030303030300003033303330333033300300003003
  453.         0303030303030303000030303330333033303303000030030303030303030303
  454.         0000303330333033303330030000300303030303030303030000303033303330
  455.         3330330300003003030303030303030300003000000000000000000300003333
  456.         33333333333333330000}
  457.       OnClick = SetBrushStyle
  458.     end
  459.     object BrushColor: TColorGrid
  460.       Left = 272
  461.       Top = 8
  462.       Width = 96
  463.       Height = 24
  464.       GridOrdering = go8x2
  465.       BackgroundEnabled = False
  466.       TabOrder = 0
  467.       OnClick = BrushColorClick
  468.     end
  469.   end
  470.   object StatusBar: TPanel
  471.     Left = 0
  472.     Top = 175
  473.     Width = 473
  474.     Height = 41
  475.     Align = alBottom
  476.     BevelOuter = bvNone
  477.     TabOrder = 3
  478.     object OriginPanel: TPanel
  479.       Left = 0
  480.       Top = 0
  481.       Width = 185
  482.       Height = 41
  483.       Align = alLeft
  484.       BevelInner = bvLowered
  485.       TabOrder = 0
  486.     end
  487.     object CurrentPanel: TPanel
  488.       Left = 185
  489.       Top = 0
  490.       Width = 288
  491.       Height = 41
  492.       Align = alClient
  493.       BevelInner = bvLowered
  494.       TabOrder = 1
  495.     end
  496.   end
  497.   object ScrollBox1: TScrollBox
  498.     Left = 0
  499.     Top = 123
  500.     Width = 473
  501.     Height = 52
  502.     Align = alClient
  503.     TabOrder = 4
  504.     object Image: TImage
  505.       Left = 0
  506.       Top = 0
  507.       Width = 105
  508.       Height = 105
  509.       AutoSize = True
  510.       OnMouseDown = FormMouseDown
  511.       OnMouseMove = FormMouseMove
  512.       OnMouseUp = FormMouseUp
  513.     end
  514.   end
  515.   object MainMenu1: TMainMenu
  516.     Left = 328
  517.     Top = 8
  518.     object File1: TMenuItem
  519.       Caption = '&File'
  520.       object New1: TMenuItem
  521.         Caption = '&New'
  522.         OnClick = New1Click
  523.         ShortCutText = 'Ctrl+N'
  524.       end
  525.       object Open1: TMenuItem
  526.         Caption = '&Open...'
  527.         OnClick = Open1Click
  528.         ShortCutText = 'Ctrl+O'
  529.       end
  530.       object Save1: TMenuItem
  531.         Caption = '&Save'
  532.         OnClick = Save1Click
  533.         ShortCutText = 'Ctrl+S'
  534.       end
  535.       object Saveas1: TMenuItem
  536.         Caption = 'Save &as...'
  537.         OnClick = Saveas1Click
  538.       end
  539.       object Print1: TMenuItem
  540.         Caption = '&Print'
  541.         OnClick = Print1Click
  542.         ShortCutText = 'Ctrl+P'
  543.       end
  544.       object N1: TMenuItem
  545.         Caption = '-'
  546.       end
  547.       object Exit1: TMenuItem
  548.         Caption = 'E&xit'
  549.         OnClick = Exit1Click
  550.       end
  551.     end
  552.     object Edit1: TMenuItem
  553.       Caption = '&Edit'
  554.       object Cut1: TMenuItem
  555.         Caption = 'Cu&t'
  556.         OnClick = Cut1Click
  557.         ShortCutText = 'Ctrl+X'
  558.       end
  559.       object Copy1: TMenuItem
  560.         Caption = '&Copy'
  561.         OnClick = Copy1Click
  562.         ShortCutText = 'Ctrl+C'
  563.       end
  564.       object Paste1: TMenuItem
  565.         Caption = '&Paste'
  566.         OnClick = Paste1Click
  567.         ShortCutText = 'Ctrl+V'
  568.       end
  569.     end
  570.   end
  571.   object OpenDialog1: TOpenDialog
  572.     DefaultExt = 'bmp'
  573.     Filter = 'Bitmap files (*.bmp)|*.bmp'
  574.     Left = 368
  575.     Top = 8
  576.   end
  577.   object SaveDialog1: TSaveDialog
  578.     DefaultExt = 'bmp'
  579.     Filter = 'Bitmap files (*.bmp)|*.bmp'
  580.     Left = 408
  581.     Top = 8
  582.   end
  583. end
  584.