BUG TWINDOWS Title

BUG TWINDOWS Title

Postby MGA » Thu Nov 21, 2013 10:03 pm

Sr.Antonio,

Com uma MDICHILD aberta, ao clicar em:

SET MESSAGE OF M->oWnd -> M->oWnd:oMsgBar:DateOn()

O sistema duplica, triplica o titulo da WINDOW principal.
ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1254
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: BUG TWINDOWS Title

Postby MGA » Mon Nov 25, 2013 10:26 pm

UP!
ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1254
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: BUG TWINDOWS Title

Postby Sistem » Tue Nov 26, 2013 12:43 am

sim,
constatado win8.1 64bit
FWH2008 | xHarbour | BCC74 | SQLRDD
User avatar
Sistem
 
Posts: 226
Joined: Sun May 13, 2012 7:52 am

Re: BUG TWINDOWS Title

Postby lucasdebeltran » Fri Nov 29, 2013 5:48 pm

Hola,

Proporciona a Antonio un pequeño ejemplo para que lo pueda probar. Gracias.
Muchas gracias. Many thanks.

Un saludo, Best regards,

Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]

Implementando MSVC 2010, FWH64 y ADO.

Abandonando uso xHarbour y SQLRDD.
User avatar
lucasdebeltran
 
Posts: 1303
Joined: Tue Jul 21, 2009 8:12 am

Re: BUG TWINDOWS Title

Postby Antonio Linares » Fri Nov 29, 2013 5:59 pm

SGS,

This example is working fine here:

Code: Select all  Expand view  RUN
#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

   DEFINE WINDOW oWnd MDI
   
   SET MESSAGE OF oWnd TO "Main Window" DATE

   ACTIVATE WINDOW oWnd

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42203
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: BUG TWINDOWS Title

Postby MGA » Sun Dec 01, 2013 2:03 am

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

local oBar

SET _3DLOOK ON

DEFINE WINDOW oWnd TITLE "TEST MDIChilds BUG TITLE" MDI

DEFINE BUTTONBAR oBar _3D OF oWnd

DEFINE BUTTON OF oBar ACTION child()

SET MESSAGE OF oWnd TO 'APOS ABRIR MDICHILD CLIQUE CLIQUE NA DATA DA MSGBAR'

oWnd:oMsgBar:DateOn()

ACTIVATE WINDOW oWnd maximized

return nil

//----------------------------------------------------------------------------//

function Child()

local oWndChild

DEFINE WINDOW oWndChild MDICHILD OF oWnd TITLE "TITLE MDI"
ACTIVATE WINDOW oWndChild maximized

return nil
ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1254
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: BUG TWINDOWS Title

Postby karinha » Mon Dec 02, 2013 12:19 pm

Code: Select all  Expand view  RUN

// Controlling focus from one window to another

#include "FiveWin.ch"

STATIC oWnd

//----------------------------------------------------------------------------//

FUNCTION Main()

   LOCAL oBar

   DEFINE WINDOW oWnd TITLE "Main window"

   @ 3, 3 BUTTON "&Outra" SIZE 80, 20 ACTION Child()

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar ACTION child()

   SET MESSAGE OF oWnd TO 'APOS ABRIR MDICHILD CLIQUE CLIQUE NA DATA DA MSGBAR'

   oWnd:oMsgBar:DateOn()

   ACTIVATE WINDOW oWnd MAXIMIZED

RETURN NIL

//----------------------------------------------------------------------------//

FUNCTION Child()

   LOCAL oWndChild

   DEFINE WINDOW oWndChild TITLE "Child window"

   @ 3, 3 BUTTON "&Controle" SIZE 90, 20

   ACTIVATE WINDOW oWndChild MAXIMIZED

RETURN NIL

//----------------------------------------------------------------------------//
 
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7872
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: BUG TWINDOWS Title

Postby MGA » Wed Dec 04, 2013 10:04 am

up!
ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1254
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: BUG TWINDOWS Title

Postby MGA » Sat Dec 07, 2013 12:03 am

Sr Antonio, o exemplo foi postado!
ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1254
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: BUG TWINDOWS Title

Postby Daniel Garcia-Gil » Sat Dec 07, 2013 10:58 pm

Hola

podrias proporcionar una imagen, a mi me funciona bien tu ejemplo
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: BUG TWINDOWS Title

Postby MGA » Tue Dec 10, 2013 10:43 am

https://imageshack.com/i/mu3ynbj

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

local oBar

SET _3DLOOK ON

DEFINE WINDOW oWnd TITLE "TEST MDIChilds BUG TITLE" MDI

DEFINE BUTTONBAR oBar _3D OF oWnd

DEFINE BUTTON OF oBar ACTION child()

