paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 04:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed testall

Browse Source 
git-svn-id: trunk@4839 -
This commit is contained in:
mattias 2003-11-25 09:15:55 +00:00
parent 4847e82ed3
commit ab426e3571
2 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/testallform.pp
View File

@ -289,9 +289,10 @@ type
gbAbout : TGroupBox; gbAbout : TGroupBox;
btnBigOk : TBitBtn; btnBigOk : TBitBtn;
procedure CloseAbout(Sender : TObject); procedure CloseAbout(Sender : TObject);
procedure Notification(AComponent: TComponent; Operation : TOperation);override;
public public
procedure EventWatch; procedure EventWatch;
lbEvents : TListBox; lbEvents: TListBox;
FLeft : Integer; FLeft : Integer;
Constructor Create(AOwner: TComponent); override; Constructor Create(AOwner: TComponent); override;
Destructor Destroy; override; Destructor Destroy; override;
@ -2584,6 +2585,9 @@ END.
{ {
$Log$ $Log$
Revision 1.14 2003/11/25 09:15:55 mattias
fixed testall
Revision 1.13 2003/09/18 09:21:03 mattias Revision 1.13 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf renamed LCLLinux to LCLIntf

17
examples/testtools.inc
View File

@ -1705,6 +1705,7 @@ begin
6: lbEvents.Items.Add('MessageBoxClick.<Yes>'); 6: lbEvents.Items.Add('MessageBoxClick.<Yes>');
7: lbEvents.Items.Add('MessageBoxClick.<No>'); 7: lbEvents.Items.Add('MessageBoxClick.<No>');
End; End;
FFocusControl:=nil;
EventWatch; EventWatch;
end; end;
//++++++++++++++++++++++++++++++++++ TBitBtn ++++++++++++++++++++++++++++++++++++++++ //++++++++++++++++++++++++++++++++++ TBitBtn ++++++++++++++++++++++++++++++++++++++++
@ -2488,8 +2489,8 @@ end;
//+++++++++++++++++++++ Virtual MouseEnter/Leave ++++++++++++++++++++++++++++++++++++ //+++++++++++++++++++++ Virtual MouseEnter/Leave ++++++++++++++++++++++++++++++++++++
procedure TForm1.ApplicationIdle(Sender: TObject; var Done: Boolean); procedure TForm1.ApplicationIdle(Sender: TObject; var Done: Boolean);
var var
CurControl: TControl; CurControl: TControl;
P: TPoint; P: TPoint;
begin begin
GetCursorPos(P); GetCursorPos(P);
CurControl := FindDragTarget(P, True); CurControl := FindDragTarget(P, True);
@ -2506,7 +2507,7 @@ procedure TForm1.VirOnEnter(Sender: TObject);
begin begin
lbEvents.Items.Add(Sender.ClassName+'.MouseEnter'); lbEvents.Items.Add(Sender.ClassName+'.MouseEnter');
EventWatch; EventWatch;
Assert(False, 'Trace:'+Sender.ClassName+'.EventOnEnter'); Assert(False, 'Trace:'+Sender.ClassName+'.EventOnEnter');
end; end;
procedure TForm1.VirOnLeave(Sender: TObject); procedure TForm1.VirOnLeave(Sender: TObject);
begin begin
@ -2866,6 +2867,13 @@ begin
AboutForm.Close; AboutForm.Close;
end; end;
procedure TForm1.Notification(AComponent: TComponent; Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (AComponent=FFocusControl) and (Operation=opRemove) then
FFocusControl:=nil;
end;
procedure TForm1.QuitClick(Sender : TObject); procedure TForm1.QuitClick(Sender : TObject);
begin begin
Close; Close;
@ -2877,6 +2885,9 @@ begin
end; end;
{ {
$Log$ $Log$
Revision 1.12 2003/11/25 09:15:55 mattias
fixed testall
Revision 1.11 2003/01/01 11:11:50 mattias Revision 1.11 2003/01/01 11:11:50 mattias
fixed testall example fixed testall example