FiveTech Software tech support forums

Estimado José,

Habría usar el estilo SBS_CENTERALIGN al crear el control. Para eso habría que modificar la clase TStatusBar así:

#define SBS_CENTERALIGN 0x0004

::nStyle = nOR( WS_CHILD, WS_VISIBLE, SBS_CENTERALIGN )

Pruébalo y a ver si funciona como deseas.

Probaste con ?

set message of _oWnd ...

Taking advantage of the topic, Master Antônio is it possible to do this?
Aprovechando el tema, Maestro Antônio, ¿es posible hacer esto?

GET and COMBO in the MESSAGE Bar?
GET y COMBO en la barra de MENSAJES


// GET e COMBO na MESSAGE Bar

#include "FiveWin.ch"

#define MSG_DATA 1
#define MSG_EMP ...

Use this function
function XbrToArray( Self, aCols )

local aData := {}
local nRows := ::nLen
local nRow, bm

if nRows > 0
if aCols == nil
aCols := ::GetVisibleCols()
else
aCols := { |o,i| aCols[ i ] := ::oCol( i ) }
endif

aData := Array( nRows, Len( aCols ) )

bm := ::BookMark
Eval ...

Taking advantage of the topic, Master Antônio is it possible to do this?
Aprovechando el tema, Maestro Antônio, ¿es posible hacer esto?

GET and COMBO in the MESSAGE Bar?
GET y COMBO en la barra de MENSAJES


// GET e COMBO na MESSAGE Bar

#include "FiveWin.ch"

#define MSG_DATA 1
#define MSG_EMP 2 ...

Dear Jimmy,

If you use a main MDI window then each child may have a buttonbar and a messagebar.

Another choice is to use a TPanel, that again may have both.

hi,

in my Main i have a working TMsgBar()

now i open a new Windows / Dialog which have a XBROWSE and i want also a TMsgBar()
but it does not show anything ... no Num,Caps.ins or Fate / Time

can i use only 1 x TMsgBar() / TStatusBar() in Main

... toolbar2.obj : error LNK2001: unresolved external symbol _HB_FUN_MSGINFO
toolbar2.obj : error LNK2001: unresolved external symbol _HB_FUN_TSTATUSBAR
toolbar2.obj : error LNK2001: unresolved external symbol _HB_FUN_MENUBEGIN
toolbar2.obj : error LNK2001: unresolved external symbol _HB_FUN ...

... xLINK: error: Unresolved external symbol '_HB_FUN_LARGEFONTS referenced from (Z-RPREV.obj)'.
xLINK: error: Unresolved external symbol '_HB_FUN_TSTATUSBAR referenced from (Z-RPREV.obj)'.
xLINK: error: Unresolved external symbol '_HB_FUN_TLISTVIEW referenced from (Z-RPREV.obj)'.
xLINK: error ...

... TSBSCRLBAR
34 TREPORT
35 TPRINTER
36 TPEN
37 TRLINE
38 TRCOLUMN
39 TBUTTON
40 TCURSOR
41 TSCROLLBAR
42 TBAR
43 TBTNBMP
44 TSTATUSBAR
45 TMETAFILE
46 TREG32

Memory Analysis
===============
177 Static variables

Dynamic memory consume:
Actual Value: 0 bytes ...

... TPreview
TTimePick

* Nueva documentación para las clases:

TAnimate
TBtnBmp
TComboBox
TDBCombo
TFTP
TGet
TImageList
TMci
TMultiGet
TRichEdit
TStatusBar
TToolBar
TTreeView
TTVItem
TVideo
TXBrowse
TXBrwColumn

* Nuevos comandos documentados en FwCmd.chm:

ActiveX
ButtonBmp
Header
ImageList
ListView ...

... New updated documentation for Classes:

TAnimate
TBtnBmp
TComboBox
TDBCombo
TFTP
TGet
TImageList
TMci
TMultiGet
TRichEdit
TStatusBar
TToolBar
TTreeView
TTVItem
TVideo
TXBrowse
TXBrwColumn

* New documented Commands in FwCmd.chm:

ActiveX
ButtonBmp
Header ...

... symbol '_HB_FUN_ISWIN64'.
xLINK: error: Unresolved external symbol '_HB_FUN_ISAPPTHEMED'.
xLINK: error: Unresolved external symbol '_HB_FUN_TSTATUSBAR'.
xLINK: error: Unresolved external symbol '_HB_FUN_GETENHMETAFILE'.
xLINK: error: Unresolved external symbol '_HB_FUN_PLAYENHMETAFILE'.
xLINK ...

Como colocar action na TStatusbar ?


Ari

DEFINE WINDOW ::oWnd FROM 0,0 TO 150,400 PIXEL MDICHILD OF ::oMain TITLE cTitle

::oMsgBar := TStatusBar():New( ::oWnd, "Sisrev Informática Ltda.",;
{300,100}, {"Sisrev Informática Ltda.", "www.sisrev.com.br"} )

! Não apresenta o segundo prompts

só aparece o primeiro

pelo teste \fwh27\samples ...

Evaldo,

source\classes\statusba.prg is missing in your FWH libraries.

As a workardound, you may add:

function TStatusBar
return nil