Hello everybody. I have the static frame with large number of fields (p-file). I would like to add a Tab control (Microsoft Control) to the frame to simplify it. I can create an inherited control, but I can not place it on a frame. Maybe someone will show an example? Is it real? Thank you.
DEFINE INPUT PARAMETER Type_ AS CHAR NO-UNDO. {shr_glob.i " " " "} {f_font.i} {glob_clr.i} RUN VALUE(path_lib + "cursor.p")(1). ASSIGN Filt_result[1] = "" Filt_result[2] = "" Filt_result[3] = "" Filt_result[4] = "" Filt_result[5] = "" Filt_result[6] = "" Filt_result[7] = "" Filt_result[8] = "" Filt_result[9] = "" Filt_result[10] = "" Filt_result[11] = "" Filt_result[12] = "" Filt_result[13] = "" Filt_result[14] = "" Filt_result[15] = "" Filt_result[16] = "" Filt_result[17] = "" Filt_result[18] = "" Filt_result[19] = "" Filt_result[20] = "" Filt_result[21] = "" Filt_result[22] = "" Filt_result[23] = "" Filt_result[24] = "" Filt_result[25] = "" Filt_result[26] = "" Filt_result[27] = "" Filt_result[28] = "" Filt_result[29] = "". DEFINE VARIABLE Reason_ AS RECID NO-UNDO. DEFINE VARIABLE Cancel_ AS LOGICAL NO-UNDO. DEFINE VARIABLE RetValue AS CHARACTER NO-UNDO. DEFINE VARIABLE Frame-hndl AS HANDLE NO-UNDO. DEFINE VARIABLE w-hndl AS HANDLE NO-UNDO. DEFINE VARIABLE RetVal AS LOGICAL NO-UNDO. DEFINE VARIABLE SHandle AS HANDLE NO-UNDO. DEFINE BUTTON Save-but AUTO-GO LABEL "Сохранить" SIZE 14 BY 1. DEFINE BUTTON Cancel-but AUTO-END-KEY DEFAULT LABEL "Отказ" SIZE 14 BY 1. /*****************************************************************************************************/ DEFINE FRAME DIALOG-1 div_vars.file_directory AT ROW 1 COL 40 COLON-ALIGNED VIEW-AS FILL-IN SIZE 40 BY 0.8 TOOLTIP "Архивная директория для экспорта файлов в Equation. (Не должна содержать русских букв.)" div_vars.file_directory_arch AT ROW 1.8 COL 40 COLON-ALIGNED VIEW-AS FILL-IN SIZE 40 BY 0.8 TOOLTIP "Архивная директория для экспорта файлов в Equation. (Не должна содержать русских букв.)" div_vars.file_directory_from AT ROW 2.6 COL 40 COLON-ALIGNED VIEW-AS FILL-IN SIZE 40 BY 0.8 TOOLTIP "Архивная директория для импорта файлов из Equation. (Не должна содержать русских букв.)" div_vars.file_directory_from_arch AT ROW 3.4 COL 40 COLON-ALIGNED VIEW-AS FILL-IN SIZE 40 BY 0.8 TOOLTIP "Архивная директория для импорта файлов из Equation. (Не должна содержать русских букв.)" div_vars.file_prefix AT ROW 4.2 COL 40 COLON-ALIGNED VIEW-AS FILL-IN SIZE 40 BY 0.8 ... Save-but AT ROW 29 COL 28 Cancel-but AT ROW 29 COL 42 WITH /* AT ROW 2.5 COL 1 SIZE 80 BY 7 */ VIEW-AS DIALOG-BOX KEEP-TAB-ORDER SIDE-LABELS NO-UNDERLINE THREE-D SCROLLABLE FONT {&frame-font} TITLE "Просмотр справочников". ASSIGN Frame-hndl = FRAME DIALOG-1:HANDLE Frame-hndl:HIDDEN = True. Frame-hndl:TITLE = "Настройка директорий экспорта/импорта файлов в Систему Расчетов". /*-----------------------------------------------------------------------------------------------------------------------------------------------------*/ ON CHOOSE OF Cancel-but OR WINDOW-CLOSE OF FRAME DIALOG-1 OR END-ERROR OF FRAME DIALOG-1 ANYWHERE DO: ASSIGN Cancel_ = True RetValue = "1". END. ON VALUE-CHANGED OF div_vars.eq_comm IN FRAME DIALOG-1 DO: IF div_vars.eq_comm:SCREEN-VALUE = "0" THEN ASSIGN div_vars.WSURL:VISIBLE = FALSE. ELSE ASSIGN div_vars.WSURL:VISIBLE = TRUE. END. ON GO OF FRAME DIALOG-1 ANYWHERE DO: .......
I refuse this idea - trying to add new control in existing .p with static frame. Following the advice of Brian, I decided to create the new form (.cls) and built it in DevStudio. Thanks.