procedure Tfmain.DrawLine(X: Integer; Y: Integer);
{ Draw a line. }
var
  iPenSize: Integer;
  iPenColor: TColor;
  iPenAlpha: Integer;
  iIECanvas: TIECanvas;
begin
  { Draw on the Non-Alpha Canvas }
  iIECanvas := TIECanvas.Create(ImageEnView1.IEBitmap.Canvas, false, false);
  iPenSize := 1;
  iPenColor := clBlack;
  iPenAlpha := 255;
  iIECanvas.Pen.Color := iPenColor;
  iIECanvas.Pen.Mode := pmNotXor;
  iIECanvas.Pen.Style := psDot;
  iIECanvas.Pen.Width := iPenSize;
  iIECanvas.Brush.Color := clBlack;
  iIECanvas.Brush.BackColor := clBlack;
  iIECanvas.Brush.Style := bsClear;
  iIECanvas.Brush.Transparency := 255;
  iIECanvas.MoveTo(X, Y);
  iIECanvas.LineTo(ImageEnView1.Bitmap.Width, Y);
  iIECanvas.Free();
  { Draw on the Alpha Canvas - do not assign color here... it will overwrite
    the alphachannel }
  ImageEnView1.IEBitmap.AlphaChannel.CanvasCurrentAlpha := iPenAlpha;
  iIECanvas := TIECanvas.Create(ImageEnView1.IEBitmap.AlphaChannel.Canvas,
    false, false);
  iIECanvas.Pen.Width := iPenSize;
  iIECanvas.Pen.Style := psDot;
  iIECanvas.Pen.Transparency := 255;
  iIECanvas.Brush.Transparency := 0;
  iIECanvas.MoveTo(X, Y);
  iIECanvas.LineTo(ImageEnView1.Bitmap.Width, Y);
  iIECanvas.Free();
end;

procedure Tfmain.DrawLatitude1Click(Sender: TObject);
var
  iLayer: Integer;
  Y: Integer;
begin
  { Add a layer }
  iLayer := ImageEnView1.LayersAdd;
  ImageEnView1.LayersCurrent := iLayer;
  ImageEnView1.CurrentLayer.name := 'Latitiude Layer';
  ImageEnView1.CurrentLayer.PosX := 0;
  ImageEnView1.CurrentLayer.PosY := 0;
  ImageEnView1.CurrentLayer.VisibleBox := True;
  ImageEnView1.CurrentLayer.Selectable := True;
  ImageEnView1.LayersDrawBox := True;
  ImageEnView1.CurrentLayer.Cropped := True;
  ImageEnView1.CurrentLayer.Width := ImageEnView1.Bitmap.Width;
  ImageEnView1.CurrentLayer.Height := ImageEnView1.Bitmap.Height;
  { Render a transparent layer }
  ImageEnView1.Proc.SetTransparentColors(ImageEnView1.Layers[iLayer]
    .Bitmap.Pixels[0, ImageEnView1.Layers[iLayer].Bitmap.Height - 1],
    ImageEnView1.Layers[iLayer].Bitmap.Pixels[0,
    ImageEnView1.Layers[iLayer].Bitmap.Height - 1], 0);
  Y := 0;
  while Y <= ImageEnView1.IEBitmap.Height do
  begin
    // Draw horzontal lines
    if Y <> 0 then
    DrawLine(0, Y);
    inc(Y, 200);
  end;
end;

with Image.BackBuffer.Canvas do
  begin
    // Draw lines of latitude
    y:=0;

    while y<=Image.IEBitmap.Height do
    begin
      ndx:=Image.AddNewObject;
      Image.ObjKind[ndx]     := iekLINE;
      Image.ObjLeft[ndx]     := 0;
      Image.ObjTop[ndx]      := y;
      Image.ObjWidth[ndx]    := Image.IEBitmap.Width;
      Image.ObjHeight[ndx]   := 0;
      Image.ObjPenColor[ndx] := clBlack;
      Image.ObjPenStyle[ndx] := psDot;

      inc(y,200);
    end;