-
Notifications
You must be signed in to change notification settings - Fork 4
/
QBAbout.pas
59 lines (48 loc) · 1.79 KB
/
QBAbout.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
{*******************************************************}
{ }
{ Delphi Visual Component Library }
{ QBuilder dialog component }
{ }
{ Copyright (c) 1996-2003 Sergey Orlik }
{ }
{ Written by: }
{ Sergey Orlik }
{ product manager }
{ Russia, C.I.S. and Baltic States (former USSR) }
{ Borland Moscow office }
{ Internet: support@fast-report.com, }
{ sorlik@borland.com }
{ http://www.fast-report.com }
{ }
{ Converted to Lazarus/Free Pascal by Jean Patrick }
{ Data: 14/02/2013 }
{ E-mail: jpsoft-sac-pa@hotmail.com }
{ }
{*******************************************************}
unit QBAbout;
{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}
interface
uses
Forms,
StdCtrls, ExtCtrls, LMessages, LCLType;
type
TOQBAboutForm = class(TForm)
Bevel1: TBevel;
Ok: TButton;
Label1: TLabel;
Label3: TLabel;
Label5: TLabel;
Label2: TLabel;
procedure WMNCHitTest(var Message :TLMNCHITTEST); message LM_NCHITTEST;
end;
implementation
{$R *.lfm}
procedure TOQBAboutForm.WMNCHitTest(var Message: TLMNCHITTEST);
begin
inherited;
if Message.Result = htClient then
Message.Result := htCaption;
end;
end.