ULiveDraw.dfm
上传用户:raido2005
上传日期:2022-06-22
资源大小:5044k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. object Form4: TForm4
  2.   Left = 204
  3.   Top = 114
  4.   Width = 480
  5.   Height = 335
  6.   Caption = 'Live Drawing'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   OnCreate = FormCreate
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object Panel1: TPanel
  18.     Left = 0
  19.     Top = 0
  20.     Width = 100
  21.     Height = 301
  22.     Align = alLeft
  23.     BorderWidth = 2
  24.     TabOrder = 0
  25.     object RGType: TRadioGroup
  26.       Left = 3
  27.       Top = 3
  28.       Width = 94
  29.       Height = 84
  30.       Align = alTop
  31.       Caption = 'Type'
  32.       ItemIndex = 0
  33.       Items.Strings = (
  34.         'Line'
  35.         'Rectangle'
  36.         'Ellipse')
  37.       TabOrder = 0
  38.     end
  39.   end
  40.   object Flash: TFlashCanvasControl
  41.     Left = 100
  42.     Top = 0
  43.     Width = 372
  44.     Height = 301
  45.     Align = alClient
  46.     TabOrder = 1
  47.     OnMouseMove = FlashMouseMove
  48.     OnMouseUp = FlashMouseUp
  49.     OnMouseDown = FlashMouseDown
  50.     FrameNum = -1
  51.     Playing = True
  52.     Quality = 1
  53.     ScaleMode = 3
  54.     AlignMode = 5
  55.     BackgroundColor = -1
  56.     Loop = True
  57.     WMode = 'Window'
  58.     SAlign = 'LT'
  59.     Menu = True
  60.     Scale = 'NoScale'
  61.     DeviceFont = False
  62.     EmbedMovie = False
  63.     Quality2 = 'High'
  64.     AllowScriptAccess = 'always'
  65.   end
  66. end