unit CM2010;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, CPort, ComCtrls, IniFiles;

type
  TForm1 = class(TForm)
    COMSettings: TButton;
    MultiButt: TButton;
    GroupBox1: TGroupBox;
    L_CTS: TLabel;
    L_DSR: TLabel;
    L_RLSD: TLabel;
    Label1: TLabel;
    L_Time: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    R_1: TRadioButton;
    R_2: TRadioButton;
    R_3: TRadioButton;
    R_4: TRadioButton;
    StatusBar: TStatusBar;
    D_1: TMemo;
    D_2: TMemo;
    D_3: TMemo;
    D_4: TMemo;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    D_Stat: TMemo;
    LogButton: TButton;
    Image1: TImage;
    Label8: TLabel;
    L1: TCheckBox;
    L2: TCheckBox;
    L3: TCheckBox;
    L4: TCheckBox;
    ColorDialog: TColorDialog;
    C1: TImage;
    C2: TImage;
    C3: TImage;
    C4: TImage;
    Label9: TLabel;
    GraphDelayBar: TTrackBar;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    GraphDelayCtrl: TEdit;
    Label13: TLabel;
    DelayTimer: TTimer;
    ComPort: TComPort;
    procedure COMSettingsClick(Sender: TObject);
    procedure MultiButtClick(Sender: TObject);
    procedure ComPortOpen(Sender: TObject);
    procedure ComPortClose(Sender: TObject);
    procedure ComPortRxChar(Sender: TObject; Count: Integer);
    procedure ComPortCTSChange(Sender: TObject; OnOff: Boolean);
    procedure ComPortDSRChange(Sender: TObject; OnOff: Boolean);
    procedure ComPortRLSDChange(Sender: TObject; OnOff: Boolean);
    procedure ComPortRxFlag(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure LogButtonClick(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure C2Click(Sender: TObject);
    procedure C3Click(Sender: TObject);
    procedure C4Click(Sender: TObject);
    procedure L1Click(Sender: TObject);
    procedure L2Click(Sender: TObject);
    procedure L3Click(Sender: TObject);
    procedure L4Click(Sender: TObject);
    procedure GraphDelayBarChange(Sender: TObject);
    procedure DelayTimerTimer(Sender: TObject);
    procedure GraphDelayCtrlChange(Sender: TObject);
    procedure GraphDelayCtrlKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  CRLF: string = Chr(13) + Chr(10);

var
  Slot: array[1..4] of String[34];
  GraphPos: array[1..4,1..2] of byte;
  GraphCol: array[1..4] of TColor;
  GraphDelay: integer = 60;
  GraphTime: integer;
  Sync: String[136] = '';
  InSync: boolean = true;
  LSlot: byte = 1;
  Logging: boolean = false;
  LastEvent: TDateTime = 0;

procedure TForm1.COMSettingsClick(Sender: TObject);
begin
  ComPort.ShowSetupDialog;
end;

procedure TForm1.MultiButtClick(Sender: TObject);
begin
  if ComPort.Connected then
    ComPort.Close
  else
    ComPort.Open;
end;

procedure TForm1.ComPortOpen(Sender: TObject);
begin
  MultiButt.Caption := 'Stop capturing';
end;

procedure TForm1.ComPortClose(Sender: TObject);
var i: integer;
begin
  InSync := true;
  Sync := '';
  LSlot := 1;
  for i:=1 to 4 do Slot[i] := '';
  MultiButt.Caption := 'Start capturing';
end;

function ShowHex(x: byte): string;
const hset: string = '0123456789abcdef';
begin
  ShowHex := hset[(x DIV 16)+1]+hset[(x MOD 16)+1];
end;

function BuildHex(x: string): string;
var i: integer;
    t: string;
begin
  t := '';
  for i:=1 to Length(x) do t := t + ShowHex(Ord(x[i])) + ' ';
  BuildHex := t;
end;

function GetVolts(s: byte): word;
begin
  GetVolts := Ord(Slot[s][16])*256+Ord(Slot[s][17]);
end;

function GetAmps(s: byte): word;
begin
  GetAmps := Ord(Slot[s][14])*256+Ord(Slot[s][15]);
end;

function GetCCap(s: byte): dword;
begin
  GetCCap := Ord(Slot[s][18])*65536+Ord(Slot[s][19])*256+Ord(Slot[s][20]);
end;

function GetDCap(s: byte): dword;
begin
  GetDCap := Ord(Slot[s][21])*65536+Ord(Slot[s][22])*256+Ord(Slot[s][23]);
end;

function GetHours(s: byte): byte;
begin
  GetHours := Ord(Slot[s][6]);
end;

function GetMinutes(s: byte): byte;
begin
  GetMinutes := Ord(Slot[s][7]);
end;

function FormatCaps(c: dword): string;
var t: string;
begin
  t := IntToStr(c);
  if (c<=100000) then t := Copy(t,1,Length(t)-2) + '.' + Copy(t,Length(t)-1,1) else t := Copy(t,1,Length(t)-2);
  if t[1]='.' then t := '0' + t;
  while Length(t)<5 do t := ' '+t;
  FormatCaps := t;
end;

function FormatTime(s: byte): string;
var t: string;
begin
  if (ShowHex(Ord(Slot[s][2]))[2]<>'0') then begin
    if GetHours(s)<10 then t := '0' + IntToStr(GetHours(s)) + ':' else t := IntToStr(GetHours(s)) + ':';
    if GetMinutes(s)<10 then t := t + '0' + IntToStr(GetMinutes(s)) else t := t + IntToStr(GetMinutes(s));
  end else t := '--:--';
  FormatTime := t;
end;

function FormatUI(v: dword): string;
var t: string;
begin
  if v>0 then begin
    t := IntToStr(v);
    while Length(t)<4 do t := '0' + t;
    t := Copy(t,1,Length(t)-3) + '.' + Copy(t,Length(t)-2,2);
    if t[1]='.' then t := '0' + t;
  end else t := '----';
  while Length(t)<7 do t := ' '+t;
  FormatUI := t;
end;

function GetAutoMan(s: byte): string;
begin
  if ShowHex(Ord(Slot[s][2]))[2]<>'0' then begin
    if ShowHex(Ord(Slot[s][3]))[1]='0' then GetAutoMan := 'AUTO' else GetAutoMan := 'MAN ';
  end else GetAutoMan := '----';
end;

function GetTriAction(s: byte): string;
begin
  case ShowHex(Ord(Slot[s][2]))[2] of
    '0': GetTriAction := '---';
    '8': GetTriAction := 'CHA';
    '9': GetTriAction := 'DIS';
    'a': GetTriAction := 'CHK';
    'b': GetTriAction := 'CYC';
    'c': GetTriAction := 'ALV';
    'd': GetTriAction := 'RDY';
    'e': GetTriAction := 'ERR';
    'f': GetTriAction := 'TRI';
   else
     GetTriAction := '???';
   end;
end;

procedure LoadSettings;
var cf: TIniFile;
begin
  try
    cf := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
    Form1.AlphaBlendValue := cf.ReadInteger('Window','AlphaValue',255);
    Form1.AlphaBlend := cf.ReadBool('Window','AlphaBlend',false);

    with Form1 do begin
      ComPort.Port := cf.ReadString('Communication','Port','COM1');
      ComPort.BaudRate := StrToBaudRate(cf.ReadString('Communication','BaudRate','9600'));
      ComPort.DataBits := StrToDataBits(cf.ReadString('Communication','DataBits','8'));
      ComPort.StopBits := StrToStopBits(cf.ReadString('Communication','StopBits','1'));
      ComPort.Parity.Bits := StrToParity(cf.ReadString('Communication','Parity','None'));
      ComPort.FlowControl.FlowControl := StrToFlowControl(cf.ReadString('Communication','FlowControl',''));
    end;

    GraphDelay := cf.ReadInteger('Slots','GraphDelay',60);
    Form1.GraphDelayBar.Position := 300-GraphDelay;
    Form1.GraphDelayCtrl.Text := IntToStr(GraphDelay);
    GraphCol[1] := TColor(cf.ReadInteger('Slots','1.Color',16711680));
    GraphCol[2] := TColor(cf.ReadInteger('Slots','2.Color',255));
    GraphCol[3] := TColor(cf.ReadInteger('Slots','3.Color',32768));
    GraphCol[4] := TColor(cf.ReadInteger('Slots','4.Color',16711935));

    { TODO : Load settings on startup from INI-file }
    cf.Free;
  except
    on E: Exception do ShowMessage('ERROR: Could not read settings from ini-file!'+CRLF+'('+E.Message+')');
  end;
end;

procedure SaveSettings;
var cf: TIniFile;
begin
  try
    cf := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
    with Form1 do begin
      cf.WriteString('Communication', 'Port', ComPort.Port);
      cf.WriteString('Communication', 'BaudRate', BaudRateToStr(ComPort.BaudRate));
      cf.WriteString('Communication', 'DataBits', DataBitsToStr(ComPort.DataBits));
      cf.WriteString('Communication', 'StopBits', StopBitsToStr(ComPort.StopBits));
      cf.WriteString('Communication', 'Parity', ParityToStr(ComPort.Parity.Bits));
      cf.WriteString('Communication', 'FlowControl', FlowControlToStr(ComPort.FlowControl.FlowControl));
    end;

    cf.WriteInteger('Slots','GraphDelay',GraphDelay);
    cf.WriteInteger('Slots','1.Color',Ord(GraphCol[1]));
    cf.WriteInteger('Slots','2.Color',Ord(GraphCol[2]));
    cf.WriteInteger('Slots','3.Color',Ord(GraphCol[3]));
    cf.WriteInteger('Slots','4.Color',Ord(GraphCol[4]));

    { TODO : Save settings to INI-file }
    cf.Free;
  except
    on E: Exception do ShowMessage('ERROR: Could not write settings to ini-file!'+CRLF+'('+E.Message+')');
  end;
end;

procedure DoStatDisp(m: TMemo);
var t: string;
begin
  t :=     ' CHARGE MANAGER ' + CRLF;
  t := t + '================' + CRLF;
  t := t + '1:' + GetTriAction(1) + '    3:' + GetTriAction(3) + CRLF;
  t := t + '2:' + GetTriAction(2) + '    4:' + GetTriAction(4);
  if (t<>m.Text) then m.Text := t;
end;

procedure DoValDisp(s: byte; m: TMemo);
var b3,c,d: char;
var t: string;
begin
  b3 := ShowHex(Ord(Slot[s][3]))[2];
  c := ' ';
  d := ' ';
  case b3 of
    '1','3','5','7': c := '»';
    '2','4','6': d := '»';
  end;
  t := IntToStr(s) + ':' + GetTriAction(s) + c + 'C=' + FormatCaps(GetCCap(s)) + 'mAh' + CRLF;
  t := t + GetAutoMan(s) + ' ' + d + 'D=' + FormatCaps(GetDCap(s)) + 'mAh' + CRLF;
  t := t + '      U=' + FormatUI(GetVolts(s)) + 'V' + CRLF;
  t := t + FormatTime(s) + ' I=' + FormatUI(GetAmps(s)) + 'A';
  if (t<>m.Text) then m.Text := t;
end;

procedure DoEmptyDisp(s: byte; m: TMemo);
var t: string;
begin
  t := IntToStr(s) + ':';
  if (m.Text<>t) then m.Text := t;
end;

procedure DoAccuSettings(s: byte; m: TMemo; w1, w2: string);
var t: string;
begin
  t := ' ACCU- SETTINGS ' + CRLF;
  t := t + '================' + CRLF;
  t := t + IntToStr(s) + ':  ' + w1 + CRLF;
  t := t + w2;
  if (m.Text<>t) then m.Text := t;
end;

procedure DoDisplay(s: byte; m: TMemo);
var b2,b3,b4: string[2];
begin
  b2 := ShowHex(Ord(Slot[s][2]));
  b3 := ShowHex(Ord(Slot[s][3]));
  b4 := ShowHex(Ord(Slot[s][4]));
  if (b2+b3='0000') then begin
    DoEmptyDisp(s, m);
    m.Enabled := false;
  end else if (b2+b3='0100') then begin
    DoAccuSettings(s, m, 'SET AUTO/MAN', '  » AUTOMATIC');
    m.Enabled := true;
  end else if (b2+b3='0200') then begin
    DoAccuSettings(s, m, 'SET AUTO/MAN', '  » MANUAL');
    m.Enabled := true;
  end else if (b2+b3='0210') then begin
    DoAccuSettings(s, m, 'SET CAPACITY','»  100-  200 mAh');
    m.Enabled := true;
  end else if (b2+b3='0220') then begin
    DoAccuSettings(s, m, 'SET CAPACITY','»  200-  350 mAh');
    m.Enabled := true;
  end else if (b2+b3='0230') then begin
    DoAccuSettings(s, m, 'SET CAPACITY','»  350-  600 mAh');
    m.Enabled := true;
  end else if (b2+b3='0240') then begin
    DoAccuSettings(s, m, 'SET CAPACITY','»  600-  900 mAh');
    m.Enabled := true;
  end else if (b2+b3='0250') then begin
    DoAccuSettings(s, m, 'SET CAPACITY','»  900- 1200 mAh');
    m.Enabled := true;
  end else if (b2+b3='0260') then begin
    DoAccuSettings(s, m, 'SET CAPACITY','» 1200- 1500 mAh');
    m.Enabled := true;
  end else if (b2+b3='0270') then begin
    DoAccuSettings(s, m, 'SET CAPACITY','» 1500- 2200 mAh');
    m.Enabled := true;
  end else if (b2+b3='0280') then begin
    DoAccuSettings(s, m, 'SET CAPACITY','» 2200- ...  mAh');
    m.Enabled := true;
  end else if (b2='03') then begin
    DoAccuSettings(s, m, 'SET PROGRAM', '  » CHARGE');
    m.Enabled := true
  end else if (b2='04') then begin
    DoAccuSettings(s, m, 'SET PROGRAM', '  » DISCHARGE');
    m.Enabled := true
  end else if (b2='05') then begin
    DoAccuSettings(s, m, 'SET PROGRAM', '  » CHECK');
    m.Enabled := true
  end else if (b2='06') then begin
    DoAccuSettings(s, m, 'SET PROGRAM', '  » CYCLE');
    m.Enabled := true
  end else if (b2='07') then begin
    DoAccuSettings(s, m, 'SET PROGRAM', '  » ALIVE');
    m.Enabled := true
  end else begin
    DoValDisp(s, m);
    m.Enabled := true;
  end;
end;

procedure GraphClear(Image: TImage);
const linespace: integer = 50;   // horizontal helping lines (50 = 0,5V)
      minspace: integer = 30;    // vertical helping lines (30 = 30min)
var GH, GW, i: integer;
begin
  GH := Image.Height - 2;
  GW := Image.Width - 2;
  Image.Canvas.Brush.Color := clWindow;
  Image.Canvas.Brush.Style := bsSolid;
  Image.Canvas.Pen.Color := clBlack;
  Image.Canvas.FillRect(Rect(0,0,Image.Width,Image.Height));
  Image.Canvas.Rectangle(0,0,Image.Width,Image.Height);
  Image.Canvas.Pen.Color := clSilver;
  for i:=1 to (GH DIV linespace) do begin
    Image.Canvas.MoveTo(1,1+GH-linespace*i);
    Image.Canvas.LineTo(GW+1,1+GH-linespace*i);
  end;
  for i:=1 to (GW DIV minspace) do begin
    Image.Canvas.MoveTo(minspace*i,1);
    Image.Canvas.LineTo(minspace*i,GH+1);
  end;
end;

procedure PaintGraph(Image: TImage; Slot: integer);
var t: string;
    y: integer;
    GW, GH: integer;
begin
  GW := Image.Width - 2;
  GH := Image.Height - 2;
  if Slot=1 then begin
    Image.Canvas.CopyRect(Rect(1,1,GW,GH+1),Image.Canvas,Rect(2,1,GW+1,GH+1));
    Image.Canvas.Pen.Color := clWindow;
    Image.Canvas.Brush.Color := clWindow;
    Image.Canvas.Brush.Style := bsSolid;
    Image.Canvas.FillRect(Rect(GW,1,GW+1,GH+1));
    Image.Canvas.Pixels[GW,GH+1-50] := clSilver;   // 0,5V-Mark
    Image.Canvas.Pixels[GW,GH+1-100]  := clSilver; // 1,0V-Mark
    Image.Canvas.Pixels[GW,GH+1-150]  := clSilver; // 1,5V-Mark
  end;
  Image.Canvas.Pen.Color := GraphCol[Slot];
  if Abs(GraphPos[Slot,1]-GraphPos[Slot,2])>=50 then begin
    Image.Canvas.Font.Name := 'Small Fonts';
    Image.Canvas.Font.Size := 7;
    Image.Canvas.Font.Color := GraphCol[Slot];
    t := TimeToStr(time);
    y := GraphPos[Slot,2]-Image.Canvas.TextHeight(t) DIV 2;
    if y>Image.Height-Image.Canvas.TextHeight(t)-1 then y := Image.Height-Image.Canvas.TextHeight(t)-1;
    Image.Canvas.TextOut(GW-2-Image.Canvas.TextWidth(t),y,t);
  end;
  if (GraphPos[Slot,1]<GH) then Image.Canvas.MoveTo(GW-1,GraphPos[Slot,1]) else Image.Canvas.MoveTo(GW,GraphPos[Slot,2]);
  if (GraphPos[Slot,2]<GH) then begin
    Image.Canvas.LineTo(GW,GraphPos[Slot,2]);
    Image.Canvas.Pixels[GW,GraphPos[Slot,2]] := GraphCol[Slot];
  end;
end;

procedure DoGraphDisp(Image: TImage; Slot: integer);
begin
  GraphPos[Slot,1] := GraphPos[Slot,2];
  GraphPos[Slot,2] := Image.Height-2-GetVolts(Slot) DIV 10;
  PaintGraph(Image, Slot);
end;

function MSBetween(t1, t2: TDateTime): integer;
var r: double;
begin
  if t2>t1 then r := t2-t1 else r := t1-t2;
  result := Trunc(r * 86400000);
end;

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var str: string;
    i: integer;
begin
  if MSBetween(now, LastEvent)>400 then begin
    StatusBar.SimpleText := 'Signal timed out. Resynching';
    LastEvent := now;
    InSync := true;
  end;
  ComPort.ReadStr(str, Count);
  for i:=1 to Count do begin
    if InSync then begin
      if Length(Sync)=0 then StatusBar.SimpleText := 'Waiting for SyncBuffer to fill';
      if Length(Sync)<136 then begin
        Sync := Sync + str[i];
        StatusBar.SimpleText := StatusBar.SimpleText + '.';
      end else begin
        if StatusBar.SimpleText[1]<>'S' then StatusBar.SimpleText := 'Synchronizing';
        Sync := Copy(Sync,2,Length(Sync)) + Str[i];
        StatusBar.SimpleText := StatusBar.SimpleText + '.';
        if (Ord(Sync[1])=1) AND (Ord(Sync[35])=2) AND (Ord(Sync[69])=3) AND (Ord(Sync[103])=4) then begin
          StatusBar.SimpleText := StatusBar.SimpleText + 'done.';
          InSync := false;
          LSlot := 1;
          R_1.Checked := true;
        end;
      end;
    end else begin
      if Length(Slot[LSlot])>=34 then Slot[LSlot] := '';
      Slot[LSlot] := Slot[LSlot] + Str[i];
      if Length(Slot[LSlot])>=34 then begin
        case LSlot of
          1: R_1.Checked := false;
          2: R_2.Checked := false;
          3: R_3.Checked := false;
          4: R_4.Checked := false;
        end;
        if (Ord(Slot[LSlot][1])<>LSlot) then begin
          StatusBar.SimpleText := 'Synchronization lost. Resynching';
          InSync := true;
          LastEvent := now;
//          Sync := '';
        end;
        Inc(LSlot);
        if LSlot>4 then LSlot := 1;
        case LSlot of
          1: R_1.Checked := true;
          2: R_2.Checked := true;
          3: R_3.Checked := true;
          4: R_4.Checked := true;
        end;
        if (LSlot=1) AND (GraphTime>=GraphDelay) then begin
          DoGraphDisp(Image1, 1);
          DoGraphDisp(Image1, 2);
          DoGraphDisp(Image1, 3);
          DoGraphDisp(Image1, 4);
          GraphTime := 0;
        end;
        if (LSlot=1) then Inc(GraphTime);
      end;
    end;
    Edit1.Text := BuildHex(Slot[1]);
    DoDisplay(1, D_1);
    Edit2.Text := BuildHex(Slot[2]);
    DoDisplay(2, D_2);
    Edit3.Text := BuildHex(Slot[3]);
    DoDisplay(3, D_3);
    Edit4.Text := BuildHex(Slot[4]);
    DoDisplay(4, D_4);
    DoStatDisp(D_Stat);
  end;
end;

procedure TForm1.ComPortCTSChange(Sender: TObject; OnOff: Boolean);
begin
  L_CTS.Enabled := OnOff;
end;

procedure TForm1.ComPortDSRChange(Sender: TObject; OnOff: Boolean);
begin
  L_DSR.Enabled := OnOff;
end;

procedure TForm1.ComPortRLSDChange(Sender: TObject; OnOff: Boolean);
begin
  L_RLSD.Enabled := OnOff;
end;

procedure TForm1.ComPortRxFlag(Sender: TObject);
begin
  L_Time.Caption := TimeToStr(time);
  LastEvent := now;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SaveSettings;
end;

procedure UpdateColors;
begin
  Form1.C1.Canvas.Brush.Color := GraphCol[1];
  Form1.C1.Canvas.Brush.Style := bsSolid;
  Form1.C1.Canvas.FillRect(Rect(0,0,100,100));

  Form1.C2.Canvas.Brush.Color := GraphCol[2];
  Form1.C2.Canvas.Brush.Style := bsSolid;
  Form1.C2.Canvas.FillRect(Rect(0,0,100,100));

  Form1.C3.Canvas.Brush.Color := GraphCol[3];
  Form1.C3.Canvas.Brush.Style := bsSolid;
  Form1.C3.Canvas.FillRect(Rect(0,0,100,100));

  Form1.C4.Canvas.Brush.Color := GraphCol[4];
  Form1.C4.Canvas.Brush.Style := bsSolid;
  Form1.C4.Canvas.FillRect(Rect(0,0,100,100));
end;

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
  LoadSettings;
  UpdateColors;
  GraphClear(Image1);
  GraphTime := GraphDelay;
  for i:=1 to 4 do begin
    GraphPos[i,1] := Image1.Height - 2;
    GraphPos[i,2] := Image1.Height - 2;
  end;
end;

procedure TForm1.LogButtonClick(Sender: TObject);
begin
  if (NOT L1.Checked) AND (NOT L2.Checked) AND (NOT L3.Checked) AND (NOT L4.Checked) then begin
    L1.Checked := true;
    L2.Checked := true;
    L3.Checked := true;
    L4.Checked := true;
    LogButton.Caption := 'Stop logging';
  end else begin
    L1.Checked := false;
    L2.Checked := false;
    L3.Checked := false;
    L4.Checked := false;
    LogButton.Caption := 'Start logging';
  end;
end;

procedure TForm1.C1Click(Sender: TObject);
begin
  ColorDialog.Color := GraphCol[1];
  ColorDialog.Execute;
  GraphCol[1] := ColorDialog.Color;
  UpdateColors;
end;

procedure TForm1.C2Click(Sender: TObject);
begin
  ColorDialog.Color := GraphCol[2];
  ColorDialog.Execute;
  GraphCol[2] := ColorDialog.Color;
  UpdateColors;
end;

procedure TForm1.C3Click(Sender: TObject);
begin
  ColorDialog.Color := GraphCol[3];
  ColorDialog.Execute;
  GraphCol[3] := ColorDialog.Color;
  UpdateColors;
end;

procedure TForm1.C4Click(Sender: TObject);
begin
  ColorDialog.Color := GraphCol[4];
  ColorDialog.Execute;
  GraphCol[4] := ColorDialog.Color;
  UpdateColors;
end;

procedure StartStopCheck;
begin
  if (Form1.L1.Checked) OR (Form1.L2.Checked) OR (Form1.L3.Checked) OR (Form1.L4.Checked) then
    Form1.LogButton.Caption := 'Stop logging'
  else
    Form1.LogButton.Caption := 'Start logging';
end;

procedure TForm1.L1Click(Sender: TObject);
begin
  StartStopCheck;
end;

procedure TForm1.L2Click(Sender: TObject);
begin
  StartStopCheck;
end;

procedure TForm1.L3Click(Sender: TObject);
begin
  StartStopCheck;
end;

procedure TForm1.L4Click(Sender: TObject);
begin
  StartStopCheck;
end;

procedure TForm1.GraphDelayBarChange(Sender: TObject);
begin
  GraphDelay := 300-GraphDelayBar.Position;
  GraphDelayCtrl.Text := IntToStr(GraphDelay);
end;

procedure TForm1.DelayTimerTimer(Sender: TObject);
begin
  GraphDelayCtrl.Text := IntToStr(300-GraphDelayBar.Position);
end;

procedure TForm1.GraphDelayCtrlChange(Sender: TObject);
begin
  DelayTimer.Enabled := false;
  DelayTimer.Enabled := true;
end;

procedure TForm1.GraphDelayCtrlKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var x: integer;
begin
  if (Key=VK_RETURN) then begin
    try
      x := StrToInt(GraphDelayCtrl.Text);
    except
      GraphDelayCtrl.Text := '##';
      x := 300-GraphDelayBar.Position;
    end;
    if (x>0) then GraphDelayBar.Position := 300-x else GraphDelayCtrl.Text := '##';
  end;
end;

end.