fractus4_03_b.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'
  31.       object N4_1: TMenuItem
  32.         Caption = '0.6i'
  33.         OnClick = N4_1Click
  34.       end
  35.       object N4_2: TMenuItem
  36.         Caption = '-1.1+0.2i'
  37.         OnClick = N4_2Click
  38.       end
  39.       object N4_3: TMenuItem
  40.         Caption = '-0.1+0.77i'
  41.         OnClick = N4_3Click
  42.       end
  43.       object N4_4: TMenuItem
  44.         Caption = '0.3+0.5i'
  45.         OnClick = N4_4Click
  46.       end
  47.       object N4_5: TMenuItem
  48.         Caption = '-0.52+0.55i'
  49.         OnClick = N4_5Click
  50.       end
  51.       object N4_6: TMenuItem
  52.         Caption = '-1.15+0.25i'
  53.         OnClick = N4_6Click
  54.       end
  55.       object N4_7: TMenuItem
  56.         Caption = '0.12+0.61i'
  57.         OnClick = N4_7Click
  58.       end
  59.       object N4_8: TMenuItem
  60.         Caption = '-0.37+0.61i'
  61.         OnClick = N4_8Click
  62.       end
  63.     end
  64.     object N1: TMenuItem
  65.       Caption = '绘图'
  66.       OnClick = N1Click
  67.     end
  68.     object N2: TMenuItem
  69.       Caption = '保存图片'
  70.       OnClick = N2Click
  71.     end
  72.     object N3: TMenuItem
  73.       Caption = '退出'
  74.       OnClick = N3Click
  75.     end
  76.   end
  77.   object SavePictureDialog1: TSavePictureDialog
  78.     DefaultExt = '*.bmp'
  79.     Filter = 'Bitmaps (*.bmp)|*.bmp'
  80.     Left = 232
  81.     Top = 40
  82.   end
  83. end