Improvements: file download status

README.RU.md

@@ -7,7 +7,7 @@
 ![](https://user-images.githubusercontent.com/9499881/43281249-45db3712-9124-11e8-84f0-69d508b30764.PNG)
 
 ## Загрузка
->Версия для Windows XP, 7, 8.1, 10.<br>
+>Версия для Windows 7, 8.1, 10.<br>
 **[Загрузить](https://github.com/r57zone/Podcast-Easy-for-Windows/releases)**<br>
 >Версия для Python и QPython (Android)<br>
 **[Загрузить](https://github.com/r57zone/Podcast-Easy-for-python)**<br>

README.md

@@ -7,7 +7,7 @@ Application for download podcasts. Enter rss feeds manually or import OPML file
 ![](https://user-images.githubusercontent.com/9499881/43281281-58622af8-9124-11e8-8e4b-66f21e9511aa.PNG)
 
 ## Download
->Version for Windows XP, 7, 8.1, 10.<br>
+>Version for Windows 7, 8.1, 10.<br>
 **[Download](https://github.com/r57zone/Podcast-Easy-for-Windows/releases)**<br>
 >Version for Python and QPython (Android)<br>
 **[Download](https://github.com/r57zone/Podcast-Easy-for-python)**<br>

Source/Languages/English.ini

@@ -1,9 +1,10 @@
 [Main]
 ID_REFRESH=Refresh
+ID_CANCEL=Cancel
 ID_DOWNLOADS=Downloads
 ID_CHECK_FEED=Checking news feeds: %d of %d
 ID_NEW_PODCAST=Found new podcast on
-ID_DOWNLOAD_PODCASTS=Downloading podcasts: %d of %d
+ID_DOWNLOAD_PODCASTS=Downloading podcasts: %d of %d, current %d%%
 ID_PODCASTS_DOWNLOADED=All podcasts downloaded
 ID_PODCASTS_SKIPPED=All podcasts skipped
 ID_PODCASTS_NOT_FOUND=New podcasts not found

Source/Languages/Russian.ini

@@ -1,9 +1,10 @@
 [Main]
 ID_REFRESH=Обновить
+ID_CANCEL=Отмена
 ID_DOWNLOADS=Загрузки
 ID_CHECK_FEED=Проверка новостных лент: %d из %d
 ID_NEW_PODCAST=Найден новый подкаст на
-ID_DOWNLOAD_PODCASTS=Загрузка подкастов: %d из %d
+ID_DOWNLOAD_PODCASTS=Загрузка подкастов: %d из %d, текущий %d%%
 ID_PODCASTS_DOWNLOADED=Все подкасты загружены
 ID_PODCASTS_SKIPPED=Все подкасты пропущены
 ID_PODCASTS_NOT_FOUND=Новых подкастов не найдено

Source/Unit1.dfm

@@ -16,14 +16,58 @@ object Main: TMain
   Position = poScreenCenter
   OnClose = FormClose
   OnCreate = FormCreate
+  OnKeyDown = FormKeyDown
   PixelsPerInch = 96
   TextHeight = 13
-  object SettingsBtn: TSpeedButton
+  object RefreshBtn: TButton
+    Left = 7
+    Top = 6
+    Width = 75
+    Height = 25
+    Caption = #1054#1073#1085#1086#1074#1080#1090#1100
+    TabOrder = 0
+    OnClick = RefreshBtnClick
+  end
+  object RSSListMemo: TMemo
+    Left = 7
+    Top = 38
+    Width = 281
+    Height = 102
+    Font.Charset = RUSSIAN_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'MS Sans Serif'
+    Font.Style = []
+    ParentFont = False
+    ScrollBars = ssBoth
+    TabOrder = 2
+    OnChange = RSSListMemoChange
+    OnKeyDown = RSSListMemoKeyDown
+  end
+  object StatusBar: TStatusBar
+    Left = 0
+    Top = 143
+    Width = 294
+    Height = 19
+    Panels = <>
+    SimplePanel = True
+  end
+  object OpenFolderBtn: TButton
+    Left = 86
+    Top = 6
+    Width = 75
+    Height = 25
+    Caption = #1047#1072#1075#1088#1091#1079#1082#1080
+    TabOrder = 1
+    OnClick = OpenFolderBtnClick
+  end
+  object SettingsBtn: TBitBtn
     Left = 264
     Top = 6
     Width = 25
     Height = 25
-    Flat = True
+    TabOrder = 4
+    OnClick = SettingsBtnClick
     Glyph.Data = {
       36060000424D3606000000000000360000002800000020000000100000000100
       18000000000000060000120B0000120B00000000000000000000FF00FFFF00FF
@@ -76,59 +120,19 @@ object Main: TMain
       FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFADADADC0
       C0C0ADADADFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
     NumGlyphs = 2
-    OnClick = SettingsBtnClick
-  end
-  object RefreshBtn: TButton
-    Left = 7
-    Top = 6
-    Width = 75
-    Height = 25
-    Caption = #1054#1073#1085#1086#1074#1080#1090#1100
-    TabOrder = 0
-    OnClick = RefreshBtnClick
   end
-  object RSSListMemo: TMemo
+  object CancelBtn: TButton
     Left = 7
-    Top = 38
-    Width = 281
-    Height = 102
-    Font.Charset = RUSSIAN_CHARSET
-    Font.Color = clWindowText
-    Font.Height = -11
-    Font.Name = 'MS Sans Serif'
-    Font.Style = []
-    ParentFont = False
-    ScrollBars = ssBoth
-    TabOrder = 2
-    OnChange = RSSListMemoChange
-  end
-  object StatusBar: TStatusBar
-    Left = 0
-    Top = 143
-    Width = 294
-    Height = 19
-    Panels = <>
-    SimplePanel = True
-    OnClick = StatusBarClick
-  end
-  object OpenFolderBtn: TButton
-    Left = 86
     Top = 6
     Width = 75
     Height = 25
-    Caption = #1047#1072#1075#1088#1091#1079#1082#1080
-    TabOrder = 1
-    OnClick = OpenFolderBtnClick
+    Caption = #1054#1090#1084#1077#1085#1072
+    TabOrder = 5
+    Visible = False
+    OnClick = CancelBtnClick
   end
   object XPManifest: TXPManifest
-    Left = 200
-    Top = 8
-  end
-  object Timer: TTimer
-    Enabled = False
-    Interval = 100
-    OnTimer = TimerTimer
-    Left = 232
-    Top = 8
+    Left = 16
+    Top = 48
   end
 end