source: cprs/branches/tmg-cprs/CPRS-Chart/Consults/fConsultBS.dfm@ 716

Last change on this file since 716 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

File size: 2.9 KB
Line 
1object frmConsultsByService: TfrmConsultsByService
2 Left = 339
3 Top = 175
4 Width = 328
5 Height = 412
6 BorderIcons = []
7 Caption = 'List Consults by Service'
8 Color = clBtnFace
9 Font.Charset = DEFAULT_CHARSET
10 Font.Color = clWindowText
11 Font.Height = -11
12 Font.Name = 'MS Sans Serif'
13 Font.Style = []
14 OldCreateOrder = True
15 Position = poScreenCenter
16 PixelsPerInch = 96
17 TextHeight = 13
18 object pnlBase: TORAutoPanel
19 Left = 0
20 Top = 0
21 Width = 320
22 Height = 378
23 Align = alClient
24 BevelOuter = bvNone
25 TabOrder = 0
26 object lblService: TLabel
27 Left = 8
28 Top = 8
29 Width = 36
30 Height = 13
31 Caption = 'Service'
32 end
33 object radSort: TRadioGroup
34 Left = 52
35 Top = 289
36 Width = 212
37 Height = 49
38 Caption = 'Sort Order'
39 Items.Strings = (
40 '&Ascending (A-Z)'
41 '&Descending (Z-A)')
42 TabOrder = 2
43 end
44 object cmdOK: TButton
45 Left = 70
46 Top = 350
47 Width = 72
48 Height = 21
49 Caption = 'OK'
50 Default = True
51 TabOrder = 3
52 OnClick = cmdOKClick
53 end
54 object cmdCancel: TButton
55 Left = 157
56 Top = 350
57 Width = 72
58 Height = 21
59 Cancel = True
60 Caption = 'Cancel'
61 TabOrder = 4
62 OnClick = cmdCancelClick
63 end
64 object treService: TORTreeView
65 Left = 7
66 Top = 57
67 Width = 305
68 Height = 225
69 HideSelection = False
70 Indent = 19
71 ReadOnly = True
72 TabOrder = 1
73 OnChange = treServiceChange
74 Caption = 'Service'
75 NodePiece = 0
76 end
77 object cboService: TORComboBox
78 Left = 8
79 Top = 28
80 Width = 305
81 Height = 21
82 Style = orcsDropDown
83 AutoSelect = True
84 Caption = 'Service'
85 Color = clWindow
86 DropDownCount = 8
87 ItemHeight = 13
88 ItemTipColor = clWindow
89 ItemTipEnable = True
90 ListItemsOnly = True
91 LongList = False
92 LookupPiece = 0
93 MaxLength = 0
94 Pieces = '2'
95 Sorted = True
96 SynonymChars = '<>'
97 TabOrder = 0
98 OnKeyPause = cboServiceSelect
99 OnMouseClick = cboServiceSelect
100 CharsNeedMatch = 1
101 end
102 end
103 object DKLanguageController1: TDKLanguageController
104 Left = 272
105 Top = 336
106 LangData = {
107 140066726D436F6E73756C747342795365727669636501010000000100000007
108 0043617074696F6E01070000000700706E6C4261736500000A006C626C536572
109 76696365010100000002000000070043617074696F6E000700726164536F7274
110 010200000003000000070043617074696F6E0400000005004974656D73000500
111 636D644F4B010100000005000000070043617074696F6E000900636D6443616E
112 63656C010100000006000000070043617074696F6E000A007472655365727669
113 6365010100000007000000070043617074696F6E000A0063626F536572766963
114 65010100000008000000070043617074696F6E00}
115 end
116end
Note: See TracBrowser for help on using the repository browser.