FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour New FWH 14.09
Posts: 811
Joined: Tue May 06, 2008 04:28 AM
Re: New FWH 14.09
Posted: Mon Oct 27, 2014 12:08 AM
Antonio Linares wrote:Rick,

Very good idea! thanks :-)


Frances,

have you tried it ?


Antonio,

No. I already modify that function. But I will re-create on my testbed. And follow Rick's suggestion. I will post results here.
Kind Regards,

Frances



Fivewin for xHarbour v18.07

xHarbour v1.2.3.x

BCC 7.3 + PellesC8 ( Resource Compiler only)

ADS 10.1 / MariaDB

Crystal Reports 8.5/9.23 DE

xMate v1.15
Posts: 811
Joined: Tue May 06, 2008 04:28 AM
Re: New FWH 14.09
Posted: Mon Oct 27, 2014 12:16 AM

Antonio,
Rick,

I got same result. problem. GoupID are at 4000 series while 'say' at 2000 and while 'get' are 1000.

It didn't worked. :(

Kind Regards,

Frances



Fivewin for xHarbour v18.07

xHarbour v1.2.3.x

BCC 7.3 + PellesC8 ( Resource Compiler only)

ADS 10.1 / MariaDB

Crystal Reports 8.5/9.23 DE

xMate v1.15
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: New FWH 14.09
Posted: Mon Oct 27, 2014 12:30 AM

Frances,

Could you post your rc (the portion for such dialog) here ? thanks

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 811
Joined: Tue May 06, 2008 04:28 AM
Re: New FWH 14.09
Posted: Mon Oct 27, 2014 12:46 AM
Antonio Linares wrote:Frances,

Could you post your rc (the portion for such dialog) here ? thanks



Code (fw): Select all Collapse
DLG_ADDCALLER DIALOGEX 0,0,240,63
FONT 9,"Verdana",0,0,0
STYLE NOT WS_VISIBLE|WS_CHILDWINDOW|WS_BORDER
BEGIN
  CONTROL "",4001,"Button",WS_CHILDWINDOW|WS_VISIBLE|BS_GROUPBOX,8,10,224,32,WS_EX_TRANSPARENT
  CONTROL "&First Name",2003,"Static",WS_CHILDWINDOW|WS_VISIBLE,12,18,38,9
  CONTROL "",1002,"Edit",WS_CHILDWINDOW|WS_VISIBLE|WS_BORDER|WS_TABSTOP,10,28,101,12
  CONTROL "MI",2005,"Static",WS_CHILDWINDOW|WS_VISIBLE,114,18,10,9,WS_EX_TRANSPARENT
  CONTROL "X",2004,"Edit",WS_CHILDWINDOW|WS_VISIBLE|WS_BORDER|WS_TABSTOP,112,28,16,12
  CONTROL "Last Name",2007,"Static",WS_CHILDWINDOW|WS_VISIBLE,132,18,38,9,WS_EX_TRANSPARENT
  CONTROL "XXX",1006,"Edit",WS_CHILDWINDOW|WS_VISIBLE|WS_BORDER|WS_TABSTOP,129,28,101,12
  CONTROL "Confirm",3010,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP|BS_DEFPUSHBUTTON,76,46,42,14
  CONTROL "Cancel",3011,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,122,46,42,14
  CONTROL "",3014,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,229,1,10,10
END
Kind Regards,

Frances



Fivewin for xHarbour v18.07

xHarbour v1.2.3.x

BCC 7.3 + PellesC8 ( Resource Compiler only)

ADS 10.1 / MariaDB

Crystal Reports 8.5/9.23 DE

xMate v1.15
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: New FWH 14.09
Posted: Mon Oct 27, 2014 07:37 AM
Frances,

Please reorganize it this way and try it again:

