diff --git a/backup/main.pas b/backup/main.pas index 5593451..0bb84e0 100644 --- a/backup/main.pas +++ b/backup/main.pas @@ -963,6 +963,7 @@ end; procedure TGUIForm.miD1FileClick(Sender: TObject); begin + odDiskImages.FilterIndex := 1; RepaintWindow; HideM8; if odDiskImages.Execute then @@ -979,6 +980,7 @@ end; procedure TGUIForm.miD2FileClick(Sender: TObject); begin + odDiskImages.FilterIndex := 1; RepaintWindow; HideM8; if odDiskImages.Execute then diff --git a/backup/poc.lps b/backup/poc.lps index 848d38e..d864157 100644 --- a/backup/poc.lps +++ b/backup/poc.lps @@ -21,8 +21,8 @@ - - + + @@ -67,123 +67,123 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + diff --git a/main.lfm b/main.lfm index 07313d9..79f1870 100644 --- a/main.lfm +++ b/main.lfm @@ -329,7 +329,6 @@ object GUIForm: TGUIForm BevelOuter = bvNone ClientHeight = 589 ClientWidth = 1014 - Color = clAqua ParentColor = False TabOrder = 2 object sidecarPanel: TPanel diff --git a/poc.lps b/poc.lps index d864157..696c2ba 100644 --- a/poc.lps +++ b/poc.lps @@ -21,8 +21,8 @@ - - + + @@ -67,123 +67,123 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - +