Bookstore

Recent

Author Topic: Corona outbreak  (Read 2767 times)

minesadorada

  • Hero Member
  • *****
  • Posts: 605
  • Retired
Re: Corona outbreak
« Reply #45 on: March 27, 2020, 11:09:05 am »
To make it quicker to flick between countries, I made a small change to my copy of the source.

Code: Pascal  [Select]
  1. procedure TMainForm.TreeViewClick(Sender: TObject);
  2. var
  3.   fs: TFormatSettings;
  4.   counts: array[TCaseType] of string = ('', '', '');
  5.   dates: array[TCaseType] of string = ('', '', '');
  6.   dt: TDataType;
  7.   ct: TCaseType;
  8.   saX, saY: TStringArray;
  9.   i: Integer;
  10.   ser: TChartSeries;
  11.   Y, Y0, dY, dY0: Double;
  12. begin
  13.   // START
  14.   if bClearOnClick then
  15.   begin
  16.        Chart.ClearSeries;
  17.        CreateMeasurementSeries;
  18.        UpdateGrid;
  19.   end;
  20.   // END
  21.  
  22.   if TreeView.Selected = nil then ........ etc. etc.
bClearOnClick is a boolean toggled by a checkbox that I added to the UI.  Default value is TRUE.It's probably not the best way to do it - just a quick hack to suit the way I like to use the app.

GPL Apps: Health MonitorRetro Ski Run
OnlinePackageManager Components: LazAutoUpdate, LongTimer, PoweredBy, ScrollText, PlaySound, CryptINI

kupferstecher

  • Sr. Member
  • ****
  • Posts: 361
Re: Corona outbreak
« Reply #46 on: March 27, 2020, 11:09:47 am »
@wp: Thaks for sharing the application. I just tried, workes fine.
I'd prefer a grid line for each day, would be imho more intuitive.

The possibility to show countries together is very nice. I grouped some regions, its really terrifying that the rising numbers can be seen everywhere in the world.

But,
@all: Please don't make this a non-technical thread.

Alextp

  • Hero Member
  • *****
  • Posts: 945
    • UVviewsoft
Re: Corona outbreak
« Reply #47 on: March 27, 2020, 12:01:23 pm »
In Moscow we have flu increased, +50 a day, +60 a day, +100 a day, +150 a day... in next week, Msk may be closed at all. or not. no one knows. if internet will be blocked in Msk, I will not have inet. so no updates to all by codes.
no one here is sure for our future.

wp

  • Hero Member
  • *****
  • Posts: 6821
Re: Corona outbreak
« Reply #48 on: March 27, 2020, 01:40:37 pm »
its really terrifying that the rising numbers can be seen everywhere in the world.
... and that many of the small numbers double also within a few days. Exponential growth is faster than any human activity to prevent damage. Only while the numbers are small there is some chance to do something. Don't waste time.
Lazarus trunk / fpc 3.0.4 / all 32-bit on Win-10