Ignore:
Timestamp:
04/07/10 16:45:17 (15 years ago)
Author:
pinwc4
Message:

Added more database logic and a screen for creating a new profile

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/desktop/mainWindow.rbfrm

    r10 r11  
    138138      Top             =   32 
    139139      Underline       =   "" 
    140       Value           =   3 
     140      Value           =   1 
    141141      Visible         =   True 
    142142      Width           =   637 
    … …  
    26262626      XON             =   "" 
    26272627   End 
     2628   Begin PushButton PushButton_Default 
     2629      AutoDeactivate  =   True 
     2630      Bold            =   "" 
     2631      Cancel          =   "" 
     2632      Caption         =   "Default" 
     2633      Default         =   "" 
     2634      Enabled         =   True 
     2635      Height          =   20 
     2636      HelpTag         =   "" 
     2637      Index           =   -2147483648 
     2638      InitialParent   =   "" 
     2639      Italic          =   "" 
     2640      Left            =   326 
     2641      LockBottom      =   "" 
     2642      LockedInPosition=   False 
     2643      LockLeft        =   "" 
     2644      LockRight       =   "" 
     2645      LockTop         =   "" 
     2646      Scope           =   0 
     2647      TabIndex        =   44 
     2648      TabPanelIndex   =   0 
     2649      TabStop         =   True 
     2650      TextFont        =   "System" 
     2651      TextSize        =   0 
     2652      Top             =   312 
     2653      Underline       =   "" 
     2654      Visible         =   True 
     2655      Width           =   88 
     2656   End 
     2657   Begin PushButton PushButton_SaveProfile 
     2658      AutoDeactivate  =   True 
     2659      Bold            =   "" 
     2660      Cancel          =   "" 
     2661      Caption         =   "Save Profile" 
     2662      Default         =   "" 
     2663      Enabled         =   True 
     2664      Height          =   20 
     2665      HelpTag         =   "" 
     2666      Index           =   -2147483648 
     2667      InitialParent   =   "" 
     2668      Italic          =   "" 
     2669      Left            =   520 
     2670      LockBottom      =   "" 
     2671      LockedInPosition=   False 
     2672      LockLeft        =   "" 
     2673      LockRight       =   "" 
     2674      LockTop         =   "" 
     2675      Scope           =   0 
     2676      TabIndex        =   45 
     2677      TabPanelIndex   =   0 
     2678      TabStop         =   True 
     2679      TextFont        =   "System" 
     2680      TextSize        =   0 
     2681      Top             =   312 
     2682      Underline       =   "" 
     2683      Visible         =   False 
     2684      Width           =   100 
     2685   End 
    26282686End 
    26292687#tag EndWindow 
    … …  
    29773035        #tag EndEvent 
    29783036#tag EndEvents 
     3037#tag Events PopupMenu_Profile 
     3038        #tag Event 
     3039                Sub Change() 
     3040                  if me.Text <> "" then 
     3041                    PushButton_SaveProfile.Visible = true 
     3042                  end if 
     3043                End Sub 
     3044        #tag EndEvent 
     3045        #tag Event 
     3046                Sub Open() 
     3047                  dim s() as string 
     3048                  dim i as integer 
     3049                   
     3050                  s = ICSSerialPort1.listProfiles 
     3051                   
     3052                  if UBound(s) > -1 then 
     3053                    for each element as string in s 
     3054                      me.AddRow(element) 
     3055                    next 
     3056                  end if 
     3057                End Sub 
     3058        #tag EndEvent 
     3059#tag EndEvents 
     3060#tag Events PushButton_Create 
     3061        #tag Event 
     3062                Sub Action() 
     3063                  dim tempProfWindow as new createProfile 
     3064                  tempProfWindow.Show 
     3065                End Sub 
     3066        #tag EndEvent 
     3067#tag EndEvents 
     3068#tag Events PushButton_Delete 
     3069        #tag Event 
     3070                Sub Action() 
     3071                  ICSSerialPort1.deleteProfile(PopupMenu_Profile.Text) 
     3072                End Sub 
     3073        #tag EndEvent 
     3074#tag EndEvents 
     3075#tag Events PushButton_Save 
     3076        #tag Event 
     3077                Sub Action() 
     3078                  ICSSerialPort1.saveProfile(PopupMenu_Profile.Text) 
     3079                End Sub 
     3080        #tag EndEvent 
     3081#tag EndEvents 
    29793082#tag Events Slider_THGain 
    29803083        #tag Event 
    … …  
    34083511        #tag EndEvent 
    34093512#tag EndEvents 
     3513#tag Events ICSSerialPort1 
     3514        #tag Event 
     3515                Sub valuesChanged() 
     3516                  //Update the screens with the new values 
     3517                  updateAdvancedScreen 
     3518                  updateCarScreen 
     3519                End Sub 
     3520        #tag EndEvent 
     3521#tag EndEvents 
     3522#tag Events PushButton_Default 
     3523        #tag Event 
     3524                Sub Action() 
     3525                  ICSSerialPort1.setDefaultValues 
     3526                End Sub 
     3527        #tag EndEvent 
     3528#tag EndEvents 
     3529#tag Events PushButton_SaveProfile 
     3530        #tag Event 
     3531                Sub Action() 
     3532                  ICSSerialPort1.saveProfile(PopupMenu_Profile.Text) 
     3533                End Sub 
     3534        #tag EndEvent 
     3535#tag EndEvents 
Note: See TracChangeset for help on using the changeset viewer.