paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 19:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

retry

Browse Source 
git-svn-id: trunk@19856 -
This commit is contained in:
dodi 2009-05-08 12:57:38 +00:00
parent 85b32d721c
commit 7b112cab3e
4 changed files with 167 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -2165,8 +2165,11 @@ examples/docking/unit1.pas svneol=native#text/pascal
examples/dockmanager/EasyDockHelpers.pas svneol=native#text/plain examples/dockmanager/EasyDockHelpers.pas svneol=native#text/plain
examples/dockmanager/EasyDockSite.pas svneol=native#text/plain examples/dockmanager/EasyDockSite.pas svneol=native#text/plain
examples/dockmanager/README.txt svneol=native#text/plain examples/dockmanager/README.txt svneol=native#text/plain
examples/dockmanager/fDockable.lfm svneol=native#text/plain
examples/dockmanager/fDockable.pas svneol=native#text/plain examples/dockmanager/fDockable.pas svneol=native#text/plain
examples/dockmanager/fMain.lfm svneol=native#text/plain
examples/dockmanager/fMain.pas svneol=native#text/plain examples/dockmanager/fMain.pas svneol=native#text/plain
examples/dockmanager/fTree.lfm svneol=native#text/plain
examples/dockmanager/fTree.pas svneol=native#text/plain examples/dockmanager/fTree.pas svneol=native#text/plain
examples/dragimagelist/project1.lpi svneol=native#text/plain examples/dragimagelist/project1.lpi svneol=native#text/plain
examples/dragimagelist/project1.lpr svneol=native#text/pascal examples/dragimagelist/project1.lpr svneol=native#text/pascal

38
examples/dockmanager/fDockable.lfm Normal file
View File

@ -0,0 +1,38 @@
object Dockable: TDockable
Left = 680
Height = 192
Width = 244
Caption = 'Dockable'
ClientHeight = 192
ClientWidth = 244
DragKind = dkDock
DragMode = dmAutomatic
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnResize = FormResize
Position = poOwnerFormCenter
ShowInTaskBar = stNever
LCLVersion = '0.9.27'
object Shape1: TShape
Height = 192
Width = 244
Align = alClient
OnChangeBounds = Shape1ChangeBounds
end
object Label1: TLabel
Left = 10
Height = 14
Top = 10
Width = 33
Caption = 'Label1'
ParentColor = False
end
object Label2: TLabel
Left = 10
Height = 14
Top = 32
Width = 33
Caption = 'Label2'
ParentColor = False
end
end

101
examples/dockmanager/fMain.lfm Normal file
View File

@ -0,0 +1,101 @@
object EasyDockMain: TEasyDockMain
Left = 680
Height = 285
Top = 125
Width = 461
ActiveControl = buDump
Caption = 'EasyDockMain'
ClientHeight = 285
ClientWidth = 461
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnCreate = FormCreate
LCLVersion = '0.9.27'
object sb: TStatusBar
Left = 0
Height = 20
Top = 265
Width = 461
Panels = <>
end
object ToolBar1: TToolBar
Left = 0
Height = 29
Top = 0
Width = 461
Caption = 'ToolBar1'
TabOrder = 1
object Shape1: TShape
Left = 1
Height = 22
Top = 2
Width = 21
Brush.Color = clRed
OnMouseUp = Shape1MouseUp
end
object Shape2: TShape
Left = 22
Height = 22
Top = 2
Width = 24
Brush.Color = clLime
OnMouseUp = Shape1MouseUp
end
object Shape4: TShape
Left = 46
Height = 22
Top = 2
Width = 24
Brush.Color = clYellow
OnMouseUp = Shape1MouseUp
end
object Shape3: TShape
Left = 70
Height = 22
Top = 2
Width = 24
Brush.Color = clBlue
OnMouseUp = Shape1MouseUp
end
object lbDock: TLabel
Left = 152
Height = 22
Top = 2
Width = 97
Alignment = taCenter
AutoSize = False
Caption = 'Drag Me!'
DragKind = dkDock
DragMode = dmAutomatic
ParentColor = False
end
object buDump: TButton
Left = 94
Height = 22
Top = 2
Width = 58
Caption = 'Dump'
OnClick = buDumpClick
TabOrder = 0
end
object edDock: TEdit
Left = 249
Height = 22
Top = 2
Width = 80
DragKind = dkDock
TabOrder = 1
Text = 'Drag Me!'
end
end
object Docker: TPanel
Left = 0
Height = 236
Top = 29
Width = 461
Align = alClient
Caption = 'Dock here!'
TabOrder = 2
UseDockManager = False
end
end

25
examples/dockmanager/fTree.lfm Normal file
View File

@ -0,0 +1,25 @@
object DumpBox: TDumpBox
Left = 436
Height = 440
Top = 562
Width = 635
ActiveControl = Memo1
Caption = 'DumpBox'
ClientHeight = 440
ClientWidth = 635
Font.Height = -11
Font.Name = 'MS Sans Serif'
Position = poMainFormCenter
LCLVersion = '0.9.27'
object Memo1: TMemo
Height = 440
Width = 635
Align = alClient
Lines.Strings = (
'Memo1'
)
ReadOnly = True
TabOrder = 0
WordWrap = False
end
end