unit Replay;
{ ================================================
  WinWCP View Records module (c) J. Dempster 1996-97
  Lets users view sets of signals records on screen
  2/5/97 ... Channel names on display and print-out
             now only displayed when channel enabled
  12/6/97 ... COPY DATA Buffer overflow fixed
  16/6/97 ... Cursor can now be written to log file
              C1-C0 relative cursor mode added
  25/8/97 ... Size of mmCursor box adjusted,
              number format reduced to 3 sign. figs.
  31/8/97 ... Short cut keys for setting record type
  10/9/97 ... Active record now only displayed once (V1.7c)
  24/2/98 ... +/- keys now step forward/back records
              Accepted/Rejected and Record Type no longer accidentally
              changed by short cut keys.
  2/4/98 .... Cursor readout now displays both absolute and C1-C0 readings
  11/7/99 ... V3.0 32 bit version
  4/9/99 ... Display grid added
  22/10/99 ... ScopeDisplay zero levels now updated before CopyDataToClipboard call
  3/11/99 ... NewFile now closes form in no records available
  28/11/00 ... Centre cursor button added
  21/5/01 ... Ctrl+1,2,3 shortcuts for TYP1, TYP2, TYP3 added
  17/7/01 ... Signal difference between Readout-t0 cursors added
  29/8/01 ... Fixed zero level now saved when changed
              From Record zero area indicated by pair of small vertical bars
  23/10/01 ... NewFile modified to zoom display horizontally
               to full extent of record when no. samples/record changed.
  3/12/01 ... NewFile now retains displayed record number position
  4/12/01 ... Save Cursor now saves data to log file in tab formatted table
  19/3/02 ... Channel Units/div information added to display
  6.6.02 ... Display cursor readout now displayed using CursorLabel component
  24.6.03 ... No. of display grid lines can be changed
  01.01.04 .. Out of memory error blocked when windows resized to tiny size
  11.12.04 .. C-C0 Cursor differences now displayed with absolute values
  01.03.07 .. HeapBuffers removed ADC now static allocation in Private
  ===================================================}
interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, ExtCtrls, Global, Shared, FileIo, Zero, ClipBrd,
  PrintRec,Printers, PlotLib, menus, maths, Grids, RangeEdit, ValEdit,
  ScopeDisplay, ComCtrls, CursorLabel, ValidatedEdit, HTMLLabel, seslabio ;

type

  TReplayCursors = record
             Base : Array[0..WCPMaxChannels-1] of Integer ;
             C0 : Integer ;
             C1 : Integer ;
             Value : Array[0..WCPMaxChannels*2] of Single ;
             Diff : Array[0..WCPMaxChannels*2] of Single ;
             end ;

  TReplayFrm = class(TForm)
    CursorGrp: TGroupBox;
    RecordGrp: TGroupBox;
    Label2: TLabel;
    cbRecordType: TComboBox;
    ckBadRecord: TCheckBox;
    sbRecordNum: TScrollBar;
    Label1: TLabel;
    Group: TLabel;
    FilterGrp: TGroupBox;
    edIdent: TEdit;
    Label3: TLabel;
    bSaveCursor: TButton;
    edRecordNum: TRangeEdit;
    edLPFilter: TValidatedEdit;
    lbLPFilter: TLabel;
    ckLPFilterInUse: TCheckBox;
    scDisplay: TScopeDisplay;
    bFindCursor: TButton;
    ZeroGrp: TGroupBox;
    rbBaseline: TRadioButton;
    rbUseC0CursorasZero: TRadioButton;
    Button1: TButton;
    EdRecordIdent: TEdit;
    edTime: TEdit;
    edGroup: TValidatedEdit;
    Label4: TLabel;
    procedure FormResize(Sender: TObject);
    procedure sbRecordNumChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure edRecordNumKeyPress(Sender: TObject; var Key: Char);
    procedure ckBadRecordClick(Sender: TObject);
    procedure cbRecordTypeChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bSaveCursorClick(Sender: TObject);
    procedure scDisplayCursorChange(Sender: TObject);
    procedure edGroupKeyPress(Sender: TObject; var Key: Char);
    procedure scDisplayMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormActivate(Sender: TObject);
    procedure ckLPFilterInUseClick(Sender: TObject);
    procedure edLPFilterKeyPress(Sender: TObject; var Key: Char);
    procedure bFindCursorClick(Sender: TObject);
    procedure EdRecordIdentKeyPress(Sender: TObject; var Key: Char);
    procedure rbUseBaselineZeroClick(Sender: TObject);
    procedure rbBaselineClick(Sender: TObject);
    procedure rbUseC0CursorasZeroClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure edIdentKeyPress(Sender: TObject; var Key: Char);
    procedure EdRecordIdentChange(Sender: TObject);

  private
    { Private declarations }
   Cursors : TReplaycursors ;
   RH : TRecHeader ;      // Signal record header block }
   ADC : TSmallIntArray ; // A/D data buffer
   FirstSave : Boolean ;
   IdentChanged : Boolean ; // File ident line changed flag

    procedure DisplayRecord ;
    procedure SaveCursorReading ;
    procedure AddVerticalCursors ;
  public
    { Public declarations }
   procedure NewFile ;
   procedure ZoomOutAll ;
   procedure ZoomIn( ChanNum : Integer ) ;
   procedure ZoomOut( ChanNum : Integer ) ;
   procedure ChangeDisplayGrid ;
   procedure CopyDataToClipboard ;
   procedure CopyImageToClipboard ;
   procedure Print ;
   procedure SetStoreMode( StorageMode : Boolean ) ;
  end;


