paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 05:02:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

added testcase for bug #822

Browse Source 
git-svn-id: trunk@10619 -
This commit is contained in:
vincents 2007-02-10 13:00:57 +00:00
parent 9bebef46ab
commit 34290cff1b
7 changed files with 378 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.gitattributes vendored
View File

@ -2860,6 +2860,12 @@ test/bugs/7462/expected.txt svneol=native#text/plain
test/bugs/7462/unit1.lfm svneol=native#text/plain
test/bugs/7462/unit1.lrs svneol=native#text/plain
test/bugs/7462/unit1.pas svneol=native#text/plain
test/bugs/822/bug822.lpi svneol=native#text/plain
test/bugs/822/bug822.lpr svneol=native#text/plain
test/bugs/822/expected.txt svneol=native#text/plain
test/bugs/822/unit1.lfm svneol=native#text/plain
test/bugs/822/unit1.lrs svneol=native#text/plain
test/bugs/822/unit1.pas svneol=native#text/plain
test/bugs/8284/bug8284.lpi svneol=native#text/plain
test/bugs/8284/bug8284.lpr svneol=native#text/plain
test/bugs/8284/expected.txt svneol=native#text/plain

264
test/bugs/822/bug822.lpi Normal file
View File

@ -0,0 +1,264 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="5"/>
<General>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<Language Value=""/>
<CharSet Value=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="16">
<Unit0>
<Filename Value="bug822.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="bug822"/>
<UsageCount Value="20"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/>
<ResourceFilename Value="unit1.lrs"/>
<UnitName Value="Unit1"/>
<CursorPos X="29" Y="43"/>
<TopLine Value="10"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="..\..\..\lcl\stdctrls.pp"/>
<UnitName Value="StdCtrls"/>
<CursorPos X="18" Y="95"/>
<TopLine Value="72"/>
<EditorIndex Value="3"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="..\..\..\lcl\include\scrollbar.inc"/>
<CursorPos X="33" Y="30"/>
<TopLine Value="7"/>
<EditorIndex Value="4"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtkwsstdctrls.pp"/>
<UnitName Value="GtkWSStdCtrls"/>
<CursorPos X="40" Y="36"/>
<TopLine Value="14"/>
<EditorIndex Value="5"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit4>
<Unit5>
<Filename Value="..\..\..\lcl\widgetset\wscontrols.pp"/>
<UnitName Value="WSControls"/>
<CursorPos X="28" Y="143"/>
<TopLine Value="139"/>
<EditorIndex Value="6"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit5>
<Unit6>
<Filename Value="..\..\..\lcl\interfacebase.pp"/>
<UnitName Value="InterfaceBase"/>
<CursorPos X="14" Y="82"/>
<TopLine Value="64"/>
<EditorIndex Value="7"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit6>
<Unit7>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtkint.pp"/>
<UnitName Value="GtkInt"/>
<CursorPos X="14" Y="307"/>
<TopLine Value="289"/>
<EditorIndex Value="8"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit7>
<Unit8>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtkobject.inc"/>
<CursorPos X="22" Y="5933"/>
<TopLine Value="5927"/>
<EditorIndex Value="9"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit8>
<Unit9>
<Filename Value="..\..\..\lcl\interfaces\carbon\carbonint.pas"/>
<UnitName Value="CarbonInt"/>
<CursorPos X="14" Y="39"/>
<TopLine Value="21"/>
<EditorIndex Value="10"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit9>
<Unit10>
<Filename Value="..\..\..\..\fpc\2.1\packages\extra\univint\FPCMacOSAll.pas"/>
<UnitName Value="FPCMacOSAll"/>
<CursorPos X="11" Y="16480"/>
<TopLine Value="16463"/>
<EditorIndex Value="11"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit10>
<Unit11>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtklclintf.inc"/>
<CursorPos X="39" Y="339"/>
<TopLine Value="373"/>
<EditorIndex Value="12"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit11>
<Unit12>
<Filename Value="..\..\..\lcl\include\sizeconstraints.inc"/>
<CursorPos X="1" Y="49"/>
<TopLine Value="25"/>
<EditorIndex Value="14"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit12>
<Unit13>
<Filename Value="..\..\..\lcl\include\wincontrol.inc"/>
<CursorPos X="17" Y="5181"/>
<TopLine Value="5111"/>
<EditorIndex Value="13"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit13>
<Unit14>
<Filename Value="..\..\..\lcl\interfaces\win32\interfaces.pp"/>
<UnitName Value="Interfaces"/>
<CursorPos X="5" Y="39"/>
<TopLine Value="10"/>
<EditorIndex Value="2"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit14>
<Unit15>
<Filename Value="expected.txt"/>
<IsPartOfProject Value="True"/>
<CursorPos X="8" Y="2"/>
<TopLine Value="1"/>
<EditorIndex Value="1"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<SyntaxHighlighter Value="None"/>
</Unit15>
</Units>
<JumpHistory Count="17" HistoryIndex="16">
<Position1>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtkwsstdctrls.pp"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position1>
<Position2>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtkwsstdctrls.pp"/>
<Caret Line="319" Column="27" TopLine="301"/>
</Position2>
<Position3>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtkwsstdctrls.pp"/>
<Caret Line="36" Column="40" TopLine="14"/>
</Position3>
<Position4>
<Filename Value="..\..\..\lcl\widgetset\wscontrols.pp"/>
<Caret Line="95" Column="24" TopLine="69"/>
</Position4>
<Position5>
<Filename Value="..\..\..\lcl\widgetset\wscontrols.pp"/>
<Caret Line="143" Column="28" TopLine="139"/>
</Position5>
<Position6>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtkint.pp"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position6>
<Position7>
<Filename Value="..\..\..\lcl\interfaces\carbon\carbonint.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position7>
<Position8>
<Filename Value="..\..\..\lcl\interfaces\carbon\carbonint.pas"/>
<Caret Line="39" Column="10" TopLine="21"/>
</Position8>
<Position9>
<Filename Value="..\..\..\..\fpc\2.1\packages\extra\univint\FPCMacOSAll.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position9>
<Position10>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtklclintf.inc"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position10>
<Position11>
<Filename Value="..\..\..\lcl\include\sizeconstraints.inc"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position11>
<Position12>
<Filename Value="..\..\..\lcl\include\wincontrol.inc"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position12>
<Position13>
<Filename Value="..\..\..\lcl\include\sizeconstraints.inc"/>
<Caret Line="49" Column="1" TopLine="23"/>
</Position13>
<Position14>
<Filename Value="unit1.pas"/>
<Caret Line="25" Column="16" TopLine="1"/>
</Position14>
<Position15>
<Filename Value="unit1.pas"/>
<Caret Line="17" Column="78" TopLine="1"/>
</Position15>
<Position16>
<Filename Value="unit1.pas"/>
<Caret Line="37" Column="31" TopLine="5"/>
</Position16>
<Position17>
<Filename Value="..\..\..\lcl\interfaces\win32\interfaces.pp"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position17>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<PathDelim Value="\"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Debugging>
<UseLineInfoUnit Value="False"/>
<StripSymbols Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
</Linking>
<Other>
<CustomOptions Value="-Faheaptrc"/>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

