Hola Karl
Hice algunos cambios, quizá puedan ayudar...
----------------------------------------------------------
Hello Karl
I made some changes, maybe they can help ...
Code: Select all
*******************************************************************************
* program "ModWin" = Create a Modal-Window
* started at: 02.06.2017
* changed at:
********************************************************************************
#include <hmg.ch>
*SET NAVIGATION EXTENDED
DEFINE WINDOW Form_2 ;
AT 0,0 ;
WIDTH 842 ;
HEIGHT 616 ;
TITLE 'This is a Modal-Window' ;
MODAL ;
NOSIZE ;
NOSYSMENU ;
BACKCOLOR {198,252,188}
DEFINE TOOLBAR toolbar_1 OF Form_2 BUTTONSIZE 280,33 FONT "Arial" SIZE 10 ;
RIGHTTEXT BORDER
BUTTON button_1 CAPTION 'Close Window' ACTION Form_2.RELEASE
END TOOLBAR
DEFINE STATUSBAR OF Form_2 FONT "Arial" SIZE 9
STATUSITEM ""
END STATUSBAR
@ 60,220 Label label_1 OF Form_80 ;
VALUE "Commission-Number" ;
HEIGHT 20 ;
WIDTH 150 ;
FONT 'Arial' SIZE 12 ;
BACKCOLOR {198,252,188}
@ 60,385 TEXTBOX Text_1 OF Form_80 ;
HEIGHT 20 ;
WIDTH 90 ;
FONT 'Arial' SIZE 12 ;
VALUE '' ;
ON ENTER Formular()
END WINDOW
CENTER WINDOW Form_2
ACTIVATE WINDOW Form_2
RETURN
***************************** End Window Form_2 ****************************
*********************** Begin Window Form_3 ********************************
PROCEDURE Formular()
DEFINE WINDOW Form_3 ;
AT 0,10 ;
WIDTH 816 ;
HEIGHT 560 ;
VIRTUAL HEIGHT 1152 ;
MODAL ;
NOSIZE ;
NOCAPTION ;
NOSYSMENU ;
BACKCOLOR {183,183,255} ;
ON MOUSECLICK Form_3.Setfocus
@ 10,30 BUTTON Button_1 OF Form_3 ;
CAPTION 'Close Window' ;
ON CLICK Form_3.RELEASE ;
WIDTH 120 ;
HEIGHT 30 ;
FONT 'Arial' SIZE 12 ;
MULTILINE
@ 100,220 LABEL Label_1 OF Form_3 ;
VALUE 'Label_1' ;
HEIGHT 25 ;
WIDTH 80 ;
FONT 'Arial' SIZE 12 ;
BACKCOLOR {183,183,255}
@ 100,330 TEXTBOX Text_1 OF Form_3 ;
VALUE 'Text_1' ;
HEIGHT 25 ;
WIDTH 80 ;
FONT 'Arial' SIZE 12
@ 130,220 LABEL Label_2 OF Form_3 ;
VALUE 'Button_2' ;
HEIGHT 25 ;
WIDTH 90 ;
FONT 'Arial' SIZE 12 ;
BACKCOLOR {183,183,255}
@ 130,330 BUTTON Button_2 OF Form_3 ;
CAPTION 'Button_2' ;
ON CLICK '' ;
WIDTH 90 ;
HEIGHT 30 ;
FONT 'Arial' SIZE 12 ;
ON GOTFOCUS nil ;
MULTILINE
@ 250,72 RICHEDITBOX Edit_1 OF Form_3 ;
WIDTH 695 ;
HEIGHT 460 ;
VALUE '' ;
FONT 'Times New Roman' SIZE 12 ;
ON GOTFOCUS ( Form_3.Edit_1.Setfocus, Form_3.Edit_1.UnSelectAll, Form_3.Edit_1.CaretPos := 1 ) ;
NOHSCROLL
@ 860,220 LABEL Label_3 OF Form_3 ;
VALUE 'Label_3' ;
HEIGHT 25 ;
WIDTH 80 ;
FONT 'Arial' SIZE 12 ;
BACKCOLOR {183,183,255}
@ 860,330 TEXTBOX Text_2 OF Form_3 ;
VALUE 'Text_3' ;
HEIGHT 25 ;
WIDTH 80 ;
FONT 'Arial' SIZE 12
@1040,220 LABEL Label_4 OF Form_3 ;
VALUE 'Label_4' ;
HEIGHT 25 ;
WIDTH 80 ;
FONT 'Arial' SIZE 12 ;
BACKCOLOR {183,183,255}
@1040,330 TEXTBOX Text_3 OF Form_3 ;
VALUE 'Text_4' ;
HEIGHT 25 ;
WIDTH 80 ;
FONT 'Arial' SIZE 12
Form_3.Edit_1.RTFLoadFile('10550.rtf', .F.)
END WINDOW
CENTER WINDOW Form_3
ACTIVATE WINDOW Form_3
RETURN NIL