Hot Shareware 35/hot35.iso/ficheros/9APLI/QCARD250.ZIP/QC2000.EXE/0/RCDATA/TMDICHILD/TMDICHILD.txt

Text File | 1998-06-12 | 6KB | 268 lines

object MDIChild: TMDIChild
  Left = 264
  Top = 107
  HelpContext = 1
  HorzScrollBar.Margin = 4
  HorzScrollBar.Tracking = True
  VertScrollBar.Margin = 4
  VertScrollBar.Tracking = True
  AutoScroll = False
  ClientHeight = 190
  ClientWidth = 421
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {<image000.ico>}
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 16
  object SB: TScrollBox
    Left = 20
    Top = 20
    Width = 401
    Height = 170
    HorzScrollBar.Margin = 4
    HorzScrollBar.Tracking = True
    VertScrollBar.Margin = 4
    VertScrollBar.Tracking = True
    Align = alClient
    Color = clBtnShadow
    Ctl3D = True
    ParentColor = False
    ParentCtl3D = False
    TabOrder = 0
    object CardImage: TPMultiImage
      Left = 4
      Top = 4
      Width = 197
      Height = 105
      Hint = '|��鹷�����ѵ����Ҵ�ٻ��ҧ� �������ͧ��ͷ�����͡'
      BorderStyle = bsSingle
      Color = clBtnFace
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ImageName = 'file not found'
      ImageDither = True
      ImageReadRes = lAutoMatic
      ImageWriteRes = sAutoMatic
      TifSaveCompress = sNONE
      JPegSaveQuality = 25
      JPegSaveSmooth = 0
      OnDblClick = CardImageDblClick
      OnMouseDown = CardImageMouseDown
      OnMouseMove = CardImageMouseMove
      OnMouseUp = CardImageMouseUp
      ParentFont = False
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ShowHint = True
      TextLeft = 0
      TextTop = 0
      TextRotate = 0
      TabOrder = 0
      TabStop = False
      OnPaint = CardImagePaint
    end
    object TextBox: TMemo
      Left = 174
      Top = 38
      Width = 185
      Height = 89
      Hint = '|��͹�����䢢�ͤ���'
      Ctl3D = False
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = 'EucrosiaUPC'
      Font.Style = []
      Lines.Strings = (
        'TextBox')
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Visible = False
      WordWrap = False
      OnExit = TextBoxExit
      OnKeyPress = TextBoxKeyPress
    end
  end
  object HorzPanel: TPanel
    Left = 0
    Top = 0
    Width = 421
    Height = 20
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object HorzRuler: TImage
      Left = 26
      Top = 2
      Width = 160
      Height = 17
      Hint = '|����÷Ѵ�ǹ͹'
      ParentShowHint = False
      ShowHint = True
    end
    object RulerPanel: TPanel
      Left = -2
      Top = -2
      Width = 22
      Height = 22
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
    end
  end
  object VertPanel: TPanel
    Left = 0
    Top = 20
    Width = 20
    Height = 170
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 2
    OnResize = VertPanelResize
    object VertRuler: TImage
      Left = 2
      Top = 6
      Width = 17
      Height = 120
      Hint = '|����÷Ѵ�ǵ��'
      ParentShowHint = False
      ShowHint = True
    end
  end
  object MMOpenDlg: TMMOpenDialog
    AutoDisPlay = True
    AutoPlay = False
    Filter =
      'All Pictures|*.BMP;*.BMQ;*.GIF;*.JPG;*.JPE;*.PCX;*.PNG;*.TIF;*.W' +
      'MF;|Bitmap|*.BMP;*.BMQ|GIF|*.GIF|JPEG|*.JPG;*.JPE|PCX|*.PCX|PNG|' +
      '*.PNG|TIFF|*.TIF|WMF|*.WMF'
    Title = 'Open File'
    ShowAutoPlay = True
    Left = 348
    Top = 148
  end
  object QPreview: TThumbPreview
    AutoLoad = True
    Title = 'QuickAlbum'
    DataFileName = 'thumbs.dat'
    DataFileDir = 'C:\PROGRAM FILES\BORLAND\DELPHI 2.0\BIN\'
    PreviewsDir = 'C:\PROGRAM FILES\BORLAND\DELPHI 2.0\BIN\'
    Left = 316
    Top = 150
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 600
    OnTimer = Timer1Timer
    Left = 196
    Top = 150
  end
  object Timer2: TTimer
    Interval = 200
    OnTimer = Timer2Timer
    Left = 76
    Top = 54
  end
  object PopupMenu1: TPopupMenu
    Left = 78
    Top = 96
    object PopFormat: TMenuItem
      Caption = '�ٻẺ...'
      ShortCut = 0
      OnClick = PopFormatClick
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object PopCut: TMenuItem
      Tag = 1
      Caption = '�Ѵ'
      ShortCut = 0
      OnClick = PopCutClick
    end
    object PopCopy: TMenuItem
      Tag = 2
      Caption = '�Ѵ�͡'
      ShortCut = 0
      OnClick = PopCutClick
    end
    object PopPaste: TMenuItem
      Tag = 3
      Caption = '�ҧ'
      ShortCut = 0
      OnClick = PopCutClick
    end
    object PopDelete: TMenuItem
      Tag = 4
      Caption = '┼║'
      ShortCut = 0
      OnClick = PopCutClick
    end
    object PopSelAll: TMenuItem
      Tag = 5
      Caption = '���͡������'
      ShortCut = 0
      OnClick = PopCutClick
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object PopNew: TMenuItem
      Caption = '����'
      ShortCut = 0
      object NewText: TMenuItem
        Tag = 1
        Caption = '��ͤ���...'
        ShortCut = 0
        OnClick = NewEllipseClick
      end
      object NewPict: TMenuItem
        Tag = 2
        Caption = '�ٻ�Ҿ...'
        ShortCut = 0
        OnClick = NewEllipseClick
      end
      object NewLine: TMenuItem
        Tag = 3
        Caption = '���'
        ShortCut = 0
        OnClick = NewEllipseClick
      end
      object NewRect: TMenuItem
        Tag = 4
        Caption = '����������'
        ShortCut = 0
        OnClick = NewEllipseClick
      end
      object NewRnd: TMenuItem
        Tag = 5
        Caption = '���������������'
        ShortCut = 0
        OnClick = NewEllipseClick
      end
      object NewEllipse: TMenuItem
        Tag = 6
        Caption = 'ǧ���'
        ShortCut = 0
        OnClick = NewEllipseClick
      end
    end
  end
end