[459] | 1 | inherited frmBAOptionsDiagnoses: TfrmBAOptionsDiagnoses
|
---|
| 2 | Left = 231
|
---|
| 3 | Top = 183
|
---|
| 4 | Width = 747
|
---|
| 5 | Height = 557
|
---|
| 6 | Caption = 'Personal Diagnoses List'
|
---|
| 7 | Constraints.MinHeight = 100
|
---|
| 8 | Constraints.MinWidth = 200
|
---|
| 9 | OnActivate = FormActivate
|
---|
| 10 | OnCreate = FormCreate
|
---|
| 11 | OnShow = FormShow
|
---|
| 12 | PixelsPerInch = 96
|
---|
| 13 | TextHeight = 13
|
---|
| 14 | object Panel1: TPanel
|
---|
| 15 | Left = 0
|
---|
| 16 | Top = 0
|
---|
| 17 | Width = 739
|
---|
| 18 | Height = 530
|
---|
| 19 | Align = alClient
|
---|
| 20 | Caption = 'Panel1'
|
---|
| 21 | Constraints.MinHeight = 344
|
---|
| 22 | Constraints.MinWidth = 576
|
---|
| 23 | TabOrder = 0
|
---|
| 24 | object Panel2: TPanel
|
---|
| 25 | Left = 16
|
---|
| 26 | Top = 10
|
---|
| 27 | Width = 713
|
---|
| 28 | Height = 519
|
---|
| 29 | Caption = 'Panel1'
|
---|
| 30 | TabOrder = 0
|
---|
| 31 | object Splitter1: TSplitter
|
---|
| 32 | Left = 468
|
---|
| 33 | Top = 26
|
---|
| 34 | Width = -3
|
---|
| 35 | Height = 463
|
---|
| 36 | Cursor = crHSplit
|
---|
| 37 | end
|
---|
| 38 | object Splitter2: TSplitter
|
---|
| 39 | Left = 193
|
---|
| 40 | Top = 26
|
---|
| 41 | Width = 7
|
---|
| 42 | Height = 463
|
---|
| 43 | Cursor = crHSplit
|
---|
| 44 | end
|
---|
| 45 | object Splitter3: TSplitter
|
---|
| 46 | Left = 467
|
---|
| 47 | Top = 26
|
---|
| 48 | Width = 1
|
---|
| 49 | Height = 463
|
---|
| 50 | Cursor = crHSplit
|
---|
| 51 | end
|
---|
| 52 | object Splitter4: TSplitter
|
---|
| 53 | Left = 385
|
---|
| 54 | Top = 26
|
---|
| 55 | Width = 2
|
---|
| 56 | Height = 463
|
---|
| 57 | Cursor = crHSplit
|
---|
| 58 | end
|
---|
| 59 | object Splitter5: TSplitter
|
---|
| 60 | Left = 465
|
---|
| 61 | Top = 26
|
---|
| 62 | Width = 2
|
---|
| 63 | Height = 463
|
---|
| 64 | Cursor = crHSplit
|
---|
| 65 | end
|
---|
| 66 | object pnlBottom: TPanel
|
---|
| 67 | Left = 1
|
---|
| 68 | Top = 489
|
---|
| 69 | Width = 711
|
---|
| 70 | Height = 29
|
---|
| 71 | Align = alBottom
|
---|
| 72 | BevelOuter = bvNone
|
---|
| 73 | Caption = ' '
|
---|
| 74 | TabOrder = 0
|
---|
| 75 | DesignSize = (
|
---|
| 76 | 711
|
---|
| 77 | 29)
|
---|
| 78 | object btnOther: TButton
|
---|
| 79 | Left = 13
|
---|
| 80 | Top = 3
|
---|
| 81 | Width = 129
|
---|
| 82 | Height = 23
|
---|
| 83 | Anchors = [akLeft, akBottom]
|
---|
| 84 | Caption = 'Other &Diagnoses'
|
---|
| 85 | Constraints.MinHeight = 23
|
---|
| 86 | Constraints.MinWidth = 115
|
---|
| 87 | TabOrder = 0
|
---|
| 88 | OnClick = btnOtherClick
|
---|
| 89 | end
|
---|
| 90 | object btnOK: TButton
|
---|
| 91 | Left = 523
|
---|
| 92 | Top = 3
|
---|
| 93 | Width = 75
|
---|
| 94 | Height = 23
|
---|
| 95 | Anchors = [akRight, akBottom]
|
---|
| 96 | Caption = '&OK'
|
---|
| 97 | TabOrder = 1
|
---|
| 98 | OnClick = btnOKClick
|
---|
| 99 | end
|
---|
| 100 | object Button1: TButton
|
---|
| 101 | Left = 632
|
---|
| 102 | Top = 4
|
---|
| 103 | Width = 75
|
---|
| 104 | Height = 21
|
---|
| 105 | Anchors = [akRight, akBottom]
|
---|
| 106 | Caption = '&Cancel'
|
---|
| 107 | TabOrder = 2
|
---|
| 108 | OnClick = Button1Click
|
---|
| 109 | end
|
---|
| 110 | end
|
---|
| 111 | object Panel3: TPanel
|
---|
| 112 | Left = 1
|
---|
| 113 | Top = 26
|
---|
| 114 | Width = 192
|
---|
| 115 | Height = 463
|
---|
| 116 | Align = alLeft
|
---|
| 117 | BevelOuter = bvNone
|
---|
| 118 | Font.Charset = DEFAULT_CHARSET
|
---|
| 119 | Font.Color = clWindowText
|
---|
| 120 | Font.Height = -11
|
---|
| 121 | Font.Name = 'MS Sans Serif'
|
---|
| 122 | Font.Style = []
|
---|
| 123 | ParentFont = False
|
---|
| 124 | TabOrder = 1
|
---|
| 125 | object lbSections: TORListBox
|
---|
| 126 | Left = 0
|
---|
| 127 | Top = 17
|
---|
| 128 | Width = 192
|
---|
| 129 | Height = 446
|
---|
| 130 | Align = alClient
|
---|
| 131 | Font.Charset = DEFAULT_CHARSET
|
---|
| 132 | Font.Color = clWindowText
|
---|
| 133 | Font.Height = -11
|
---|
| 134 | Font.Name = 'MS Sans Serif'
|
---|
| 135 | Font.Style = []
|
---|
| 136 | ItemHeight = 13
|
---|
| 137 | ParentFont = False
|
---|
| 138 | ParentShowHint = False
|
---|
| 139 | ShowHint = True
|
---|
| 140 | TabOrder = 0
|
---|
| 141 | OnClick = lbSectionsClick
|
---|
| 142 | OnEnter = lbSectionsEnter
|
---|
| 143 | ItemTipColor = clWindow
|
---|
| 144 | LongList = False
|
---|
| 145 | Pieces = '3'
|
---|
| 146 | end
|
---|
| 147 | object hdrCntlDxSections: THeaderControl
|
---|
| 148 | Left = 0
|
---|
| 149 | Top = 0
|
---|
| 150 | Width = 192
|
---|
| 151 | Height = 17
|
---|
| 152 | DragReorder = False
|
---|
| 153 | Sections = <
|
---|
| 154 | item
|
---|
| 155 | Alignment = taCenter
|
---|
| 156 | ImageIndex = -1
|
---|
| 157 | Text = 'Diagnoses Sections'
|
---|
| 158 | Width = 50
|
---|
| 159 | end>
|
---|
| 160 | end
|
---|
| 161 | end
|
---|
| 162 | object Panel4: TPanel
|
---|
| 163 | Left = 200
|
---|
| 164 | Top = 26
|
---|
| 165 | Width = 185
|
---|
| 166 | Height = 463
|
---|
| 167 | Align = alLeft
|
---|
| 168 | BevelOuter = bvNone
|
---|
| 169 | Font.Charset = DEFAULT_CHARSET
|
---|
| 170 | Font.Color = clWindowText
|
---|
| 171 | Font.Height = -11
|
---|
| 172 | Font.Name = 'MS Sans Serif'
|
---|
| 173 | Font.Style = []
|
---|
| 174 | ParentFont = False
|
---|
| 175 | TabOrder = 2
|
---|
| 176 | object lbDiagnosis: TORListBox
|
---|
| 177 | Left = 0
|
---|
| 178 | Top = 17
|
---|
| 179 | Width = 185
|
---|
| 180 | Height = 446
|
---|
| 181 | Align = alLeft
|
---|
| 182 | Anchors = [akTop, akRight, akBottom]
|
---|
| 183 | ItemHeight = 13
|
---|
| 184 | MultiSelect = True
|
---|
| 185 | ParentShowHint = False
|
---|
| 186 | ShowHint = True
|
---|
| 187 | TabOrder = 0
|
---|
| 188 | OnClick = lbDiagnosisChange
|
---|
| 189 | OnEnter = lbDiagnosisEnter
|
---|
| 190 | ItemTipColor = clWindow
|
---|
| 191 | LongList = False
|
---|
| 192 | Pieces = '1,2,3'
|
---|
| 193 | OnChange = lbDiagnosisChange
|
---|
| 194 | end
|
---|
| 195 | object hdrCntlDxAdd: THeaderControl
|
---|
| 196 | Left = 0
|
---|
| 197 | Top = 0
|
---|
| 198 | Width = 185
|
---|
| 199 | Height = 17
|
---|
| 200 | DragReorder = False
|
---|
| 201 | Sections = <
|
---|
| 202 | item
|
---|
| 203 | Alignment = taCenter
|
---|
| 204 | ImageIndex = -1
|
---|
| 205 | Text = 'Diagnoses to add'
|
---|
| 206 | Width = 50
|
---|
| 207 | end>
|
---|
| 208 | end
|
---|
| 209 | end
|
---|
| 210 | object Panel5: TPanel
|
---|
| 211 | Left = 465
|
---|
| 212 | Top = 26
|
---|
| 213 | Width = 247
|
---|
| 214 | Height = 463
|
---|
| 215 | Align = alClient
|
---|
| 216 | BevelOuter = bvNone
|
---|
| 217 | Caption = 'Panel5'
|
---|
| 218 | TabOrder = 3
|
---|
| 219 | object lbPersonalDx: TORListBox
|
---|
| 220 | Left = 0
|
---|
| 221 | Top = 17
|
---|
| 222 | Width = 247
|
---|
| 223 | Height = 446
|
---|
| 224 | Align = alClient
|
---|
| 225 | Anchors = [akRight]
|
---|
| 226 | Color = clInfoBk
|
---|
| 227 | ItemHeight = 13
|
---|
| 228 | MultiSelect = True
|
---|
| 229 | ParentShowHint = False
|
---|
| 230 | ShowHint = True
|
---|
| 231 | TabOrder = 0
|
---|
| 232 | OnClick = lbPersonalDxClick
|
---|
| 233 | ItemTipColor = clWindow
|
---|
| 234 | LongList = False
|
---|
| 235 | Pieces = '2,1,3'
|
---|
| 236 | end
|
---|
| 237 | object hdrCntlDx: THeaderControl
|
---|
| 238 | Left = 0
|
---|
| 239 | Top = 0
|
---|
| 240 | Width = 247
|
---|
| 241 | Height = 17
|
---|
| 242 | DragReorder = False
|
---|
| 243 | Sections = <
|
---|
| 244 | item
|
---|
| 245 | Alignment = taCenter
|
---|
| 246 | ImageIndex = -1
|
---|
| 247 | MinWidth = 150
|
---|
| 248 | Text = 'Diagnoses Codes'
|
---|
| 249 | Width = 150
|
---|
| 250 | end>
|
---|
| 251 | OnSectionClick = hdrCntlDxSectionClick
|
---|
| 252 | end
|
---|
| 253 | end
|
---|
| 254 | object pnlTop: TPanel
|
---|
| 255 | Left = 1
|
---|
| 256 | Top = 1
|
---|
| 257 | Width = 711
|
---|
| 258 | Height = 25
|
---|
| 259 | Align = alTop
|
---|
| 260 | BevelOuter = bvNone
|
---|
| 261 | TabOrder = 4
|
---|
| 262 | object StaticText3: TStaticText
|
---|
| 263 | Left = 472
|
---|
| 264 | Top = 8
|
---|
| 265 | Width = 140
|
---|
| 266 | Height = 17
|
---|
| 267 | Caption = 'Personal Diagnoses List'
|
---|
| 268 | Font.Charset = DEFAULT_CHARSET
|
---|
| 269 | Font.Color = clWindowText
|
---|
| 270 | Font.Height = -11
|
---|
| 271 | Font.Name = 'MS Sans Serif'
|
---|
| 272 | Font.Style = [fsBold]
|
---|
| 273 | ParentFont = False
|
---|
| 274 | TabOrder = 0
|
---|
| 275 | TabStop = True
|
---|
| 276 | end
|
---|
| 277 | end
|
---|
| 278 | object Panel7: TPanel
|
---|
| 279 | Left = 387
|
---|
| 280 | Top = 26
|
---|
| 281 | Width = 78
|
---|
| 282 | Height = 463
|
---|
| 283 | Align = alLeft
|
---|
| 284 | BevelOuter = bvNone
|
---|
| 285 | TabOrder = 5
|
---|
| 286 | DesignSize = (
|
---|
| 287 | 78
|
---|
| 288 | 463)
|
---|
| 289 | object btnAdd: TBitBtn
|
---|
| 290 | Left = 1
|
---|
| 291 | Top = 88
|
---|
| 292 | Width = 75
|
---|
| 293 | Height = 25
|
---|
| 294 | Anchors = [akLeft, akTop, akRight]
|
---|
| 295 | Caption = '&Add'
|
---|
| 296 | Constraints.MinHeight = 25
|
---|
| 297 | Constraints.MinWidth = 70
|
---|
| 298 | Enabled = False
|
---|
| 299 | TabOrder = 0
|
---|
| 300 | OnClick = btnAddClick
|
---|
| 301 | NumGlyphs = 2
|
---|
| 302 | end
|
---|
| 303 | object btnDelete: TBitBtn
|
---|
| 304 | Left = 2
|
---|
| 305 | Top = 136
|
---|
| 306 | Width = 75
|
---|
| 307 | Height = 25
|
---|
| 308 | Caption = '&Remove'
|
---|
| 309 | Constraints.MinHeight = 25
|
---|
| 310 | Constraints.MinWidth = 70
|
---|
| 311 | Enabled = False
|
---|
| 312 | TabOrder = 1
|
---|
| 313 | OnClick = btnDeleteClick
|
---|
| 314 | NumGlyphs = 2
|
---|
| 315 | end
|
---|
| 316 | end
|
---|
| 317 | end
|
---|
| 318 | end
|
---|
| 319 | end
|
---|