paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:39:29 +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;
btnBigOk : TBitBtn;
procedure CloseAbout(Sender : TObject);
procedure Notification(AComponent: TComponent; Operation : TOperation);override;
public
procedure EventWatch;
lbEvents : TListBox;
lbEvents: TListBox;
FLeft : Integer;
Constructor Create(AOwner: TComponent); override;
Destructor Destroy; override;
@ -2584,6 +2585,9 @@ END.
{
$Log$
Revision 1.14 2003/11/25 09:15:55 mattias
fixed testall
Revision 1.13 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf

17
examples/testtools.inc
View File

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