Express++ Sample as Newbie

[rdonnay]

d:\exp20\Samples\Touchscr\test.prg -> Line 23 /24 ";"

Fixed. This was a test program for me. It should have been removed from the samples.

[rdonnay]

d:\exp20\Samples\Xbrowse\Xbrowse.prg -> unresolved external symbol DC_XBROWSE

This class was moved from dclip1.dll to dclip2.dll. I forgot to update the project file.

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

[rdonnay]

d:\exp20\Samples\VisualStyle\Style.prg -> Xbase++ v2.x #Pragma Library("xppwui.lib")

Sample requires Xbase++ 2.0.

[rdonnay]

d:\exp20\Samples\Touchscr\SCROLLBAR.EXE -> hm ... does scroll Browse but nothing happend to Scrollbars

That was a very old sample which was written before I added the SCROLLBARHEIGHT clause to @..DCBROWSE.
Replace SCROLLBAR.PRG with the below code:

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

[rdonnay]

Many of the \exp20\samples\touchscr\ samples are obsolete.

Delete all the files in that folder and replace them with the files in the attached zip.

[Auge_Ohr]

THX for your Answer. i will make more Test next Week after User Meeting ( have to prepare my Session )