var
  ReplayFrm: TReplayFrm;

implementation

uses          MDIForm,copyrec ;

{$R *.DFM}


procedure TReplayFrm.FormShow(Sender: TObject);
{ ---------------------------------------
  Initialisations done when form is shown
  ---------------------------------------}
begin

     Height := CursorGrp.Top + CursorGrp.Height + 50 ;
     Width := edIdent.Left + EdIdent.Width + 30 ;

     cbRecordType.items := RecordTypes ;
     cbRecordType.items.delete(0) ; {Remove 'ALL' item}

     SetStoreMode(Main.mnStoreTraces.Checked) ;

     Cursors.C0 := -1 ;
     Cursors.C1 := -1 ;

     IdentChanged := False ;

     NewFile ;

     end ;


procedure TReplayFrm.NewFile ;
{ ------------------------------------------------
  Initialise display routines for a new data file
  ------------------------------------------------ }
var
   ch,OldNumSamples : Integer ;
begin

     // Update log if file ident changed
     if IdentChanged then begin
        FH.IdentLine := edIdent.text ;
        RawFH.IdentLine := EdIdent.text ;
        SaveHeader(FH) ;
        SaveHeader(RawFH) ;
        WriteToLogFile( format('File ident changed to %s',[FH.IdentLine])) ;
        IdentChanged := False ;
        end ;

     if FH.NumRecords > 0 then begin
        Caption := Main.UpdateCaption( FH, 'View ' ) ;

        EdIdent.text := FH.IdentLine ;

        UpdateScrollBar( sbRecordNum, FH.RecordNum, 1, fH.NumRecords ) ;

        edRecordNum.LoLimit := 1 ;
        edRecordNum.HiLimit := FH.NumRecords ;
        edRecordNum.LoValue := 1 ;
        edRecordNum.HiValue := FH.NumRecords ;

        { Create horizontal cursors }
        scDisplay.ClearHorizontalCursors ;
        for ch := 0 to FH.NumChannels-1 do
            Cursors.Base[ch] := scDisplay.AddHorizontalCursor(ch,clGreen,
                                                              True,
                                                              'z') ;

        { Continuous record display channel }
        scDisplay.MaxADCValue := RawFH.MaxADCValue ;
        scDisplay.MinADCValue := RawFH.MinADCValue ;
        scDisplay.DisplayGrid := Settings.DisplayGrid ;
        OldNumSamples := scDisplay.MaxPoints ;
        scDisplay.MaxPoints := FH.NumSamples ;
        scDisplay.NumPoints := scDisplay.MaxPoints ;
        scDisplay.NumChannels := FH.NumChannels ;

        if OldNumSamples <> FH.NumSamples then begin
             Channel[0].xMin := 0 ;
             Channel[0].xMax := FH.NumSamples ;
             end ;

        scDisplay.xMax := MinInt([Round(Channel[0].xMax),FH.NumSamples-1])  ;
        scDisplay.xMin := MinInt([Round(Channel[0].xMin),scDisplay.xMax]) ;
        if scDisplay.xMin = scDisplay.xMax then begin
           scDisplay.xMin := 0 ;
           scDisplay.xMax := FH.NumSamples-1 ;
           end ;

        // Add vertical cursors to display
        AddVerticalCursors ;

        { Initial settings of display }

        for ch := 0 to FH.NumChannels-1 do begin
            scDisplay.ChanUnits[ch] := Channel[ch].ADCUnits ;
            scDisplay.ChanName[ch] := Channel[ch].ADCName ;
            scDisplay.ChanScale[ch] := Channel[ch].ADCScale ;
            scDisplay.ChanUnits[ch] := Channel[ch].ADCUnits ;
            scDisplay.ChanZero[ch] := Channel[ch].ADCZero ;
            scDisplay.ChanZeroAt[ch] := Channel[ch].ADCZeroAt ;
            scDisplay.ChanOffsets[ch] := Channel[ch].ChannelOffset ;
            scDisplay.yMin[ch] := Channel[ch].yMin ;
            scDisplay.yMax[ch] := Channel[ch].yMax ;
            scDisplay.ChanVisible[ch] := Channel[ch].InUse ;
            scDisplay.ChanColor[ch] := clBlue ;
            end ;
        scDisplay.ChanZeroAvg := FH.NumZeroAvg ;

        scDisplay.SetDataBuf( @ADC ) ;
        SetStoreMode( Main.mnStoreTraces.Checked ) ;


        DisplayRecord ;

        // Request title line to be written
        // if cursor data is saved to log file
        FirstSave := True ;

        end
     else Close ;

    end;

