procedure TImageFenceForm.BitBtn3Click(Sender: TObject);
var
  sX, sY, sW, sH,vRightOffset: integer;
  px,py,I,CountI,NextI,vObjPenWidth:Integer;
  FilePath,CountS,NextH: string;
  vRect: TRect;
  tmpFont: TFont;
begin
  px:=20;
  py:=20;
  NextH:='0';
  vRightOffset:=100;//#27178;#21521;#21491;#20559;#31227;
  vObjPenWidth:=3;

  ImageFence.LayersFixSizes( LYR_ALL_LAYERS   ); //LYR_ALL_LAYERS  LYR_SELECTED_LAYERS
  ImageFence.ObjTextAutoSize[IEV_NEXT_INSERTED_OBJECT]:=true;

  //#24038;#36793;#26694;
  ImageFence.ObjLayer[IEV_NEXT_INSERTED_OBJECT];
  with ImageFence do
  begin
    ObjKind [IEV_NEXT_INSERTED_OBJECT] := iekBOX;
    ObjLeft [IEV_NEXT_INSERTED_OBJECT] := px+vRightOffset;
    ObjTop [IEV_NEXT_INSERTED_OBJECT] := py;
    ObjWidth [IEV_NEXT_INSERTED_OBJECT] := 10;
    ObjHeight[IEV_NEXT_INSERTED_OBJECT] := vMheight;
    ObjPenWidth[IEV_NEXT_INSERTED_OBJECT]:=vObjPenWidth;
    ObjRulerUnit[IEV_NEXT_INSERTED_OBJECT]:=ieuPixels;
    ObjPenColor[ IEV_NEXT_INSERTED_OBJECT ] := clBlack;
    AddNewObject;
  end;

  //#31446;#26631;#23610;
  tmpFont := TFont.Create;
  tmpFont.Color := clBlue;
  tmpFont.Size := 12;
  tmpFont.Name := 'Arial';
  tmpFont.Height:=30;
  ImageFence.ObjLayer[IEV_NEXT_INSERTED_OBJECT];
  with ImageFence do
  begin
   ObjKind[IEV_NEXT_INSERTED_OBJECT] := iekRULER;
   SetObjRect(IEV_NEXT_INSERTED_OBJECT, Rect(
    px-15,py,
    px-15,vMheight+py));
   ObjPenWidth[IEV_NEXT_INSERTED_OBJECT]:=vObjPenWidth;
   ObjPenColor[IEV_NEXT_INSERTED_OBJECT] := clBlack;
   ObjRulerUnit[IEV_NEXT_INSERTED_OBJECT]:=ieuPixels;
   SetObjFont(IEV_NEXT_INSERTED_OBJECT, tmpFont);
   AddNewObject;
  end;

ImageFence.Update();
ImageFence.Fit();
tmpFont.Free;
end;



procedure TImageFenceForm.BitBtn4Click(Sender: TObject);
var
filename,autoid:string;
begin
  filename:= 'H:\01.jpeg';
  //#37325;#26032;#37319;#26679;
    ImageFence.Proc.SaveUndo;
    ImageFence.CopyObjectsToBack(true);
    ImageFence.LegacyBitmap := false;
    ImageFence.IEBitmap.PixelFormat := ie32f;
    ImageFence.IO.Params.BitsPerSample := 32;
    ImageFence.IO.Params.SamplesPerPixel := 1;
    ImageFence.IO.Params.TIFF_PhotometInterpret := ioTIFF_WHITEISZERO;
    ImageFence.IO.Params.TIFF_Compression := ioTIFF_UNCOMPRESSED;
    ImageFence.IO.Params.JPEG_Quality:=100;
    ImageFence.LayersFixSizes( LYR_ALL_LAYERS  ); //  LYR_SELECTED_LAYERS
    ImageFence.ObjTextAutoSize[IEV_NEXT_INSERTED_OBJECT]:=true;
    ImageFence.Proc.Resample( 0.4,rfLanczos3  );
    ImageFence.IO.SaveToFile(filename, ioJPEG);
    ImageFence.Proc.Undo;
end;