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

dockmanager example: deleted obsolete form

Browse Source 
git-svn-id: trunk@22445 -
This commit is contained in:
dodi 2009-11-05 12:12:22 +00:00
parent b710514a50
commit 4f4198a75b
4 changed files with 0 additions and 445 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -2777,9 +2777,6 @@ examples/dockmanager/elasticsite/fdockclient.pas svneol=native#text/pascal
examples/dockmanager/elasticsite/feditorsite.lfm svneol=native#text/plain
examples/dockmanager/elasticsite/feditorsite.lrs svneol=native#text/plain
examples/dockmanager/elasticsite/feditorsite.pas svneol=native#text/pascal
examples/dockmanager/elasticsite/felastic.lfm svneol=native#text/plain
examples/dockmanager/elasticsite/felastic.lrs svneol=native#text/plain
examples/dockmanager/elasticsite/felastic.pas svneol=native#text/pascal
examples/dockmanager/package/easy_dock_images.lrs svneol=native#text/pascal
examples/dockmanager/package/easydocking.pas svneol=native#text/pascal
examples/dockmanager/package/easydockmgr.lpk svneol=native#text/plain

108
examples/dockmanager/elasticsite/felastic.lfm
View File

@ -1,108 +0,0 @@
object DockingSite: TDockingSite
Left = 444
Height = 163
Top = 156
Width = 255
AutoSize = True
Caption = 'Dock Site'
ClientHeight = 163
ClientWidth = 255
LCLVersion = '0.9.29'
Visible = True
object pnlLeft: TPanel
Left = 0
Height = 135
Top = 0
Width = 0
Align = alLeft
Caption = 'pnlLeft'
Color = clWhite
DockSite = True
ParentColor = False
TabOrder = 0
OnDockDrop = pnlLeftDockDrop
OnDockOver = pnlLeftDockOver
OnGetSiteInfo = pnlLeftGetSiteInfo
OnUnDock = pnlLeftUnDock
end
object splitLeft: TSplitter
Left = 0
Height = 135
Top = 0
Width = 4
end
object pnlRight: TPanel
Left = 255
Height = 135
Top = 0
Width = 0
Align = alRight
Caption = 'pnlRight'
Color = clAqua
DockSite = True
ParentColor = False
TabOrder = 2
OnDockDrop = pnlLeftDockDrop
OnDockOver = pnlLeftDockOver
OnGetSiteInfo = pnlLeftGetSiteInfo
OnUnDock = pnlLeftUnDock
end
object pnlBottom: TPanel
Left = 0
Height = 1
Top = 139
Width = 255
Align = alBottom
Caption = 'pnlBottom'
DockSite = True
TabOrder = 3
OnDockDrop = pnlLeftDockDrop
OnDockOver = pnlLeftDockOver
OnGetSiteInfo = pnlLeftGetSiteInfo
OnUnDock = pnlLeftUnDock
end
object splitRight: TSplitter
Left = 251
Height = 135
Top = 0
Width = 4
Align = alRight
ResizeAnchor = akRight
end
object StatusBar1: TStatusBar
Left = 0
Height = 23
Top = 140
Width = 255
Panels = <>
end
object Panel1: TPanel
Left = 4
Height = 135
Top = 0
Width = 247
Align = alClient
Caption = 'Client'
ClientHeight = 135
ClientWidth = 247
TabOrder = 6
object buNewForm: TButton
Left = 96
Height = 20
Top = 16
Width = 62
Caption = 'New Form'
OnClick = buNewFormClick
TabOrder = 0
end
end
object splitBottom: TSplitter
Cursor = crVSplit
Left = 0
Height = 4
Top = 135
Width = 255
Align = alBottom
ResizeAnchor = akBottom
end
end

32
examples/dockmanager/elasticsite/felastic.lrs
View File

