object FormFont: TFormFont Left = 192 Top = 100 ActiveControl = FontList BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = '�t�H���g�̑I��' ClientHeight = 348 ClientWidth = 440 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] Position = poScreenCenter PrintScale = poPrintToFit OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 12 object FontList: TListBox Left = 10 Top = 30 Width = 417 Height = 269 ItemHeight = 16 Style = lbOwnerDrawVariable TabOrder = 0 OnDblClick = BtnOkClick OnDrawItem = FontListDrawItem OnMeasureItem = FontListMeasureItem end object BtnOk: TButton Left = 268 Top = 314 Width = 75 Height = 25 Caption = 'Ok' Default = True TabOrder = 1 OnClick = BtnOkClick end object BtnCancel: TButton Left = 352 Top = 314 Width = 75 Height = 25 Cancel = True Caption = 'Cancel' TabOrder = 2 OnClick = BtnCancelClick end end