Changeset 829 for cprs/trunk/CPRS-Chart/Encounter/fProcedure.dfm
- Timestamp:
- Jul 7, 2010, 4:31:10 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/trunk/CPRS-Chart/Encounter/fProcedure.dfm
r456 r829 1 1 inherited frmProcedures: TfrmProcedures 2 Left = 2953 Top = 2122 Left = 548 3 Top = 172 4 4 Caption = 'Encounter Procedure' 5 ExplicitWidth = 632 6 ExplicitHeight = 427 5 7 PixelsPerInch = 96 6 8 TextHeight = 13 … … 15 17 Width = 88 16 18 Caption = 'Procedure Section' 19 ExplicitWidth = 88 17 20 end 18 21 inherited lblList: TLabel 19 22 Left = 154 23 ExplicitLeft = 154 20 24 end 21 25 inherited bvlMain: TBevel … … 23 27 Width = 537 24 28 Height = 166 29 ExplicitTop = 232 30 ExplicitWidth = 537 31 ExplicitHeight = 166 25 32 end 26 33 object lblMod: TLabel [5] … … 45 52 Top = 344 46 53 TabOrder = 8 54 ExplicitLeft = 544 55 ExplicitTop = 344 47 56 end 48 57 inherited btnCancel: TBitBtn 49 58 Top = 371 50 59 TabOrder = 9 60 ExplicitTop = 371 51 61 end 52 62 inherited pnlGrid: TPanel 53 63 Width = 523 54 64 TabOrder = 1 65 ExplicitWidth = 523 55 66 inherited lbGrid: TORListBox 56 67 Tag = 30 … … 58 69 Caption = 'Selected Procedures' 59 70 Pieces = '1,2' 71 ExplicitWidth = 523 60 72 end 61 73 inherited hcGrid: THeaderControl … … 74 86 Width = 112 75 87 end> 88 ExplicitWidth = 523 76 89 end 77 90 end … … 79 92 TabOrder = 2 80 93 end 81 inherited btnRemove: TButton 82 Left = 454 83 Top = 371 84 TabOrder = 7 85 end 86 inherited btnSelectAll: TButton 87 Left = 374 88 Top = 371 89 Height = 21 90 TabOrder = 6 91 TabStop = True 92 end 93 inherited pnlMain: TPanel 94 TabOrder = 0 95 inherited splLeft: TSplitter 96 Left = 145 97 end 98 object splRight: TSplitter [1] 99 Left = 349 100 Top = 0 101 Width = 3 102 Height = 204 103 Cursor = crHSplit 104 Align = alRight 105 OnMoved = splRightMoved 106 end 107 inherited lbxSection: TORListBox 108 Tag = 30 109 Left = 148 110 Width = 201 111 ItemHeight = 14 112 Pieces = '2,3' 113 end 114 inherited pnlLeft: TPanel 115 Width = 145 116 inherited lbSection: TORListBox 117 Tag = 30 118 Width = 145 119 TabOrder = 0 120 end 121 inherited btnOther: TButton 122 Tag = 13 123 Left = 3 124 Caption = 'Other Procedure...' 125 TabOrder = 1 126 end 127 end 128 object lbMods: TORListBox 129 Left = 352 130 Top = 0 131 Width = 260 132 Height = 204 133 Style = lbOwnerDrawFixed 134 Align = alRight 135 Font.Charset = DEFAULT_CHARSET 136 Font.Color = clWindowText 137 Font.Height = -11 138 Font.Name = 'MS Sans Serif' 139 Font.Style = [] 140 ItemHeight = 14 141 ParentFont = False 142 ParentShowHint = False 143 ShowHint = True 144 TabOrder = 2 145 Caption = 'Modifiers' 146 ItemTipColor = clWindow 147 LongList = False 148 Pieces = '2,3' 149 TabPosInPixels = True 150 CheckBoxes = True 151 CheckEntireLine = True 152 OnClickCheck = lbModsClickCheck 153 end 154 end 155 object spnProcQty: TUpDown 94 object spnProcQty: TUpDown [11] 156 95 Left = 348 157 96 Top = 371 … … 162 101 Position = 1 163 102 TabOrder = 5 164 Wrap = False 165 end 166 object txtProcQty: TCaptionEdit 103 end 104 object txtProcQty: TCaptionEdit [12] 167 105 Left = 288 168 106 Top = 371 … … 175 113 Caption = 'Quantity' 176 114 end 177 object cboProvider: TORComboBox 115 object cboProvider: TORComboBox [13] 178 116 Left = 56 179 117 Top = 371 … … 199 137 OnChange = cboProviderChange 200 138 OnNeedData = cboProviderNeedData 139 CharsNeedMatch = 1 140 end 141 inherited btnRemove: TButton 142 Left = 454 143 Top = 371 144 TabOrder = 7 145 ExplicitLeft = 454 146 ExplicitTop = 371 147 end 148 inherited btnSelectAll: TButton 149 Left = 374 150 Top = 371 151 Height = 21 152 TabOrder = 6 153 TabStop = True 154 ExplicitLeft = 374 155 ExplicitTop = 371 156 ExplicitHeight = 21 157 end 158 inherited pnlMain: TPanel 159 TabOrder = 0 160 inherited splLeft: TSplitter 161 Left = 145 162 ExplicitLeft = 145 163 end 164 object splRight: TSplitter [1] 165 Left = 349 166 Top = 0 167 Height = 204 168 Align = alRight 169 OnMoved = splRightMoved 170 end 171 inherited lbxSection: TORListBox 172 Tag = 30 173 Left = 148 174 Width = 201 175 ItemHeight = 14 176 Pieces = '2,3' 177 ExplicitLeft = 148 178 ExplicitWidth = 201 179 end 180 inherited pnlLeft: TPanel 181 Width = 145 182 ExplicitWidth = 145 183 inherited lbSection: TORListBox 184 Tag = 30 185 Width = 145 186 TabOrder = 0 187 ExplicitWidth = 145 188 end 189 inherited btnOther: TButton 190 Tag = 13 191 Left = 3 192 Caption = 'Other Procedure...' 193 TabOrder = 1 194 ExplicitLeft = 3 195 end 196 end 197 object lbMods: TORListBox 198 Left = 352 199 Top = 0 200 Width = 260 201 Height = 204 202 Style = lbOwnerDrawFixed 203 Align = alRight 204 Font.Charset = DEFAULT_CHARSET 205 Font.Color = clWindowText 206 Font.Height = -11 207 Font.Name = 'MS Sans Serif' 208 Font.Style = [] 209 ItemHeight = 14 210 ParentFont = False 211 ParentShowHint = False 212 ShowHint = True 213 TabOrder = 2 214 OnExit = lbModsExit 215 Caption = 'Modifiers' 216 ItemTipColor = clWindow 217 LongList = False 218 Pieces = '2,3' 219 TabPosInPixels = True 220 CheckBoxes = True 221 CheckEntireLine = True 222 OnClickCheck = lbModsClickCheck 223 end 224 end 225 inherited amgrMain: TVA508AccessibilityManager 226 Data = ( 227 ( 228 'Component = lbMods' 229 'Label = lblMod' 230 'Status = stsOK') 231 ( 232 'Component = spnProcQty' 233 'Status = stsDefault') 234 ( 235 'Component = txtProcQty' 236 'Status = stsDefault') 237 ( 238 'Component = cboProvider' 239 'Status = stsDefault') 240 ( 241 'Component = edtComment' 242 'Label = lblComment' 243 'Status = stsOK') 244 ( 245 'Component = btnRemove' 246 'Status = stsDefault') 247 ( 248 'Component = btnSelectAll' 249 'Status = stsDefault') 250 ( 251 'Component = pnlMain' 252 'Status = stsDefault') 253 ( 254 'Component = lbxSection' 255 'Label = lblList' 256 'Status = stsOK') 257 ( 258 'Component = pnlLeft' 259 'Status = stsDefault') 260 ( 261 'Component = lbSection' 262 'Label = lblSection' 263 'Status = stsOK') 264 ( 265 'Component = btnOther' 266 'Status = stsDefault') 267 ( 268 'Component = pnlGrid' 269 'Status = stsDefault') 270 ( 271 'Component = lbGrid' 272 'Status = stsDefault') 273 ( 274 'Component = hcGrid' 275 'Status = stsDefault') 276 ( 277 'Component = btnOK' 278 'Status = stsDefault') 279 ( 280 'Component = btnCancel' 281 'Status = stsDefault') 282 ( 283 'Component = frmProcedures' 284 'Status = stsDefault')) 201 285 end 202 286 end
Note:
See TracChangeset
for help on using the changeset viewer.