source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fNoteSTStop.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: 782 bytes
Line 
1unit fNoteSTStop;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls, fAutoSz, VA508AccessibilityManager;
8
9type
10 TfrmSearchStop = class(TfrmAutoSz)
11 btnSearchStop: TButton;
12 lblSearchStatus: TStaticText;
13 procedure btnSearchStopClick(Sender: TObject);
14 procedure FormShow(Sender: TObject);
15 private
16 { Private declarations }
17 public
18 { Public declarations }
19 end;
20
21var
22 frmSearchStop: TfrmSearchStop;
23
24implementation
25
26{$R *.dfm}
27uses fNotes, ORFn;
28
29procedure TfrmSearchStop.btnSearchStopClick(Sender: TObject);
30begin
31 SearchTextStopFlag := True;
32end;
33
34procedure TfrmSearchStop.FormShow(Sender: TObject);
35begin
36 ResizeFormToFont(frmSearchStop);
37end;
38
39end.
Note: See TracBrowser for help on using the repository browser.