@ -1,32 +0,0 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TDockingSite','FORMDATA',[
'TPF0'#12'TDockingSite'#11'DockingSite'#4'Left'#3#188#1#6'Height'#3#163#0#3'T'
+'op'#3#156#0#5'Width'#3#255#0#8'AutoSize'#9#7'Caption'#6#9'Dock Site'#12'Cli'
+'entHeight'#3#163#0#11'ClientWidth'#3#255#0#10'LCLVersion'#6#6'0.9.29'#7'Vis'
+'ible'#9#0#6'TPanel'#7'pnlLeft'#4'Left'#2#0#6'Height'#3#135#0#3'Top'#2#0#5'W'
+'idth'#2#0#5'Align'#7#6'alLeft'#7'Caption'#6#7'pnlLeft'#5'Color'#7#7'clWhite'
+#8'DockSite'#9#11'ParentColor'#8#8'TabOrder'#2#0#10'OnDockDrop'#7#15'pnlLeft'
+'DockDrop'#10'OnDockOver'#7#15'pnlLeftDockOver'#13'OnGetSiteInfo'#7#18'pnlLe'
+'ftGetSiteInfo'#8'OnUnDock'#7#13'pnlLeftUnDock'#0#0#9'TSplitter'#9'splitLeft'
+#4'Left'#2#0#6'Height'#3#135#0#3'Top'#2#0#5'Width'#2#4#0#0#6'TPanel'#8'pnlRi'
+'ght'#4'Left'#3#255#0#6'Height'#3#135#0#3'Top'#2#0#5'Width'#2#0#5'Align'#7#7
+'alRight'#7'Caption'#6#8'pnlRight'#5'Color'#7#6'clAqua'#8'DockSite'#9#11'Par'
+'entColor'#8#8'TabOrder'#2#2#10'OnDockDrop'#7#15'pnlLeftDockDrop'#10'OnDockO'
+'ver'#7#15'pnlLeftDockOver'#13'OnGetSiteInfo'#7#18'pnlLeftGetSiteInfo'#8'OnU'
+'nDock'#7#13'pnlLeftUnDock'#0#0#6'TPanel'#9'pnlBottom'#4'Left'#2#0#6'Height'
+#2#1#3'Top'#3#139#0#5'Width'#3#255#0#5'Align'#7#8'alBottom'#7'Caption'#6#9'p'
+'nlBottom'#8'DockSite'#9#8'TabOrder'#2#3#10'OnDockDrop'#7#15'pnlLeftDockDrop'
+#10'OnDockOver'#7#15'pnlLeftDockOver'#13'OnGetSiteInfo'#7#18'pnlLeftGetSiteI'
+'nfo'#8'OnUnDock'#7#13'pnlLeftUnDock'#0#0#9'TSplitter'#10'splitRight'#4'Left'
+#3#251#0#6'Height'#3#135#0#3'Top'#2#0#5'Width'#2#4#5'Align'#7#7'alRight'#12
+'ResizeAnchor'#7#7'akRight'#0#0#10'TStatusBar'#10'StatusBar1'#4'Left'#2#0#6
+'Height'#2#23#3'Top'#3#140#0#5'Width'#3#255#0#6'Panels'#14#0#0#0#6'TPanel'#6
+'Panel1'#4'Left'#2#4#6'Height'#3#135#0#3'Top'#2#0#5'Width'#3#247#0#5'Align'#7
+#8'alClient'#7'Caption'#6#6'Client'#12'ClientHeight'#3#135#0#11'ClientWidth'
+#3#247#0#8'TabOrder'#2#6#0#7'TButton'#9'buNewForm'#4'Left'#2'`'#6'Height'#2
+#20#3'Top'#2#16#5'Width'#2'>'#7'Caption'#6#8'New Form'#7'OnClick'#7#14'buNew'
+'FormClick'#8'TabOrder'#2#0#0#0#0#9'TSplitter'#11'splitBottom'#6'Cursor'#7#8
+'crVSplit'#4'Left'#2#0#6'Height'#2#4#3'Top'#3#135#0#5'Width'#3#255#0#5'Align'
+#7#8'alBottom'#12'ResizeAnchor'#7#8'akBottom'#0#0#0
]);

302
examples/dockmanager/elasticsite/felastic.pas
View File