18
test/bugs/822/bug822.lpr Normal file
View File

@ -0,0 +1,18 @@
program bug822;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms
{ add your units here }, Unit1;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

2
test/bugs/822/expected.txt Normal file
View File

@ -0,0 +1,2 @@
ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL)
ScrollBar1.Height: 201

28
test/bugs/822/unit1.lfm Normal file
View File

@ -0,0 +1,28 @@
object Form1: TForm1
Left = 290
Height = 300
Top = 175
Width = 400
HorzScrollBar.Page = 399
VertScrollBar.Page = 299
Caption = 'Form1'
object ScrollBar1: TScrollBar
Left = 160
Height = 201
Top = 40
Width = 17
Kind = sbVertical
TabOrder = 0
end
object ApplicationProperties1: TApplicationProperties
CaptureExceptions = True
HintColor = clInfoBk
HintHidePause = 2500
HintPause = 500
HintShortCuts = True
ShowHint = True
OnIdle = ApplicationProperties1Idle
left = 39
top = 29
end
end

12
test/bugs/822/unit1.lrs Normal file
View File

@ -0,0 +1,12 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'"'#1#6'Height'#3','#1#3'Top'#3#175#0#5'Wi'
+'dth'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Page'#3'+'#1#7
+'Caption'#6#5'Form1'#0#10'TScrollBar'#10'ScrollBar1'#4'Left'#3#160#0#6'Heigh'
+'t'#3#201#0#3'Top'#2'('#5'Width'#2#17#4'Kind'#7#10'sbVertical'#8'TabOrder'#2
+#0#0#0#22'TApplicationProperties'#22'ApplicationProperties1'#17'CaptureExcep'
+'tions'#9#9'HintColor'#7#8'clInfoBk'#13'HintHidePause'#3#196#9#9'HintPause'#3
+#244#1#13'HintShortCuts'#9#8'ShowHint'#9#6'OnIdle'#7#26'ApplicationPropertie'
+'s1Idle'#4'left'#2''''#3'top'#2#29#0#0#0
]);

48
test/bugs/822/unit1.pas Normal file
View File

@ -0,0 +1,48 @@
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils,
LCLType, LCLIntf, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
ApplicationProperties1: TApplicationProperties;
ScrollBar1: TScrollBar;
procedure ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
begin
if paramstr(1)='--runtest' then begin
if ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL) then
writeln('ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL)')
else
writeln('ScrollBar1.Width <> GetSystemMetrics(SM_CXVSCROLL)');
writeln('ScrollBar1.Height: ', ScrollBar1.Height);
Close;
end;
end;
initialization
{$I unit1.lrs}
end.