CFDG-GUI/cfdgui.lfm

object main: Tmain
  Left = 394
  Height = 564
  Top = 76
  Width = 750
  ActiveControl = srcText
  Caption = 'CFDG Gui'
  ClientHeight = 541
  ClientWidth = 750
  Menu = MMenu
  LCLVersion = '0.9.28.2'
  object img: TImage
    Left = 250
    Height = 500
    Top = 0
    Width = 500
    Anchors = [akTop, akRight, akBottom]
  end
  object varLabel: TLabel
    Left = 72
    Height = 14
    Top = 518
    Width = 49
    Anchors = [akLeft, akBottom]
    Caption = 'Variación:'
    ParentColor = False
  end
  object srcText: TMemo
    Left = 0
    Height = 500
    Top = 0
    Width = 248
    Anchors = [akTop, akLeft, akRight, akBottom]
    Lines.Strings = (
      'startshape SPIRAL'
      ''
      'rule SPIRAL{'
      '  CIRCLE{}'
      '  SPIRAL{y 0.5 rotate 1 size 0.995}'
      '}'
      ''
      'rule SPIRAL 0.01{'
      '  CIRCLE{}'
      '  SPIRAL{y 0.5 rotate 1 size 0.995}'
      '  SPIRAL{flip 90 y 0.5 rotate 1 size 0.995}'
      '}'
    )
    TabOrder = 0
  end
  object genButton: TButton
    Left = 0
    Height = 20
    Top = 512
    Width = 57
    Anchors = [akLeft, akBottom]
    Caption = 'Generar'
    OnClick = genButtonClick
    TabOrder = 1
  end
  object varEdit: TEdit
    Left = 136
    Height = 21
    Top = 511
    Width = 75
    Anchors = [akLeft, akBottom]
    TabOrder = 2
  end
  object MMenu: TMainMenu
    left = 456
    top = 504
    object Fmenu: TMenuItem
      Caption = 'Archivo'
      object openMenu: TMenuItem
        Caption = 'Abrir'
        ShortCut = 16463
        OnClick = openMenuClick
      end
      object saveMenu: TMenuItem
        Caption = 'Guardar'
        ShortCut = 16467
        OnClick = saveMenuClick
      end
      object saveasMenu: TMenuItem
        Caption = 'Guardar Como'
        ShortCut = 24659
        OnClick = saveasMenuClick
      end
      object saveimgMenu: TMenuItem
        Caption = 'Guardar imágen'
        ShortCut = 16457
        OnClick = saveimgMenuClick
      end
      object quitMenu: TMenuItem
        Caption = 'Salir'
        ShortCut = 16465
        OnClick = quitMenuClick
      end
    end
    object GenMenu: TMenuItem
      Caption = 'Generar'
      ShortCut = 116
      OnClick = GenMenuClick
    end
  end
  object openDiag: TOpenDialog
    left = 504
    top = 504
  end
  object saveDiag: TSaveDialog
    left = 544
    top = 504
  end
end