Code: Select all
LIBROS_EDIT DIALOG DISCARDABLE 24, 45, 330, 230
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "LIBROS_EDIT"
FONT 8, "MS Sans Serif"
{
CONTROL "Título", 200, "Static", WS_GROUP, 15, 14, 26, 9
CONTROL "", 100, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|WS_BORDER|WS_TABSTOP, 50, 12, 175, 12
CONTROL "Código", 201, "Static", WS_GROUP, 230, 14, 24, 8
CONTROL "", 101, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|WS_BORDER|WS_TABSTOP, 255, 12, 60, 12
CONTROL "Tít. Orig.", 202, "Static", WS_GROUP, 15, 27, 28, 9
CONTROL "", 102, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|WS_BORDER|WS_TABSTOP, 50, 26, 175, 12
CONTROL "Autor", 203, "Static", WS_GROUP, 15, 42, 30, 8
CONTROL "", 103, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|WS_BORDER|WS_TABSTOP, 50, 40, 150, 12
CONTROL "Materia", 204, "Static", WS_GROUP, 15, 56, 27, 8
CONTROL "", 104, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|WS_BORDER|WS_TABSTOP, 50, 54, 150, 12
CONTROL "Idioma", 205, "Static", WS_GROUP, 15, 70, 24, 8
CONTROL "", 105, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|WS_BORDER|WS_TABSTOP, 50, 68, 150, 12
CONTROL "Propietario", 206, "Static", SS_RIGHT|WS_GROUP, 15, 84, 33, 8
CONTROL "", 106, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|WS_BORDER|WS_TABSTOP, 50, 82, 150, 12
CONTROL "Ubicación", 207, "Static", WS_GROUP, 15, 98, 33, 8
CONTROL "", 107, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|WS_BORDER|WS_TABSTOP, 50, 96, 150, 12
CONTROL "", 108, "SysTabControl32", 0x00000000, 15, 114, 300, 86
CONTROL "", 109, "TBtnBmp", WS_TABSTOP, 16, 203, 56, 8
CONTROL "", 110, "TBtnBmp", WS_TABSTOP, 16, 212, 56, 8
CONTROL "&Aceptar", IDOK, "Button", WS_TABSTOP, 208, 203, 50, 16
CONTROL "&Cancelar", IDCANCEL, "Button", WS_TABSTOP, 264, 203, 50, 16
}
Code: Select all
#include "FiveWin.Ch"
FUNCTION LIBROS_EDIT()
LOCAL oDlgLIBROS_EDIT
LOCAL oFnt
LOCAL oGet100, nGet100
LOCAL oGet101, nGet101
LOCAL oGet102, nGet102
LOCAL oGet103, nGet103
LOCAL oGet104, nGet104
LOCAL oGet105, nGet105
LOCAL oGet106, nGet106
LOCAL oGet107, nGet107
LOCAL oFold32108
LOCAL oTBMP109
LOCAL oTBMP110
LOCAL oBtIDOK
LOCAL oBtIDCANCEL
DEFINE FONT oFnt NAME "MS Sans Serif" SIZE 0, -8
DEFINE DIALOG oDlgLIBROS_EDIT ;
FROM 45,24 TO 79,113 ;
TITLE "LIBROS_EDIT" ;
FONT oFnt
@ 14, 15 SAY "Título" ;
SIZE 26, 9 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt
@ 12, 50 GET oGet100 VAR nGet100 ;
SIZE 175, 12 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt ;
PIXEL
@ 14, 230 SAY "Código" ;
SIZE 24, 8 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt
@ 12, 255 GET oGet101 VAR nGet101 ;
SIZE 60, 12 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt ;
PIXEL
@ 27, 15 SAY "Tít. Orig." ;
SIZE 28, 9 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt
@ 26, 50 GET oGet102 VAR nGet102 ;
SIZE 175, 12 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt ;
PIXEL
@ 42, 15 SAY "Autor" ;
SIZE 30, 8 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt
@ 40, 50 GET oGet103 VAR nGet103 ;
SIZE 150, 12 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt ;
PIXEL
@ 56, 15 SAY "Materia" ;
SIZE 27, 8 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt
@ 54, 50 GET oGet104 VAR nGet104 ;
SIZE 150, 12 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt ;
PIXEL
@ 70, 15 SAY "Idioma" ;
SIZE 24, 8 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt
@ 68, 50 GET oGet105 VAR nGet105 ;
SIZE 150, 12 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt ;
PIXEL
@ 84, 15 SAY "Propietario" ;
SIZE 33, 8 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt
@ 82, 50 GET oGet106 VAR nGet106 ;
SIZE 150, 12 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt ;
PIXEL
@ 98, 15 SAY "Ubicación" ;
SIZE 33, 8 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt
@ 96, 50 GET oGet107 VAR nGet107 ;
SIZE 150, 12 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt ;
PIXEL
@ 114, 15 FOLDER oFold32108 ;
SIZE 300, 86 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt ;
PIXEL
@ 203, 16 BTNBMP oTBMP109 ;
SIZE 56, 8 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt ;
PIXEL
@ 212, 16 BTNBMP oTBMP110 ;
SIZE 56, 8 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt ;
PIXEL
@ 203, 208 BUTTON oBtIDOK ;
SIZE 50, 16 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt ;
PIXEL
@ 203, 264 BUTTON oBtIDCANCEL ;
SIZE 50, 16 ;
OF oDlgLIBROS_EDIT ;
FONT oFnt ;
PIXEL
ACTIVATE DIALOG oDlgLIBROS_EDIT
RETURN 0
//------------------------------------------------------------------------------