paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 22:58:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

* test project by Paul Ishenin

Browse Source 
git-svn-id: trunk@10711 -
This commit is contained in:
marc 2007-03-06 00:06:32 +00:00
parent c0c7e1b100
commit bd072c89f7
6 changed files with 217 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
.gitattributes vendored
View File

@ -2895,6 +2895,11 @@ test/bugs/8284/expected.txt svneol=native#text/plain
test/bugs/8284/unit1.lfm svneol=native#text/plain
test/bugs/8284/unit1.lrs svneol=native#text/plain
test/bugs/8284/unit1.pas svneol=native#text/plain
test/bugs/8437/project1.lpi svneol=native#text/plain
test/bugs/8437/project1.lpr svneol=native#text/pascal
test/bugs/8437/unit1.lfm svneol=native#text/plain
test/bugs/8437/unit1.lrs svneol=native#text/pascal
test/bugs/8437/unit1.pas svneol=native#text/pascal
test/bugs/bug8432.pas svneol=native#text/plain
test/bugtestcase.pas svneol=native#text/plain
test/hello.ahk svneol=native#text/plain

87
test/bugs/8437/project1.lpi Normal file
View File

@ -0,0 +1,87 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="5"/>
<General>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/>
</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="2">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="project1"/>
<CursorPos X="44" Y="18"/>
<TopLine Value="1"/>
<EditorIndex Value="1"/>
<UsageCount Value="94"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/>
<ResourceFilename Value="unit1.lrs"/>
<UnitName Value="Unit1"/>
<CursorPos X="35" Y="31"/>
<TopLine Value="13"/>
<EditorIndex Value="0"/>
<UsageCount Value="94"/>
<Loaded Value="True"/>
</Unit1>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<PathDelim Value="\"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>
</Item1>
<Item2>
<Name Value="EFOpenError"/>
</Item2>
</Exceptions>
</Debugging>
</CONFIG>

18
test/bugs/8437/project1.lpr Normal file
View File

@ -0,0 +1,18 @@
program project1;
{$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.

44
test/bugs/8437/unit1.lfm Normal file
View File

@ -0,0 +1,44 @@
object Form1: TForm1
Left = 290
Height = 300
Top = 175
Width = 400
HorzScrollBar.Page = 399
VertScrollBar.Page = 299
Caption = 'Form1'
OnCreate = FormCreate
object PairSplitter1: TPairSplitter
Left = 102
Height = 90
Top = 107
Width = 218
Position = 106
object PairSplitterSide1: TPairSplitterSide
Height = 90
Width = 106
object Button2: TButton
Left = 20
Height = 25
Top = 34
Width = 75
BorderSpacing.InnerBorder = 4
Caption = 'Button2'
TabOrder = 0
end
end
object PairSplitterSide2: TPairSplitterSide
Left = 111
Height = 90
Width = 107
object Button3: TButton
Left = 27
Height = 25
Top = 39
Width = 75
BorderSpacing.InnerBorder = 4
Caption = 'Button3'
TabOrder = 0
end
end
end
end

15
test/bugs/8437/unit1.lrs Normal file
View File

@ -0,0 +1,15 @@
{ Ýòî - ôàéë ðåñóðñîâ, àâòîìàòè÷åñêè ñîçäàííûé lazarus }
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'#8'OnCreate'#7#10'FormCreate'#0#13'TPairSplitter'#13'Pai'
+'rSplitter1'#4'Left'#2'f'#6'Height'#2'Z'#3'Top'#2'k'#5'Width'#3#218#0#8'Posi'
+'tion'#2'j'#0#17'TPairSplitterSide'#17'PairSplitterSide1'#6'Height'#2'Z'#5'W'
+'idth'#2'j'#0#7'TButton'#7'Button2'#4'Left'#2#20#6'Height'#2#25#3'Top'#2'"'#5
+'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#7'Button2'#8'Tab'
+'Order'#2#0#0#0#0#17'TPairSplitterSide'#17'PairSplitterSide2'#4'Left'#2'o'#6
+'Height'#2'Z'#5'Width'#2'k'#0#7'TButton'#7'Button3'#4'Left'#2#27#6'Height'#2
+#25#3'Top'#2''''#5'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6
+#7'Button3'#8'TabOrder'#2#0#0#0#0#0#0
]);

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

@ -0,0 +1,48 @@
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
PairSplitter, StdCtrls, Buttons;
type
{ TForm1 }
TForm1 = class(TForm)
Button2: TButton;
Button3: TButton;
PairSplitter1: TPairSplitter;
PairSplitterSide1: TPairSplitterSide;
PairSplitterSide2: TPairSplitterSide;
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
with PairSplitter1 do
begin
Sides[0].Color := clRed;
Sides[1].Color := clGreen;
end;
end;
initialization
{$I unit1.lrs}
end.