object MainForm: TMainForm Left = 255 Top = 121 Caption = 'Image View Layers Example' ClientHeight = 590 ClientWidth = 787 Color = clBtnFace ParentFont = True Menu = MainMenu OnCreate = FormCreate OnDestroy = FormDestroy TextHeight = 15 object ImgView: TImgView32 Left = 0 Top = 0 Width = 656 Height = 590 Align = alClient Bitmap.DrawMode = dmBlend Bitmap.ResamplerClassName = 'TNearestResampler' BitmapAlign = baCustom Scale = 1.000000000000000000 ScaleMode = smScale ScrollBars.ShowHandleGrip = True ScrollBars.Style = rbsDefault ScrollBars.Size = 16 SizeGrip = sgNone OverSize = 20 TabOrder = 0 TabStop = True OnKeyDown = ImgViewKeyDown OnMouseDown = ImgViewMouseDown end object PnlControl: TPanel Left = 656 Top = 0 Width = 131 Height = 590 Align = alRight BevelOuter = bvNone TabOrder = 1 object PnlImage: TPanel Left = 0 Top = 0 Width = 131 Height = 77 Align = alTop TabOrder = 0 Visible = False object PnlImageHeader: TPanel Left = 1 Top = 1 Width = 129 Height = 16 Align = alTop BevelOuter = bvNone Caption = 'Image Properties' Color = 10178048 Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Segoe UI' Font.Style = [] ParentBackground = False ParentFont = False TabOrder = 0 end object CbxImageInterpolate: TCheckBox Left = 16 Top = 23 Width = 97 Height = 17 Caption = 'Interpolated' TabOrder = 1 OnClick = CbxImageInterpolateClick end object CbxOptRedraw: TCheckBox Left = 16 Top = 47 Width = 105 Height = 17 Caption = 'Optimize Repaints' Checked = True State = cbChecked TabOrder = 2 OnClick = CbxOptRedrawClick end end object PnlBitmapLayer: TPanel Left = 0 Top = 77 Width = 131 Height = 168 Align = alTop TabOrder = 1 Visible = False object LblOpacity: TLabel Left = 8 Top = 24 Width = 44 Height = 15 Caption = 'Opacity:' end object PnlBitmapLayerHeader: TPanel Left = 1 Top = 1 Width = 129 Height = 16 Align = alTop BevelOuter = bvNone Caption = 'Bitmap Layer Properties' Color = 10178048 Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Segoe UI' Font.Style = [] ParentBackground = False ParentFont = False TabOrder = 0 end object GbrLayerOpacity: TGaugeBar Left = 16 Top = 40 Width = 105 Height = 12 Backgnd = bgPattern HandleSize = 16 Max = 255 ShowArrows = False ShowHandleGrip = True Style = rbsMac Position = 255 OnChange = LayerOpacityChanged end object CbxLayerInterpolate: TCheckBox Left = 16 Top = 64 Width = 97 Height = 17 Caption = '&Interpolated' TabOrder = 2 OnClick = CbxLayerInterpolateClick end object BtnLayerRescale: TButton Left = 16 Top = 112 Width = 105 Height = 17 Caption = 'Rescale' TabOrder = 3 OnClick = BtnLayerRescaleClick end object BtnLayerResetScale: TButton Left = 16 Top = 136 Width = 105 Height = 17 Caption = 'Scale to 100%' TabOrder = 4 OnClick = BtnLayerResetScaleClick end object CbxCropped: TCheckBox Left = 16 Top = 88 Width = 97 Height = 17 Caption = '&Cropped' TabOrder = 5 OnClick = CbxCroppedClick end end object PnlMagnification: TPanel Left = 0 Top = 355 Width = 131 Height = 168 Align = alTop TabOrder = 2 Visible = False object LblMagifierOpacity: TLabel Left = 8 Top = 24 Width = 44 Height = 15 Caption = 'Opacity:' end object LblMagnification: TLabel Left = 8 Top = 64 Width = 77 Height = 15 Caption = 'Magnification:' end object LblRotation: TLabel Left = 8 Top = 104 Width = 48 Height = 15 Caption = 'Rotation:' end object PnlMagnificationHeader: TPanel Left = 1 Top = 1 Width = 129 Height = 16 Align = alTop BevelOuter = bvNone Caption = 'Magnifier (All) Properties' Color = 10178048 Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Segoe UI' Font.Style = [] ParentBackground = False ParentFont = False TabOrder = 0 end object GbrMagnOpacity: TGaugeBar Left = 16 Top = 40 Width = 105 Height = 12 Backgnd = bgPattern HandleSize = 16 Max = 255 ShowArrows = False ShowHandleGrip = True Style = rbsMac Position = 255 OnChange = PropertyChange end object GbrMagnMagnification: TGaugeBar Left = 16 Top = 80 Width = 105 Height = 12 Backgnd = bgPattern HandleSize = 16 Max = 50 ShowArrows = False ShowHandleGrip = True Style = rbsMac Position = 10 OnChange = PropertyChange end object GbrMagnRotation: TGaugeBar Left = 16 Top = 120 Width = 105 Height = 12 Backgnd = bgPattern HandleSize = 16 Max = 180 Min = -180 ShowArrows = False ShowHandleGrip = True Style = rbsMac Position = 0 OnChange = PropertyChange end object CbxMagnInterpolate: TCheckBox Left = 16 Top = 144 Width = 97 Height = 17 Caption = 'Interpolated' TabOrder = 4 OnClick = PropertyChange end end object PnlButtonMockup: TPanel Left = 0 Top = 245 Width = 131 Height = 110 Align = alTop TabOrder = 3 Visible = False object LblBorderRadius: TLabel Left = 8 Top = 24 Width = 76 Height = 15 Caption = 'Border Radius:' end object LblBorderWidth: TLabel Left = 8 Top = 64 Width = 73 Height = 15 Caption = 'Border Width:' end object PnlButtonMockupHeader: TPanel Left = 1 Top = 1 Width = 129 Height = 16 Align = alTop BevelOuter = bvNone Caption = 'Button (All) Properties' Color = 10178048 Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Segoe UI' Font.Style = [] ParentBackground = False ParentFont = False TabOrder = 0 end object GbrBorderRadius: TGaugeBar Left = 16 Top = 40 Width = 105 Height = 12 Backgnd = bgPattern HandleSize = 16 Max = 20 Min = 1 ShowArrows = False ShowHandleGrip = True Style = rbsMac Position = 5 OnChange = PropertyChange end object GbrBorderWidth: TGaugeBar Left = 16 Top = 80 Width = 105 Height = 12 Backgnd = bgPattern HandleSize = 16 Max = 30 Min = 10 ShowArrows = False ShowHandleGrip = True Style = rbsMac Position = 20 OnChange = PropertyChange end end end object MainMenu: TMainMenu Left = 64 Top = 8 object MnuFile: TMenuItem Caption = 'File' OnClick = MnuFileClick object MnuFileNew: TMenuItem Caption = 'New...' OnClick = MnuFileNewClick end object MnuFileOpen: TMenuItem Caption = 'Open...' OnClick = MnuFileOpenClick end object Saveas1: TMenuItem Action = ActionSave end object N6: TMenuItem Caption = '-' end object MnuPrint: TMenuItem Caption = 'Print' OnClick = MnuPrintClick end end object MenuItemEdit: TMenuItem Caption = 'Edit' object MenuItemCopy: TMenuItem Action = ActionCopy end object MenuItemPasteNew: TMenuItem Action = ActionPasteNew end object MenuItemPasteInto: TMenuItem Action = ActionPasteInto end end object MnuLayers: TMenuItem Caption = 'Layers' OnClick = MnuLayersClick object MnuNewBitmapLayer: TMenuItem Caption = 'New Bitmap Layer...' OnClick = MnuNewBitmapLayerClick end object MnuNewBitmapRGBA: TMenuItem Caption = 'New Bitmap Layer with Alpha Channel...' OnClick = MnuNewBitmapRGBAClick end object MnuNewCustomLayer: TMenuItem Caption = 'New Custom Layer' object MnuSimpleDrawing: TMenuItem Caption = 'Simple Drawing Layer' OnClick = MnuSimpleDrawingClick end object MnuButtonMockup: TMenuItem Caption = 'Button Mockup' OnClick = MnuButtonMockupClick end object MnuMagnifier: TMenuItem Caption = 'Magnifier' OnClick = MnuMagnifierClick end end object N4: TMenuItem Caption = '-' end object MnuFlatten: TMenuItem Caption = 'Flatten Layers' OnClick = MnuFlattenClick end end object MimArrange: TMenuItem Caption = 'Selection' OnClick = MimArrangeClick object MnuBringFront: TMenuItem Tag = 1 Caption = 'Bring to Front' OnClick = MnuReorderClick end object MnuSendBack: TMenuItem Tag = 2 Caption = 'Send to Back' OnClick = MnuReorderClick end object N1: TMenuItem Caption = '-' OnClick = MnuReorderClick end object MnuLevelUp: TMenuItem Tag = 3 Caption = 'Up One Level' OnClick = MnuReorderClick end object MnuLevelDown: TMenuItem Tag = 4 Caption = 'Down one Level' OnClick = MnuReorderClick end object N7: TMenuItem Caption = '-' end object MnuScaled: TMenuItem Caption = 'Scaled' Checked = True OnClick = MnuScaledClick end object N3: TMenuItem Caption = '-' end object MnuFlipHorz: TMenuItem Caption = 'Flip Horizontally' OnClick = MnuFlipHorzClick end object MnuFlipVert: TMenuItem Caption = 'Flip Vertically' OnClick = MnuFlipVertClick end object N5: TMenuItem Caption = '-' end object MnuRotate90: TMenuItem Caption = 'Rotate 90' OnClick = MnuRotate90Click end object MnuRotate180: TMenuItem Caption = 'Rotate 180' OnClick = MnuRotate180Click end object MnuRotate270: TMenuItem Caption = 'Rotate 270' OnClick = MnuRotate270Click end object N2: TMenuItem Caption = '-' end object MnuDelete: TMenuItem Caption = 'Delete' OnClick = MnuDeleteClick end end end object OpenDialog: TOpenDialog Filter = 'All (*.tga;*.dds;*.dib;*.tif;*.gif;*.png;*.png;*.gif;*.png;*.jpg' + ';*.jpeg;*.bmp;*.tif;*.tiff;*.ico;*.emf;*.wmf)|*.tga;*.dds;*.dib;' + '*.tif;*.gif;*.png;*.png;*.gif;*.png;*.jpg;*.jpeg;*.bmp;*.tif;*.t' + 'iff;*.ico;*.emf;*.wmf|Targa (*.tga)|*.tga|Microsoft DirectDraw S' + 'urface (*.dds)|*.dds|Device Independent Bitmap (*.dib)|*.dib|All' + ' graphics (*.tif;*.gif;*.png)|*.tif;*.gif;*.png|PNG graphics fro' + 'm DevExpress (*.png)|*.png|GIF Image (*.gif)|*.gif|Portable Netw' + 'ork Graphics (*.png)|*.png|JPEG Image File (*.jpg)|*.jpg|JPEG Im' + 'age File (*.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp|TIFF Images (*.ti' + 'f)|*.tif|TIFF Images (*.tiff)|*.tiff|Icons (*.ico)|*.ico|Enhance' + 'd Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf' Left = 64 Top = 56 end object SaveDialog: TSaveDialog Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing] Left = 64 Top = 104 end object ActionList: TActionList Left = 240 Top = 180 object ActionCopy: TAction Caption = 'Copy' ShortCut = 16451 OnExecute = ActionCopyExecute OnUpdate = ActionCopyUpdate end object ActionPasteNew: TAction Caption = 'Paste as new layer' ShortCut = 16470 OnExecute = ActionPasteNewExecute OnUpdate = ActionPasteNewUpdate end object ActionPasteInto: TAction Caption = 'Paste into selection' ShortCut = 24662 OnExecute = ActionPasteIntoExecute OnUpdate = ActionPasteIntoUpdate end object ActionSave: TAction Caption = 'Save as...' OnExecute = ActionSaveExecute end end object TimerMarchingAnts: TTimer Interval = 50 OnTimer = TimerMarchingAntsTimer Left = 388 Top = 312 end end