|
Last change
on this file since 1232 was 830, checked in by Kevin Toppenberg, 15 years ago |
|
Upgrading to version 27
|
|
File size:
1.3 KB
|
| Rev | Line | |
|---|
| [830] | 1 | inherited frmPtSelMsg: TfrmPtSelMsg
|
|---|
| [456] | 2 | Left = 375
|
|---|
| 3 | Top = 421
|
|---|
| 4 | Caption = 'Patient Lookup Messages'
|
|---|
| [830] | 5 | ClientHeight = 147
|
|---|
| 6 | ClientWidth = 367
|
|---|
| [456] | 7 | FormStyle = fsStayOnTop
|
|---|
| 8 | Position = poScreenCenter
|
|---|
| 9 | OnClose = FormClose
|
|---|
| 10 | OnCreate = FormCreate
|
|---|
| 11 | OnDestroy = FormDestroy
|
|---|
| [830] | 12 | ExplicitWidth = 375
|
|---|
| 13 | ExplicitHeight = 174
|
|---|
| [456] | 14 | DesignSize = (
|
|---|
| 15 | 367
|
|---|
| [830] | 16 | 147)
|
|---|
| [456] | 17 | PixelsPerInch = 96
|
|---|
| 18 | TextHeight = 13
|
|---|
| [830] | 19 | object cmdClose: TButton [0]
|
|---|
| [456] | 20 | Left = 158
|
|---|
| 21 | Top = 114
|
|---|
| 22 | Width = 60
|
|---|
| 23 | Height = 21
|
|---|
| 24 | Anchors = [akLeft, akRight, akBottom]
|
|---|
| 25 | Cancel = True
|
|---|
| 26 | Caption = 'Close'
|
|---|
| 27 | Default = True
|
|---|
| 28 | TabOrder = 0
|
|---|
| 29 | OnClick = cmdCloseClick
|
|---|
| 30 | end
|
|---|
| [830] | 31 | object memMessages: TRichEdit [1]
|
|---|
| [456] | 32 | Left = 0
|
|---|
| 33 | Top = 0
|
|---|
| 34 | Width = 367
|
|---|
| 35 | Height = 107
|
|---|
| 36 | Anchors = [akLeft, akTop, akRight, akBottom]
|
|---|
| 37 | Color = clCream
|
|---|
| 38 | ReadOnly = True
|
|---|
| 39 | ScrollBars = ssVertical
|
|---|
| 40 | TabOrder = 1
|
|---|
| 41 | WantReturns = False
|
|---|
| 42 | end
|
|---|
| [830] | 43 | inherited amgrMain: TVA508AccessibilityManager
|
|---|
| 44 | Data = (
|
|---|
| 45 | (
|
|---|
| 46 | 'Component = cmdClose'
|
|---|
| 47 | 'Status = stsDefault')
|
|---|
| 48 | (
|
|---|
| 49 | 'Component = memMessages'
|
|---|
| 50 | 'Status = stsDefault')
|
|---|
| 51 | (
|
|---|
| 52 | 'Component = frmPtSelMsg'
|
|---|
| 53 | 'Status = stsDefault'))
|
|---|
| 54 | end
|
|---|
| [456] | 55 | object timClose: TTimer
|
|---|
| 56 | OnTimer = timCloseTimer
|
|---|
| 57 | Left = 6
|
|---|
| 58 | Top = 126
|
|---|
| 59 | end
|
|---|
| 60 | end
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