procedure TReplayFrm.AddVerticalCursors ;
// -------------------------------
// Add vertical cursors to display
// -------------------------------
var
    OldC0,OldC1 : Integer ;
begin

     // Get old cursor positions
     if Cursors.C0 >= 0 then OldC0 := scDisplay.VerticalCursors[Cursors.C0]
                        else OldC0 := 0 ;
     if Cursors.C1 >= 0 then OldC1 := scDisplay.VerticalCursors[Cursors.C1]
                        else OldC1 := Round((scDisplay.xMin + scDisplay.xMax)*0.5) ;

     { Create and initialise vertical cursors }
     scDisplay.ClearVerticalCursors ;
     Cursors.C0 := scDisplay.AddVerticalCursor(AllChannels,clGreen,'c0') ;
     if rbUseC0CursorasZero.Checked then begin
        Cursors.C1 := scDisplay.AddVerticalCursor(AllChannels,clGreen,'?t0?y0') ;
        end
     else begin
        Cursors.C1 := scDisplay.AddVerticalCursor(AllChannels,clGreen,'?t?y') ;
        end ;

     // Initial cursor positions
     scDisplay.VerticalCursors[Cursors.C0] := OldC0 ;
     scDisplay.VerticalCursors[Cursors.C1] := OldC1 ;

     end ;


procedure TReplayFrm.ChangeDisplayGrid ;
{ --------------------------------------------
  Update grid pattern on oscilloscope display
  -------------------------------------------- }
var
    ch : Integer ;
  
begin
     scDisplay.MaxADCValue := RawFH.MaxADCValue ;
     scDisplay.MinADCValue := RawFH.MinADCValue ;
     scDisplay.DisplayGrid := Settings.DisplayGrid ;

     for ch := 0 to scDisplay.NumChannels-1 do begin
         scDisplay.ChanVisible[ch] := Channel[ch].InUse ;
         end ;

     scDisplay.Invalidate ;
     end ;


