Jorge Olguin (super carnicerias hernandez sa de cv) asked a question.

Edited June 15, 2026 at 10:52 PM
Visual Designer won't create forms

I wonder what could have been wrong in my development project?

 

I made my first Design, an "ABL Dialog" in the Visual Designer tab in "File>New" .

 

THe problem is I tried to convert a radButton to a msButton , and changed class on button definitions parts, I knew I shouldn't edit manually certain areas of code, but in any case, I was trying to learn about forms.

 

As expected, I messed up form internals, I wasn't to much worried.

 

The problem came as: after that messing up, I can create new forms, ABL Form and ABL Dialog, but when opened in visual designer, it won't show them, designer canvas is empty, code is as follows:

  1. /*------------------------------------------------------------------------
  2. File : test
  3. Purpose :
  4. Syntax :
  5. Description :
  6. Author(s) : octavio
  7. Created : Mon Jun 15 16:41:06 CST 2026
  8. Notes :
  9. ----------------------------------------------------------------------*/
  10. USING Progress.Windows.Form.
  12. BLOCK-LEVEL ON ERROR UNDO, THROW.
  13. CLASS procs.suc.test INHERITS Form :
  14.  
  15. DEFINE PRIVATE VARIABLE components AS System.ComponentModel.IContainer NO-UNDO.
  16. DEFINE PRIVATE VARIABLE buttonOk AS System.Windows.Forms.Button NO-UNDO.
  17. DEFINE PRIVATE VARIABLE buttonCancel AS System.Windows.Forms.Button NO-UNDO.
  19. CONSTRUCTOR PUBLIC test( ):
  21. InitializeComponent ( ).
  22. THIS-OBJECT:ComponentsCollection:Add(THIS-OBJECT:components).
  23. CATCH e AS Progress.Lang.Error:
  24. UNDO, THROW e.
  25. END CATCH.
  26.  
  27. END CONSTRUCTOR.
  28.  
  29. DESTRUCTOR PUBLIC test( ):
  30.  
  31. END DESTRUCTOR.
  32.  
  33. METHOD PRIVATE VOID okButton_Click (sender AS System.Object, e AS System.EventArgs):
  34. THIS-OBJECT:DialogResult = System.Windows.Forms.DialogResult:Ok.
  35. THIS-OBJECT:Close ( ).
  36. END METHOD.
  37.  
  38. METHOD PRIVATE VOID cancelButton_Click (sender AS System.Object, e AS System.EventArgs):
  39. THIS-OBJECT:DialogResult = System.Windows.Forms.DialogResult:Cancel.
  40. THIS-OBJECT:Close ( ).
  41. END METHOD.
  43. METHOD PRIVATE VOID InitializeComponent ( ):
  44.  
  45. /* NOTE: The following method is automatically generated.
  47. We strongly suggest that the contents of this method only be modified using the
  48. Visual Designer to avoid any incompatible modifications.
  50. Modifying the contents of this method using a code editor will invalidate any support for this file. */
  52. buttonOk = NEW System.Windows.Forms.Button ( ).
  53. buttonCancel = NEW System.Windows.Forms.Button ( ).
  54. THIS-OBJECT:SuspendLayout ( ).
  55. /* */
  56. /* buttonOk */
  57. /* */
  58. buttonOk:Location = NEW System.Drawing.Point (121, 231).
  59. buttonOk:Name = "buttonOk".
  60. buttonOk:Size = NEW System.Drawing.Size (75, 23).
  61. buttonOk:TabIndex = 0.
  62. buttonOk:Text = "OK".
  63. buttonOk:Anchor = CAST(Progress.Util.EnumHelper:Or(System.Windows.Forms.AnchorStyles:Bottom, System.Windows.Forms.AnchorStyles:Right), System.Windows.Forms.AnchorStyles).
  64. buttonOk:Click:Subscribe (okButton_Click).
  65. /* */
  66. /* buttonCancel */
  67. /* */
  68. buttonCancel:DialogResult = System.Windows.Forms.DialogResult:Cancel.
  69. buttonCancel:Location = NEW System.Drawing.Point (205, 231).
  70. buttonCancel:Name = "buttonCancel".
  71. buttonCancel:Size = NEW System.Drawing.Size (75, 23).
  72. buttonCancel:TabIndex = 1.
  73. buttonCancel:Text = "Cancel".
  74. buttonCancel:Anchor = CAST(Progress.Util.EnumHelper:Or(System.Windows.Forms.AnchorStyles:Bottom, System.Windows.Forms.AnchorStyles:Right), System.Windows.Forms.AnchorStyles).
  75. buttonCancel:Click:Subscribe(cancelButton_Click).
  76. /* */
  77. /* THIS-OBJECT */
  78. /* */
  79. THIS-OBJECT:AcceptButton = buttonOk.
  80. THIS-OBJECT:CancelButton = buttonCancel.
  81. THIS-OBJECT:ClientSize = NEW System.Drawing.Size (294, 268).
  82. THIS-OBJECT:Controls:Add (buttonCancel).
  83. THIS-OBJECT:Controls:Add (buttonOk).
  84. THIS-OBJECT:FormBorderStyle = System.Windows.Forms.FormBorderStyle:FixedDialog.
  85. THIS-OBJECT:MaximizeBox = FALSE.
  86. THIS-OBJECT:MinimizeBox = FALSE.
  87. THIS-OBJECT:Name = "test".
  88. THIS-OBJECT:ShowInTaskbar = FALSE.
  89. THIS-OBJECT:StartPosition = System.Windows.Forms.FormStartPosition:CenterParent.
  90. THIS-OBJECT:Text = "test".
  91. THIS-OBJECT:ResumeLayout (FALSE).
  92. CATCH e AS Progress.Lang.Error:
  93. UNDO, THROW e.
  94. END CATCH.
  95. END METHOD.
  97. METHOD PUBLIC VOID ShowModalDialog( ):
  99. WAIT-FOR THIS-OBJECT:ShowDialog().
  100.  
  101. END METHOD.
  102.  
  103.  
  105. END CLASS.

 

Problem is, I can't add controls by designer...

What was that I broked? 

 

 

 

  • 2 answers
  • 89 views
Sivasai Harish Kumar Puvvada, Keerthy Yeddula, and Peter Judge like this.