@ -1,302 +0,0 @@
unit fElastic;
(* Demonstrate elastic dock sites.
This form has dock sites (panels) on its left, right and bottom.
Empty panels should be invisible, what's a bit tricky. They cannot have
Visible=False, because this would disallow to dock anything into them.
So the width/height of the panels is set to zero instead.
When a first control is docked, the dock site is enlarged.
Fine adjustment can be made with the splitters beneath the controls.
When the last control is undocked, the dock site is shrinked again.
Planned extensions:
- using an DockManager, so that more than only one control can be docked
into every panel.
*)
(* Observed problems:
The right panel does not shrink.
Form doesn't shrink at the right side.
Object Inspector says: the bottom panel's OnGetSiteInfo method is incompatible
with other OnGetSiteInfo methods.
*)
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ExtCtrls, StdCtrls, ComCtrls,
EasyDockSite;
type
TDockingSite = class(TForm)
buNewForm: TButton;
Panel1: TPanel;
pnlBottom: TPanel;
pnlLeft: TPanel;
pnlRight: TPanel;
splitBottom: TSplitter;
splitLeft: TSplitter;
splitRight: TSplitter;
StatusBar1: TStatusBar;
procedure buNewFormClick(Sender: TObject);
procedure pnlLeftDockDrop(Sender: TObject; Source: TDragDockObject;
X, Y: Integer);
procedure pnlLeftDockOver(Sender: TObject; Source: TDragDockObject;
X, Y: Integer; State: TDragState; var Accept: Boolean);
procedure pnlLeftGetSiteInfo(Sender: TObject; DockClient: TControl;
var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean);
procedure pnlLeftUnDock(Sender: TObject; Client: TControl;
NewTarget: TWinControl; var Allow: Boolean);
private
FAutoExpand: boolean;
procedure SetAutoExpand(NewValue: boolean);
public
published
property AutoExpand: boolean read FAutoExpand write SetAutoExpand default True;
end;
var
DockingSite: TDockingSite;
implementation
uses
LCLIntf;
//uses fDockClient; //test only
{ TDockingSite }
procedure TDockingSite.buNewFormClick(Sender: TObject);
var
Client: TPanel;
begin
//TDockingClient.Create(self);
Client := TPanel.Create(self);
Client.DragMode := dmAutomatic;
Client.DragKind := dkDock;
Client.Visible := True;
Client.ManualFloat(Rect(200,200, 400,400));
end;
procedure TDockingSite.pnlLeftDockDrop(Sender: TObject;
Source: TDragDockObject; X, Y: Integer);
var
w: integer;
r: TRect;
Site: TWinControl absolute Sender;
begin
(* Adjust docksite extent, if required.
H/V depending on align LR/TB.
Take 1/3 of the form's extent for the dock site.
When changed, ensure that the form layout is updated.
*)
if (TWinControl(Source.DragTarget).DockClientCount > 1)
or ((Site.Width > 1) and (Site.Height > 1)) //NoteBook!
then
exit; //no adjustments of the dock site required
with Source do begin
if DragTarget.Align in [alLeft, alRight] then begin
w := self.Width div 3;
if DragTarget.Width < w then begin
//enlarge docksite
DisableAlign; //form(?)
DragTarget.Width := w;
if DragTarget.Align = alRight then begin
if AutoExpand then begin
r := self.BoundsRect;
inc(r.Right, w);
BoundsRect := r;
end else begin
DragTarget.Left := DragTarget.Left - w;
splitRight.Left := splitRight.Left - w;
end;
end else if AutoExpand then begin
//enlarge left
r := BoundsRect;
dec(r.Left, w);
BoundsRect := r;
end;
EnableAlign;
end;
end else begin
w := self.Height div 3;
if DragTarget.Height < w then begin
//enlarge docksite
DisableAlign; //form(?)
DragTarget.Height := w;
if DragTarget.Align = alBottom then begin
if AutoExpand then begin
//dec(self.Left, w);
r := self.BoundsRect;
inc(r.Bottom, w);
BoundsRect := r;
StatusBar1.Top := StatusBar1.Top + w;
end else begin
splitBottom.Top := splitBottom.Top - w;
DragTarget.Top := DragTarget.Top - w;
end;
end;
EnableAlign;
end;
end;
//Control.Align := alClient;
end;
end;
procedure TDockingSite.pnlLeftDockOver(Sender: TObject;
Source: TDragDockObject; X, Y: Integer; State: TDragState;
var Accept: Boolean);
var
r: TRect;
procedure Adjust(dw, dh: integer);
begin
(* r.TopLeft in screen coords, r.BottomRight is W/H(?)
negative values mean expansion towards screen origin
*)
if dw <> 0 then begin
r.Right := r.Left;
inc(r.Bottom, r.Top);
if dw > 0 then
inc(r.Right, dw)
else
inc(r.Left, dw);
end else begin
r.Bottom := r.Top;
inc(r.Right, r.Left);
if dh > 0 then
inc(r.Bottom, dh)
else
inc(r.Top, dh);
end;
end;
var
Site: TWinControl; // absolute Sender;
dw, dh: integer;
dummy: boolean;
begin
(* This handler has to determine the intended DockRect,
and the alignment within this rectangle.
This is impossible when the mouse leaves the InfluenceRect,
i.e. when the site is not yet expanded :-(
For a shrinked site we only can display the intended DockRect,
and signal alClient.
*)
if Source.DragTarget = nil then
exit; //shit happens :-(
if State = dsDragMove then begin
TObject(Site) := Source.DragTarget;
if Site.DockClientCount > 0 then
exit; //everything should be okay
//make DockRect reflect the docking area
//with Source do begin
//StatusBar1.SimpleText := AlignNames[Source.DropAlign];
{$IFnDEF old}
r := Site.BoundsRect; //XYWH
r.TopLeft := Site.Parent.ClientToScreen(r.TopLeft);
{$ELSE}
GetWindowRect(TWinControl(Source.DragTarget).handle, r);
//Site.GetSiteInfo(Site, r, Point(0,0), dummy);
{$ENDIF}
dw := Width div 3; //r.Right := r.Left + dw;
dh := Height div 3; //r.Bottom := r.Top + dh;
//determine inside/outside
case Site.Align of
alLeft: if AutoExpand then Adjust(-dw, 0) else Adjust(dw, 0);
alRight: if AutoExpand then Adjust(dw, 0) else Adjust(-dw, 0);
alBottom: if AutoExpand then Adjust(0, dh) else Adjust(0, -dh);
else exit;
end;
Source.DockRect := r;
//end;
Accept := True;
end;
end;
procedure TDockingSite.pnlLeftGetSiteInfo(Sender: TObject;
DockClient: TControl; var InfluenceRect: TRect; MousePos: TPoint;
var CanDock: Boolean);
begin
CanDock := True;
end;
procedure TDockingSite.pnlLeftUnDock(Sender: TObject; Client: TControl;
NewTarget: TWinControl; var Allow: Boolean);
var
Site: TWinControl absolute Sender;
wh: integer;
r: TRect;
begin
(* When the last client is undocked, shrink the dock site to zero extent.
Called *before* the dock client is removed.
*)
if Site.DockClientCount <= 1 then begin
//become empty, hide the dock site
DisableAlign;
case Site.Align of
alLeft:
begin
wh := Site.Width;
Site.Width := 0; //behaves as expected
if AutoExpand then begin
r := BoundsRect;
inc(r.Left, wh);
BoundsRect := r;
end;
end;
alRight:
begin //problem: does NOT resize?
wh := Site.Width;
Site.Width := 0;
if AutoExpand then begin
r := BoundsRect;
dec(r.Right, wh);
BoundsRect := r; //does not resize :-(
end else begin
Site.Left := Site.Left + wh;
splitRight.Left := splitRight.Left + wh; //doesn't help :-(
end;
end;
alBottom:
begin
wh := Site.Height;
Site.Height := 0;
if AutoExpand then begin
r := BoundsRect;
dec(r.Bottom, wh);
BoundsRect := r;
splitBottom.Top := splitBottom.Top - wh;
StatusBar1.Top := StatusBar1.Top - wh;
end else begin
Site.Top := Site.Top + wh;
splitBottom.Top := Site.Top - splitBottom.Height - 10;
end;
end;
end;
EnableAlign;
//RecreateWnd(self); - doesn't help
end;
end;
procedure TDockingSite.SetAutoExpand(NewValue: boolean);
begin
FAutoExpand:=NewValue;
end;
initialization
{$I felastic.lrs}
DefaultDockManagerClass := TEasyTree;
end.