procedure  TReplayFrm.ZoomOutAll ;
{ ---------------------------------
  Set minimum display magnification
  23/10/01
  --------------------------------- }
begin
     scDisplay.MaxADCValue := RawFH.MaxADCValue ;
     scDisplay.MinADCValue := RawFH.MinADCValue ;
     scDisplay.MaxPoints := FH.NumSamples ;
     scDisplay.NumPoints := scDisplay.MaxPoints ;
     scDisplay.NumChannels := FH.NumChannels ;

     scDisplay.ZoomOut ;
     Channel[0].xMin := scDisplay.xMin ;
     Channel[0].xMax := scDisplay.xMax ;

     end ;


procedure TReplayFrm.ZoomOut(
          ChanNum : Integer ) ;
// ------------------------------------
// Magnify selected A/D channel display
// ------------------------------------
begin
     scDisplay.YZoom( ChanNum, 50.0 ) ;
     end ;


procedure TReplayFrm.ZoomIn( ChanNum : Integer ) ;
// ------------------------------------
// Reduce selected A/D channel display
// ------------------------------------
begin
     scDisplay.YZoom( ChanNum, -50.0 ) ;
     end ;


procedure TReplayFrm.DisplayRecord ;
{ ========================================================
  Display digitised signal record on Page 0 of notebook
  ========================================================}
var
   ch : Integer ;
begin

     fH.RecordNum := SbRecordNum.position ;
     fH.CurrentRecord := SbRecordNum.position ;

     { Read record data from file }
     GetRecord( fH, RH, fH.RecordNum, ADC ) ;

     { Update low pass filter text box }
     if Settings.CutOffFrequency > 0.0 then begin
        ckLPFilterInUse.Checked := True ;
        edLPFilter.Visible := True ;
        lbLPFilter.Visible := True ;
        if RH.dt > 0.0 then edLPFilter.Scale := 1.0/RH.dt ;
        edLPFilter.Value := Settings.CutOffFrequency ;
        end
     else begin
        ckLPFilterInUse.Checked := False ;
        edLPFilter.Visible := False ;
        lbLPFilter.Visible := False ;
        end ;

     { Set horizontal zero baseline cursors }
     for ch := 0 to FH.NumChannels-1 do begin
         // Zero level
         scDisplay.HorizontalCursors[Cursors.Base[ch]] := Channel[ch].ADCZero ;
         // Start of area from which zero level was computed (-1 indicates fixed zero level)
         scDisplay.ChanZeroAt[ch] := Channel[ch].ADCZeroAt ;
         // Signal scaling factor
         scDisplay.ChanScale[ch] := Channel[ch].ADCScale ;
         end ;
     // No. of samples in zero level area
     scDisplay.ChanZeroAvg := FH.NumZeroAvg ;

     { Show whether record has been rejected by operator }
     if RH.Status = 'ACCEPTED' then ckBadRecord.checked := False
                               else ckBadRecord.checked := True ;

     { Show type of record }
     if cbRecordType.items.indexOf(RH.RecType) >= 0 then
        cbRecordType.ItemIndex := cbRecordType.items.indexOf(RH.RecType);

     edTime.Text := format('%.4gs',[RH.Time]) ;
     edGroup.Value := RH.Number ;
     edRecordIdent.Text := RH.Ident ;

     { Update record number display }
     edRecordNum.HiValue := fH.NumRecords ;
     edRecordNum.LoValue := sbRecordNum.position ;

     { Continuous record display channel }
     scDisplay.TScale := RH.dt*Settings.TScale ;
     scDisplay.TUnits := Settings.TUnits ;
     scDisplay.RecordNumber := fH.RecordNum ;
     scDisplay.Invalidate ;
     end ;


procedure TReplayFrm.sbRecordNumChange(Sender: TObject);
{ ------------------------------------------------------------------
  If the record number has changed ask for the display to be updated
  ------------------------------------------------------------------ }