Code (fw): Select all Collapse
DLG_ADDCALLER DIALOGEX 0,0,240,63
FONT 9,"Verdana",0,0,0
STYLE NOT WS_VISIBLE|WS_CHILDWINDOW|WS_BORDER
BEGIN
  CONTROL "&First Name",2003,"Static",WS_CHILDWINDOW|WS_VISIBLE,12,18,38,9
  CONTROL "",1002,"Edit",WS_CHILDWINDOW|WS_VISIBLE|WS_BORDER|WS_TABSTOP,10,28,101,12
  CONTROL "MI",2005,"Static",WS_CHILDWINDOW|WS_VISIBLE,114,18,10,9,WS_EX_TRANSPARENT
  CONTROL "X",2004,"Edit",WS_CHILDWINDOW|WS_VISIBLE|WS_BORDER|WS_TABSTOP,112,28,16,12
  CONTROL "Last Name",2007,"Static",WS_CHILDWINDOW|WS_VISIBLE,132,18,38,9,WS_EX_TRANSPARENT
  CONTROL "XXX",1006,"Edit",WS_CHILDWINDOW|WS_VISIBLE|WS_BORDER|WS_TABSTOP,129,28,101,12
  CONTROL "",4001,"Button",WS_CHILDWINDOW|WS_VISIBLE|BS_GROUPBOX,8,10,224,32,WS_EX_TRANSPARENT
  CONTROL "Confirm",3010,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP|BS_DEFPUSHBUTTON,76,46,42,14
  CONTROL "Cancel",3011,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,122,46,42,14
  CONTROL "",3014,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,229,1,10,10
END
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 811
Joined: Tue May 06, 2008 04:28 AM
Re: New FWH 14.09
Posted: Mon Oct 27, 2014 07:52 AM

Antonio,

I can't modify other controls because the group always on top.. but any how I tried. Same ugly result. :(

Kind Regards,

Frances



Fivewin for xHarbour v18.07

xHarbour v1.2.3.x

BCC 7.3 + PellesC8 ( Resource Compiler only)

ADS 10.1 / MariaDB

Crystal Reports 8.5/9.23 DE

xMate v1.15
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: New FWH 14.09
Posted: Mon Oct 27, 2014 01:32 PM
Frances,

ok, this could be a valid solution:

Code (fw): Select all Collapse
METHOD Paint() CLASS TGroup

   local aSize, hOldFont, oFont

   CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 )

   if IsAppThemed() .and. ! Empty( ::cCaption )
      oFont = If( ::oFont != nil, ::oFont, ::oWnd:oFont )
      ASize = GetLabelDim( ::hWnd, ::cCaption, oFont:hFont )
      hOldFont = SelectObject( ::hDC, oFont:hFont )
      SetBrushOrgEx( ::hDC, nBmpWidth( ::oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oBrush:hBitmap ) - ::nTop )
      FillRect( ::hDC, { 0, 7, aSize[ 2 ] + 2, aSize[ 1 ] + 11 }, ::oBrush:hBrush )
      SetBkMode( ::hDC, 1 )
      TextOut( ::hDC, 0, 9, ::cCaption, Len( ::cCaption ) )
      SelectObject( ::hDC, hOldFont )
   endif   

return 1


Are you using Harbour or xHarbour ? Borland ? I can send you the modified libs by email, and once confirmed the fix, we will publish a new build.

We are sorry for these guys, but you know how software development is. Its quite difficult to try all possible situations thats why you very valuable feedback is so important :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 811
Joined: Tue May 06, 2008 04:28 AM
Re: New FWH 14.09
Posted: Tue Oct 28, 2014 12:22 AM

Antonio,

I'm using xHarbour and BCC.

Kind Regards,

Frances



Fivewin for xHarbour v18.07

xHarbour v1.2.3.x

BCC 7.3 + PellesC8 ( Resource Compiler only)

ADS 10.1 / MariaDB

Crystal Reports 8.5/9.23 DE

