|
Last change
on this file since 842 was 830, checked in by Kevin Toppenberg, 14 years ago |
|
Upgrading to version 27
|
|
File size:
2.5 KB
|
| Rev | Line | |
|---|
| [830] | 1 | inherited frmPtDemo: TfrmPtDemo
|
|---|
| [456] | 2 | Left = 248
|
|---|
| 3 | Top = 283
|
|---|
| 4 | BorderIcons = [biSystemMenu]
|
|---|
| 5 | Caption = 'Patient Inquiry'
|
|---|
| [830] | 6 | ClientHeight = 271
|
|---|
| 7 | ClientWidth = 580
|
|---|
| [456] | 8 | OldCreateOrder = True
|
|---|
| 9 | Position = poScreenCenter
|
|---|
| 10 | OnCreate = FormCreate
|
|---|
| [830] | 11 | ExplicitWidth = 588
|
|---|
| 12 | ExplicitHeight = 305
|
|---|
| [456] | 13 | PixelsPerInch = 96
|
|---|
| 14 | TextHeight = 13
|
|---|
| [830] | 15 | object lblFontTest: TLabel [0]
|
|---|
| [456] | 16 | Left = 264
|
|---|
| 17 | Top = 148
|
|---|
| 18 | Width = 77
|
|---|
| 19 | Height = 14
|
|---|
| 20 | Caption = 'lblFontTest'
|
|---|
| 21 | Font.Charset = ANSI_CHARSET
|
|---|
| 22 | Font.Color = clWindowText
|
|---|
| 23 | Font.Height = -11
|
|---|
| 24 | Font.Name = 'Courier New'
|
|---|
| 25 | Font.Style = []
|
|---|
| 26 | ParentFont = False
|
|---|
| 27 | Visible = False
|
|---|
| 28 | end
|
|---|
| [830] | 29 | object memPtDemo: TRichEdit [1]
|
|---|
| [456] | 30 | Left = 0
|
|---|
| 31 | Top = 0
|
|---|
| [830] | 32 | Width = 580
|
|---|
| 33 | Height = 234
|
|---|
| [456] | 34 | Align = alClient
|
|---|
| 35 | Color = clCream
|
|---|
| 36 | Font.Charset = ANSI_CHARSET
|
|---|
| 37 | Font.Color = clWindowText
|
|---|
| 38 | Font.Height = -11
|
|---|
| 39 | Font.Name = 'Courier New'
|
|---|
| 40 | Font.Style = []
|
|---|
| 41 | Lines.Strings = (
|
|---|
| 42 |
|
|---|
| 43 | 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123ABCDEFGHIJKLMNOPQRSTUVWXYZ0123abcd' +
|
|---|
| 44 | 'efghijklmnopqrs')
|
|---|
| 45 | ParentFont = False
|
|---|
| 46 | PlainText = True
|
|---|
| 47 | ReadOnly = True
|
|---|
| 48 | ScrollBars = ssBoth
|
|---|
| 49 | TabOrder = 0
|
|---|
| 50 | WantReturns = False
|
|---|
| 51 | WordWrap = False
|
|---|
| 52 | end
|
|---|
| [830] | 53 | object pnlTop: TORAutoPanel [2]
|
|---|
| [456] | 54 | Left = 0
|
|---|
| [830] | 55 | Top = 234
|
|---|
| 56 | Width = 580
|
|---|
| [456] | 57 | Height = 37
|
|---|
| 58 | Align = alBottom
|
|---|
| 59 | BevelOuter = bvNone
|
|---|
| 60 | TabOrder = 1
|
|---|
| 61 | object cmdNewPt: TButton
|
|---|
| 62 | Left = 8
|
|---|
| 63 | Top = 8
|
|---|
| 64 | Width = 121
|
|---|
| 65 | Height = 21
|
|---|
| 66 | Caption = 'Select New Patient'
|
|---|
| 67 | TabOrder = 0
|
|---|
| 68 | OnClick = cmdNewPtClick
|
|---|
| 69 | end
|
|---|
| 70 | object cmdClose: TButton
|
|---|
| 71 | Left = 501
|
|---|
| 72 | Top = 8
|
|---|
| 73 | Width = 72
|
|---|
| 74 | Height = 21
|
|---|
| 75 | Cancel = True
|
|---|
| 76 | Caption = 'Close'
|
|---|
| 77 | Default = True
|
|---|
| 78 | TabOrder = 2
|
|---|
| 79 | OnClick = cmdCloseClick
|
|---|
| 80 | end
|
|---|
| 81 | object cmdPrint: TButton
|
|---|
| 82 | Left = 411
|
|---|
| 83 | Top = 8
|
|---|
| 84 | Width = 75
|
|---|
| 85 | Height = 21
|
|---|
| 86 | Caption = 'Print'
|
|---|
| 87 | TabOrder = 1
|
|---|
| 88 | OnClick = cmdPrintClick
|
|---|
| 89 | end
|
|---|
| 90 | end
|
|---|
| [830] | 91 | inherited amgrMain: TVA508AccessibilityManager
|
|---|
| 92 | Data = (
|
|---|
| 93 | (
|
|---|
| 94 | 'Component = memPtDemo'
|
|---|
| 95 | 'Status = stsDefault')
|
|---|
| 96 | (
|
|---|
| 97 | 'Component = pnlTop'
|
|---|
| 98 | 'Status = stsDefault')
|
|---|
| 99 | (
|
|---|
| 100 | 'Component = cmdNewPt'
|
|---|
| 101 | 'Status = stsDefault')
|
|---|
| 102 | (
|
|---|
| 103 | 'Component = cmdClose'
|
|---|
| 104 | 'Status = stsDefault')
|
|---|
| 105 | (
|
|---|
| 106 | 'Component = cmdPrint'
|
|---|
| 107 | 'Status = stsDefault')
|
|---|
| 108 | (
|
|---|
| 109 | 'Component = frmPtDemo'
|
|---|
| 110 | 'Status = stsDefault'))
|
|---|
| 111 | end
|
|---|
| [456] | 112 | object dlgPrintReport: TPrintDialog
|
|---|
| 113 | Left = 265
|
|---|
| 114 | Top = 245
|
|---|
| 115 | end
|
|---|
| 116 | end
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
