FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour SET MSGBAR en DIALOG (Resuelto)
Posts: 400
Joined: Tue Oct 16, 2007 05:51 PM
SET MSGBAR en DIALOG (Resuelto)
Posted: Mon Feb 05, 2018 01:14 PM

Buen dia,

Estoy usando SET MSGBAR en un dialogo, funciona bien pero el usuario haciendo click en la barra puede cambiar el tamaño del dialogo, como puedo hacer para que quede fijo ?

Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: SET MSGBAR en DIALOG
Posted: Mon Feb 05, 2018 01:30 PM

Si utiliza WORKSHOP.EXE, apague: Thick Frame en las propiedades del Dialogo. Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 400
Joined: Tue Oct 16, 2007 05:51 PM
Re: SET MSGBAR en DIALOG
Posted: Mon Feb 05, 2018 01:48 PM

Karinha, uso PellesC, WS_THICKFRAME esta en "NO" igual si lo pongo en "SI" sigue haciendo lo mismo

Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: SET MSGBAR en DIALOG
Posted: Mon Feb 05, 2018 02:43 PM
Lo siento, no uso Pellesc.exe no me gusta, talvéz:

Code (fw): Select all Collapse
   oDlg:nStyle    := nOr( WS_OVERLAPPED,WS_THICKFRAME,WS_MAXIMIZEBOX,   0  )


Saul2
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 400
Joined: Tue Oct 16, 2007 05:51 PM
Re: SET MSGBAR en DIALOG
Posted: Mon Feb 05, 2018 02:53 PM
karinha, tampoco funciona. El codigo que uso es :
Code (fw): Select all Collapse
ACTIVATE DIALOG oDlg;
   CENTER;
   VALID lExit;
   ON INIT OnInitDlg( oDlg )

static function OnInitDlg( oDlg )
   SET MSGBAR OF oDlg TO "" 2015
   ...
Return Nl


Y el RC :

Code (fw): Select all Collapse
FACTURA_DE_VENTA DIALOGEX DISCARDABLE 6, 18, 774, 414
STYLE DS_SHELLFONT|WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Dialog"
FONT 8, "MS Shell Dlg", 0, 0, 1
{
  CONTROL "", 4000, "Button", BS_GROUPBOX, 12, 56, 756, 352
  CONTROL "VENDEDOR :", 100, "Static", WS_GROUP, 16, 64, 60, 8
  CONTROL "CLIENTE :", 101, "Static", WS_GROUP, 16, 80, 60, 8
  CONTROL "CONDICION :", 102, "Static", WS_GROUP, 16, 96, 60, 8
  CONTROL "DESGLOZAR :", 103, "Static", WS_GROUP, 16, 112, 60, 8
  CONTROL "PLAZO :", 104, "Static", WS_GROUP, 16, 128, 60, 8
  CONTROL "NOMBRE DEL VENDEDOR", 105, "Static", WS_GROUP, 172, 64, 368, 8
  CONTROL "NOMBRE DEL CLIENTE", 106, "Static", WS_GROUP, 172, 80, 368, 8
  CONTROL "FACTURA NRO. :", 107, "Static", WS_GROUP, 548, 64, 68, 8
  CONTROL "FECHA :", 108, "Static", WS_GROUP, 548, 80, 68, 8
  CONTROL "DATE()", 109, "Static", WS_GROUP, 624, 80, 104, 8
  CONTROL "VENCE :", 110, "Static", WS_GROUP, 548, 96, 68, 8
  CONTROL "DATE()", 111, "Static", WS_GROUP, 624, 96, 104, 8
  CONTROL "ITEM : 1/1", 112, "Static", WS_GROUP, 548, 112, 72, 8
  CONTROL "MESA Nro. 1", 113, "Static", WS_GROUP, 548, 128, 184, 8
  CONTROL "Editar", 200, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 624, 64, 108, 12
  CONTROL "Editar", 201, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 84, 64, 84, 12
  CONTROL "Editar", 202, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 84, 80, 84, 12
  CONTROL "", 203, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|CBS_SORT|WS_VSCROLL|WS_TABSTOP, 84, 96, 84, 40
  CONTROL "", 204, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|CBS_SORT|WS_VSCROLL|WS_TABSTOP, 84, 112, 56, 40
  CONTROL "Editar", 205, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 84, 128, 68, 12
  CONTROL "xBrowse", 300, "TXBrowse", WS_TABSTOP|0x00300000, 16, 144, 744, 160
  CONTROL "SUBTOTAL :", 114, "Static", WS_GROUP, 20, 312, 124, 8
  CONTROL "DESCUENTO :", 115, "Static", WS_GROUP, 20, 324, 68, 8
  CONTROL "FLETE :", 116, "Static", WS_GROUP, 20, 340, 124, 8
  CONTROL "BASE IMPONIBLE :", 117, "Static", WS_GROUP, 20, 352, 124, 8
  CONTROL "IMPUESTO : ", 118, "Static", WS_GROUP, 20, 364, 124, 8
  CONTROL "EXENTO :", 119, "Static", WS_GROUP, 20, 376, 124, 8
  CONTROL "MONTO TOTAL :", 120, "Static", WS_GROUP, 20, 388, 124, 8
  CONTROL "0.00", 121, "Static", SS_RIGHT|WS_GROUP, 152, 312, 128, 8
  CONTROL "0.00", 122, "Static", SS_RIGHT|WS_GROUP, 152, 324, 128, 8
  CONTROL "0.00", 123, "Static", SS_RIGHT|WS_GROUP, 152, 352, 128, 8
  CONTROL "0.00", 124, "Static", SS_RIGHT|WS_GROUP, 152, 364, 128, 8
  CONTROL "0.00", 125, "Static", SS_RIGHT|WS_GROUP, 152, 376, 128, 8
  CONTROL "0.00", 126, "Static", SS_RIGHT|WS_GROUP, 152, 388, 128, 8
  CONTROL "Editar", 206, "Edit", ES_RIGHT|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 96, 324, 48, 12
  CONTROL "Editar", 207, "Edit", ES_RIGHT|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 152, 336, 128, 12
}
Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: SET MSGBAR en DIALOG
Posted: Mon Feb 05, 2018 03:03 PM
Albeiro,

Prueba asi:

Code (fw): Select all Collapse
static function OnInitDlg( oDlg )
   SET MSGBAR OF oDlg TO "" 2015
   oDlg:oMsgBar:Disable()
Return .T.  // para que el primer control tome el foco
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: SET MSGBAR en DIALOG
Posted: Mon Feb 05, 2018 03:14 PM
Mira \samples\TESTTITR.PRG y TESTTITR.RC funciona perfecto.

Code (fw): Select all Collapse
// RESOURCE SCRIPT generated by "Pelles C for Windows, version 7.00".

#include <windows.h>

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

1001 DIALOGEX DISCARDABLE 6, 18, 294, 150
STYLE DS_SHELLFONT|WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Dialog"
FONT 8, "Tahoma"
{
  CONTROL "OK", IDOK, "Button", WS_TABSTOP, 168, 124, 45, 15
  CONTROL "Cancel", IDCANCEL, "Button", WS_TABSTOP, 224, 124, 45, 15
  CONTROL "Custom control", 222, "TTITLE", WS_VISIBLE | WS_CHILD, 8, 12, 276, 32
}


Salu2
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 400
Joined: Tue Oct 16, 2007 05:51 PM
Re: SET MSGBAR en DIALOG (Resuelto)
Posted: Mon Feb 05, 2018 03:26 PM

Antonio, funciona a la perfeccion. Gracias.

Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com

Continue the discussion