object fmain: Tfmain Left = 199 Top = 87 Caption = 'Layers Demo - www.ImageEn.com' ClientHeight = 712 ClientWidth = 954 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Menu = MainMenu1 OldCreateOrder = True Position = poScreenCenter OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 728 Top = 0 Width = 226 Height = 712 Align = alRight BevelOuter = bvNone TabOrder = 0 object Label2: TLabel Left = 8 Top = 595 Width = 30 Height = 13 Anchors = [akLeft, akBottom] Caption = 'Zoom:' end object SpeedButton1: TSpeedButton Left = 159 Top = 315 Width = 58 Height = 25 AllowAllUp = True Anchors = [akLeft, akBottom] GroupIndex = 12 Caption = 'Rotate' OnClick = SpeedButton1Click end object lblPreviewQuality: TLabel Left = 8 Top = 622 Width = 109 Height = 13 Anchors = [akLeft, akBottom] Caption = 'Layer Preview Quality:' end object ImageEnMView1: TImageEnMView Left = 8 Top = 8 Width = 145 Height = 332 Background = clGray Ctl3D = False ParentCtl3D = False BorderStyle = bsNone StoreType = ietThumb ThumbWidth = 110 ThumbHeight = 100 HorizBorder = 4 VertBorder = 4 TextMargin = 0 OnImageSelect = ImageEnMView1ImageSelect OnImageDeselect = ImageEnMView1ImageDeselect GridWidth = 1 SelectionColor = clRed Style = iemsFlat ThumbnailsBackground = clGray ThumbnailsBackgroundSelected = clBtnFace EnableMultiSelect = True MultiSelectionOptions = [] ThumbnailsBorderWidth = 0 ThumbnailsBorderColor = clBlack DefaultBottomText = iedtNone Anchors = [akLeft, akTop, akBottom] TabOrder = 0 end object Button1: TButton Left = 159 Top = 8 Width = 58 Height = 25 Hint = 'Add new layer' Caption = 'Add' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 159 Top = 60 Width = 58 Height = 25 Hint = 'Remove selected layers' Caption = 'Remove' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = Button2Click end object GroupBox1: TGroupBox Left = 8 Top = 347 Width = 209 Height = 213 Anchors = [akLeft, akBottom] Caption = ' Selected Layer ' TabOrder = 3 object Label3: TLabel Left = 8 Top = 177 Width = 52 Height = 13 Caption = 'Rectangle:' end object Label4: TLabel Left = 8 Top = 192 Width = 8 Height = 13 Caption = '()' end object PageControl1: TPageControl Left = 7 Top = 16 Width = 194 Height = 153 ActivePage = TabSheet1 TabOrder = 0 object TabSheet1: TTabSheet Caption = 'General' object CheckBox1: TCheckBox Left = 7 Top = 3 Width = 89 Height = 17 Alignment = taLeftJustify Caption = 'Visible' TabOrder = 0 OnClick = CheckBox1Click end object CheckBox3: TCheckBox Left = 7 Top = 20 Width = 89 Height = 17 Alignment = taLeftJustify Caption = 'Cropped' TabOrder = 1 OnClick = CheckBox3Click end object CheckBox5: TCheckBox Left = 7 Top = 37 Width = 89 Height = 17 Alignment = taLeftJustify Caption = 'Visible Box' TabOrder = 2 OnClick = CheckBox5Click end object CheckBox6: TCheckBox Left = 7 Top = 54 Width = 89 Height = 17 Alignment = taLeftJustify Caption = 'Locked' TabOrder = 3 OnClick = CheckBox6Click end object CheckBox10: TCheckBox Left = 7 Top = 71 Width = 89 Height = 17 Alignment = taLeftJustify Caption = 'Layer Mask' TabOrder = 4 OnClick = CheckBox10Click end object CheckBox11: TCheckBox Left = 7 Top = 88 Width = 89 Height = 17 Alignment = taLeftJustify Caption = 'Selectable' TabOrder = 5 OnClick = CheckBox11Click end object CheckBox12: TCheckBox Left = 7 Top = 105 Width = 89 Height = 17 Alignment = taLeftJustify Caption = 'Draw Outer' TabOrder = 6 OnClick = CheckBox12Click end end object TabSheet2: TTabSheet Caption = 'Effects' object Label1: TLabel Left = 8 Top = 10 Width = 37 Height = 13 Caption = 'Opacity' end object Label7: TLabel Left = 10 Top = 41 Width = 48 Height = 13 Caption = 'Operation' end object lblFeather: TLabel Left = 10 Top = 72 Width = 65 Height = 13 Caption = 'Edge Feather' end object TrackBar1: TTrackBar Left = 80 Top = 9 Width = 105 Height = 18 Max = 100 Frequency = 16 TabOrder = 0 OnChange = TrackBar1Change end object ComboBox2: TComboBox Left = 84 Top = 37 Width = 89 Height = 21 Style = csDropDownList TabOrder = 1 OnChange = ComboBox2Change Items.Strings = ( 'Normal' 'Add (Additive)' 'Sub (Difference)' 'Div' 'Mul' 'OR' 'AND' 'XOR' 'MAX (Lighten)' 'MIN (Darken)' 'Average' 'Screen' 'Negation' 'Exclusion' 'Overlay' 'HardLight' 'SoftLight' 'XFader' 'ColorEdge' 'ColorBurn' 'InverseColorDodge' 'InverseColorBurn' 'SoftDodge' 'SoftBurn' 'Reflect' 'Glow' 'Freeze' 'Eat' 'Subtractive' 'Interpolation' 'Stamp' 'Red' 'Green' 'Blue' 'Hue' 'Saturation' 'Color' 'Luminosity') end object edtEdgeFeather: TEdit Left = 84 Top = 68 Width = 60 Height = 21 TabOrder = 2 Text = '0' OnChange = edtEdgeFeatherChange end object updEdgeFeather: TUpDown Left = 144 Top = 68 Width = 16 Height = 21 Associate = edtEdgeFeather TabOrder = 3 end end object TabSheet3: TTabSheet Caption = 'Magnify layer' object Label5: TLabel Left = 10 Top = 34 Width = 63 Height = 13 Caption = 'Magnification' end object Label6: TLabel Left = 10 Top = 59 Width = 65 Height = 13 Caption = 'Magnify Style' end object Label8: TLabel Left = 10 Top = 86 Width = 74 Height = 13 Caption = 'Magnify Source' end object CheckBox4: TCheckBox Left = 8 Top = 9 Width = 92 Height = 17 Alignment = taLeftJustify Caption = 'Magnify layer' TabOrder = 0 OnClick = CheckBox4Click end object TrackBar3: TTrackBar Left = 82 Top = 31 Width = 105 Height = 18 Max = 1000 Frequency = 100 TabOrder = 1 OnChange = TrackBar3Change end object ComboBox1: TComboBox Left = 88 Top = 55 Width = 89 Height = 21 Style = csDropDownList TabOrder = 2 OnChange = ComboBox1Change Items.Strings = ( 'Rectangle' 'Ellipse') end object ComboBox3: TComboBox Left = 88 Top = 82 Width = 89 Height = 21 Style = csDropDownList TabOrder = 3 OnChange = ComboBox3Change Items.Strings = ( 'Background' 'Canvas') end end end end object btnMerge: TButton Left = 159 Top = 196 Width = 58 Height = 25 Hint = 'Merge selected layers' Anchors = [akLeft, akBottom] Caption = 'Merge' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = btnMergeClick end object Button4: TButton Left = 159 Top = 241 Width = 58 Height = 25 Hint = 'Move Up' Anchors = [akLeft, akBottom] Caption = 'Up' ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = Button4Click end object Button5: TButton Left = 159 Top = 267 Width = 58 Height = 25 Hint = 'Move Down' Anchors = [akLeft, akBottom] Caption = 'Down' ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = Button5Click end object Button6: TButton Left = 159 Top = 34 Width = 58 Height = 25 Hint = 'Insert new layer' Caption = 'Insert' ParentShowHint = False ShowHint = True TabOrder = 7 OnClick = Button6Click end object TrackBar2: TTrackBar Left = 40 Top = 591 Width = 161 Height = 20 Anchors = [akLeft, akBottom] Max = 3000 Min = 1 Frequency = 100 Position = 100 TabOrder = 8 OnChange = TrackBar2Change end object CheckBox2: TCheckBox Left = 8 Top = 568 Width = 121 Height = 17 Anchors = [akLeft, akBottom] Caption = 'Show Layers Box' TabOrder = 9 OnClick = CheckBox2Click end object CheckBox8: TCheckBox Left = 8 Top = 645 Width = 97 Height = 17 Anchors = [akLeft, akBottom] Caption = 'Alpha Channel' Checked = True State = cbChecked TabOrder = 10 OnClick = CheckBox8Click end object CheckBox9: TCheckBox Left = 8 Top = 666 Width = 97 Height = 17 Anchors = [akLeft, akBottom] Caption = 'Aspect Ratio' Checked = True State = cbChecked TabOrder = 11 OnClick = CheckBox9Click end object cmbPreviewQuality: TComboBox Left = 121 Top = 619 Width = 96 Height = 21 Style = csDropDownList Anchors = [akLeft, akBottom] TabOrder = 13 OnChange = cmbPreviewQualityChange Items.Strings = ( 'Fast' 'Best (Delayed)' 'Best Quality') end object chkMultiSelect: TCheckBox Left = 8 Top = 687 Width = 201 Height = 17 Anchors = [akLeft, akBottom] Caption = 'Allow Multiple Select (Shift key)' Checked = True State = cbChecked TabOrder = 12 OnClick = chkMultiSelectClick end end object Panel2: TPanel Left = 0 Top = 0 Width = 728 Height = 712 Align = alClient BevelOuter = bvNone TabOrder = 1 object ImageEnView1: TImageEnView Left = 0 Top = 0 Width = 728 Height = 712 Background = clBtnFace Ctl3D = False ParentCtl3D = False BorderStyle = bsNone LegacyBitmap = False BackgroundStyle = iebsChessboard OnLayerNotify = ImageEnView1LayerNotify OnDrawLayerBox = ImageEnView1DrawLayerBox EnableInteractionHints = True Align = alClient TabOrder = 0 end end object MainMenu1: TMainMenu Left = 112 Top = 64 object File1: TMenuItem Caption = '&File' object Open1: TMenuItem Caption = '&Open...' OnClick = Open1Click end object Save1: TMenuItem Caption = '&Save Layer...' OnClick = Save1Click end object N2: TMenuItem Caption = '-' end object Loadalllayers1: TMenuItem Caption = 'Load all layers...' OnClick = Loadalllayers1Click end object Savealllayers1: TMenuItem Caption = 'Save all layers...' OnClick = Savealllayers1Click end object N3: TMenuItem Caption = '-' end object Savemergedlayers1: TMenuItem Caption = 'Save Merged Layers...' OnClick = Savemergedlayers1Click end object N1: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = '&Exit' OnClick = Exit1Click end end end object dlgSaveImages: TSaveImageEnDialog Filter = 'JPEG Bitmap (JPG)|*.jpg|CompuServe Bitmap (GIF)|*.gif|TIFF Bitma' + 'p (TIF)|*.tif|PaintBrush (PCX)|*.pcx|Portable Network Graphics (' + 'PNG)|*.png|Windows Bitmap (BMP)|*.bmp|OS/2 Bitmap (BMP)|*.bmp|Ta' + 'rga Bitmap (TGA)|*.tga|Portable PixMap (PXM)|*.pxm|Portable PixM' + 'ap (PPM)|*.ppm|Portable GreyMap (PGM)|*.pgm|Portable Bitmap (PBM' + ')|*.pbm|JPEG2000 (JP2)|*.jp2|JPEG2000 Code Stream (J2K)|*.j2k|Mu' + 'ltipage PCX (DCX)|*.dcx' ExOptions = [sdShowPreview, sdShowAdvanced] Left = 320 Top = 64 end object dlgOpenLayers: TOpenImageEnDialog DefaultExt = 'ien' Filter = 'ImageEn Layers|*.ien;*.imageen;*.lyr|All Files|*.*' AutoSetFilter = False Left = 426 Top = 64 end object dlgSaveLayers: TSaveImageEnDialog DefaultExt = 'ien' Filter = 'ImageEn Layers|*.ien|ImageEn Layers|*.lyr' AutoSetFilter = False ExOptions = [sdShowPreview, sdShowAdvanced] Left = 212 Top = 64 end end