object Form1: TForm1 Left = 217 Top = 109 ActiveControl = ListBox1 BorderStyle = bsDialog Caption = 'Owner Draw' ClientHeight = 359 ClientWidth = 276 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter Scaled = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object Label1: TLabel Left = 88 Top = 8 Width = 81 Height = 16 Caption = 'System Fonts' end object FontLabel: TLabel Left = 20 Top = 305 Width = 241 Height = 20 AutoSize = False end object ListBox1: TListBox Left = 19 Top = 44 Width = 241 Height = 251 ItemHeight = 16 Style = lbOwnerDrawVariable TabOrder = 0 OnClick = ListBox1Click OnDrawItem = DrawItem OnMeasureItem = ListBox1MeasureItem end end