paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 14:19:17 +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

4
examples/testallform.pp
View File

@ -289,6 +289,7 @@ type
gbAbout : TGroupBox;
btnBigOk : TBitBtn;
procedure CloseAbout(Sender : TObject);
procedure Notification(AComponent: TComponent; Operation : TOperation);override;
public
procedure EventWatch;
lbEvents: TListBox;
@ -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

11
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 ++++++++++++++++++++++++++++++++++++++++
@ -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