Changeset 21 for trunk

Timestamp:

04/08/10 11:35:52 (14 years ago)

Author:

pinwc4

Message:

Added logic to hide save and delete profile buttons after a profile has been deleted and removed from the menu.

Location:

trunk/desktop

Files:

• ICSSerialPort.rbbas (modified) (1 diff)
• mainWindow.rbfrm (modified) (2 diffs)

trunk/desktop/ICSSerialPort.rbbas

@@ -328 +328 @@
         #tag Method, Flags = &h0
                 Sub saveProfile(theName as String)
-                  dim rs as RecordSet
-                  dim status as Boolean
-                  
-                  //Find a record
-                  rs = fsicsdb.SQLSelect("SELECT * FROM carprofiles WHERE name= '"+theName+"'")
-                  
-                  //Make sure we got a record
-                  if rs <> nil then
-                    //delete the record before saving
-                    deleteProfile(theName)
+                  if theName <> "" then
+                    
+                    dim rs as RecordSet
+                    dim status as Boolean
+                    
+                    //Find a record
+                    rs = fsicsdb.SQLSelect("SELECT * FROM carprofiles WHERE name= '"+theName+"'")
+                    
+                    //Make sure we got a record
+                    if rs <> nil then
+                      //delete the record before saving
+                      deleteProfile(theName)
+                    end if
+                    
+                    rs.Close
+                    
+                    status = createProfile(theName)
+                    
+                  else
+                    
+                    MsgBox "Please select a profile to modify"
+                    
                   end if
-                  
-                  rs.Close
-                  
-                  status = createProfile(theName)
                 End Sub
         #tag EndMethod

trunk/desktop/mainWindow.rbfrm

@@ -138 +138 @@
       Top             =   32
       Underline       =   ""
-      Value           =   3
+      Value           =   1
       Visible         =   True
       Width           =   637
@@ -3226 +3226 @@
                 Sub Action()
                   ICSSerialPort1.deleteProfile(PopupMenu_Profile.Text)
+                  
+                  PopupMenu_Profile.RemoveRow(PopupMenu_Profile.ListIndex)
+                  
+                  //Make sure to hide the save and delete profile buttons since no profile will be selected after this has been deleted
+                  PushButton_SaveProfile.Visible = False
+                  PushButton_Delete.Visible = False
                 End Sub
         #tag EndEvent