VERSION 5.00
Object = "{E48EFDBF-5838-4A7D-95DD-BC0EC914BD4A}#1.2#0"; "StarCEComponents.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form formMain 
   Caption         =   "Form1"
   ClientHeight    =   6255
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6060
   LinkTopic       =   "Form1"
   ScaleHeight     =   6255
   ScaleWidth      =   6060
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton commandsave 
      Caption         =   "Save"
      Height          =   495
      Left            =   4320
      TabIndex        =   2
      Top             =   5640
      Width           =   1695
   End
   Begin StarCEComponents.ConfigurationHandler ConfigurationHandler1 
      Left            =   0
      Top             =   5520
      _ExtentX        =   1931
      _ExtentY        =   873
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   5535
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6045
      _ExtentX        =   10663
      _ExtentY        =   9763
      _Version        =   393216
      Tab             =   2
      TabHeight       =   520
      TabCaption(0)   =   "Printer Settings"
      TabPicture(0)   =   "formMain.frx":0000
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "GeneralSettings1"
      Tab(0).ControlCount=   1
      TabCaption(1)   =   "Image Import"
      TabPicture(1)   =   "formMain.frx":001C
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "SelectImages1"
      Tab(1).ControlCount=   1
      TabCaption(2)   =   "Add Images"
      TabPicture(2)   =   "formMain.frx":0038
      Tab(2).ControlEnabled=   -1  'True
      Tab(2).Control(0)=   "AddImages1"
      Tab(2).Control(0).Enabled=   0   'False
      Tab(2).ControlCount=   1
      Begin StarCEComponents.AddImages AddImages1 
         Height          =   4095
         Left            =   120
         TabIndex        =   4
         Top             =   720
         Width           =   5775
         _ExtentX        =   10186
         _ExtentY        =   7223
         Appearance      =   1
         BackColor       =   -2147483633
         BackStyle       =   0
         BorderStyle     =   0
         Enabled         =   -1  'True
         ShowLabels      =   0   'False
      End
      Begin StarCEComponents.SelectImages SelectImages1 
         Height          =   4335
         Left            =   -74880
         TabIndex        =   3
         Top             =   600
         Width           =   5775
         _ExtentX        =   10186
         _ExtentY        =   7646
         Appearance      =   1
         BackColor       =   -2147483633
         BackStyle       =   1
         BorderStyle     =   0
         Enabled         =   -1  'True
         ShowLabels      =   0   'False
      End
      Begin StarCEComponents.GeneralSettings GeneralSettings1 
         Height          =   4440
         Left            =   -74880
         TabIndex        =   1
         Top             =   600
         Width           =   5775
         _ExtentX        =   10186
         _ExtentY        =   7832
         Appearance      =   1
         BackColor       =   -2147483633
         BackStyle       =   1
         BorderStyle     =   0
         Enabled         =   -1  'True
         LabelAlignmnet  =   0
         RowSpacing      =   60
         ShowZeroStyle   =   -1  'True
         ShowInternationalCharacterSet=   -1  'True
         ShowCodePage    =   -1  'True
         ShowCharacterEncoding=   -1  'True
         LineSpacing     =   -1  'True
         PrintDensity    =   -1  'True
         PrintSpeed      =   -1  'True
         PrintWidth      =   -1  'True
         ShowITFBearerBars=   -1  'True
         ShowUPCAExtendGuardBars=   -1  'True
         ShowEAN13ExtendGuardBars=   -1  'True
         ShowCODE39ExtendGuardBars=   -1  'True
         ShowCODE39CharacterSet=   0   'False
         ShowLabels      =   -1  'True
      End
   End
End
Attribute VB_Name = "formMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub commandsave_Click()

    ' Attempt to save configuration changes, display an error if it fails
    If Not Me.ConfigurationHandler1.SaveConfigurationToQueue(Globals.PrinterQueueName) Then
        MsgBox "Save Error", vbOKOnly + vbCritical, "Error"
    End If
End Sub

Private Sub Form_Load()

    ' Assign the ConfigurationHandler to each component
    Me.GeneralSettings1.SetConfigurationHandler Me.ConfigurationHandler1
    Me.SelectImages1.SetConfigurationHandler Me.ConfigurationHandler1
    Me.AddImages1.SetConfigurationHandler Me.ConfigurationHandler1
    
    ' Now that each component has a configuration handler, load the configuration
    Me.ConfigurationHandler1.LoadConfigurationFromQueue Globals.PrinterQueueName
    
End Sub
