lowercase ext checks

2019-04-19 11:07:23 +10:00 · 2019-04-19 11:07:23 +10:00 · 67f290f0a9
parent 8520c20889
commit 67f290f0a9
2 changed files with 2 additions and 2 deletions
--- a/backup/main.pas
+++ b/backup/main.pas
@ -2865,7 +2865,7 @@ end;

 procedure TGUIForm.FormDeactivate(Sender: TObject);
 begin
-  StatusBar1.SimpleText := 'focus lost';
+  //StatusBar1.SimpleText := 'focus lost';
  lastFocusLostTime:=Now();
 end;

--- a/main.pas
+++ b/main.pas
@ -2876,7 +2876,7 @@ var
 begin
  //StatusBar1.SimpleText := IntToStr(sbButton) + ':' + FileNames[0];
  filename := FileNames[0];
-  ext := ExtractFileExt(filename);
+  ext := LowerCase(ExtractFileExt(filename));
  case sbButton of
  0, 1: begin
             case ext of