source: cprs/branches/foia-cprs/CPRS-Chart/fNoteSTStop.pas@ 541

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

Uploading from OR_30_258

File size: 755 bytes
Line 
1unit fNoteSTStop;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls, fAutoSz;
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.