mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-10 14:56:00 +02:00
tests: renamed to make test more clear
git-svn-id: trunk@29142 -
This commit is contained in:
parent
1cb4963ee6
commit
062d59479f
@ -1,3 +1,12 @@
|
|||||||
|
{
|
||||||
|
Test that empty ScrollBox with AutoScroll shows no scrollbars:
|
||||||
|
./runtests --format=plain --suite=TestScrollBoxEmpty
|
||||||
|
|
||||||
|
Test that ScrollBox with AutoScroll shows/hides scrollbars:
|
||||||
|
./runtests --format=plain --suite=TestScrollBoxAutoShowHideScrollbars
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
unit testpreferredsize;
|
unit testpreferredsize;
|
||||||
|
|
||||||
{$mode objfpc}{$H+}
|
{$mode objfpc}{$H+}
|
||||||
@ -16,7 +25,7 @@ type
|
|||||||
published
|
published
|
||||||
procedure TestGroupBoxPreferredSize1;
|
procedure TestGroupBoxPreferredSize1;
|
||||||
procedure TestScrollBoxEmpty;
|
procedure TestScrollBoxEmpty;
|
||||||
procedure TestScrollBoxOneChildPanel;
|
procedure TestScrollBoxAutoShowHideScrollbars;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -84,7 +93,7 @@ begin
|
|||||||
Application.ProcessMessages;
|
Application.ProcessMessages;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TTestPreferredSize.TestScrollBoxOneChildPanel;
|
procedure TTestPreferredSize.TestScrollBoxAutoShowHideScrollbars;
|
||||||
var
|
var
|
||||||
Form1: TForm;
|
Form1: TForm;
|
||||||
ScrollBox1: TScrollBox;
|
ScrollBox1: TScrollBox;
|
||||||
@ -112,8 +121,8 @@ begin
|
|||||||
IntfPreferredHeight:=0;
|
IntfPreferredHeight:=0;
|
||||||
TWSWinControlClass(ScrollBox1.WidgetSetClass).GetPreferredSize(ScrollBox1,
|
TWSWinControlClass(ScrollBox1.WidgetSetClass).GetPreferredSize(ScrollBox1,
|
||||||
IntfPreferredWidth, IntfPreferredHeight, false);
|
IntfPreferredWidth, IntfPreferredHeight, false);
|
||||||
AssertEquals('ScrollBox must not have interface preferred width',0,IntfPreferredWidth);
|
AssertEquals('ScrollBox must have small interface preferred width',true,IntfPreferredWidth<8);
|
||||||
AssertEquals('ScrollBox must not have interface preferred height',0,IntfPreferredHeight);
|
AssertEquals('ScrollBox must have small interface preferred height',true,IntfPreferredHeight<8);
|
||||||
|
|
||||||
//writeln('TTestPreferredSize.TestScrollBoxOneChildPanel Range=',ScrollBox1.HorzScrollBar.Range,' ',ScrollBox1.HorzScrollBar.Page,' ',ScrollBox1.HorzScrollBar.Visible);
|
//writeln('TTestPreferredSize.TestScrollBoxOneChildPanel Range=',ScrollBox1.HorzScrollBar.Range,' ',ScrollBox1.HorzScrollBar.Page,' ',ScrollBox1.HorzScrollBar.Visible);
|
||||||
AssertEquals('ScrollBox1.HorzScrollBar.Range should be the needed Right of all childs 60',60,ScrollBox1.HorzScrollBar.Range);
|
AssertEquals('ScrollBox1.HorzScrollBar.Range should be the needed Right of all childs 60',60,ScrollBox1.HorzScrollBar.Range);
|
||||||
|
Loading…
Reference in New Issue
Block a user