begin
     DisplayRecord ;
     end;


procedure TReplayFrm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
{ ------------------------
  Function key processing
  31/8/97 ... Short cut keys for setting record type
  -----------------------}
begin
     case key of
          VK_LEFT : scDisplay.MoveActiveVerticalCursor(-1) ;
          VK_RIGHT : scDisplay.MoveActiveVerticalCursor(1) ;
          VK_SUBTRACT : begin { - key }
                if sbRecordNum.Position > sbRecordNum.Min then begin
                   sbRecordNum.Position := sbRecordNum.Position - 1 ;
                   DisplayRecord ;
                   end ;
                end ;
          VK_ADD : begin { + key }
                if sbRecordNum.Position < sbRecordNum.Max then begin
                   sbRecordNum.Position := sbRecordNum.Position + 1 ;
                   DisplayRecord ;
                   end ;
                end ;
          VK_F1 : begin
             SaveCursorReading ;
             end ;

          $31, $32, $33, $54,$4c,$45,$4d,$46  : begin
               if (Shift = [ssCtrl]) then begin
                  { Update record type }
                  case Key of
                     $31 : cbRecordType.ItemIndex := cbRecordType.Items.IndexOf('TYP1') ;
                     $32 : cbRecordType.ItemIndex := cbRecordType.Items.IndexOf('TYP2') ;
                     $33 : cbRecordType.ItemIndex := cbRecordType.Items.IndexOf('TYP3') ;
                     $54 : cbRecordType.ItemIndex := cbRecordType.Items.IndexOf('TEST') ;
                     $4c : cbRecordType.ItemIndex := cbRecordType.Items.IndexOf('LEAK') ;
                     $45 : cbRecordType.ItemIndex := cbRecordType.Items.IndexOf('EVOK') ;
                     $4d : cbRecordType.ItemIndex := cbRecordType.Items.IndexOf('MINI') ;
                     $46 : cbRecordType.ItemIndex := cbRecordType.Items.IndexOf('FAIL') ;
                     end ;
                  RH.RecType := cbRecordType.text ;
                  PutRecordHeaderOnly( fH, RH, fH.RecordNum ) ;
                  end ;
               end ;
          $52 : begin
               if (Shift = [ssCtrl]) then begin
                  ckBadRecord.Checked := not ckBadRecord.Checked ;
                  If ckBadRecord.Checked then RH.Status := 'REJECTED'
                                         else RH.Status := 'ACCEPTED' ;
                  PutRecordHeaderOnly( fH, RH, fH.RecordNum ) ;
                  end;
               end ;
          end ;

     end;


procedure TReplayFrm.edRecordNumKeyPress(Sender: TObject; var Key: Char);
{ ------------------------------------
  Go to record number entered by user
  -----------------------------------}
begin
     if key = chr(13) then begin
        sbRecordNum.Position := Round(edRecordNum.LoValue) ;
        edRecordNum.HiValue := FH.NumRecords ;
        DisplayRecord ;
        end ;
     end;


procedure TReplayFrm.ckBadRecordClick(Sender: TObject);
{ ------------------------------------------------
  Save new record ACCEPTED/REJECTED status to file
  ------------------------------------------------}
begin
     if ckBadRecord.checked then RH.Status := 'REJECTED'
                            else RH.Status := 'ACCEPTED' ;
     PutRecordHeaderOnly( fH, RH, fH.RecordNum ) ;
     end;


procedure TReplayFrm.cbRecordTypeChange(Sender: TObject);
{ -----------------------------
  Save new record type to file
  ----------------------------}
begin
     RH.RecType := cbRecordType.text ;
     PutRecordHeaderOnly( fH, RH, fH.RecordNum ) ;
     end;


procedure TReplayFrm.CopyDataToClipboard ;
{ -----------------------------------------------------------
  Copy the data in currently displayed graph to the clipboard
  -----------------------------------------------------------}
begin
     scDisplay.CopyDataToClipboard ;
     end ;


procedure TReplayFrm.Print ;
{ ---------------------------------------------
  Print the currently displayed graph or table
  --------------------------------------------- }
