anchor.diff:    var DragObject: TDragObject);
   begin
     _Is_Dragging_Text := true;
  -  // StatusBar.Panels[0].Text := 'RTF start drag';
   end;
   
   procedure TForm_Main.RxRTFEndDrag(Sender, Target: TObject; X, Y: Integer);
  
positive.code:   if assigned( Log ) then Log.Flush( true );
    {$ENDIF}
    { [debug] }
  
    (*
    if ( ShiftDown and ( pages.PageCount > 0 )) then
    begin
  
      s := '';
      for i := 0 to pred( pages.ActivePage.ControlCount ) do
        s := s + 'Controls[' + inttostr( i ) + '] ClassName: "' +
                  pages.ActivePage.Controls[i].ClassName +
                  '"  Name: ' + pages.ActivePage.Controls[i].Name + #13;
  
      s := 'pages.ControlCount: ' + inttostr( pages.ControlCount ) + #13 +
      'ActivePage.ControlCount: ' + inttostr( pages.ActivePage.ControlCount ) + #13#13 +
      s;
  
      showmessage( s );
  
      exit;
    end;
    *)
  
    {
    with ActiveNote.Editor.Font do
      s := Format( 'Name: %s  Size: %d', [Name, Size] ) + #13;
    with ActiveNote.EditorChrome.Font do
      s := s + Format( 'Name: %s  Size: %d', [Name, Size] );
    if ( messagedlg( s, mtInformation, [mbOK,mbCancel], 0 ) = mrCancel ) then exit;
    }
  
  
    s := format( 'Win32Platform: %d', [Win32Platform] ) + #13 +
         format( 'Win32MajorVersion: %d ' + #13 +
  
negative.code: 
  //procedure TForm_Main.MMHelpEmailAuthorClick(Sender: TObject);
  //begin
  //  if messagedlg('',
  //    mtConfirmation, [mbOK,mbCancel], 0
  //    ) <> mrOK then exit;
  //  screen.Cursor := crHourGlass;
  //  ShellExecute( 0, 'open', PChar( 'mailto:' + Program_Email ), nil, nil, SW_NORMAL );
  //  screen.Cursor := crDefault;
  