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

Fixes typo in the test 822

Browse Source 
git-svn-id: trunk@27761 -
This commit is contained in:
sekelsenmat 2010-10-19 12:16:15 +00:00
parent b1f3a0a6c8
commit c7d58c33c4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/bugs/822/unit1.pas
View File

@ -37,7 +37,7 @@ begin
[ScrollBar1.Width, LineEnding, GetSystemMetrics(SM_CXVSCROLL)]); [ScrollBar1.Width, LineEnding, GetSystemMetrics(SM_CXVSCROLL)]);
if ParamStr(1)='--runtest' then begin if ParamStr(1)='--runtest' then begin
if ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL) then if ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL) then
writeln('ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL) = ') writeln('ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL)')
else else
writeln( writeln(
format('ScrollBar1.Width (%d) <> GetSystemMetrics(SM_CXVSCROLL) (%d)', format('ScrollBar1.Width (%d) <> GetSystemMetrics(SM_CXVSCROLL) (%d)',