begin
     PrintRecFrm.Destination := dePrinter ;
     PrintRecFrm.DisplayObj := scDisplay ;
     PrintRecFrm.ShowModal ;
     if PrintRecFrm.ModalResult = mrOK then begin
        scDisplay.ClearPrinterTitle ;
        scDisplay.AddPrinterTitleLine( 'File : ' + FH.FileName ) ;
        scDisplay.AddPrinterTitleLine( FH.IdentLine ) ;
        scDisplay.Print ;
        end ;
     end ;


procedure TReplayFrm.CopyImageToClipboard ;
{ -----------------------------------------------------
  Copy active plot to clipboard as Windows metafile
  ----------------------------------------------------- }
begin
     { Copy record on display }
     PrintRecFrm.Destination := deClipboard ;
     PrintRecFrm.DisplayObj := scDisplay ;
     PrintRecFrm.ShowModal ;
     if PrintRecFrm.ModalResult = mrOK then begin
        scDisplay.ClearPrinterTitle ;
        scDisplay.AddPrinterTitleLine( 'File : ' + FH.FileName ) ;
        scDisplay.AddPrinterTitleLine( FH.IdentLine ) ;
        scDisplay.CopyImageToClipboard ;
        end ;
     end ;


procedure TReplayFrm.SetStoreMode(
          StorageMode : Boolean
          ) ;
{ --------------------------------------------
  Set oscilloscope display storage mode on/off
  -------------------------------------------- }
begin
     scDisplay.StorageMode := StorageMode ;
     end ;


procedure TReplayFrm.bSaveCursorClick(Sender: TObject);
begin
    SaveCursorReading ;
    end ;


procedure TReplayFrm.SaveCursorReading ;
{ ------------------------------------------------
  Save the current cursor reading to the log file
  -----------------------------------------------}
var
   s : string ;
   ch : Integer ;
   Cursor0Pos, Cursor1Pos : Integer ;
   y : Single ;
begin

     // Write title line
     if FirstSave then begin
        // Column names
        s := 'Rec' + #9 + 'T' ;
        if rbUseC0CursorasZero.Checked then s:= s + #9 + 'Diff' ;
        for ch := 0 to scDisplay.NumChannels-1 do if scDisplay.ChanVisible[ch] then begin
            s := s + #9 + Channel[ch].ADCName ;
            if rbUseC0CursorasZero.Checked then s := s + #9 + 'Diff';
            end ;
        WriteToLogFileNoDate( s ) ;
        // Column units
        s := #9 + Settings.TUnits ;
        if rbUseC0CursorasZero.Checked then s := s + #9 + Settings.TUnits ;
        for ch := 0 to scDisplay.NumChannels-1 do if scDisplay.ChanVisible[ch] then begin
            s := s + #9 + Channel[ch].ADCUnits ;
            if rbUseC0CursorasZero.Checked then s := s + #9 + Channel[ch].ADCUnits ;
            end ;
        WriteToLogFileNoDate( s ) ;
        FirstSave := False ;
        end ;

     // Write data
     s := format('%d',[FH.RecordNum] ) ;

     { Time zero cursor }
     Cursor0Pos := scDisplay.VerticalCursors[Cursors.C0] ;
     Cursor1Pos := scDisplay.VerticalCursors[Cursors.C1] ;

     // Time values
     if rbUseC0CursorasZero.Checked then begin
        s := s + #9 + format( '%.5g',
                         [(Cursor1Pos-Cursor0Pos)*RH.dt*Settings.TScale]) ;
        end
     else begin
        s := s + #9 + format( '%.5g',
                         [(Cursor1Pos)*RH.dt*Settings.TScale]) ;
        end ;

     for ch := 0 to scDisplay.NumChannels-1 do if scDisplay.ChanVisible[ch] then begin
         // Signal level at readout cursor
         if rbUseC0CursorasZero.Checked then begin
            y := scDisplay.ChanScale[ch] *
                 ( ADC[(Cursor1Pos*FH.NumChannels)+Channel[ch].ChannelOffset] -
                   ADC[(Cursor0Pos*FH.NumChannels)+Channel[ch].ChannelOffset]) ;
            end
         else begin
            y := scDisplay.ChanScale[ch]*
                 ( ADC[(Cursor1Pos*FH.NumChannels)+Channel[ch].ChannelOffset]
                        - scDisplay.HorizontalCursors[ch] ) ;
            end ;

         // Add to readout list
         s := s + #9 + format( '%.5g ',[y] );
         end ;

     WriteToLogFileNoDate( s ) ;

     end;


