object Form1: TForm1 Left = 315 Top = 159 Width = 435 Height = 300 ActiveControl = OvcVirtualListbox1 Caption = 'Virtual Listbox Demo' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter TextHeight = 16 object Label1: TLabel Left = 240 Top = 8 Width = 96 Height = 16 Caption = 'Selection Status' end object Label2: TLabel Left = 240 Top = 32 Width = 80 Height = 16 Caption = 'Item selected' end object OvcController1: TOvcController Left = 0 Top = 0 EntryCommands.TableList = ( 'Default' True ( 37 47 39 58 1061 76 1063 77 36 43 35 17 46 11 8 1 520 1 1058 2 1057 73 45 45 1114 57 2056 57 38 75 40 16 1037 48 549 21 551 24 548 20 547 19 1573 30 1575 31 545 23 546 22 550 25 552 18 1572 27 1571 28 1569 29 1570 26 558 9 1112 9 1069 7 1091 7 557 53 1110 53 33 55 1060 32 34 50 1059 46 9 49 521 54 1033 49 1545 54 3080 56 1072 33 1073 34 1074 35 1075 36 1076 37 1077 38 1078 39 1079 40 1080 41 1081 42 1584 61 1585 62 1586 63 1587 64 1588 65 1589 66 1590 67 1591 68 1592 69 1593 70)) end object OvcVirtualListbox1: TOvcVirtualListbox Left = 42 Top = 13 Width = 171 Height = 226 AutoRowHeight = False Header = 'Sample Virtual Listbox Header Text' HeaderColor.BackColor = clBtnFace HeaderColor.TextColor = clBtnText HeaderColor.UseDefault = False MultiSelect = True ProtectColor.BackColor = clRed ProtectColor.TextColor = clWhite ProtectColor.UseDefault = False RowHeight = 16 ScrollBars = ssBoth SelectColor.BackColor = clHighlight SelectColor.TextColor = clHighlightText SelectColor.UseDefault = False ShowHeader = True OnGetItem = OvcVirtualListbox1GetItem OnGetItemColor = OvcVirtualListbox1GetItemColor OnIsSelected = OvcVirtualListbox1IsSelected OnSelect = OvcVirtualListbox1Select Controller = OvcController1 ParentColor = False TabOrder = 0 TabStop = True OnClick = OvcVirtualListbox1Click end object BitBtn1: TBitBtn Left = 323 Top = 230 Width = 89 Height = 33 TabOrder = 1 Kind = bkClose end end