Page 1 of 1
Sample Program Toolbar2.prg is NOT working in other App
Posted: Wed Jun 12, 2019 4:42 am
by shri_fwh
Dera All ,
I have compiled the Sample Program toolbar2.prg and it is successfully compiled and executed as well. But when I copy all source code of toolbar2.prg as it is in my app and compiled it. But It is neither showing any Toobar nor Button of the Toolbar. I have compared all libs buildh.bat and mine script both found identical. I am not sure what is wrong in my app. Could you please help me on this. Thanks in advance...!
Thanks
Shridhar
Re: Sample Program Toobar2.prg is NOT working in other App
Posted: Wed Jun 12, 2019 5:02 am
by nageswaragunupudi
Can you prepare a sample and post here?
Re: Sample Program Toolbar2.prg is NOT working in other App
Posted: Fri Jun 14, 2019 4:27 am
by shri_fwh
Dear Rao Sir ,
Attached below code for the same.
App.prg
Code: Select all
#include "FiveWin.ch"
REQUEST DBFCDX, DESCEND
PROCEDURE Main
RDDSETDEFAULT( "DBFCDX" )
AppToolBar()
return
Toolbar2.prg
Code: Select all
// Win32 TReBar and TToolBar sample
#include "FiveWin.ch"
function AppToolBar
local oWnd, oReBar, oToolBar1, oToolBar2, oImgList1, oImgList2
DEFINE WINDOW oWnd TITLE "FWH - Testing Win32 ReBars & Toolbars" ;
MENU BuildMenu()
// First we build the imagelists with all the bitmaps
DEFINE IMAGELIST oImgList1 SIZE 32, 32
DEFINE IMGBITMAP OF oImgList1 NAME "new" COLOR nRGB( 255, 0, 255 )
DEFINE IMGBITMAP OF oImgList1 NAME "open" COLOR nRGB( 255, 0, 255 )
DEFINE IMGBITMAP OF oImgList1 NAME "search" COLOR nRGB( 255, 0, 255 )
DEFINE IMGBITMAP OF oImgList1 NAME "print" COLOR nRGB( 255, 0, 255 )
DEFINE IMAGELIST oImgList2 SIZE 32, 32
DEFINE IMGBITMAP OF oImgList2 NAME "internet" COLOR nRGB( 255, 0, 255 )
DEFINE IMGBITMAP OF oImgList2 NAME "keys" COLOR nRGB( 255, 0, 255 )
DEFINE IMGBITMAP OF oImgList2 NAME "quit" COLOR nRGB( 255, 0, 255 )
// Now we create the rebar
DEFINE REBAR oReBar OF oWnd
// Now we create the toolbars and add the buttons
DEFINE TOOLBAR oToolBar1 OF oReBar SIZE 50, 58 ;
IMAGELIST oImgList1
DEFINE TBBUTTON OF oToolBar1 ;
ACTION MsgInfo( "New" ) ;
TOOLTIP "New" ;
PROMPT "&New project"
DEFINE TBBUTTON OF oToolBar1 ;
ACTION MsgInfo( "Open" ) ;
TOOLTIP "Open" ;
PROMPT "Open project"
DEFINE TBSEPARATOR OF oToolBar1
DEFINE TBMENU OF oToolBar1 ;
ACTION MsgInfo( "Search" ) ;
TOOLTIP "Search" ;
PROMPT "Search" ;
MENU BuildPopup()
DEFINE TBBUTTON OF oToolBar1 ;
ACTION MsgInfo( "Print" ) ;
TOOLTIP "Print a report" ;
PROMPT "Print a report"
DEFINE TOOLBAR oToolBar2 OF oReBar SIZE 50, 50 ;
IMAGELIST oImgList2
DEFINE TBBUTTON OF oToolBar2 ;
ACTION MsgInfo( "Upgrade" ) ;
TOOLTIP "Search for new versions" ;
PROMPT "Upgrade Ver."
DEFINE TBBUTTON OF oToolBar2 ;
ACTION MsgInfo( "Users" ) ;
TOOLTIP "Users management" ;
PROMPT "Users"
DEFINE TBSEPARATOR OF oToolBar2
DEFINE TBBUTTON OF oToolBar2 ;
ACTION oWnd:End() ;
TOOLTIP "End Application" ;
PROMPT "Exit"
// We set the widths for each toolbar
oToolBar1:nWidth = 300
oToolBar2:nWidth = 300
// Now we insert the toolbars into the rebar
oReBar:InsertBand( oToolBar1 )
oReBar:InsertBand( oToolBar2 )
DEFINE STATUSBAR OF oWnd PROMPT "Rebars and Toolbars test"
ACTIVATE WINDOW oWnd MAXIMIZED
oImgList1:End()
oImgList2:End()
return nil
function BuildMenu()
local oMenu
MENU oMenu
MENUITEM "&Project"
MENU
MENUITEM "&New..." ACTION MsgInfo( "New" )
MENUITEM "&Open..." ACTION MsgInfo( "Open" )
SEPARATOR
MENUITEM "&Exit..." ACTION MsgInfo( "End" )
ENDMENU
MENUITEM "&Edit"
MENU
MENUITEM "&Search..." ACTION MsgInfo( "Search" )
MENUITEM "&Print..." ACTION MsgInfo( "Print" )
ENDMENU
MENUITEM "&Utilities"
MENU
MENUITEM "&Upgrade..." ACTION MsgInfo( "Upgrade" )
MENUITEM "&Users..." ACTION MsgInfo( "Users" )
ENDMENU
ENDMENU
return oMenu
function BuildPopup()
local oMenu
MENU oMenu POPUP
MENUITEM "One" ACTION MsgInfo( "One" )
MENUITEM "Two" ACTION MsgInfo( "Two" )
MENUITEM "Three" ACTION MsgInfo( "Three" )
ENDMENU
return oMenu
procedure AppSys // Xbase++ requirement
return
build.bat
Code: Select all
@echo off
cls
set FWDIR=C:\VIMDEV32\DEV32\fwh32
set HBDIR=C:\VIMDEV32\DEV32\HarbourBCC7
set BCCDIR=C:\VIMDEV32\DEV32\BCC73
set PRJHOMEDIR=C:\VIMDEV32\FWHTEST
set PRGDIR=%PRJHOMEDIR%\PRGS
set OBJDIR=%PRJHOMEDIR%\OBJ
set APPNAME=%PRJHOMEDIR%\vimfa
set LNKFILE=APPLINK.bc
@cls
echo Building....!
:CLEAN
del %OBJDIR%\*.c
del %OBJDIR%\*.obj
del %PRJHOMEDIR%\*.exe
del %PRJHOMEDIR%\*.map
for %%f in (%PRGDIR%\*.prg) do %HBDIR%\bin\harbour %%~f /n /i%FWDIR%\include;%HBDIR%\include;%PRJHOMEDIR%\INCLUDE /w1/es1 /p -o%OBJDIR%\
rem C:\VIMDEV\HarbourBCC64\bin\harbour Noname /iC:\VIMDEV\HarbourBCC64\include;C:\fwh64\include /n /w -oC:\VIMDEV\P\C\ > C:\VIMDEV\p\c\comp1.log 2> C:\VIMDEV\p\c\comp2.log
@echo Harbour Compiler Processing....!
for %%f in (%OBJDIR%\*.c) do %BCCDIR%\bin\bcc32 -c -I%HBDIR%\include -I%BCCDIR%\include\dinkumware -I%BCCDIR%\include\windows\sdk -I%BCCDIR%\include\windows\crtl -I%BCCDIR%\include\windows\rtl -o %OBJDIR%\%%~nf.obj %%~f
REM @cls
for %%f in (%PRJHOMEDIR%\RES\*.rc) do %BCCDIR%\bin\brc32 -r -I%BCCDIR%\include -I%BCCDIR%\include\windows\sdk -I%BCCDIR%\include\windows\crtl %OBJDIR%\%%~nf
rem @pause
REM for %%f in (%OBJDIR%\*.rc) do echo %OBJDIR%\%%~nf %%~f
REM @pause
rem if EXIST %1.rc %bcdir%\bin\brc32 -r -D__64__ -I%bcdir%\include -I%bcdir%\include\windows\sdk %1
rem %BCCDIR%\bin\brc32 -r -D__64__ -I%BCCDIR%\include -I%BCCDIR%\include\windows\sdk %1
@del %PRGDIR%\*.ppo
echo %BCCDIR%\lib\c0w32.obj + > %LNKFILE%
for %%f in (%OBJDIR%\*.obj) do echo %%~f + >> %LNKFILE%
echo , + >> %LNKFILE%
echo %APPNAME%.exe , + >> %LNKFILE%
echo %APPNAME%.map , + >> %LNKFILE%
echo %FWDIR%\lib\fiveh.lib %FWDIR%\lib\fivehc.lib %FWDIR%\lib\libcurl.lib %FWDIR%\lib\libmariadb.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbwin.lib + >> %LNKFILE%
echo %HBDIR%\LIB\gtgui.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbrtl.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbvm.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hblang.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbmacro.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbrdd.lib + >> %LNKFILE%
echo %HBDIR%\LIB\rddntx.lib + >> %LNKFILE%
echo %HBDIR%\LIB\rddcdx.lib + >> %LNKFILE%
echo %HBDIR%\LIB\rddfpt.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbsix.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbdebug.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbcommon.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbpp.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbcpage.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbcplr.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbct.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbpcre.lib + >> %LNKFILE%
echo %HBDIR%\LIB\xhb.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbziparc.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbmzip.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbzlib.lib + >> %LNKFILE%
echo %HBDIR%\LIB\minizip.lib + >> %LNKFILE%
echo %HBDIR%\LIB\png.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbcurl.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbusrrdd.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbtip.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbmxml.lib + >> %LNKFILE%
echo %HBDIR%\LIB\hbmisc.lib + >> %LNKFILE%
echo %BCCDIR%\lib\cw32.lib + >> %LNKFILE%
echo %BCCDIR%\lib\uuid.lib + >> %LNKFILE%
echo %BCCDIR%\lib\import32.lib + >> %LNKFILE%
echo %BCCDIR%\lib\psdk\odbc32.lib + >> %LNKFILE%
echo %BCCDIR%\lib\psdk\nddeapi.lib + >> %LNKFILE%
echo %BCCDIR%\lib\psdk\Iphlpapi.lib + >> %LNKFILE%
echo %BCCDIR%\lib\psdk\msimg32.lib + >> %LNKFILE%
echo %BCCDIR%\lib\psdk\psapi.lib + >> %LNKFILE%
echo %BCCDIR%\lib\psdk\rasapi32.lib + >> %LNKFILE%
echo %BCCDIR%\lib\psdk\gdiplus.lib + >> %LNKFILE%
echo %BCCDIR%\lib\psdk\riched20.lib + >> %LNKFILE%
echo %BCCDIR%\lib\psdk\shell32.lib + >> %LNKFILE%
echo %BCCDIR%\lib\psdk\urlmon.lib, >> %LNKFILE%
for %%f in (%OBJDIR%\*.res) do echo %%~f + >> %LNKFILE%
%BCCDIR%\bin\ilink32 -Gn -aa -Tpe -s @%LNKFILE%
%APPNAME%
Thanks
Shridhar
Re: Sample Program Toolbar2.prg is NOT working in other App
Posted: Mon Jun 17, 2019 10:24 am
by ukoenig
Is that the situation do You mean :
a mainwindow with a toolbar or something else, calling a dialog on selection with a defined TREBAR
( using toolbar2.prg but defined as a dialog )
During testing I noticed a problem : including this sample in the FWH-sample-folder it works.
The same created as a extra test doesn't work ( the exe is created / copied from the FWH-sample-folder ).
If TREBAR is disabled the toolbars are visible otherwise nothing.
For the moment I couldn't find out why TREBAR doesn't work outside the FWH-sample-folder
Just try by yourself
Download
( rename and copy to the FWH-sample-folder )
http://www.pflegeplus.com/DOWNLOADS/NToolbar2.zip
regards
Uwe
Re: Sample Program Toolbar2.prg is NOT working in other App
Posted: Mon Jun 17, 2019 3:37 pm
by shri_fwh
Hi Uwe ,
Thank you ...! I will try this code.
I was looking also BUTTONBAR instead of TOOLBAR in the BUTTON BAR I did not find the property like oToolBar1:nWidth = 300. Please correct me if I am wrong.
Thanks
Shridhar
Re: Sample Program Toolbar2.prg is NOT working in other App
Posted: Mon Jun 17, 2019 3:58 pm
by nageswaragunupudi
Buttonbar always extends from left to right full (or top to bottom if the bar is vertical).
But why do you need to restrict the width of the buttonbar? It looks awkward.
If you explain what is it you want to achieve, we can help you.
Do you want some buttons aligned to the left and a few buttons aligned to right?
Re: Sample Program Toolbar2.prg is NOT working in other App
Posted: Tue Jun 18, 2019 4:54 am
by shri_fwh
Dear Sir ,
Yes...! I want to align button either left or right. I have two button BARs for the First Button BAR I want to see all buttons LEFT to RIGHT and in Second Button BAR all button RIGHT to LEFT.
Can you please guide on this..! Thanks in advance...!
Thanks
Shridhar
Re: Sample Program Toolbar2.prg is NOT working in other App
Posted: Tue Jun 18, 2019 6:05 am
by nageswaragunupudi
Please try this sample:
Code: Select all
#include "fivewin.ch"
function Main()
local oWnd, oBar
DEFINE WINDOW oWnd TITLE FWVERSION
DEFINE BUTTONBAR oBar OF oWnd SIZE 64,64 2007 HEIGHT 90 // Use height clause only if using Group Labels
// Left aligned buttons (default)
DEFINE BUTTON OF oBar PROMPT "New" RESOURCE FWBitmap( "new16" ) GROUP LABEL "EDIT" COLORS CLR_WHITE,CLR_GREEN
DEFINE BUTTON OF oBar PROMPT "Edit" FILE "c:\fwh\bitmaps\edit.bmp"
DEFINE BUTTON OF oBar PROMPT "Delete" FILE "c:\fwh\bitmaps\16X16\delete2.bmp"
DEFINE BUTTON OF oBar PROMPT "Excel" RESOURCE FWBitmap( "excel" ) GROUP LABEL "EXPORT" COLORS CLR_WHITE,CLR_BLUE
DEFINE BUTTON OF oBar PROMPT "Print" RESOURCE FWBitmap( "printer" )
// Right aligned buttons: Use BTNRIGHT clause
DEFINE BUTTON OF oBar PROMPT "Info" FILE "c:\fwh\bitmaps\info.bmp" BTNRIGHT GROUP
DEFINE BUTTON OF oBar PROMPT "Help" FILE "c:\fwh\bitmaps\help.bmp" BTNRIGHT GROUP
DEFINE BUTTON OF oBar PROMPT "Exit" RESOURCE FWBitmap( "exit2" ) BTNRIGHT
oWnd:nWidth := 800
ACTIVATE WINDOW oWnd CENTERED
return nil
Demonstrates:
1. Aligning some buttons to the right.
2. Grouping of buttons
3. Labeling of groups
Re: Sample Program Toolbar2.prg is NOT working in other App
Posted: Tue Jun 18, 2019 8:21 am
by shri_fwh
Dear Sir ,
Thanks a lot for this support.
Thanks
Shridhar