procedure TReplayFrm.FormResize(Sender: TObject);
{ ---------------------------
  Re-size components on form
  --------------------------}
begin

     scDisplay.left := RecordGrp.Left + RecordGrp.width + 5 ;
     scDisplay.width := MaxInt( [ClientWidth - scDisplay.left - 5,2]) ;
     scDisplay.top := EdIdent.Top + EdIdent.Height + 2 ;

     scDisplay.Height := MaxInt( [ClientHeight - 5 - scDisplay.Top,2]) ;

     // Adjust width of ident boxes to match display area
     edIdent.Width := ClientWidth  - edIdent.Left - 5 ;


     end;


procedure TReplayFrm.scDisplayCursorChange(Sender: TObject);
{ -------------------------------------
  Update cursor labels when mouse moved
  -------------------------------------
  17/7/01 Signal difference between Readout-t0 cursors added }
var
   ch : Integer ;
begin

     if not TScopeDisplay(Sender).CursorChangeInProgress then begin
        TScopeDisplay(Sender).CursorChangeInProgress := True ;

        { Update channel descriptors with any changes to display }
        for ch := 0 to scDisplay.NumChannels-1 do begin
            Channel[ch].InUse := scDisplay.ChanVisible[ch] ;
            if Channel[ch].InUse then begin
               Channel[Ch].yMin := scDisplay.YMin[Ch] ;
               Channel[Ch].yMax := scDisplay.YMax[Ch] ;
               end ;
            end ;
        Channel[0].xMin := scDisplay.xMin ;
        Channel[0].xMax := scDisplay.xMax ;

        TScopeDisplay(Sender).CursorChangeInProgress := False ;
        end ;
     end ;


procedure TReplayFrm.edGroupKeyPress(Sender: TObject; var Key: Char);
{ ------------------------------------
  Save new record group number to file
  ------------------------------------}
begin
     if Key = #13 then begin
        RH.Number := Round( Edgroup.Value ) ;
        PutRecordHeaderOnly( fH, RH, fH.RecordNum ) ;
        end ;
     end;


procedure TReplayFrm.scDisplayMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
{ ---------------------------
  Display zero level mode box
  --------------------------- }
begin

     if (Button = mbRight) and (scDisplay.ActiveHorizontalCursor >=0) then begin
        // If right-mouse button down, display zero baseline level selection dialog box
        ZeroFrm.ChSel := scDisplay.ActiveHorizontalCursor ;
        ZeroFrm.NewZeroAt := Round(scDisplay.ScreenCoordToX( ZeroFrm.ChSel, X )) ;
        ZeroFrm.ShowModal ;
        if ZeroFrm.ModalResult = mrOK then DisplayRecord ;
        end
     else begin
        // Update zero baseline cursor
        if scDisplay.ActiveHorizontalCursor >= 0 then begin
           if Channel[scDisplay.ActiveHorizontalCursor].ADCZeroAt < 0 then begin
              // Fixed baseline level (update zero level to new position)
              Channel[scDisplay.ActiveHorizontalCursor].ADCZero :=
              scDisplay.HorizontalCursors[scDisplay.ActiveHorizontalCursor] ;
              end
           else begin
              // Baseline level computed from record (return to computed level)
              scDisplay.HorizontalCursors[scDisplay.ActiveHorizontalCursor] :=
              Channel[scDisplay.ActiveHorizontalCursor].ADCZero ;
              scDisplay.Invalidate ;
              end ;
           SaveHeader( FH ) ;
           end ;
        end ;
     edGroup.SetFocus ;
     end ;


