ShowHTMLMapperDlg example for Delphi

procedure TForm1.ShowHTMLMapperDlg1Click(Sender: TObject); 
begin
   LEADDlgWeb1.DlgFlags:= 0; 
   LEADDlgWeb1.LEADImage:= LEADImage1; 

   LEADDlgWeb1.HistoryURLMaxLength:= 35; 
   LEADDlgWeb1.HistoryALTMaxLength:= 35; 
   LEADDlgWeb1.HistoryTargetMaxLength:= 10; 
   LEADDlgWeb1.HistoryRolloverMaxLength:= MAX_PATH; 

   LEADDlgWeb1.HistoryURLsCount:= 5; 
   LEADDlgWeb1.HistoryALTsCount:= 5; 
   LEADDlgWeb1.HistoryTargetsCount:= 5; 
   LEADDlgWeb1.HistoryRolloversCount:= 5; 

   LEADDlgWeb1.HistoryURLsValidCount:= 2; 
   LEADDlgWeb1.HistoryALTsValidCount:= 1; 
   LEADDlgWeb1.HistoryTargetsValidCount:= 1; 
   LEADDlgWeb1.HistoryRolloversValidCount:= 3; 

   LEADDlgWeb1.HistoryURL [0]:='http://www.medicorimaging.com/'; 
   LEADDlgWeb1.HistoryURL [1]:='http://www.leadtools.com/'; 

   LEADDlgWeb1.HistoryALT [0]:='LEADTOOLS Online!'; 

   LEADDlgWeb1.HistoryTarget [0]:='_parent'; 

   LEADDlgWeb1.HistoryRollover [0]:='e:\images\image3.jpg'; 
   LEADDlgWeb1.HistoryRollover [1]:='e:\images\image2.jpg'; 
   LEADDlgWeb1.HistoryRollover [2]:='e:\images\image1.jpg'; 

   LEADDlgWeb1.ShowHTMLMapperDlg ( Self ); 
end;