anchor.diff:    procedure TMainForm.btnDisplayBMP(Sender: TObject);
     var
       bmp: TfpgImage;
  +    i: integer;
     begin
       bmp := LoadImage_BMP('button.bmp');
       //    bmp := LoadImage_BMP('..\images\close.bmp');
  
positive.code:     sbar.Left   := 150;
      sbar.Height := 100;
      sbar.Max    := 15;
    end;
  
    procedure MainProc;
    var
      frm: TMainForm;
    begin
      fpgApplication.Initialize;
      frm := TMainForm.Create(nil);
      frm.Show;
      fpgApplication.Run;
    end;
  
  
  begin
  
negative.code:     Canvas.DrawImagePart(50, 240, bmp, 32, 0, 32, 21);
      Canvas.DrawString(16, 242, 'OK');
  
      // Lets draw a normal XP Button 75x21
      {top left corner}
  //    Canvas.DrawImagePart(10, 280, bmp, 32, 0, 3, 3);
      { left }
      Canvas.DrawImagePart(10, 280, bmp, 32, 0, 3, 21);
      { body }
      for i := 13 to 69 do
        Canvas.DrawImagePart(i, 280, bmp, 35, 0, 1, 21);
      { right }
      Canvas.DrawImagePart(i, 280, bmp, 32+29, 0, 3, 21);
  //    Canvas.DrawString(16, 242, 'OK');
  
      
      Canvas.EndDraw;
  
      bmp.Free;
      
    end;
  
    procedure TMainForm.btn3Click(Sender: TObject);
  