home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / IMAGEDIT.EXE / 0 / RCDATA / TIMAGEFORM / TIMAGEFORM.txt
Encoding:
Text File  |  1997-02-28  |  2.6 KB  |  104 lines
  1. inherited ImageForm: TImageForm
  2.   Width = 209
  3.   Height = 179
  4.   Caption = 'Image Form'
  5.   KeyPreview = True
  6.   PopupMenu = LocalMenu
  7.   OnActivate = FormActivate
  8.   OnCreate = FormCreate
  9.   OnDeactivate = FormDeactivate
  10.   OnKeyDown = FormKeyDown
  11.   PixelsPerInch = 96
  12.   TextHeight = 13
  13.   inherited ChildMenu: TMainMenu
  14.     object TextMenu: TMenuItem
  15.       Caption = '&Text'
  16.       GroupIndex = 3
  17.       ShortCut = 0
  18.       OnClick = TextMenuClick
  19.       object TextLeftItem: TMenuItem
  20.         Caption = '&Left Align'
  21.         Hint = 'Cursor moves right as you type'
  22.         ShortCut = 0
  23.         OnClick = TextLeft
  24.       end
  25.       object TextCenterItem: TMenuItem
  26.         Caption = '&Center Align'
  27.         Hint = 'Cursor stays stationary as you type'
  28.         ShortCut = 0
  29.         OnClick = TextCenter
  30.       end
  31.       object TextRightItem: TMenuItem
  32.         Caption = '&Right Align'
  33.         Hint = 'Cursor moves left as you type'
  34.         ShortCut = 0
  35.         OnClick = TextRight
  36.       end
  37.       object N7: TMenuItem
  38.         Caption = '-'
  39.         ShortCut = 0
  40.       end
  41.       object TextFontItem: TMenuItem
  42.         Caption = '&Font...'
  43.         Hint = 'Select which for to use with the text tool'
  44.         ShortCut = 0
  45.         OnClick = TextFont
  46.       end
  47.     end
  48.     object ViewMenu: TMenuItem
  49.       Caption = '&View'
  50.       GroupIndex = 4
  51.       ShortCut = 0
  52.       OnClick = ViewMenuClick
  53.       object ViewZoomInItem: TMenuItem
  54.         Caption = 'Zoom &In'
  55.         Hint = 'Increase the zoom factor in the active window'
  56.         ShortCut = 16457
  57.         OnClick = ViewZoomIn
  58.       end
  59.       object ViewZoomOutItem: TMenuItem
  60.         Caption = 'Zoom &Out'
  61.         Hint = 'Decrease the zoom factor in the active window'
  62.         ShortCut = 16469
  63.         OnClick = ViewZoomOut
  64.       end
  65.       object N2: TMenuItem
  66.         Caption = '-'
  67.         ShortCut = 0
  68.       end
  69.       object ViewActualSizeItem: TMenuItem
  70.         Caption = '&Actual Size'
  71.         Hint = 'Return the active view to its natural size'
  72.         ShortCut = 16449
  73.         OnClick = ViewActualSize
  74.       end
  75.     end
  76.   end
  77.   object FontDialog: TFontDialog
  78.     Font.Color = clWindowText
  79.     Font.Height = -11
  80.     Font.Name = 'MS Sans Serif'
  81.     Font.Style = []
  82.     MinFontSize = 0
  83.     MaxFontSize = 0
  84.     Options = []
  85.     Left = 128
  86.     Top = 24
  87.   end
  88.   object LocalMenu: TPopupMenu
  89.     OnPopup = ViewMenuClick
  90.     Left = 136
  91.     Top = 72
  92.     object LocalZoomIn: TMenuItem
  93.       Caption = 'Zoom &In'
  94.       ShortCut = 0
  95.       OnClick = ViewZoomIn
  96.     end
  97.     object LocalZoomOut: TMenuItem
  98.       Caption = 'Zoom &Out'
  99.       ShortCut = 0
  100.       OnClick = ViewZoomOut
  101.     end
  102.   end
  103. end
  104.