VmsMsgSybMngr save file function add

VmsMsgSymbMngr/SRC/FrmVmsMsgSymbMngrF.cpp

@@ -176,6 +176,8 @@ __fastcall TFrmVmsMsgSymbMngr::TFrmVmsMsgSymbMngr(TComponent* Owner)
         Application->MessageBox(L"Stream display library load failed.", L"Stream display fail", MB_OK|MB_ICONERROR|MB_APPLMODAL);
     }
 #endif
+    SaveDialog->InitialDir = ExtractFilePath(Application->ExeName);
+
     FPlayStream = false;
 }
 //---------------------------------------------------------------------------
@@ -419,6 +421,7 @@ void __fastcall TFrmVmsMsgSymbMngr::ChangeEditMode(int AEdit)
     }
 
     BtnSaveImgFile->Enabled = false;
+#if 0
     if (FSymbImag != NULL && FSymbImag->Picture->Bitmap != NULL)
     {
         if (FSymbImag->Picture->Bitmap->Height != 0)
@@ -426,6 +429,12 @@ void __fastcall TFrmVmsMsgSymbMngr::ChangeEditMode(int AEdit)
             BtnSaveImgFile->Enabled = true;
         }
     }
+#else
+    if (!EdNmbr->Text.IsEmpty() && CURR_PICT_WDTH > 0 && CURR_PICT_HGHT > 0) {
+        BtnSaveImgFile->Enabled = true;
+    }
+#endif
+
     if (AEdit == 0 || AEdit == 2)
     {
         GrpList->Enabled = false;
@@ -540,7 +549,7 @@ void __fastcall TFrmVmsMsgSymbMngr::BtnDeleteClick(TObject *Sender)
 void __fastcall TFrmVmsMsgSymbMngr::BtnSaveImgFileClick(TObject *Sender)
 {
     SaveDialog->Title      = FTitle;
-    SaveDialog->InitialDir = ExtractFilePath(Application->ExeName);
+    //SaveDialog->InitialDir = ExtractFilePath(Application->ExeName);
     SaveDialog->Filter     = "À̹ÌÁö ÆÄÀÏ (*." + CURR_PICT_EXT + ")|*." + CURR_PICT_EXT;
     SaveDialog->FileName   = EdNmbr->Text + "." + CURR_PICT_EXT;
 
@@ -548,6 +557,7 @@ void __fastcall TFrmVmsMsgSymbMngr::BtnSaveImgFileClick(TObject *Sender)
         try {
             String sFileName = SaveDialog->FileName;
             ImgGeneral->Picture->SaveToFile(sFileName);
+            SaveDialog->InitialDir = ExtractFilePath(sFileName);
         }
         catch (Exception &exception) {
             Application->ShowException(&exception);

VmsMsgSymbMngr/SRC/FrmVmsMsgSymbMngrF.dfm

@@ -3231,7 +3231,6 @@ object FrmVmsMsgSymbMngr: TFrmVmsMsgSymbMngr
               Enabled = False
               LookAndFeel.NativeStyle = False
               TabOrder = 4
-              Visible = False
               OnClick = BtnSaveImgFileClick
             end
           end
@@ -4992,10 +4991,6 @@ object FrmVmsMsgSymbMngr: TFrmVmsMsgSymbMngr
             object TsSbt7: TcxTabSheet
               Caption = ' Traffic Background '
               ImageIndex = 6
-              ExplicitLeft = 0
-              ExplicitTop = 0
-              ExplicitWidth = 0
-              ExplicitHeight = 0
               object Panel6: TPanel
                 Left = 0
                 Top = 0
@@ -5461,8 +5456,8 @@ object FrmVmsMsgSymbMngr: TFrmVmsMsgSymbMngr
   end
   object SaveDialog: TSaveDialog
     Options = [ofOverwritePrompt, ofHideReadOnly, ofNoValidate, ofCreatePrompt, ofEnableSizing]
-    Left = 1338
-    Top = 679
+    Left = 1346
+    Top = 655
   end
   object OpenBmp: TOpenPictureDialog
     DefaultExt = 'bmp'