ODListF.xfm
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. object ODListForm: TODListForm
  2.   Left = 242
  3.   Top = 121
  4.   Width = 423
  5.   Height = 442
  6.   ActiveControl = ListBox1
  7.   Caption = 'Owner-draw Listbox'
  8.   Color = clButton
  9.   Font.Color = clText
  10.   Font.Height = 11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Pitch = fpVariable
  13.   Font.Style = []
  14.   Font.Weight = 40
  15.   ParentFont = False
  16.   OnCreate = FormCreate
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   TextWidth = 6
  20.   object ListBox1: TListBox
  21.     Left = 0
  22.     Top = 0
  23.     Width = 423
  24.     Height = 442
  25.     Style = lbOwnerDrawFixed
  26.     Align = alClient
  27.     Font.CharSet = fcsLatin1
  28.     Font.Color = clBlack
  29.     Font.Height = 32
  30.     Font.Name = 'Arial'
  31.     Font.Pitch = fpVariable
  32.     Font.Style = [fsBold]
  33.     ItemHeight = 37
  34.     ParentFont = False
  35.     TabOrder = 0
  36.     OnDblClick = ListBox1DblClick
  37.     OnDrawItem = ListBox1DrawItem
  38.   end
  39.   object ColorDialog1: TColorDialog
  40.     Left = 72
  41.     Top = 48
  42.   end
  43. end