Хронологический график средствами WinAPI

program Project1;

uses
  Windows,
  Messages;

const
  EXWNDLONG_SIZE = 4 *4;
  GWL_POINTS = 0;
  GWL_MIN = 4;
  GWL_MAX = 8;
  GWL_STEPSIZE = 12;

  GM_SETMINMAXVALUE = WM_USER;
  GM_ADDPOINT = WM_USER + 1;

type
  tPoints = array of Integer;
  pPoints = ^tPoints;

function WndProc(Wnd : HWND; msg : Cardinal; wParam, lParam : Integer) : Integer; stdcall;
var PaintStuct : TPaintStruct;
    i, len, y, Range, Min, Max : Integer;
    Scale : Double;
    Points : pPoints;
    rt : TRect;
begin
case msg of
                WM_CREATE :
                        begin
                          New(Points);
                          SetWindowLong(Wnd, GWL_POINTS, Integer(Points));

                          SetWindowLong(wnd, GWL_MIN, 0);
                          SetWindowLong(wnd, GWL_MAX, 64);
                          SetWindowLong(wnd, GWL_STEPSIZE, 8);
                          SetTimer(wnd, 0, 450, nil);
                        end; {WM_CREATE}
                WM_DESTROY :
                        begin
                          Points := pPoints( GetWindowLong(Wnd, GWL_POINTS) );
                          SetLength(Points^, 0);
                          Dispose(Points);
                          PostQuitMessage(0);
                        end; {WM_DESTOY}
                WM_PAINT :
                        begin
                                BeginPaint(Wnd, PaintStuct);
                                  FillRect(PaintStuct.hdc, PaintStuct.rcPaint, GetStockObject(WHITE_BRUSH));

                                  Points := pPoints( GetWindowLong(Wnd, GWL_POINTS) );
                                  GetClientRect(wnd, rt);
                                  Min := GetWindowLong(wnd, GWL_MIN);
                                  Max := GetWindowLong(wnd, GWL_MAX);
                                  Range := Abs(min) + abs(max);
                                  Scale := rt.Bottom / Range;

                                  y := trunc(rt.Bottom - Points^[0]*scale);
                                  y := trunc(y + Min*scale);
                                  MoveToEx(PaintStuct.hdc, rt.Right, y, nil);
                                  //нет смысла перересовывать все, можно расчитать PaintStuct.rcPaint
                                  for i := 1 to Length(Points^) - 1  do
                                  begin
                                    Dec(rt.Right, GetWindowLong(Wnd, GWL_STEPSIZE));
                                    y := trunc(rt.Bottom - Points^*scale);
                                    y := trunc(y + Min*scale);
                                    LineTo(PaintStuct.hdc, rt.Right, y);
                                  end;
                                  Writeln;
                                   
                                EndPaint(Wnd, PaintStuct);
                        end; {WM_PAINT}
                WM_TIMER :
                        begin
                          SendMessage(wnd, GM_ADDPOINT, Random(64), 0);// собственно нужно только это                          
                          //InvalidateRect(wnd, nil, false);
                        end; { WM_TIMER }
                WM_SIZE  :
                        begin
                          Points := pPoints( GetWindowLong(Wnd, GWL_POINTS) );
                          GetClientRect(wnd, rt);
                          SetLength(Points^, (rt.Right div  GetWindowLong(Wnd, GWL_STEPSIZE)) + 1);
                        end; { WM_SIZE }
                GM_ADDPOINT :
                        begin
                          Points := pPoints( GetWindowLong(Wnd, GWL_POINTS) );
                          for i :=  Length(Points^) - 1 downto  0 do Points^[i+1] := Points^;
                          //CopyMemory(@Points^[1], @Points^[0], Length(Points^) - 1);
                          Points^[0] := wParam;
                          i := GetWindowLong(wnd, GWL_STEPSIZE);
                          ScrollWindow(Wnd, -i, 0, nil, nil);
                        end { GM_ADDPOINT }
                else
                        begin
                          Result := DefWindowProc(Wnd, msg, wParam, lParam);
                        end;
        end
end;

var
  wnd : HWND;
  msg : TMsg;
  wc  : TWndClass;
begin
  ZeroMemory(@wc, SizeOf(wc));
  wc.style := CS_DBLCLKS or CS_OWNDC or CS_VREDRAW or CS_HREDRAW;
  wc.lpfnWndProc := @WndProc;
  wc.cbWndExtra := EXWNDLONG_SIZE;
  wc.hInstance := hInstance;
  wc.hIcon := LoadIcon(0, IDI_APPLICATION);
  wc.hCursor := LoadCursor(0, IDC_ARROW);
  wc.lpszClassName := 'GraphicWndClass';
  if not Boolean(RegisterClass(wc)) then
  begin
    MessageBox(0, PChar('Class <' + wc.lpszClassName + '> is not register'), nil, MB_ICONERROR or MB_SYSTEMMODAL);
    ExitProcess(0)
  end;

  wnd := CreateWindow('GraphicWndClass', 'Graphic', WS_OVERLAPPEDWINDOW,
                      CW_USEDEFAULT,
                      CW_USEDEFAULT,
                      CW_USEDEFAULT,
                      CW_USEDEFAULT,
                      0, 0, HInstance, nil);

  if wnd = 0 then
  begin
    MessageBox(0, PChar('Window not created'), nil, MB_ICONERROR or MB_SYSTEMMODAL);
    ExitProcess(0)
  end;

  ShowWindow(wnd, SW_SHOW);
  while GetMessage(msg, 0, 0, 0) do
  begin
    TranslateMessage(msg);
    DispatchMessage(msg);
  end;
                       
end.