anchor.diff:    ATStringProc_HtmlColor,
     ATFileNotif,
     ATButtons,
  +  ATPanelSimple,
     ecSyntAnal,
     proc_globdata,
     proc_lexer,
  
positive.code:     FMacroRecord: boolean;
      FMacroString: string;
      FImage: TImage;
      FImagePanel: TPanel;
      FImageFilename: string;
      FCheckFilenameOpened: TStrFunction;
      FSaveDialog: TSaveDialog;
  
negative.code:       FImageFilename:= '';
      end;
  
      FImagePanel:= TATPanelSimple.Create(Self);
      FImagePanel.OnPaint:=@DoImagePanelPaint;
      FImagePanel.Parent:= Self;
      FImagePanel.SetBounds(0, 0, 400, 400);
      FImagePanel.BorderStyle:= bsNone;
      FImagePanel.Color:= clSkyBlue;
      FImage.Parent:= FImagePanel;
  
  