blob: 2071b1229e56f308ef7fd62d817db80ee119411f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
object ListBoxForm: TListBoxForm
BorderWidth = 8
Text = 'List box test'
object ListBox: TFListBox
Items.Strings = (
'procedure KeyPressed(var Event: TXKeyPressedEvent); message X.KeyPress;'
'procedure KeyReleased(var Event: TXKeyReleasedEvent); message X.KeyRelease;'
'procedure ButtonPressed(var Event: TXButtonPressedEvent); message X.ButtonPress;'
'procedure ButtonReleased(var Event: TXButtonReleasedEvent); message X.ButtonRelease;'
'procedure EnterWindow(var Event :TXEnterWindowEvent); message X.EnterNotify;'
'procedure LeaveWindow(var Event :TXLeaveWindowEvent); message X.LeaveNotify;'
'procedure PointerMoved(var Event: TXPointerMovedEvent); message X.MotionNotify;'
'procedure Expose(var Event: TXExposeEvent); message X.Expose;'
'procedure FocusIn(var Event: TXFocusInEvent); message X.FocusIn;'
'procedure FocusOut(var Event: TXFocusOutEvent); message X.FocusOut;'
'procedure Map(var Event: TXMapEvent); message X.MapNotify;'
'procedure Unmap(var Event: TXUnmapEvent); message X.UnmapNotify;'
'procedure Reparent(var Event: TXReparentEvent); message X.ReparentNotify;'
'procedure DestroyWindow(var Event: TXDestroyWindowEvent); message X.DestroyNotify;'
'procedure Configure(var Event: TXConfigureEvent); message X.ConfigureNotify;'
'procedure ClientMessage(var Event: TXClientMessageEvent); message X.ClientMessage;')
end
end
|