topic-41632

Posts: 130

Joined: Sun Mar 08, 2009 04:33 PM

Dialog style
Posted: Sun Apr 10, 2022 08:43 AM

This is may Pellas rc file:

// RESOURCE SCRIPT generated by "Pelles C for Windows, version 10.00".

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

1 MANIFEST "winxp.man"

EEF3 DIALOG DISCARDABLE 197, 105, 277, 127
STYLE WS_POPUP|DS_MODALFRAME|DS_CENTER|WS_CAPTION|WS_VISIBLE
CAPTION "TEST"
FONT 8, "Microsoft Sans Serif"
{
  CONTROL "", 101, "Edit", ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 24, 20, 180, 12
  CONTROL "", 102, "ListBox", LBS_NOTIFY|WS_VSCROLL|WS_BORDER|WS_GROUP|WS_TABSTOP, 24, 40, 180, 82
  CONTROL "&Izlaz", 103, "Button", WS_TABSTOP, 212, 96, 56, 18
}

This is my Test.prg:

Code (fw): Select all Collapse

#include "fivewin.ch"

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

function Test()

Local cKrit,oLbx

   DEFINE DIALOG oDlg  RESOURCE "EEF3" 
   
   REDEFINE GET oKrit VAR cKrit ID 101 OF oDlg 

   REDEFINE LISTBOX oLbx ID 102;
            OF oDlg

   REDEFINE BUTTON ID 103 OF oDlg ;
            ACTION oDlg:end()

   ACTIVATE DIALOG oDlg

return nil

if I use FiveWin 12.08. and xHarbour build 1.2.1

Test1

if I use FiveWin 21.11. and xHarbour 1.2.3

Test2

How can I get dialogue to look like Test1 by using Fivewin 21.11 an xHarbour 1.2.3??

Best regards,
Miloš

Best regards

Milos

[ FWH 21.11 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603) ]

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Dialog style
Posted: Sun Apr 10, 2022 09:58 AM

Miloš,

Please post here the "winxp.man" file that you are using

regards, saludos

Antonio Linares
www.fivetechsoft.com

mtajkov

Posts: 130

Joined: Sun Mar 08, 2009 04:33 PM

Re: Dialog style
Posted: Sun Apr 10, 2022 10:26 AM

WinXp.man:

Code (fw): Select all Collapse

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
    version="1.0.0.0"
    processorArchitecture="X86"
    name="Your.App.Name"
    type="win32"
/>
<description>Your application description here.</description>
<dependency>
    <dependentAssembly>
        <assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            version="6.0.0.0"
            processorArchitecture="X86"
            publicKeyToken="6595b64144ccf1df"
            language="*"
        />
    </dependentAssembly>
</dependency>
</assembly>

Best regards

Best regards

Milos

[ FWH 21.11 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603) ]

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Dialog style
Posted: Sun Apr 10, 2022 11:23 AM

Miloš,

What Windows version are you using ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

mtajkov

Posts: 130

Joined: Sun Mar 08, 2009 04:33 PM

Re: Dialog style
Posted: Sun Apr 10, 2022 11:29 AM

Antonio,

I use Microsoft Windows 10 Pro Version 10.0.19044 Build 19044

Best regards,

Best regards

Milos

[ FWH 21.11 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603) ]

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Dialog style
Posted: Sun Apr 10, 2022 11:31 AM

What C compiler are you using ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

mtajkov

Posts: 130

Joined: Sun Mar 08, 2009 04:33 PM

Re: Dialog style
Posted: Sun Apr 10, 2022 11:48 AM

Buildx.bat:

Code (fw): Select all Collapse

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄż
ECHO ł FiveWin for xHarbour 15.07 - Jul. 2015          xHarbour development power łÜ
ECHO ł (c) FiveTech, 1993-2015   for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8 łŰ
ECHO ŔÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄŮŰ
ECHO ˙ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST

ECHO Compiling...

if "%FWDIR%" == "" set FWDIR=c:\fwh2111
if "%XHDIR%" == "" set XHDIR=c:\xharbour
rem if "%2" == "/b" set GT=gtwin
rem if not "%2" == "/b" set GT=gtgui
set GT=gtgui

set hdir=%XHDIR%
set hdirl=%hdir%\lib
set bcdir=c:\bcc7
set fwh=c:\fwh2111

@del *.obj
@del *.c

%hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include /p %2 %3 > comp.log 2> warnings.log


IF ERRORLEVEL 1 GOTO COMPILEERRORS
@type comp.log
@type warnings.log

echo -O2 -e%1.exe -I%hdir%\include -I%bcdir%\include %1.c > b32.bc
%bcdir%\bin\bcc32 -M -c -v @b32.bc

:ENDCOMPILE

IF EXIST %1.rc %bcdir%\bin\brc32 -r -I%bcdir%\include %1

