Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/fProbs.dfm

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/fProbs.dfm (modified) (8 diffs)

cprs/branches/foia-cprs/CPRS-Chart/fProbs.dfm

@@ -1 +1 @@
 inherited frmProblems: TfrmProblems
-  Left = 206
-  Top = 198
+  Left = 627
+  Top = 64
   Width = 639
   Height = 409
@@ -23 +23 @@
     Width = 2
     Height = 358
+    OnMoved = sptHorzMoved
   end
   inherited pnlLeft: TPanel
@@ -317 +318 @@
         item
           ImageIndex = -1
+          MinWidth = 20
           Text = 'Description'
           Width = 65
@@ -322 +324 @@
         item
           ImageIndex = -1
+          MinWidth = 16
           Text = 'Onset Date'
           Width = 65
@@ -327 +330 @@
         item
           ImageIndex = -1
+          MinWidth = 16
           Text = 'Last Updated'
           Width = 80
@@ -385 +389 @@
           Width = 0
         end>
+      OnSectionClick = HeaderControlSectionClick
       OnSectionResize = HeaderControlSectionResize
+      OnMouseDown = HeaderControlMouseDown
+      OnMouseUp = HeaderControlMouseUp
     end
   end
@@ -443 +450 @@
       Caption = 'View Details'
       OnClick = lstProbActsClick
+    end
+    object mnuOptimizeFields: TMenuItem
+      Caption = 'Adjust Column Size'
+      Visible = False
+      OnClick = mnuOptimizeFieldsClick
     end
   end
@@ -514 +526 @@
         end
       end
+      object mnuViewInformation: TMenuItem
+        Caption = 'Information'
+        OnClick = mnuViewInformationClick
+        object mnuViewDemo: TMenuItem
+          Tag = 1
+          Caption = 'De&mographics...'
+          OnClick = ViewInfo
+        end
+        object mnuViewVisits: TMenuItem
+          Tag = 2
+          Caption = 'Visits/Pr&ovider...'
+          OnClick = ViewInfo
+        end
+        object mnuViewPrimaryCare: TMenuItem
+          Tag = 3
+          Caption = 'Primary &Care...'
+          OnClick = ViewInfo
+        end
+        object mnuViewMyHealtheVet: TMenuItem
+          Tag = 4
+          Caption = 'MyHealthe&Vet...'
+          OnClick = ViewInfo
+        end
+        object mnuInsurance: TMenuItem
+          Tag = 5
+          Caption = '&Insurance...'
+          OnClick = ViewInfo
+        end
+        object mnuViewFlags: TMenuItem
+          Tag = 6
+          Caption = '&Flags...'
+          OnClick = ViewInfo
+        end
+        object mnuViewRemoteData: TMenuItem
+          Tag = 7
+          Caption = 'Remote &Data...'
+          OnClick = ViewInfo
+        end
+        object mnuViewReminders: TMenuItem
+          Tag = 8
+          Caption = '&Reminders...'
+          Enabled = False
+          OnClick = ViewInfo
+        end
+        object mnuViewPostings: TMenuItem
+          Tag = 9
+          Caption = '&Postings...'
+          OnClick = ViewInfo
+        end
+      end
       object Z1: TMenuItem
         Caption = '-'