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

examples: dockmanager: sitetest: fixed compilation fpc 2.5.1, fixed wrong unit paths

Browse Source 
git-svn-id: trunk@22461 -
This commit is contained in:
mattias 2009-11-06 07:30:34 +00:00
parent 4e7165840b
commit 8bcdfb0973
4 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
examples/dockmanager/easyedit/editmain.pas
View File

@ -48,7 +48,6 @@ type
procedure mnOpenClick(Sender: TObject);
private
//MyEdit: TEasyPages;
Editors: TList;
CurForm: TEditForm;
CurEdit: TEasyEdit;
public

11
examples/dockmanager/elasticsite/SiteTest.lpi
View File

@ -25,13 +25,16 @@
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<RequiredPackages Count="3">
<Item1>
<PackageName Value="EasyDockMgr"/>
<PackageName Value="SynEdit"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
<PackageName Value="EasyDockMgr"/>
</Item2>
<Item3>
<PackageName Value="LCL"/>
</Item3>
</RequiredPackages>
<Units Count="3">
<Unit0>
@ -61,7 +64,7 @@
<PathDelim Value="\"/>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)\"/>
<OtherUnitFiles Value="..\package\;..\..\..\components\synedit\;..\easyedit\"/>
<OtherUnitFiles Value="..\easyedit\"/>
</SearchPaths>
<Linking>
<Options>

2
examples/dockmanager/elasticsite/feditorsite.pas
View File

@ -100,7 +100,9 @@ end;
function TEditorSite.CreateDockable(const cap: string): TPanel;
var
{$IFDEF old}
Site: TFloatingSite;
{$ENDIF}
Client: TPanel;
begin
//TDockingClient.Create(self);

20
examples/dockmanager/package/felasticsite.pas
View File

@ -103,8 +103,8 @@ begin
inc(r.Right, w);
BoundsRect := r;
end else begin
dec(DragTarget.Left, w);
dec(splitRight.Left, w);
DragTarget.Left:=DragTarget.Left-w;
splitRight.Left:=splitRight.Left-w;
end;
end else if AutoExpand then begin
//enlarge left
@ -126,10 +126,10 @@ begin
r := self.BoundsRect;
inc(r.Bottom, w);
BoundsRect := r;
inc(StatusBar1.Top, w);
StatusBar1.Top:=StatusBar1.Top+w;
end else begin
dec(splitBottom.Top, w);
dec(DragTarget.Top, w);
splitBottom.Top:=splitBottom.Top-w;
DragTarget.Top:=DragTarget.Top-w;
end;
end;
EnableAlign;
@ -267,8 +267,8 @@ begin
dec(r.Right, wh);
BoundsRect := r;
end else begin
inc(Site.Left, wh);
inc(splitRight.Left, wh);
Site.Left:=Site.Left+wh;
splitRight.Left:=splitRight.Left+wh;
end;
end;
alBottom:
@ -279,10 +279,10 @@ begin
r := BoundsRect;
dec(r.Bottom, wh);
BoundsRect := r;
dec(splitBottom.Top, wh);
dec(StatusBar1.Top, wh);
splitBottom.Top:=splitBottom.Top-wh;
StatusBar1.Top:=StatusBar1.Top-wh;
end else begin
inc(Site.Top, wh);
Site.Top:=Site.Top+wh;
splitBottom.Top := Site.Top - splitBottom.Height - 10;
end;
end;