mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-26 15:53:52 +02:00
119 lines
2.2 KiB
Plaintext
119 lines
2.2 KiB
Plaintext
object Form1: TForm1
|
|
Left = 412
|
|
Height = 255
|
|
Top = 299
|
|
Width = 297
|
|
HorzScrollBar.Page = 296
|
|
VertScrollBar.Page = 254
|
|
ActiveControl = Button1
|
|
BorderIcons = [biSystemMenu, biMinimize]
|
|
BorderStyle = bsToolWindow
|
|
Caption = 'Cursor test'
|
|
OnCreate = FormCreate
|
|
object Label1: TLabel
|
|
Cursor = crHelp
|
|
Left = 16
|
|
Height = 13
|
|
Top = 7
|
|
Width = 157
|
|
Caption = 'Move mouse at this buttons:'
|
|
Color = clNone
|
|
ParentColor = False
|
|
end
|
|
object Bevel1: TBevel
|
|
Left = 8
|
|
Height = 3
|
|
Top = 136
|
|
Width = 279
|
|
end
|
|
object Label2: TLabel
|
|
Cursor = crHelp
|
|
Left = 16
|
|
Height = 13
|
|
Top = 144
|
|
Width = 209
|
|
Caption = 'Drag cursor test: drag buttons into list'
|
|
Color = clNone
|
|
ParentColor = False
|
|
end
|
|
object Button1: TButton
|
|
Cursor = crNoDrop
|
|
Left = 16
|
|
Height = 25
|
|
Top = 32
|
|
Width = 75
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'crNoDrop'
|
|
TabOrder = 0
|
|
end
|
|
object Button2: TButton
|
|
Cursor = crDrag
|
|
Left = 16
|
|
Height = 25
|
|
Top = 64
|
|
Width = 75
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'crDrag'
|
|
TabOrder = 1
|
|
end
|
|
object Button3: TButton
|
|
Cursor = crSQLWait
|
|
Left = 16
|
|
Height = 25
|
|
Top = 96
|
|
Width = 75
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'crSQLWait'
|
|
TabOrder = 2
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 167
|
|
Height = 72
|
|
Top = 168
|
|
Width = 122
|
|
Caption = 'Drag here'
|
|
Color = clWhite
|
|
ParentColor = False
|
|
TabOrder = 3
|
|
OnDragDrop = Panel1DragDrop
|
|
OnDragOver = Panel1DragOver
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 9
|
|
Height = 21
|
|
Top = 184
|
|
Width = 145
|
|
Caption = 'Can be accepted'
|
|
DragMode = dmAutomatic
|
|
TabOrder = 4
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 9
|
|
Height = 21
|
|
Top = 213
|
|
Width = 145
|
|
Caption = 'Can not be accepted'
|
|
DragMode = dmAutomatic
|
|
TabOrder = 5
|
|
end
|
|
object Button4: TButton
|
|
Left = 155
|
|
Height = 25
|
|
Top = 96
|
|
Width = 132
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Set Screen.Cursor'
|
|
OnClick = Button4Click
|
|
TabOrder = 6
|
|
end
|
|
object Button5: TButton
|
|
Left = 155
|
|
Height = 25
|
|
Top = 32
|
|
Width = 132
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Custom cursor'
|
|
TabOrder = 7
|
|
end
|
|
end
|