object PopUpForm: TPopUpForm Left = 452 Top = 125 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'PopsPopup' ClientHeight = 85 ClientWidth = 225 Color = clBtnFace Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] OldCreateOrder = False OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object pnlColor: TPanel Left = 0 Top = 0 Width = 225 Height = 85 Align = alClient BevelOuter = bvLowered TabOrder = 0 object pnlComm: TPanel Left = 8 Top = 28 Width = 209 Height = 19 Hint = '�X�P�W���[���̓��e' BevelOuter = bvLowered Caption = 'pnlComm' Color = clWindow ParentShowHint = False ShowHint = True TabOrder = 1 end object pnlDate: TPanel Left = 8 Top = 6 Width = 209 Height = 19 Hint = '�X�P�W���[���̎���' BevelOuter = bvLowered Caption = 'pnlDate' Color = clWindow ParentShowHint = False ShowHint = True TabOrder = 0 end object btnOK: TButton Left = 120 Top = 54 Width = 97 Height = 25 Hint = '�I��' Cancel = True Caption = '����(&X)' Default = True ParentShowHint = False ShowHint = True TabOrder = 2 TabStop = False OnClick = btnOKClick end object btnCopy: TButton Left = 8 Top = 54 Width = 97 Height = 25 Hint = '��L�̓��e��tⳎ��œ\��t���܂�' Caption = '�tⳎ��\�t(&G)' ParentShowHint = False ShowHint = True TabOrder = 3 TabStop = False OnClick = btnCopyClick end object memPaste: TMemo Left = 96 Top = 56 Width = 33 Height = 17 TabOrder = 4 Visible = False end end end