FiveTech Software tech support forums

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.

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.

Frances,

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

Frances,

Please reorganize it this way and try it again:

Code: Select all  Expand view

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

Antonio,

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

Frances,

ok, this could be a valid solution:

Code: Select all  Expand view

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

Antonio,

I'm using xHarbour and BCC.

Frances,

Already sent to your email

Antonio,

The problem SOLVED.

Many thanks for the support.

Frances,

many thanks for your great feedback

Already published a FWH 14.09 (5 build)

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

Published a sixth build for FWH 14.09

thank you

Manfred Gross