diff options
Diffstat (limited to 'examples/gui/widgettest/listboxform.frm')
-rw-r--r-- | examples/gui/widgettest/listboxform.frm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/examples/gui/widgettest/listboxform.frm b/examples/gui/widgettest/listboxform.frm new file mode 100644 index 00000000..7d7c4f4c --- /dev/null +++ b/examples/gui/widgettest/listboxform.frm @@ -0,0 +1,23 @@ +object ListBoxForm: TListBoxForm + BorderWidth = 8 + Text = 'List box test' + object ListBox: TListBox + 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 |