fractus4_02.dfm
上传用户:hzcygd
上传日期:2022-04-30
资源大小:109k
文件大小:2k
源码类别:

分形几何

开发平台:

Visual C++

  1. object Form1: TForm1
  2.   Left = 192
  3.   Top = 111
  4.   BorderStyle = bsNone
  5.   Caption = 'Form1'
  6.   ClientHeight = 273
  7.   ClientWidth = 427
  8.   Color = clBlack
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   WindowState = wsMaximized
  16.   OnCreate = FormCreate
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object Image1: TImage
  20.     Left = 0
  21.     Top = 0
  22.     Width = 427
  23.     Height = 273
  24.     PopupMenu = PopupMenu1
  25.   end
  26.   object PopupMenu1: TPopupMenu
  27.     Left = 168
  28.     Top = 40
  29.     object N4: TMenuItem
  30.       Caption = '选择Zc,Z0'
  31.       object N4_1: TMenuItem
  32.         Caption = '-0.6,0.2+0.5i'
  33.         OnClick = N4_1Click
  34.       end
  35.       object N4_2: TMenuItem
  36.         Caption = '-1.1,0.2+0.2i'
  37.         OnClick = N4_2Click
  38.       end
  39.       object N4_3: TMenuItem
  40.         Caption = '-1.35,0.2+0.05i'
  41.         OnClick = N4_3Click
  42.       end
  43.       object N4_4: TMenuItem
  44.         Caption = '-1.39,0.05+0.02i'
  45.         OnClick = N4_4Click
  46.       end
  47.       object N4_5: TMenuItem
  48.         Caption = '-1.65,0.2'
  49.         OnClick = N4_5Click
  50.       end
  51.       object N4_6: TMenuItem
  52.         Caption = '-1.76,0.1+0.04i'
  53.         OnClick = N4_6Click
  54.       end
  55.     end
  56.     object N1: TMenuItem
  57.       Caption = '绘图'
  58.       OnClick = N1Click
  59.     end
  60.     object N2: TMenuItem
  61.       Caption = '保存图片'
  62.       OnClick = N2Click
  63.     end
  64.     object N3: TMenuItem
  65.       Caption = '退出'
  66.       OnClick = N3Click
  67.     end
  68.   end
  69.   object SavePictureDialog1: TSavePictureDialog
  70.     DefaultExt = '*.bmp'
  71.     Filter = 'Bitmaps (*.bmp)|*.bmp'
  72.     Left = 232
  73.     Top = 40
  74.   end
  75. end