source: cprs/trunk/CPRS-Chart/fAbout.pas@ 776

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

Initial Upload of Official WV CPRS 1.0.26.76

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