SET MESSAGE OF oWnd TO 'APOS ABRIR MDICHILD CLIQUE CLIQUE NA DATA DA MSGBAR'

oWnd:oMsgBar:DateOn()

ACTIVATE WINDOW oWnd maximized

return nil

//----------------------------------------------------------------------------//

function Child()

local oWndChild

DEFINE WINDOW oWndChild MDICHILD OF oWnd TITLE "TITLE MDI"
ACTIVATE WINDOW oWndChild maximized

return nil
ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1254
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: BUG TWINDOWS Title

Postby MGA » Fri Dec 13, 2013 12:46 am

Imagem postada.
ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1254
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: BUG TWINDOWS Title

Postby Daniel Garcia-Gil » Fri Dec 13, 2013 3:20 am

Hola

tu ejemplo funciona perfecto aqui... lo probé con la verision 13.8

http://sitasoft.net/fivewin/samples/test1.zip
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: BUG TWINDOWS Title

Postby MGA » Fri Dec 13, 2013 10:05 am

Sr. Daniel,

Acabei de testar o exemplo postado pelo Senhor e o problema continua.

1 Abra uma MDICHILD

2 fique clicando na data da MSGBAR.
ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1254
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: BUG TWINDOWS Title

Postby karinha » Fri Dec 13, 2013 12:48 pm

Teste este exemplo no \samples com o seu FWH, aqui em FWH13.06 funciona normal.

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

extern GetTextWidth

static oWnd, oBmpTiled

function Main()

   local oHand, oBmp

   DEFINE BITMAP oBmp      FILENAME "..\bitmaps\FiveWin.bmp"
   DEFINE BITMAP oBmpTiled FILENAME "..\bitmaps\backgrnd\water.bmp"

   DEFINE WINDOW oWnd MDI FROM 3, 6 TO 20, 70 ;
      TITLE "Welcome to FiveWin" COLOR "W/BG" ;
      MENUINFO 3                              ;
      MENU BuildMenu()

   DEFINE CURSOR oHand HAND

   DEFINE BUTTONBAR OF oWnd _3D SIZE 33, 33 CURSOR oHand _2007

   DEFINE BUTTON OF oWnd:oBar NOBORDER ;
      ACTION NewChild() FILENAME "..\bitmaps\open.bmp" ;
      MESSAGE "Funciona em FWH13.06"

   DEFINE BUTTON OF oWnd:oBar NOBORDER ;
      ACTION oWnd:End() FILENAME "..\bitmaps\exit.bmp" ;
      MESSAGE "Funciona em FWH13.06"

   SET MESSAGE OF oWnd TO "Teste de MDI Child" CLOCK DATE KEYBOARD NOINSET

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON PAINT ( BmpTiled( hDC, oWnd, oBmpTiled ),;
                 PalBmpDraw( hDC,;
                ( oWnd:nHeight() / 2 ) - ( oBmp:nHeight() / 2 ) - 50,;
                ( oWnd:nWidth() / 2 ) - ( oBmp:nWidth() / 2 ), oBmp:hBitmap ) ) ;
      VALID MsgYesNo( "Sair do Programa?" )

   oBmp:End()
   oBmpTiled:End()

return nil

function BuildMenu()

   local oMenu

   MENU oMenu 2007
      MENUITEM "&Test"
      MENU
         MENUITEM "&One"   ACTION MsgAbout( "Hello" )
         MENU
            MENUITEM "&Another" ACTION MsgYesNo( "Hola" )
         ENDMENU
         MENUITEM "&Two"
         MENUITEM "T&hree"
      ENDMENU

      MENUITEM "&Files"
      MENUITEM "&Help"    ACTION MsgAbout( "Hello" )
      MENU
         MENUITEM "Another"
      ENDMENU
   ENDMENU

return oMenu

//----------------------------------------------------------------------------//

function NewChild()  // funciona normal em FWH13.06

   local oWndChild, oFont

   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -8

   DEFINE WINDOW oWndChild TITLE "TEST TITLE MDI CHILD -> " + Time() MDICHILD

   DEFINE BUTTONBAR OF oWndChild _3D

   ACTIVATE WINDOW oWndChild

   oWndChild:ReSize()

return nil

//----------------------------------------------------------------------------//
function BmpTiled( hDC, oWnd, oBmp )

   local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight()
   local nRow := 0, nCol := 0, n
   local nBmpWidth  := oBmp:nWidth(),  nBmpHeight := oBmp:nHeight()

   while nRow < nHeight
      nCol = 0
      while nCol < nWidth
         PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap )
         nCol += nBmpWidth
      end
      nRow += nBmpHeight
   end

return nil
 


João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7872
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Next

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 89 guests