Produced by Araxis Merge on 4/16/2019 12:20:46 PM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | C:\AraxisMergeCompare\Pri_un\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet | fCoverSheetDetailDisplay.pas | Wed Dec 12 14:04:36 2018 UTC |
2 | C:\AraxisMergeCompare\Pri_re\CPRS v32 P2 PCE Standardization-redacted\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet | fCoverSheetDetailDisplay.pas | Fri Apr 12 13:42:06 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 184 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | unit fCove rSheetDeta ilDisplay; | |
2 | { | |
3 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
4 | * | |
5 | * Applicatio n: CPRS - Covershee t | |
6 | * Developer: PII | |
7 | * Site: Salt L ake City I SC | |
8 | * Date: ####-# #-## | |
9 | * | |
10 | * Descriptio n: Main f orm for di splaying d etail on c oversheet items. | |
11 | * | |
12 | * Notes: | |
13 | * | |
14 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
15 | } | |
16 | ||
17 | interface | |
18 | ||
19 | uses | |
20 | Winapi.W indows, | |
21 | Winapi.M essages, | |
22 | System.S ysUtils, | |
23 | System.V ariants, | |
24 | System.C lasses, | |
25 | Vcl.Grap hics, | |
26 | Vcl.Cont rols, | |
27 | Vcl.Form s, | |
28 | Vcl.Dial ogs, | |
29 | Vcl.StdC trls, | |
30 | Vcl.ExtC trls; | |
31 | ||
32 | type | |
33 | TfrmCove rSheetDeta ilDisplay = class(TF orm) | |
34 | pnlOpt ions: TPan el; | |
35 | btnClo se: TButto n; | |
36 | memDet ails: TMem o; | |
37 | btnPri nt: TButto n; | |
38 | lblFon tSizer: TL abel; | |
39 | private | |
40 | { Priv ate declar ations } | |
41 | public | |
42 | { Publ ic declara tions } | |
43 | end; | |
44 | ||
45 | var | |
46 | frmCover SheetDetai lDisplay: TfrmCoverS heetDetail Display; | |
47 | ||
48 | function R eportBox(a Text: TStr ings; aTit le: string ; aAllowPr int: boole an): boole an; | |
49 | ||
50 | implementa tion | |
51 | ||
52 | {$R *.dfm} | |
53 | ||
54 | { TfrmCove rSheetDeta ilDisplay } | |
55 | ||
56 | function R eportBox(a Text: TStr ings; aTit le: string ; aAllowPr int: boole an): boole an; | |
57 | var | |
58 | aStr: st ring; | |
59 | aWidth: integer; | |
60 | aCurWidt h: integer ; | |
61 | aMaxWidt h: integer ; | |
62 | begin | |
63 | with Tfr mCoverShee tDetailDis play.Creat e(Applicat ion.MainFo rm) do | |
64 | try | |
65 | memD etails.Lin es.Clear; | |
66 | memD etails.Scr ollBars := ssVertica l; | |
67 | aCur Width := 3 00; | |
68 | aMax Width := S creen.Widt h - 100; | |
69 | lblF ontSizer.F ont := mem Details.Fo nt; | |
70 | for aStr in aT ext do | |
71 | be gin | |
72 | aWidth := lblFontSiz er.Canvas. TextWidth( aStr); | |
73 | if aWidth > aCurWidt h then | |
74 | if aWidt h < aMaxWi dth then | |
75 | aCurWi dth := aWi dth | |
76 | else | |
77 | begin | |
78 | aCur Width := a MaxWidth; | |
79 | memD etails.Scr ollBars := ssHorizon tal; | |
80 | end; | |
81 | memDetails .Lines.Add (aStr); | |
82 | en d; | |
83 | Capt ion := aTi tle; | |
84 | btnP rint.Visib le := aAll owPrint; | |
85 | Clie ntWidth := aCurWidth + 50; | |
86 | Show Modal; | |
87 | finall y | |
88 | Free ; | |
89 | end; | |
90 | Result : = True; | |
91 | end; | |
92 | ||
93 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.