source: cprs/branches/tmg-cprs/CPRS-Chart/fAbout.pas@ 1572

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 3.0 KB
Line 
1//kt -- Modified with SourceScanner on 7/7/2007
2unit fAbout;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 fAutoSz, StdCtrls, ExtCtrls, DKLang;
9
10type
11 TfrmAbout = class(TfrmAutoSz)
12 Panel1: TPanel;
13 Image1: TImage;
14 cmdOK: TButton;
15 lblProductName: TStaticText;
16 lblFileVersion: TStaticText;
17 lblCompanyName: TStaticText;
18 lblComments: TStaticText;
19 lblCRC: TStaticText;
20 lblLegalCopyright: TMemo;
21 bvlBottom: TBevel;
22 lblFileDescription: TStaticText;
23 lblInternalName: TStaticText;
24 lblOriginalFileName: TStaticText;
25 bvl508Disclaimer: TBevel;
26 lbl508Notice: TMemo;
27 procedure FormCreate(Sender: TObject);
28 private
29 { Private declarations }
30 public
31 { Public declarations }
32 end;
33
34procedure ShowAbout;
35
36implementation
37
38{$R *.DFM}
39
40uses ORSystem, ORFn;
41
42procedure ShowAbout;
43var
44 frmAbout: TfrmAbout;
45begin
46 frmAbout := TfrmAbout.Create(Application);
47 try
48 ResizeFormToFont(TForm(frmAbout));
49 frmAbout.lblLegalCopyright.SelStart := 0;
50 frmAbout.lblLegalCopyright.SelLength := 0;
51 frmAbout.lbl508Notice.SelStart := 0;
52 frmAbout.lbl508Notice.SelLength := 0;
53 frmAbout.ShowModal;
54 finally
55 frmAbout.Release;
56 end;
57end;
58
59procedure TfrmAbout.FormCreate(Sender: TObject);
60begin
61 inherited;
62//lblCompanyName.Caption := 'Developed for ' + 'VOE VWPT Patient Enhanced Lookup Version 1.6b'; //vwpt <-- original line. //kt 7/7/2007
63 lblCompanyName.Caption := DKLangConstW('fAbout_Developed_for_')+' '+ DKLangConstW('fAbout_VOE_VWPT_Patient_Enhanced_Lookup_Version_16b'); //vwpt //kt added 7/7/2007
64 //lblCompanyName.Caption := 'Developed by the ' + FileVersionValue(Application.ExeName, FILE_VER_COMPANYNAME);
65//lblFileDescription.Caption := 'Compiled ' + FileVersionValue(Application.ExeName, FILE_VER_FILEDESCRIPTION); //date <-- original line. //kt 7/7/2007
66 lblFileDescription.Caption := DKLangConstW('fAbout_Compiled')+' '+ FileVersionValue(Application.ExeName, FILE_VER_FILEDESCRIPTION); //date //kt added 7/7/2007
67 lblFileVersion.Caption := FileVersionValue(Application.ExeName, FILE_VER_FILEVERSION);
68 lblInternalName.Caption := FileVersionValue(Application.ExeName, FILE_VER_INTERNALNAME);
69 lblLegalCopyright.Text := FileVersionValue(Application.ExeName, FILE_VER_LEGALCOPYRIGHT);
70 lblOriginalFileName.Caption := FileVersionValue(Application.ExeName, FILE_VER_ORIGINALFILENAME); //patch
71 lblProductName.Caption := FileVersionValue(Application.ExeName, FILE_VER_PRODUCTNAME);
72 lblComments.Caption := FileVersionValue(Application.ExeName, FILE_VER_COMMENTS); // version comment
73//lblCRC.Caption := 'CRC: ' + IntToHex(CRCForFile(Application.ExeName), 8); <-- original line. //kt 7/7/2007
74 lblCRC.Caption := DKLangConstW('fAbout_CRC_')+' ' + IntToHex(CRCForFile(Application.ExeName), 8); //kt added 7/7/2007
75end;
76
77end.
Note: See TracBrowser for help on using the repository browser.