echo %bcdir%\lib\c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo %fwh%\lib\Fivehx.lib %fwh%\lib\FiveHC.lib + >> b32.bc
echo %hdirl%\rtl.lib + >> b32.bc
echo %hdirl%\vm.lib + >> b32.bc
echo %hdirl%\%GT%.lib + >> b32.bc
echo %hdirl%\lang.lib + >> b32.bc
echo %hdirl%\macro.lib + >> b32.bc
echo %hdirl%\rdd.lib + >> b32.bc
echo %hdirl%\dbfntx.lib + >> b32.bc
echo %hdirl%\dbfcdx.lib + >> b32.bc
echo %hdirl%\dbffpt.lib + >> b32.bc
echo %hdirl%\hbsix.lib + >> b32.bc
echo %hdirl%\debug.lib + >> b32.bc
echo %hdirl%\common.lib + >> b32.bc
echo %hdirl%\pp.lib + >> b32.bc
echo %hdirl%\pcrepos.lib + >> b32.bc
echo %hdirl%\ct.lib + >> b32.bc
echo %hdirl%\zlib.lib + >> b32.bc
echo %hdirl%\hbzip.lib + >> b32.bc
echo %hdirl%\hbzebra.lib + >> b32.bc
echo %hdirl%\libmisc.lib + >> b32.bc
echo %hdirl%\tip.lib + >> b32.bc
echo %hdirl%\png.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
rem echo %hdir%\lib\rddads.lib + >> b32.bc
rem echo %hdir%\lib\Ace32.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\uuid.lib + >> b32.bc
echo %bcdir%\lib\ws2_32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc
echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\gdiplus.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\shell32.lib, >> b32.bc

IF EXIST %1.res echo %1.res >> b32.bc

rem uncomment this line to use the debugger and comment the following one
if %GT% == gtwin %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built *
%1
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c

:COMPILEERRORS
@type comp.log
ECHO * Compile errors *
GOTO EXIT

:LINKERROR
ECHO * Linking errors *
GOTO EXIT

:SINTAX
ECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi˘n PRG
ECHO                                {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG %1 does not exist

:EXIT

Best regards

Milos

[ FWH 21.11 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603) ]

mtajkov

Posts: 130

Joined: Sun Mar 08, 2009 04:33 PM

Re: Dialog style
Posted: Sun Apr 10, 2022 11:52 AM

Yes, I believe that is the problem (bcc32...)?

Best regards

Milos

[ FWH 21.11 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603) ]

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Dialog style
Posted: Sun Apr 10, 2022 02:32 PM

Please try to build it using Microsoft Visual Studio Community and check if that makes a difference

Another possibility is that you are using a different common controls dll now.

Do you have the old EXE and keeps working fine ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

Detlef

Posts: 218

Joined: Mon Feb 07, 2022 09:54 PM

Re: Dialog style
Posted: Sun Apr 10, 2022 03:53 PM

I have the same issue with FWH 21.11.
My dialogs all have the look as to see by test2 of user mtajkov.
I'm searching since days to get my dialogs appearance like at test1.

mtajkov

Posts: 130

Joined: Sun Mar 08, 2009 04:33 PM

Re: Dialog style
Posted: Sun Apr 10, 2022 03:58 PM

I try Test.mak:

Code (fw): Select all Collapse

HBDIR=C:\xharbour
FWDIR=C:\fwh2111
VCDIR=C:\"Program Files (x86)\Microsoft Visual Studio"\2019\Community\VC\Tools\MSVC\14.29.30133\bin\Hostx86\x86
VCDIRINC="C:\Program Files (x86)\Microsoft Visual Studio\2019\Community\VC\Tools\MSVC\14.29.30133\include"
SDKDIR="C:\Program Files (x86)\Windows Kits\10\Lib\10.0.19041.0\um\x86"
SDKDIRINC="C:\Program Files (x86)\Windows Kits\10\Include\10.0.19041.0\um"
RCDIR="C:\Program Files (x86)\Windows Kits\10\bin\10.0.19041.0\x86"

.SUFFIXES: .PRG .C .OBJ .RC .RES

PRG =       \
test.prg  
#place here as many PRGs as needed

OBJ=$(PRG:.PRG=.OBJ)
OBJS=$(OBJ:.\=.\obj\)

PROJECT: test.exe

