Last change
on this file was 1679, checked in by healthsevak, 9 years ago |
Updating the working copy to CPRS version 28
|
File size:
2.5 KB
|
Line | |
---|
1 | inherited frmODBase: TfrmODBase
|
---|
2 | Left = 277
|
---|
3 | Top = 179
|
---|
4 | Width = 528
|
---|
5 | Height = 275
|
---|
6 | HorzScrollBar.Range = 500
|
---|
7 | HorzScrollBar.Tracking = True
|
---|
8 | HorzScrollBar.Visible = True
|
---|
9 | VertScrollBar.Range = 225
|
---|
10 | VertScrollBar.Visible = True
|
---|
11 | BorderIcons = [biSystemMenu]
|
---|
12 | Caption = ''
|
---|
13 | FormStyle = fsStayOnTop
|
---|
14 | OnClose = FormClose
|
---|
15 | OnCloseQuery = FormCloseQuery
|
---|
16 | OnCreate = FormCreate
|
---|
17 | OnKeyPress = FormKeyPress
|
---|
18 | ExplicitWidth = 528
|
---|
19 | ExplicitHeight = 275
|
---|
20 | PixelsPerInch = 96
|
---|
21 | TextHeight = 13
|
---|
22 | object memOrder: TCaptionMemo [0]
|
---|
23 | Left = 6
|
---|
24 | Top = 194
|
---|
25 | Width = 430
|
---|
26 | Height = 48
|
---|
27 | Color = clCream
|
---|
28 | Ctl3D = True
|
---|
29 | ParentCtl3D = False
|
---|
30 | ReadOnly = True
|
---|
31 | ScrollBars = ssVertical
|
---|
32 | TabOrder = 0
|
---|
33 | end
|
---|
34 | object cmdAccept: TButton [1]
|
---|
35 | Left = 442
|
---|
36 | Top = 194
|
---|
37 | Width = 72
|
---|
38 | Height = 21
|
---|
39 | Caption = 'Accept Order'
|
---|
40 | TabOrder = 1
|
---|
41 | OnClick = cmdAcceptClick
|
---|
42 | end
|
---|
43 | object cmdQuit: TButton [2]
|
---|
44 | Left = 442
|
---|
45 | Top = 221
|
---|
46 | Width = 39
|
---|
47 | Height = 21
|
---|
48 | Cancel = True
|
---|
49 | Caption = 'Quit'
|
---|
50 | TabOrder = 2
|
---|
51 | OnClick = cmdQuitClick
|
---|
52 | end
|
---|
53 | object pnlMessage: TPanel [3]
|
---|
54 | Left = 24
|
---|
55 | Top = 176
|
---|
56 | Width = 381
|
---|
57 | Height = 44
|
---|
58 | BevelInner = bvRaised
|
---|
59 | BorderStyle = bsSingle
|
---|
60 | TabOrder = 3
|
---|
61 | Visible = False
|
---|
62 | OnExit = pnlMessageExit
|
---|
63 | OnMouseDown = pnlMessageMouseDown
|
---|
64 | OnMouseMove = pnlMessageMouseMove
|
---|
65 | object imgMessage: TImage
|
---|
66 | Left = 4
|
---|
67 | Top = 4
|
---|
68 | Width = 32
|
---|
69 | Height = 32
|
---|
70 | OnMouseUp = memMessageMouseUp
|
---|
71 | end
|
---|
72 | object memMessage: TRichEdit
|
---|
73 | Left = 40
|
---|
74 | Top = 4
|
---|
75 | Width = 332
|
---|
76 | Height = 32
|
---|
77 | Color = clInfoBk
|
---|
78 | Font.Charset = DEFAULT_CHARSET
|
---|
79 | Font.Color = clInfoText
|
---|
80 | Font.Height = -11
|
---|
81 | Font.Name = 'MS Sans Serif'
|
---|
82 | Font.Style = []
|
---|
83 | ParentFont = False
|
---|
84 | ReadOnly = True
|
---|
85 | ScrollBars = ssVertical
|
---|
86 | TabOrder = 0
|
---|
87 | WantReturns = False
|
---|
88 | OnMouseDown = pnlMessageMouseDown
|
---|
89 | OnMouseMove = pnlMessageMouseMove
|
---|
90 | end
|
---|
91 | end
|
---|
92 | inherited amgrMain: TVA508AccessibilityManager
|
---|
93 | Data = (
|
---|
94 | (
|
---|
95 | 'Component = memOrder'
|
---|
96 | 'Status = stsDefault')
|
---|
97 | (
|
---|
98 | 'Component = cmdAccept'
|
---|
99 | 'Status = stsDefault')
|
---|
100 | (
|
---|
101 | 'Component = cmdQuit'
|
---|
102 | 'Status = stsDefault')
|
---|
103 | (
|
---|
104 | 'Component = pnlMessage'
|
---|
105 | 'Status = stsDefault')
|
---|
106 | (
|
---|
107 | 'Component = memMessage'
|
---|
108 | 'Status = stsDefault')
|
---|
109 | (
|
---|
110 | 'Component = frmODBase'
|
---|
111 | 'Status = stsDefault'))
|
---|
112 | end
|
---|
113 | end
|
---|
Note:
See
TracBrowser
for help on using the repository browser.