mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-06 22:26:29 +02:00
retry
git-svn-id: trunk@19856 -
This commit is contained in:
parent
85b32d721c
commit
7b112cab3e
3
.gitattributes
vendored
3
.gitattributes
vendored
@ -2165,8 +2165,11 @@ examples/docking/unit1.pas svneol=native#text/pascal
|
||||
examples/dockmanager/EasyDockHelpers.pas svneol=native#text/plain
|
||||
examples/dockmanager/EasyDockSite.pas 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/fMain.lfm 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/dragimagelist/project1.lpi svneol=native#text/plain
|
||||
examples/dragimagelist/project1.lpr svneol=native#text/pascal
|
||||
|
38
examples/dockmanager/fDockable.lfm
Normal file
38
examples/dockmanager/fDockable.lfm
Normal 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
101
examples/dockmanager/fMain.lfm
Normal 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
25
examples/dockmanager/fTree.lfm
Normal 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
|
Loading…
Reference in New Issue
Block a user