New FWH 14.09

[fraxzi]

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.

[fraxzi]

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.

[Antonio Linares]

Frances,

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

[fraxzi]

Frances,

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

Code: Select all

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
 

[Antonio Linares]

Frances,

Please reorganize it this way and try it again:

Code: Select all

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

[fraxzi]

Antonio,

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

[Antonio Linares]

Frances,

ok, this could be a valid solution:

Code: Select all

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

[fraxzi]

Antonio,

I'm using xHarbour and BCC.

[Antonio Linares]

Frances,

Already sent to your email

[fraxzi]

Antonio,

The problem SOLVED.

Many thanks for the support.

[Antonio Linares]

Frances,

many thanks for your great feedback

[Antonio Linares]

Already published a FWH 14.09 (5 build)

[Gross]

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 to
`HB_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 to
`HB_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 to `HB_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 to `fw_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 to `fw_
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 to `fw_
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
to `UTF8toUTF16'
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

[Antonio Linares]

Published a sixth build for FWH 14.09

[Gross]

thank you

Manfred Gross