paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 14:29:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

tests: added test for empty ScrollBox

Browse Source 
git-svn-id: trunk@29143 -
This commit is contained in:
mattias 2011-01-20 19:06:06 +00:00
parent 062d59479f
commit 27b1d47fb8
1 changed files with 38 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
test/lcltests/testpreferredsize.pas
View File

@ -3,9 +3,11 @@
./runtests --format=plain --suite=TestScrollBoxEmpty ./runtests --format=plain --suite=TestScrollBoxEmpty
Test that ScrollBox with AutoScroll shows/hides scrollbars: Test that ScrollBox with AutoScroll shows/hides scrollbars:
./runtests --format=plain --suite=TestScrollBoxAutoShowHideScrollbars ./runtests --format=plain --suite=TestScrollBoxAutoShowHideScrollbars
Test that ScrollBox with AutoScroll computes correct Visible and Range.
./runtests --format=plain --suite=TestScrollBoxRange
} }
unit testpreferredsize; unit testpreferredsize;
@ -26,6 +28,7 @@ type
procedure TestGroupBoxPreferredSize1; procedure TestGroupBoxPreferredSize1;
procedure TestScrollBoxEmpty; procedure TestScrollBoxEmpty;
procedure TestScrollBoxAutoShowHideScrollbars; procedure TestScrollBoxAutoShowHideScrollbars;
procedure TestScrollBoxRange;
end; end;
implementation implementation
@ -76,7 +79,7 @@ var
Form1: TForm; Form1: TForm;
ScrollBox1: TScrollBox; ScrollBox1: TScrollBox;
begin begin
// create an empty scrollbox on a form // create an empty scrollbox with AutoScroll=true on a form
Form1:=TForm.Create(nil); Form1:=TForm.Create(nil);
Form1.SetBounds(100,100,300,300); Form1.SetBounds(100,100,300,300);
ScrollBox1:=TScrollBox.Create(Form1); ScrollBox1:=TScrollBox.Create(Form1);
@ -86,6 +89,8 @@ begin
Form1.Show; Form1.Show;
Application.ProcessMessages; Application.ProcessMessages;
AssertEquals('TScrollBox: Empty, AutoScroll=true, but HorzScrollBar.Visible is true',false,ScrollBox1.HorzScrollBar.Visible);
AssertEquals('TScrollBox: Empty, AutoScroll=true, but VertScrollBar.Visible is true',false,ScrollBox1.VertScrollBar.Visible);
AssertEquals('TScrollBox: Empty, AutoScroll=true, but HorzScrollBar.IsScrollBarVisible is true',false,ScrollBox1.HorzScrollBar.IsScrollBarVisible); AssertEquals('TScrollBox: Empty, AutoScroll=true, but HorzScrollBar.IsScrollBarVisible is true',false,ScrollBox1.HorzScrollBar.IsScrollBarVisible);
AssertEquals('TScrollBox: Empty, AutoScroll=true, but VertScrollBar.IsScrollBarVisible is true',false,ScrollBox1.VertScrollBar.IsScrollBarVisible); AssertEquals('TScrollBox: Empty, AutoScroll=true, but VertScrollBar.IsScrollBarVisible is true',false,ScrollBox1.VertScrollBar.IsScrollBarVisible);
@ -101,7 +106,7 @@ var
IntfPreferredWidth: integer; IntfPreferredWidth: integer;
IntfPreferredHeight: integer; IntfPreferredHeight: integer;
begin begin
// create a scrollbox on a form and put a small panel into the box // create a scrollbox with AutoScroll=true on a form and put a small panel into the box
Form1:=TForm.Create(nil); Form1:=TForm.Create(nil);
Form1.SetBounds(100,100,300,300); Form1.SetBounds(100,100,300,300);
ScrollBox1:=TScrollBox.Create(Form1); ScrollBox1:=TScrollBox.Create(Form1);
@ -159,6 +164,36 @@ begin
Application.ProcessMessages; Application.ProcessMessages;
end; end;
procedure TTestPreferredSize.TestScrollBoxRange;
var
Form1: TForm;
ScrollBox1: TScrollBox;
begin
// create an empty scrollbox on a form
Form1:=TForm.Create(nil);
Form1.SetBounds(100,100,300,300);
ScrollBox1:=TScrollBox.Create(Form1);
ScrollBox1.SetBounds(10,10,100,100);
ScrollBox1.AutoScroll:=true;
ScrollBox1.Parent:=Form1;
Form1.Show;
Application.ProcessMessages;
with ScrollBox1.HorzScrollBar do begin
writeln('TTestPreferredSize.TestScrollBoxRange Horz: Visible=',Visible,
' HandleVisible=',IsScrollBarVisible,
' Range=',Range,' Position=',Position,' Page=',Page,
' ClientWidth=',ScrollBox1.ClientWidth);
end;
AssertEquals('TScrollBox: Empty, AutoScroll=true, but HorzScrollBar.Visible is true',false,ScrollBox1.HorzScrollBar.Visible);
AssertEquals('TScrollBox: Empty, AutoScroll=true, but VertScrollBar.Visible is true',false,ScrollBox1.VertScrollBar.Visible);
// ToDo: check range
Form1.Free;
Application.ProcessMessages;
end;
initialization initialization
AddToLCLTestSuite(TTestPreferredSize); AddToLCLTestSuite(TTestPreferredSize);