source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fLabInfo.pas@ 1723

Last change on this file since 1723 was 830, checked in by Kevin Toppenberg, 14 years ago

Upgrading to version 27

File size: 1.7 KB
Line 
1unit fLabInfo;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 StdCtrls, ExtCtrls, fAutoSz, ORFn, ORCtrls, VA508AccessibilityManager;
8
9type
10 TfrmLabInfo = class(TfrmAutoSz)
11 Panel1: TPanel;
12 btnOK: TButton;
13 memInfo: TCaptionMemo;
14 cboTests: TORComboBox;
15 procedure btnOKClick(Sender: TObject);
16 procedure FormCreate(Sender: TObject);
17 procedure cboTestsNeedData(Sender: TObject; const StartFrom: string;
18 Direction, InsertAt: Integer);
19 procedure cboTestsClick(Sender: TObject);
20 private
21 { Private declarations }
22 OKPressed: Boolean;
23 public
24 { Public declarations }
25 end;
26
27var
28 frmLabInfo: TfrmLabInfo;
29 function ExecuteLabInfo: Boolean;
30
31implementation
32
33uses fLabs, rLabs;
34
35{$R *.DFM}
36
37function ExecuteLabInfo: Boolean;
38begin
39 Result := False;
40 frmLabInfo := TfrmLabInfo.Create(Application);
41 try
42 ResizeFormToFont(TForm(frmLabInfo));
43 frmLabInfo.ShowModal;
44 if frmLabInfo.OKPressed then
45 Result := True;
46 finally
47 frmLabInfo.Release;
48 end;
49end;
50
51procedure TfrmLabInfo.btnOKClick(Sender: TObject);
52begin
53 OKPressed := true;
54 Close;
55end;
56
57procedure TfrmLabInfo.FormCreate(Sender: TObject);
58
59begin
60 RedrawSuspend(cboTests.Handle);
61 cboTests.InitLongList('');
62 RedrawActivate(cboTests.Handle);
63end;
64
65procedure TfrmLabInfo.cboTestsNeedData(Sender: TObject;
66 const StartFrom: string; Direction, InsertAt: Integer);
67begin
68 cboTests.ForDataUse(AllTests(StartFrom, Direction));
69end;
70
71procedure TfrmLabInfo.cboTestsClick(Sender: TObject);
72begin
73 inherited;
74 FastAssign(TestInfo(cboTests.Items[cboTests.ItemIndex]), memInfo.Lines);
75end;
76
77end.
Note: See TracBrowser for help on using the repository browser.