75 lines
1.9 KiB
Plaintext
75 lines
1.9 KiB
Plaintext
object JvWndProcHookDemoMainForm: TJvWndProcHookDemoMainForm
|
|
Left = 346
|
|
Top = 90
|
|
Width = 653
|
|
Height = 533
|
|
Caption = 'JvCaptionButton Demo'
|
|
Color = clBtnFace
|
|
DefaultMonitor = dmDesktop
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poDesktopCenter
|
|
Scaled = False
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Label1: TLabel
|
|
Left = 24
|
|
Top = 16
|
|
Width = 589
|
|
Height = 80
|
|
Caption =
|
|
'This demo shows that the new RegisterWndProcHook method in JvWnd' +
|
|
'ProcHook can'#13#10'handle several components subclassing the same con' +
|
|
'trol witout losing track of the'#13#10'original WndProc regardless of ' +
|
|
'the order of registration/unregistration'#13#10'It also shows that the' +
|
|
' WndProc link(s) are unaffected by RecreateWnd'#13#10'(which destroys ' +
|
|
'the old window handle)'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object btnAdd: TButton
|
|
Left = 16
|
|
Top = 120
|
|
Width = 75
|
|
Height = 25
|
|
Caption = '&Add'
|
|
TabOrder = 0
|
|
OnClick = btnAddClick
|
|
end
|
|
object btnDelete: TButton
|
|
Left = 16
|
|
Top = 152
|
|
Width = 75
|
|
Height = 25
|
|
Caption = '&Delete'
|
|
TabOrder = 1
|
|
OnClick = btnDeleteClick
|
|
end
|
|
object btnRecreateWnd: TButton
|
|
Left = 16
|
|
Top = 184
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Recreate&Wnd'
|
|
TabOrder = 2
|
|
OnClick = btnRecreateWndClick
|
|
end
|
|
object lbButtons: TListBox
|
|
Left = 112
|
|
Top = 120
|
|
Width = 505
|
|
Height = 353
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
ItemHeight = 13
|
|
TabOrder = 3
|
|
end
|
|
end
|