Produced by Araxis Merge on 5/10/2019 1:00:05 PM Eastern 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 | CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet | mCoverSheetDisplayPanel_WidgetClock.pas | Wed Apr 3 19:32:16 2019 UTC |
2 | CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet | mCoverSheetDisplayPanel_WidgetClock.pas | Thu May 9 00:51:30 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 210 |
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 mCove rSheetDisp layPanel_W idgetClock ; | |
2 | { | |
3 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
4 | * | |
5 | * Applicatio n: CPRS - CoverShee t | |
6 | * Developer: PII | |
7 | * Site: Salt L ake City I SC | |
8 | * Date: 2015-1 2-04 | |
9 | * | |
10 | * Descriptio n: Proof of concept and a fun idea. | |
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 | System.I mageList, | |
26 | Vcl.Grap hics, | |
27 | Vcl.Cont rols, | |
28 | Vcl.Form s, | |
29 | Vcl.Dial ogs, | |
30 | Vcl.Menu s, | |
31 | Vcl.ImgL ist, | |
32 | Vcl.StdC trls, | |
33 | Vcl.Butt ons, | |
34 | Vcl.ExtC trls, | |
35 | mCoverSh eetDisplay Panel, | |
36 | iCoverSh eetIntf; | |
37 | ||
38 | type | |
39 | TfraCove rSheetDisp layPanel_W idgetClock = class(T fraCoverSh eetDisplay Panel) | |
40 | tmrClo ck: TTimer ; | |
41 | lblTim e: TStatic Text; | |
42 | proced ure tmrClo ckTimer(Se nder: TObj ect); | |
43 | private | |
44 | { Priv ate declar ations } | |
45 | fUse24 HourClock: TMenuItem ; | |
46 | fShowD ayOfWeek: TMenuItem; | |
47 | protecte d | |
48 | { Prot ected decl erations } | |
49 | proced ure Use24H ourClock(S ender: TOb ject); | |
50 | proced ure ShowDa yOfWeek(Se nder: TObj ect); | |
51 | public | |
52 | constr uctor Crea te(aOwner: TComponen t); overri de; | |
53 | end; | |
54 | ||
55 | var | |
56 | fraCover SheetDispl ayPanel_Wi dgetClock: TfraCover SheetDispl ayPanel_Wi dgetClock; | |
57 | ||
58 | implementa tion | |
59 | ||
60 | {$R *.dfm} | |
61 | ||
62 | { TfraCove rSheetDisp layPanel_W idgetClock } | |
63 | ||
64 | constructo r TfraCove rSheetDisp layPanel_W idgetClock .Create(aO wner: TCom ponent); | |
65 | begin | |
66 | inherite d Create(a Owner); | |
67 | fUse24Ho urClock := NewItem(' Use 24 Hou r Clock', 0, False, True, Use2 4HourClock , 0, 'pmnC lock_Use24 Hour'); | |
68 | fShowDay OfWeek := NewItem('S how Day Of Week', 0, False, Tr ue, ShowDa yOfWeek, 0 , 'pmnCloc k_ShowDayO fWeek'); | |
69 | ||
70 | pmn.Item s.Add(NewI tem('-', 0 , False, F alse, nil, 0, 'pmnCl ock_Separa tor')); | |
71 | pmn.Item s.Add(fUse 24HourCloc k); | |
72 | pmn.Item s.Add(fSho wDayOfWeek ); | |
73 | ||
74 | tmrClock .Interval := 60000; | |
75 | tmrClock Timer(nil) ; | |
76 | tmrClock .Enabled : = True; | |
77 | end; | |
78 | ||
79 | procedure TfraCoverS heetDispla yPanel_Wid getClock.S howDayOfWe ek(Sender: TObject); | |
80 | begin | |
81 | fShowDay OfWeek.Che cked := no t fShowDay OfWeek.Che cked; | |
82 | tmrClock Timer(Send er); | |
83 | end; | |
84 | ||
85 | procedure TfraCoverS heetDispla yPanel_Wid getClock.U se24HourCl ock(Sender : TObject) ; | |
86 | begin | |
87 | fUse24Ho urClock.Ch ecked := n ot fUse24H ourClock.C hecked; | |
88 | tmrClock Timer(Send er); | |
89 | end; | |
90 | ||
91 | procedure TfraCoverS heetDispla yPanel_Wid getClock.t mrClockTim er(Sender: TObject); | |
92 | var | |
93 | aDayOfWe ek: string ; | |
94 | begin | |
95 | if fShow DayOfWeek. Checked th en | |
96 | aDayOf Week := #1 3#10 + For matDateTim e('dddd', Now) + #13 #10 | |
97 | else | |
98 | aDayOf Week := #1 3#10; | |
99 | ||
100 | if fUse2 4HourClock .Checked t hen | |
101 | lblTim e.Caption := aDayOfW eek + Form atDateTime ('mmm d, y yyy', Now) + #13#10 + 'Time: ' + FormatD ateTime('h hnn', Now) | |
102 | else | |
103 | lblTim e.Caption := aDayOfW eek + Form atDateTime ('mmm d, y yyy', Now) + #13#10 + 'Time: ' + FormatD ateTime('h :nn am/pm' , Now); | |
104 | end; | |
105 | ||
106 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.