paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 12:49:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed testall example

Browse Source 
git-svn-id: trunk@3773 -
This commit is contained in:
mattias 2003-01-01 11:11:50 +00:00
parent 43623c4fbb
commit 0d883f89b8
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
examples/testallform.pp
View File

@ -122,7 +122,7 @@ type
Timer1 : TTimer;
ToggleBox1 : TToggleBox;
ToolBar1 : TToolBar;
ToolButton1 : TToolButton;
//ToolButton1 : TToolButton;
TrackBar1, TrackBar2 : TTrackBar;
//UpDown1 : TUpDown;
//+++++++++++++ TestTools +++++++++++++++++++++++++++++
@ -863,7 +863,6 @@ begin
BenchForm[i] := TForm.Create(Self);
With BenchForm[i] do
Begin
Parent := Self;
OnMouseDown := @EventOnMouseDown;
OnMouseUp := @EventOnMouseUp;
OnClick := @EventOnClick;
@ -2505,7 +2504,7 @@ ToolBar1 := TToolBar.Create(Self);
end;
if Assigned(Toolbar1) then
begin
ToolButton1 := TToolButton.Create(ToolBar1);
{ToolButton1 := TToolButton.Create(ToolBar1);
with ToolButton1 do
begin
parent := ToolBar1;
@ -2514,7 +2513,7 @@ ToolButton1 := TToolButton.Create(ToolBar1);
Hint := 'ToolButton1';
ShowHint := True;
Show;
end;
end;}
//ToolButton2 := TToolButton.Create(ToolBar1);
//with ToolButton2 do
//begin
@ -2585,6 +2584,9 @@ END.
{
$Log$
Revision 1.12 2003/01/01 11:11:49 mattias
fixed testall example
Revision 1.11 2002/10/29 08:22:32 lazarus
MG: added interfaces unit

5
examples/testtools.inc
View File

@ -1567,7 +1567,6 @@ lblState := TLabel.Create(Self);
AboutForm := TForm.Create(Self);
With AboutForm do
begin
Parent := Self; //+++++++++++++++++++++++++
OnClose := @TestFormClose;//+++++ ABOUT +++++++++++++
Height := 300; //+++++++++++++++++++++++++
Width := 420;
@ -1580,7 +1579,6 @@ AboutForm := TForm.Create(Self);
EventForm := TForm.Create(Self);
With EventForm do
Begin
Parent := Self;
Height := 294;
Width := 255;
Caption := 'Events';
@ -2879,6 +2877,9 @@ begin
end;
{
$Log$
Revision 1.11 2003/01/01 11:11:50 mattias
fixed testall example
Revision 1.10 2002/10/30 13:44:29 lazarus
MG: fixed examples