xMate v1.15
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: New FWH 14.09
Posted: Tue Oct 28, 2014 03:34 AM

Frances,

Already sent to your email :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 811
Joined: Tue May 06, 2008 04:28 AM
Re: New FWH 14.09
Posted: Tue Oct 28, 2014 03:54 AM
Antonio,

The problem SOLVED.

Many thanks for the support.

:-) :-) :-) :-) :-)
Kind Regards,

Frances



Fivewin for xHarbour v18.07

xHarbour v1.2.3.x

BCC 7.3 + PellesC8 ( Resource Compiler only)

ADS 10.1 / MariaDB

Crystal Reports 8.5/9.23 DE

xMate v1.15
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: New FWH 14.09
Posted: Tue Oct 28, 2014 04:52 AM

Frances,

many thanks for your great feedback :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: New FWH 14.09
Posted: Tue Oct 28, 2014 04:59 AM

Already published a FWH 14.09 (5 build)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 41
Joined: Sat Mar 09, 2013 08:17 AM
Re: New FWH 14.09
Posted: Tue Oct 28, 2014 09:16 AM

Hello Antonio,

the create of FWH \ samples \ ClassTree.prg with FWH 1409 (Build 5) and MinGW experience the following error:

c:\fwh\samples>hbmk classtree
---- mit MingW
Harbour 3.2.0dev (r1409151039)
Copyright (c) 1999-2014, http://harbour-project.org/
Compiling 'classtree.prg'...
Lines 4532, Functions/Procedures 13
Generating C source output to 'C:\Users\manfred\AppData\Local\Temp\hbmk_h080hb.d
ir\classtree.c'... Done.
c:/fwh/lib/fivehg.lib(WINDOW.o):WINDOW.c:(.data+0x588): undefined reference to HB_FUN_GETTEXTWIDTHW' c:/fwh/lib/fivehg.lib(WINDOW.o):WINDOW.c:(.data+0x5d8): undefined reference to
HB_FUN_GETWINDOWTEXTW'
c:/fwh/lib/fivehg.lib(WINDOW.o):WINDOW.c:(.data+0x918): undefined reference to HB_FUN_POSTMESSAGEW' c:/fwh/lib/fivehg.lib(WINDOW.o):WINDOW.c:(.data+0xb28): undefined reference to
HB_FUN_SENDMESSAGEW'
c:/fwh/lib/fivehg.lib(WINDOW.o):WINDOW.c:(.data+0xd18): undefined reference to HB_FUN_SETWINDOWTEXTW' c:/fwh/lib/fivehg.lib(WINDOW.o):WINDOW.c:(.data+0xfc8): undefined reference to
HB_FUN_GETCLASSINFOW'
c:/fwh/lib/fivehg.lib(WINDOW.o):WINDOW.c:(.data+0xfd8): undefined reference to HB_FUN_REGISTERCLASSW' c:/fwh/lib/fivehg.lib(WINDOW.o):WINDOW.c:(.data+0x1128): undefined reference toHB_FUN_CREATEWINDOWEXW'
c:/fwh/lib/fivehg.lib(WINDOW.o):WINDOW.c:(.data+0x15a8): undefined reference to
HB_FUN_MENUDRAWITEMW' c:/fwh/lib/fivehg.lib(WINDOW.o):WINDOW.c:(.data+0x1bc8): undefined reference toHB_FUN_WSAYW'
c:/fwh/lib/fivehg.lib(MENU.o):MENU.c:(.data+0x5b8): undefined reference to HB_F UN_APPENDMENUW' c:/fwh/lib/fivehg.lib(MENU.o):MENU.c:(.data+0x678): undefined reference toHB_F
UN_INSERTMENUW'
c:/fwh/lib/fivehg.lib(MSGBAR.o):MSGBAR.c:(.data+0x9d8): undefined reference to HB_FUN_MSGPAINTW' c:/fwh/lib/fivehgc.lib(MSGS.o):MSGS.C:(.text+0x31): undefined reference tofw_s
trchr'
c:/fwh/lib/fivehgc.lib(MSGS.o):MSGS.C:(.text+0x202): undefined reference to fw_ strcpy' c:/fwh/lib/fivehgc.lib(MSGS.o):MSGS.C:(.text+0x24e): undefined reference tofw_
strcpy'
c:/fwh/lib/fivehgc.lib(MSGS.o):MSGS.C:(.text+0x2da): undefined reference to fw_ strcpy' c:/fwh/lib/fivehgc.lib(MSGS.o):MSGS.C:(.text+0x326): undefined reference tofw_
strcpy'
c:/fwh/lib/fivehgc.lib(MSGS.o):MSGS.C:(.text+0x369): undefined reference to fw_ strcpy' c:/fwh/lib/fivehgc.lib(BRUSHES.o):BRUSHES.C:(.text+0x29e2): undefined reference toUTF8toUTF16'
c:/fwh/lib/fivehgc.lib(MKDIR.o):MKDIR.C:(.text+0x109): undefined reference to `S
HCreateDirectoryEx'
collect2: ld returned 1 exit status
hbmk2: Error: Running linker. 1
c:\hb32\comp\mingw\bin\gcc.exe C:/Users/manfred/AppData/Local/Temp/hbmk_h080hb.d
ir/classtree.o C:/Users/manfred/AppData/Local/Temp/hbmk_h080hb.dir/hbmk_xgttf2.o
-mwindows -Wl,--start-group -lfivehg -lfivehgc -lkernel32 -lcomctl32 -lcomdl
g32 -lgdi32 -lole32 -loleaut32 -lpsapi -lmsimg32 -loledlg -lstdc++ -lmfcuia32 -l
version -luuid -lwinmm -lvfw32 -lwsock32 -lgcc -lhbwin -lhbct -lxhb -lhbmemio -l
hbmisc -lpng -lhbtip -lhbextern -lhbdebug -lhbvm -lhbrtl -lhblang -lhbcpage -lgt
cgi -lgtpca -lgtstd -lgtwin -lgtwvt -lgtgui -lhbrdd -lhbuddall -lhbusrrdd -lrddn
tx -lrddcdx -lrddnsx -lrddfpt -lhbrdd -lhbhsx -lhbsix -lhbmacro -lhbcplr -lhbpp
-lhbcommon -lhbmainwin -lkernel32 -luser32 -lgdi32 -ladvapi32 -lws2_32 -liphlpap
i -lwinspool -lcomctl32 -lcomdlg32 -lshell32 -luuid -lole32 -loleaut32 -lmpr -lw
inmm -lmapi32 -limm32 -lmsimg32 -lwininet -lhbpcre -lhbzlib -Wl,--end-group -o
classtree.exe -Lc:/hb32/lib/win/mingw -Lc:/hb32/lib/3rd/win/mingw -Lc:/fwh/lib

hbmk2: Error: Referenced, missing, but unknown function(s): GETTEXTWIDTHW(),
GETWINDOWTEXTW(), POSTMESSAGEW(), SENDMESSAGEW(), SETWINDOWTEXTW(),
GETCLASSINFOW(), REGISTERCLASSW(), CREATEWINDOWEXW(), MENUDRAWITEMW(),
WSAYW(), APPENDMENUW(), INSERTMENUW(), MSGPAINTW()
#################### FEHLER beim erstellen
--- fertig

with Borland bcc582 everything is ok

Greeting Manfred

Manfred Groß
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: New FWH 14.09
Posted: Sat Nov 01, 2014 12:32 PM

Published a sixth build for FWH 14.09

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 41
Joined: Sat Mar 09, 2013 08:17 AM
Re: New FWH 14.09
Posted: Sat Nov 01, 2014 02:05 PM

thank you

Manfred Gross

Manfred Groß