Re: Express++ Sample as Newbie
Posted: Sat Apr 23, 2016 5:22 pm
Fixed. This was a test program for me. It should have been removed from the samples.d:\exp20\Samples\Touchscr\test.prg -> Line 23 /24 ";"
Donnay Software Web Forums
http://bb.donnay-software.com/Donnay/
http://bb.donnay-software.com/Donnay/viewtopic.php?f=17&t=1852
Fixed. This was a test program for me. It should have been removed from the samples.d:\exp20\Samples\Touchscr\test.prg -> Line 23 /24 ";"
This class was moved from dclip1.dll to dclip2.dll. I forgot to update the project file.d:\exp20\Samples\Xbrowse\Xbrowse.prg -> unresolved external symbol DC_XBROWSE
Code: Select all
[PROJECT]
COMPILE = xpp
COMPILE_FLAGS = /q /w /rDCLIPX.LIB /rDCLIP1.LIB
DEBUG = yes
GUI = yes
LINKER = alink
LINK_FLAGS =
RC_COMPILE = arc
RC_FLAGS = /v
XBROWSE.XPJ
[XBROWSE.XPJ]
XBROWSE.EXE
[XBROWSE.EXE]
XBROWSE.PRG
..\..\LIB\EXPRESS.RES
dclip2.lib <<<<<<<<<<<<<<<<<<<<< ADD THIS
Sample requires Xbase++ 2.0.d:\exp20\Samples\VisualStyle\Style.prg -> Xbase++ v2.x #Pragma Library("xppwui.lib")
That was a very old sample which was written before I added the SCROLLBARHEIGHT clause to @..DCBROWSE.d:\exp20\Samples\Touchscr\SCROLLBAR.EXE -> hm ... does scroll Browse but nothing happend to Scrollbars
Code: Select all
#INCLUDE "dcdialog.CH"
PROC appsys
RETURN
* ------------
FUNCTION Main()
LOCAL GetList[0], GetOptions, oBrowse, aDir, aBrowPres
aBrowPres := ;
{ ;
{ XBP_PP_COL_DA_ROWHEIGHT, 30 }, /* Row Height */ ;
{ XBP_PP_COL_HA_HEIGHT, 20 }, /* Header Height */ ;
{ XBP_PP_COL_FA_HEIGHT, 10 } /* Footer Height */ ;
}
aDir := Directory()
@ 0,0 DCBROWSE oBrowse DATA aDir SIZE 80,20 ;
PRESENTATION aBrowPres ;
RESIZE DCGUI_RESIZE_RESIZEONLY ;
SCROLLBARHEIGHT 30 ;
FONT '20.Arial'
FOR i := 1 TO 10
DCBROWSECOL ELEMENT i HEADER Alltrim(Str(i)) WIDTH 5 PARENT oBrowse
NEXT
DCGETOPTIONS RESIZE
DCREAD GUI FIT OPTIONS GetOptions TITLE 'Scrollbars'
RETURN nil