procedure TReplayFrm.FormClose(Sender: TObject; var Action: TCloseAction);
// ---------------------------
// Tidy up when form is closed
// ---------------------------
begin

     // Update log if file ident changed
     if IdentChanged then begin
        FH.IdentLine := edIdent.text ;
        RawFH.IdentLine := EdIdent.text ;
        SaveHeader(FH) ;
        SaveHeader(RawFH) ;
        WriteToLogFile( format('File ident changedto %s',[FH.IdentLine])) ;
        IdentChanged := False ;
        end ;

     Action := caFree ;

     end;


procedure TReplayFrm.FormActivate(Sender: TObject);
begin
     // Ensure display channels visibility is updated
     ChangeDisplayGrid ;
     { Enable copy and print menus }
     DisplayRecord ;
     end;


procedure TReplayFrm.ckLPFilterInUseClick(Sender: TObject);
{ ----------------------------------
  Enable/disable Low Pass filtering
  ---------------------------------- }
begin
     { Note. Settings.CutOffFrequency=0 indicates no filtering }
     if ckLPFilterInUse.Checked
        and (Settings.CutOffFrequency <= 0.0) then Settings.CutOffFrequency := 0.1
                                              else Settings.CutOffFrequency := 0.0 ;
     DisplayRecord ;
     end;


procedure TReplayFrm.edLPFilterKeyPress(Sender: TObject; var Key: Char);
// ----------------------------------------------
// Update low-pass filter cut-off when CR pressed
// ----------------------------------------------
begin
     if key = chr(13) then begin
        Settings.CutOffFrequency := edLPFilter.Value ;
        DisplayRecord ;
        end ;
     end;


procedure TReplayFrm.bFindCursorClick(Sender: TObject);
// -------------------------------------
// Bring readout cursor to screen centre
// -------------------------------------
begin
     scDisplay.VerticalCursors[Cursors.C1] := (scDisplay.xMin + scDisplay.xMax) div 2 ;
     end;


procedure TReplayFrm.EdRecordIdentKeyPress(Sender: TObject; var Key: Char);
// ------------------------------
// Update experiment ident record
// ------------------------------
begin

        WriteToLogFile( format('Rec %d: Marker changed %s to %s',
                        [fH.RecordNum,RH.Ident,EdRecordIdent.text])) ;
        RH.Ident := EdRecordIdent.text ;
        PutRecordHeaderOnly( fH, RH, fH.RecordNum ) ;

     end;


procedure TReplayFrm.rbUseBaselineZeroClick(Sender: TObject);
// ---------------------------
// Zero reference mode changed
// ---------------------------
begin
     // Re-display record to force update of cursor reading
     DisplayRecord ;
     end;


procedure TReplayFrm.rbBaselineClick(Sender: TObject);
//
// Toggle Display of cursor differences
begin
     // Refresh display
     AddVerticalCursors ;
     scDisplay.Invalidate ;
     end;


procedure TReplayFrm.rbUseC0CursorasZeroClick(Sender: TObject);
//
// Toggle Display of cursor differences
begin
     // Refresh display
     AddVerticalCursors ;
     scDisplay.Invalidate ;
     end;


procedure TReplayFrm.Button1Click(Sender: TObject);
// -------------------------------------
// Bring c0 cursor to screen
// -------------------------------------
begin
     scDisplay.VerticalCursors[Cursors.C0] := scDisplay.xMin +
                                            (scDisplay.xMax - scDisplay.xMin) div 10 ;
     end;

procedure TReplayFrm.edIdentKeyPress(Sender: TObject; var Key: Char);
// -----------------------
// File ident line changed
// -----------------------
begin
     IdentChanged := True ;
     end;

procedure TReplayFrm.EdRecordIdentChange(Sender: TObject);
begin
        RH.Ident := EdRecordIdent.text ;
        PutRecordHeaderOnly( fH, RH, fH.RecordNum ) ;

end;

end.





