Unit1.dfm 898 B

1234567891011121314151617181920212223242526272829303132333435363738394041424344
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'Formulario'
  5. ClientHeight = 269
  6. ClientWidth = 317
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'Tahoma'
  12. Font.Style = []
  13. OldCreateOrder = False
  14. PixelsPerInch = 96
  15. TextHeight = 13
  16. object lbl1: TLabel
  17. Left = 16
  18. Top = 93
  19. Width = 85
  20. Height = 13
  21. Caption = 'Ingresa un texto:'
  22. end
  23. object edt1: TEdit
  24. Left = 16
  25. Top = 112
  26. Width = 281
  27. Height = 21
  28. PopupMenu = pm1
  29. TabOrder = 0
  30. end
  31. object pm1: TPopupMenu
  32. Left = 16
  33. Top = 56
  34. object ConvertiraMaysculas1: TMenuItem
  35. Caption = 'Convertir a May'#250'sculas'
  36. OnClick = ConvertiraMaysculas1Click
  37. end
  38. object ConvertiraMinsculas1: TMenuItem
  39. Caption = 'Convertir a Min'#250'sculas'
  40. OnClick = ConvertiraMinsculas1Click
  41. end
  42. end
  43. end