inherited frmGAF: TfrmGAF Left = 255 Top = 178 ActiveControl = edtScore Caption = 'frmGAF' OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object lblScore: TLabel [0] Left = 139 Top = 175 Width = 31 Height = 13 Caption = 'Score:' end object lblDate: TLabel [1] Left = 139 Top = 206 Width = 83 Height = 13 Caption = 'Date Determined:' end object lblDeterminedBy: TLabel [2] Left = 139 Top = 237 Width = 72 Height = 13 Caption = 'Determined By:' end object Spacer1: TLabel [3] Left = 0 Top = 0 Width = 624 Height = 13 Align = alTop end object Spacer2: TLabel [4] Left = 0 Top = 122 Width = 624 Height = 13 Align = alTop end object lblGAF: TStaticText [5] Left = 0 Top = 13 Width = 624 Height = 22 Align = alTop Alignment = taCenter AutoSize = False Caption = 'Most recent Global Assessment of Functioning (GAF) scores:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 8 end object lblEntry: TStaticText [6] Left = 0 Top = 135 Width = 624 Height = 30 Align = alTop Alignment = taCenter AutoSize = False Caption = 'Global Assessment of Functioning (GAF) score entry:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 9 end inherited btnOK: TBitBtn TabOrder = 6 end inherited btnCancel: TBitBtn TabOrder = 7 end inherited pnlGrid: TPanel Left = 0 Top = 35 Width = 624 Align = alTop TabOrder = 0 inherited lbGrid: TORListBox Width = 624 TabStop = False MultiSelect = True Caption = 'Most recent Global Assessment of Functioning (GAF) scores' Pieces = '1,2,3,4' end inherited hcGrid: THeaderControl Width = 624 Sections = < item ImageIndex = -1 MinWidth = 65 Text = 'GAF Score' Width = 65 end item ImageIndex = -1 MinWidth = 95 Text = 'Date Determined' Width = 95 end item ImageIndex = -1 MinWidth = 85 Text = 'Determined By' Width = 85 end item ImageIndex = -1 MinWidth = 60 Text = 'Comment' Width = 60 end> end end object edtScore: TCaptionEdit Left = 226 Top = 171 Width = 33 Height = 21 TabOrder = 1 Text = '0' OnChange = edtScoreChange Caption = 'Score' end object udScore: TUpDown Left = 259 Top = 171 Width = 15 Height = 21 Associate = edtScore Min = 0 Position = 0 TabOrder = 2 Wrap = False end object dteGAF: TORDateBox Left = 226 Top = 202 Width = 121 Height = 21 TabOrder = 3 OnExit = dteGAFExit DateOnly = True RequireTime = False Caption = 'Date Determined:' end object cboGAFProvider: TORComboBox Left = 226 Top = 233 Width = 212 Height = 117 Style = orcsSimple AutoSelect = True Caption = 'Determined By' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 2 MaxLength = 0 Pieces = '2,3' Sorted = False SynonymChars = '<>' TabOrder = 4 OnExit = cboGAFProviderExit OnNeedData = cboGAFProviderNeedData end object btnURL: TButton Left = 3 Top = 376 Width = 134 Height = 21 Hint = 'GAF Scale Rating Form' Caption = 'Reference Information' ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = btnURLClick end end