TPictureEditorForm

type TPictureEditorForm = class(TForm)

  ColorPanel: TPanel;

  TabSheetAlpha: TTabSheet;

  Bevel1: TBevel;

  Cancel: TButton;

  ButtonClear: TToolButton;

  ButtonCopy: TToolButton;

  ImageList: TImageList;

  TabSheetRGB: TTabSheet;

  Label1: TLabel;

  ButtonLoad: TToolButton;

  MagnCombo: TComboBox;

  MenuItemClear: TMenuItem;

  MenuItemCopy: TMenuItem;

  MenuItemInvert: TMenuItem;

  MenuItemLoad: TMenuItem;

  MenuItemPaste: TMenuItem;

  MenuItemSave: TMenuItem;

  mnSeparator: TMenuItem;

  mnSeparator2: TMenuItem;

  OKButton: TButton;

  PageControl: TPageControl;

  Panel1: TPanel;

  ButtonPaste: TToolButton;

  PopupMenu: TPopupMenu;

  ButtonSave: TToolButton;

  ToolBar: TToolBar;

  ToolButton2: TToolButton;

  ActionList: TActionList;

  ActionLoad: TAction;

  ActionSave: TAction;

  ActionClear: TAction;

  ActionCopy: TAction;

  ActionPaste: TAction;

  ActionInvert: TAction;

  TabSheetRGBA: TTabSheet;

  StatusBar: TStatusBar;

  procedure MagnComboChange();

  procedure ActionLoadExecute();

  procedure ActionSaveExecute();

  procedure ActionHasBitmapUpdate();

  procedure ActionClearExecute();

  procedure ActionPasteUpdate();

  procedure ActionCopyExecute();

  procedure ActionPasteExecute();

  procedure ActionInvertExecute();

protected

  OpenDialog: TOpenPictureDialog;

  SaveDialog: TSavePictureDialog;

  ImageAllChannels: TImage32;

  ImageRGBChannels: TImage32;

  ImageAlphaChannel: TImage32;

  procedure ImageMouseMove();

  procedure ImagePaintStage();

  function CurrentImage;

public

  constructor Create(); override;

  procedure LoadFromImage();

end;

TPictureEditorForm

TObject