CreateTB example for Delphi

// This example is also for:
// AutoSetTool Property, ButtonBitmapDown Property, ButtonBitmapUp Property, 
// ButtonCount Property, ButtonMenuText Property, ButtonMenuTextID Property,
// ButtonTool Property, ButtonToolTipText Property, ButtonToolTipTextID Property, 
// Visible Property, AnnToolbar Property

procedure TForm1.Button1Click(Sender: TObject);
begin
   LEADAnn1.AnnToolbar.Visible:= False;
   LEADAnn1.AnnToolbar.CreateTB (0, 0, ANNTOOLALIGN_TOP + ANNTOOLALIGN_LEFT);

   LEADAnn1.AnnToolbar.AutoSetTool:= True;
   LEADAnn1.AnnToolbar.ButtonTool [LEADAnn1.AnnToolbar.ButtonCount]:= ANNTOOL_USER_FIRST;

   LEADAnn1.Load ('D:\Pictures\Ulay1.bmp', 0, 0, 1);
   LEADAnn1.AnnToolbar.ButtonBitmapUp [LEADAnn1.AnnToolbar.ButtonCount]:= LEADAnn1.Bitmap;
   LEADAnn1.Load ('D:\Pictures\Ulay2.bmp', 0, 0, 1 );
   LEADAnn1.AnnToolbar.ButtonBitmapDown [LEADAnn1.AnnToolbar.ButtonCount]:= LEADAnn1.Bitmap;
   LEADAnn1.Load ('D:\Pictures\Ulay3.bmp', 0, 0, 1);
   LEADAnn1.AnnToolbar.ButtonToolTipTextID [LEADAnn1.AnnToolbar.ButtonCount]:= -1;
   LEADAnn1.AnnToolbar.ButtonToolTipText [LEADAnn1.AnnToolbar.ButtonCount]:= 'User defined tool';

   LEADAnn1.AnnToolbar.ButtonCount:= LEADAnn1.AnnToolbar.ButtonCount + 1;
   LEADAnn1.AnnToolbar.Visible:= True;
   LEADAnn1.AnnUserMode:= ANNUSERMODE_DESIGN;

   LEADAnn1.AnnToolbar.ButtonMenuTextID [13, 1]:= -1;
   LEADAnn1.AnnToolbar.ButtonMenuText [13, 1]:= 'My text
end;