You've already forked lazarus-ccr
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6146 8e941d3f-bd1b-0410-a28a-d453659cc2b4
169 lines
3.2 KiB
Plaintext
169 lines
3.2 KiB
Plaintext
object STDlg: TSTDlg
|
|
Left = 273
|
|
Top = 156
|
|
ActiveControl = CreateBtn
|
|
BorderStyle = bsDialog
|
|
Caption = 'StDQue Example'
|
|
ClientHeight = 274
|
|
ClientWidth = 305
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
ShowHint = True
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object CreateBtn: TButton
|
|
Left = 41
|
|
Top = 16
|
|
Width = 70
|
|
Height = 25
|
|
Hint = 'Create MyDQue'
|
|
Caption = 'Create'
|
|
TabOrder = 0
|
|
OnClick = CreateBtnClick
|
|
end
|
|
object Edit1: TEdit
|
|
Left = 23
|
|
Top = 76
|
|
Width = 108
|
|
Height = 21
|
|
Hint = 'Value?'
|
|
MaxLength = 10
|
|
TabOrder = 2
|
|
end
|
|
object PushHeadBtn: TButton
|
|
Left = 4
|
|
Top = 105
|
|
Width = 70
|
|
Height = 32
|
|
Hint = 'Add to Top'
|
|
Caption = 'Push Head'
|
|
Enabled = False
|
|
TabOrder = 4
|
|
OnClick = PushHeadBtnClick
|
|
end
|
|
object PopHeadBtn: TButton
|
|
Left = 82
|
|
Top = 104
|
|
Width = 70
|
|
Height = 32
|
|
Hint = 'Remove from Top'
|
|
Caption = 'Pop Head'
|
|
Enabled = False
|
|
ModalResult = 1
|
|
TabOrder = 5
|
|
OnClick = PopHeadBtnClick
|
|
end
|
|
object HeadBtn: TButton
|
|
Left = 4
|
|
Top = 190
|
|
Width = 70
|
|
Height = 32
|
|
Hint = 'Peek Top Item'
|
|
Caption = 'Peek Head'
|
|
Enabled = False
|
|
TabOrder = 8
|
|
OnClick = HeadBtnClick
|
|
end
|
|
object TailBtn: TButton
|
|
Left = 82
|
|
Top = 190
|
|
Width = 70
|
|
Height = 32
|
|
Hint = 'Peek Last Item'
|
|
Caption = 'Peek Tail'
|
|
Enabled = False
|
|
TabOrder = 9
|
|
OnClick = TailBtnClick
|
|
end
|
|
object LB1: TListBox
|
|
Left = 166
|
|
Top = 16
|
|
Width = 129
|
|
Height = 207
|
|
TabStop = False
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -12
|
|
Font.Name = 'Courier New'
|
|
Font.Style = []
|
|
ItemHeight = 15
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
end
|
|
object LoadBtn: TButton
|
|
Left = 168
|
|
Top = 233
|
|
Width = 58
|
|
Height = 30
|
|
Hint = 'Load DQue'
|
|
Caption = 'Load'
|
|
TabOrder = 10
|
|
OnClick = LoadBtnClick
|
|
end
|
|
object SaveBtn: TButton
|
|
Left = 236
|
|
Top = 233
|
|
Width = 58
|
|
Height = 30
|
|
Hint = 'Save DQue'
|
|
Caption = 'Save'
|
|
Enabled = False
|
|
TabOrder = 11
|
|
OnClick = SaveBtnClick
|
|
end
|
|
object ClearBtn: TButton
|
|
Left = 41
|
|
Top = 44
|
|
Width = 70
|
|
Height = 25
|
|
Hint = 'Create MyDQue'
|
|
Caption = 'Clear'
|
|
Enabled = False
|
|
TabOrder = 1
|
|
OnClick = ClearBtnClick
|
|
end
|
|
object PushTailBtn: TButton
|
|
Left = 4
|
|
Top = 148
|
|
Width = 70
|
|
Height = 32
|
|
Hint = 'Add to Bottom'
|
|
Caption = 'Push Tail'
|
|
Enabled = False
|
|
ModalResult = 1
|
|
TabOrder = 6
|
|
OnClick = PushTailBtnClick
|
|
end
|
|
object PopTailBtn: TButton
|
|
Left = 82
|
|
Top = 147
|
|
Width = 70
|
|
Height = 32
|
|
Hint = 'Remove from Bottom'
|
|
Caption = 'Pop Tail'
|
|
Enabled = False
|
|
TabOrder = 7
|
|
OnClick = PopTailBtnClick
|
|
end
|
|
object OD1: TOpenDialog
|
|
DefaultExt = 'dqd'
|
|
Filter = '*.dqd (DQue data)|*.dqd|*.* (All files)|*.*'
|
|
Left = 162
|
|
Top = 194
|
|
end
|
|
object SD1: TSaveDialog
|
|
DefaultExt = 'dqd'
|
|
Filter = '*.dqd (DQue files)|*.dqd|*.* (All files)|*.*'
|
|
Left = 238
|
|
Top = 194
|
|
end
|
|
end
|