Necesito por favor su ayuda para alinear los campos numéricos también a la izquierda (101, 102 y 103), para que se vean como el primero, el Nombre, pero no lo consigo:
Este es el código:
- Code: Select all Expand view
- #include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local oDlg, lSave := .f.
local c100 := "TEST ELVIRA "
local c101 := 0
local c102 := 0
local c103 := 0
DEFINE DIALOG oDlg RESOURCE "ELVIRA" TITLE "Prueba Elvira"
REDEFINE GET c100 ID 100 OF oDlg
REDEFINE GET c101 ID 101 OF oDlg PICTURE "@E 9,999,999"
REDEFINE GET c102 ID 102 OF oDlg PICTURE "@E 9,999,999"
REDEFINE GET c103 ID 103 OF oDlg PICTURE "@E 9999"
REDEFINE BUTTON ID 701 OF oDlg ACTION( lSave := .T., oDlg:End() )
REDEFINE BUTTON ID 702 OF oDlg ACTION( lSave := .F., oDlg:End() )
ACTIVATE DIALOG oDlg CENTERED
return nil
//----------------------------------------------------------------------------//
Y el .rc:
- Code: Select all Expand view
#include "c:\fwh\include\WinApi.ch"
#ifdef __FLAT__
1 24 "c:\fwh\samples\WinXP\WindowsXP.Manifest"
#endif
ELVIRA DIALOG 23, 16, 258, 163
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Búsquedas"
FONT 10, "MS Sans Serif"
{
EDITTEXT 100, 51, 14, 86, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
EDITTEXT 101, 51, 62, 24, 11
EDITTEXT 102, 127, 62, 20, 11
EDITTEXT 103, 180, 62, 23, 11, ES_RIGHT | WS_BORDER | WS_TABSTOP
LTEXT "&Nombre:", -1, 10, 16, 28, 8
RTEXT "&Págs.:", -1, 155, 63, 23, 12
RTEXT "&Vols:", -1, 30, 63, 17, 8
RTEXT "&Ejemplares:", -1, 85, 63, 38, 8
PUSHBUTTON "&Aceptar", 701, 73, 128, 36, 14
PUSHBUTTON "&Cancelar", 702, 140, 128, 36, 14
}
Muy agradecida, me estoy volviendo loca.