114 lines
2.3 KiB
Plaintext
114 lines
2.3 KiB
Plaintext
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
|