anchor.diff:      HotTrack := False;
       PopupFrame := False;
       TabOrder := 1;
  +    OnDoubleClick  := @lbIndexDoubleClick;
     end;
   
     {@VFD_BODY_END: MainForm}
  
positive.code:     ShowImages := True;
      TabOrder := 0;
      //    OnChange  := @tvContentsChange;
    end;
  
    Splitter1 := TfpgSplitter.Create(bvlBody);
  
negative.code: procedure TMainForm.MainFormCloseQuery(Sender: TObject; var CanClose: boolean);
  begin
    CloseFile;
  end;
  
  procedure TMainForm.PageControl1Change(Sender: TObject; NewActiveSheet: TfpgTabSheet);
  begin
    if NewActiveSheet = tsIndex then
    begin
      if lbIndex.Items.Count = 0 then
        btnShowIndex(nil);
    end;
  end;
  
  procedure TMainForm.tvContentsDoubleClick(Sender: TObject; AButton: TMouseButton;
    AShift: TShiftState; const AMousePos: TPoint);
  begin
    if tvContents.Selection <> nil then
      DisplayTopic;
  end;
  
  procedure TMainForm.lbIndexDoubleClick(Sender: TObject; AButton: TMouseButton;
    AShift: TShiftState; const AMousePos: TPoint);
  begin
    DisplayTopic;
  end;
  
  procedure TMainForm.FileOpen;
  