paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 10:39:09 +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); procedure mnOpenClick(Sender: TObject);
private private
//MyEdit: TEasyPages; //MyEdit: TEasyPages;
Editors: TList;
CurForm: TEditForm; CurForm: TEditForm;
CurEdit: TEasyEdit; CurEdit: TEasyEdit;
public 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)"/> <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="3">
<Item1> <Item1>
<PackageName Value="EasyDockMgr"/> <PackageName Value="SynEdit"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="LCL"/> <PackageName Value="EasyDockMgr"/>
</Item2> </Item2>
<Item3>
<PackageName Value="LCL"/>
</Item3>
</RequiredPackages> </RequiredPackages>
<Units Count="3"> <Units Count="3">
<Unit0> <Unit0>
@ -61,7 +64,7 @@
<PathDelim Value="\"/> <PathDelim Value="\"/>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)\"/> <IncludeFiles Value="$(ProjOutDir)\"/>
<OtherUnitFiles Value="..\package\;..\..\..\components\synedit\;..\easyedit\"/> <OtherUnitFiles Value="..\easyedit\"/>
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Options> <Options>

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

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

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

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