anchor.diff:    Bt_VisuMultiPages := CreateButton(Self, 250, 110, 150, 'Multiple pages', @Bt_VisuMultiPagesClick, 'stdimg.preview');
     Bt_VisuMultiSections := CreateButton(Self, 250, 150, 150, 'Multiple sections', @Bt_VisuMultiSectionsClick, 'stdimg.preview');
     Bt_VisuOutlines := CreateButton(Self, 250, 190, 150, 'Outlines', @Bt_VisuOutlinesClick, 'stdimg.preview');
  -  Bt_VisuCadres   := CreateButton(Self, 250, 230, 150, 'Draw frames', @Bt_VisuCadresClick, 'stdimg.preview');
  +  Bt_VisuFrames   := CreateButton(Self, 250, 230, 150, 'Draw frames', @Bt_VisuFramesClick, 'stdimg.preview');
     Bt_VisuColor    := CreateButton(Self, 250, 270, 150, 'Show colors', @Bt_VisuColorClick, 'stdimg.preview');
     Bt_VisuLines    := CreateButton(Self, 250, 310, 150, 'Draw lines', @Bt_VisuLinesClick, 'stdimg.preview');
     Bt_VisuGrid     := CreateButton(Self, 250, 350, 150, 'Show grid', @Bt_VisuGridClick, 'stdimg.preview');
  
positive.code: 
  end;
  
  procedure TF_Demo.Bt_PrintCadresClick(Sender: TObject);
  begin
  
  end;
  
negative.code:     procedure Bt_VisuMultiPagesClick(Sender: TObject);
      procedure Bt_VisuMultiSectionsClick(Sender: TObject);
      procedure Bt_VisuOutlinesClick(Sender: TObject);
      procedure Bt_VisuFramesClick(Sender: TObject);
      procedure Bt_VisuColorClick(Sender: TObject);
      procedure Bt_VisuLinesClick(Sender: TObject);
      procedure Bt_VisuGridClick(Sender: TObject);
  