test.exe : $(OBJS) test.res
   echo $(OBJS) > msvc.tmp
   echo $(FWDIR)\lib\FiveH32.lib $(FWDIR)\lib\FiveHC32.lib >> msvc.tmp
   echo $(HBDIR)\lib\hbrtl.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hbvm.lib  >> msvc.tmp
   echo $(HBDIR)\lib\gtgui.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hblang.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hbmacro.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hbrdd.lib  >> msvc.tmp
   echo $(HBDIR)\lib\rddntx.lib  >> msvc.tmp
   echo $(HBDIR)\lib\rddcdx.lib  >> msvc.tmp
   echo $(HBDIR)\lib\rddfpt.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hbsix.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hbdebug.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hbcommon.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hbpp.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hbcpage.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hbwin.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hbcplr.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hbpcre.lib >> msvc.tmp
   echo $(HBDIR)\lib\hbct.lib  >> msvc.tmp
   echo $(HBDIR)\lib\xhb.lib  >> msvc.tmp
   echo $(HBDIR)\lib\png.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hbzlib.lib  >> msvc.tmp
   echo $(HBDIR)\lib\hbziparc.lib >> msvc.tmp
   echo $(HBDIR)\lib\hbmzip.lib >> msvc.tmp
   echo $(HBDIR)\lib\minizip.lib >> msvc.tmp
   echo $(HBDIR)\lib\hbtip.lib >> msvc.tmp
   echo $(HBDIR)\lib\hbzebra.lib >> msvc.tmp

   echo $(SDKDIR)\kernel32.lib  >> msvc.tmp
   echo $(SDKDIR)\user32.lib    >> msvc.tmp
   echo $(SDKDIR)\gdi32.lib     >> msvc.tmp
   echo $(SDKDIR)\winspool.lib  >> msvc.tmp
   echo $(SDKDIR)\comctl32.lib  >> msvc.tmp
   echo $(SDKDIR)\comdlg32.lib  >> msvc.tmp
   echo $(SDKDIR)\advapi32.lib  >> msvc.tmp
   echo $(SDKDIR)\shell32.lib   >> msvc.tmp
   echo $(SDKDIR)\ole32.lib     >> msvc.tmp
   echo $(SDKDIR)\oleaut32.lib  >> msvc.tmp
   echo $(SDKDIR)\uuid.lib      >> msvc.tmp
   echo $(SDKDIR)\odbc32.lib    >> msvc.tmp
   echo $(SDKDIR)\odbccp32.lib  >> msvc.tmp
   echo $(SDKDIR)\iphlpapi.lib  >> msvc.tmp
   echo $(SDKDIR)\mpr.lib       >> msvc.tmp
   echo $(SDKDIR)\version.lib   >> msvc.tmp
   echo $(SDKDIR)\wsock32.lib   >> msvc.tmp
   echo $(SDKDIR)\msimg32.lib   >> msvc.tmp
   echo $(SDKDIR)\oledlg.lib    >> msvc.tmp
   echo $(SDKDIR)\psapi.lib     >> msvc.tmp
   echo $(SDKDIR)\gdiplus.lib   >> msvc.tmp
   echo $(SDKDIR)\winmm.lib     >> msvc.tmp

   IF EXIST test.res echo test.res >> msvc.tmp

   $(VCDIR)\link @msvc.tmp /out:test.exe /nologo /subsystem:windows /force:multiple /NODEFAULTLIB:msvcrt > link.log
   @type link.log

test.res : test.rc
   $(RCDIR)\rc.exe -r -d__FLAT__ test.rc

.PRG.OBJ:
  $(HBDIR)\bin\harbour $< /n /w /Oobj\ /i$(FWDIR)\include;$(HBDIR)\include
  $(VCDIR)\cl.exe -TP -W3 -c /GS- /I$(HBDIR)\include /GA -Foobj\ obj\*.c

and go.bat:

Code (fw): Select all Collapse

call "%ProgramFiles(x86)%\Microsoft Visual Studio\2019\Community\VC\Auxiliary\Build\vcvarsall.bat" x86
c:\harbour\bin\hbmk2 test
test.exe

but I have a new problem:

Best regards

Best regards

Milos

[ FWH 21.11 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603) ]

mtajkov

Posts: 130

Joined: Sun Mar 08, 2009 04:33 PM

Re: Dialog style
Posted: Sun Apr 10, 2022 07:41 PM

This is the solution

Test.rc:

Code (fw): Select all Collapse

// RESOURCE SCRIPT generated by "Pelles C for Windows, version 10.00".

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

#ifdef __FLAT__
   1 24 "WindowsXP.Manifest"
#endif

#ifdef __64__
   1 24 "WinXP/WindowsXP.Manifest64"
#endif 

EEF3 DIALOG DISCARDABLE 197, 105, 277, 127
STYLE WS_POPUP|DS_MODALFRAME|DS_CENTER|WS_CAPTION|WS_VISIBLE
CAPTION "TEST"
FONT 8, "Microsoft Sans Serif"
{
  CONTROL "", 101, "Edit", ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 24, 20, 180, 12
  CONTROL "", 102, "ListBox", LBS_NOTIFY|WS_VSCROLL|WS_BORDER|WS_GROUP|WS_TABSTOP, 24, 40, 180, 82
  CONTROL "&Izlaz", 103, "Button", WS_TABSTOP, 212, 96, 56, 18
}

Best regards

Best regards

Milos

[ FWH 21.11 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603) ]

Detlef

Posts: 218

Joined: Mon Feb 07, 2022 09:54 PM

Re: Dialog style
Posted: Sun Apr 10, 2022 09:15 PM

Hi mtajkov,

many thanks for finding out your solution.
Now it'working for me.

Pelles rc-editor doesn't like the use of "1 24 WindowsXp.Manifest".
It makes always "1 Manifest "WindowsXp.Manifest" and the flat look is spoiled.
After saving the rc file with Pelles C I have to correct the rc file by hand,
write "1 24 WindowsXp.Manifest" to I get my flat look.

Thanks again for your solution

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Dialog style
Posted: Thu Apr 14, 2022 10:22 AM

Antonio,
I saw one prg made with Visual C++ and it have the window and the dialog different when it are used on Windows 10
I mean the Blue color on caption

Can it be done with Fwh?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion