Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2025-08-05 01:24:48 +00:00
Code Issues Projects Releases Wiki Activity

lowercase ext checks

Browse Source
This commit is contained in:
April Ayres-Griffiths
2019-04-19 11:07:23 +10:00
parent 8520c20889
commit 67f290f0a9
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
backup/main.pas
View File

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

2
main.pas
View File

@@ -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