object Core: TCore OnCreate = DataModuleCreate OldCreateOrder = False Height = 491 HorizontalOffset = 838 VerticalOffset = 420 Width = 857 object ActionList1: TActionList Images = ImageList1 left = 201 top = 160 object AFileNew: TAction Category = 'File' Caption = 'New...' OnExecute = AFileNewExecute end object AExit: TAction Caption = 'Exit' OnExecute = AExitExecute end object AImageClear: TAction Category = 'Image' Caption = 'Clear' OnExecute = AImageClearExecute end object AZoomIn: TAction Category = 'View' Caption = 'Zoom in' OnExecute = AZoomInExecute ShortCut = 107 end object AZoomOut: TAction Category = 'View' Caption = 'Zoom out' OnExecute = AZoomOutExecute ShortCut = 109 end object AZoomAll: TAction Category = 'View' Caption = 'Zoom all' OnExecute = AZoomAllExecute end object AZoomNormal: TAction Category = 'View' Caption = 'Zoom 100%' OnExecute = AZoomNormalExecute end object AFileOpen: TAction Category = 'File' Caption = 'Open...' end object AFileClose: TAction Category = 'File' Caption = 'Close' end object AFileSave: TAction Category = 'File' Caption = 'Save' end object AFileSaveAs: TAction Category = 'File' Caption = 'Save as...' end object AImageRandom: TAction Category = 'Image' Caption = 'Random' OnExecute = AImageRandomExecute end object AImageFlip: TAction Category = 'Image' Caption = 'Flip' OnExecute = AImageFlipExecute end object AImageMirror: TAction Category = 'Image' Caption = 'Mirror' OnExecute = AImageMirrorExecute end object AImageGradient: TAction Category = 'Image' Caption = 'Gradient' OnExecute = AImageGradientExecute end end object ImageList1: TImageList left = 200 top = 240 end end