source: cprs/branches/tmg-cprs/CPRS-Chart/mCoPayDesc.pas@ 1695

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 1.9 KB
Line 
1//kt -- Modified with SourceScanner on 8/8/2007
2unit mCoPayDesc;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 ExtCtrls, StdCtrls, ORCtrls, UBAConst;
9
10type
11 TfraCoPayDesc = class(TFrame)
12 pnlRight: TPanel;
13 lblCaption: TStaticText;
14 pnlSC: TPanel;
15 lblSCDisplay: TLabel;
16 memSCDisplay: TCaptionMemo;
17 Spacer2: TLabel;
18 pnlMain: TPanel;
19 spacer1: TLabel;
20 Panel7: TPanel;
21 lblHNC2: TORStaticText;
22 lblHNC: TORStaticText;
23 Panel8: TPanel;
24 Label12: TORStaticText;
25 Label11: TORStaticText;
26 Panel9: TPanel;
27 Label14: TORStaticText;
28 Label13: TORStaticText;
29 Panel10: TPanel;
30 Label16: TORStaticText;
31 Label15: TORStaticText;
32 Panel11: TPanel;
33 Label18: TORStaticText;
34 Label17: TORStaticText;
35 Panel12: TPanel;
36 Label24: TORStaticText;
37 Label23: TORStaticText;
38 Panel1: TPanel;
39 StaticText4: TORStaticText;
40 StaticText1: TORStaticText;
41 private
42 { Private declarations }
43 public
44 constructor Create(AOwner: TComponent); override;
45 end;
46
47implementation
48
49uses rPCE, UBAGlobals;
50
51{$R *.DFM}
52
53{ TfraCoPayDesc }
54
55constructor TfraCoPayDesc.Create(AOwner: TComponent);
56begin
57 inherited;
58 ListSCDisabilities(memSCDisplay.Lines);
59 Label23.Hint := BAFactorsRec.FBAFactorSC;
60 Label24.Hint := BAFactorsRec.FBAFactorSC;
61 staticText1.Hint := BAFactorsRec.FBAFactorCV;
62 staticText4.Hint := BAFactorsRec.FBAFactorCV;
63 Label17.Hint := BAFactorsRec.FBAFactorAO;
64 Label18.Hint := BAFactorsRec.FBAFactorAO;
65 Label15.Hint := BAFactorsRec.FBAFactorIR;
66 Label16.Hint := BAFactorsRec.FBAFactorIR;
67 Label13.Hint := BAFactorsRec.FBAFactorEC;
68 Label14.Hint := BAFactorsRec.FBAFactorEC;
69 Label11.Hint := BAFactorsRec.FBAFactorMST;
70 Label12.Hint := BAFactorsRec.FBAFactorMST;
71 lblHNC.Hint := BAFactorsRec.FBAFactorHNC;
72 lblHNC2.Hint := BAFactorsRec.FBAFactorHNC;
73
74end;
75
76end.
Note: See TracBrowser for help on using the repository browser.