Express++ Sample as Newbie

If you are converting a text-based Clipper application, a FoxPro application or just writing an application from scratch, use this forum for your eXpress++ questions.
Message
Author
User avatar
rdonnay
Site Admin
Posts: 4722
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:

Re: Express++ Sample as Newbie

#11 Post by 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.
The eXpress train is coming - and it has more cars.

User avatar
rdonnay
Site Admin
Posts: 4722
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:

Re: Express++ Sample as Newbie

#12 Post by 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
The eXpress train is coming - and it has more cars.

User avatar
rdonnay
Site Admin
Posts: 4722
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:

Re: Express++ Sample as Newbie

#13 Post by rdonnay »

d:\exp20\Samples\VisualStyle\Style.prg -> Xbase++ v2.x #Pragma Library("xppwui.lib")
Sample requires Xbase++ 2.0.
The eXpress train is coming - and it has more cars.

User avatar
rdonnay
Site Admin
Posts: 4722
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:

Re: Express++ Sample as Newbie

#14 Post by 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
The eXpress train is coming - and it has more cars.

User avatar
rdonnay
Site Admin
Posts: 4722
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:

Re: Express++ Sample as Newbie

#15 Post by 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.
Attachments
TouchScr.zip
(355.55 KiB) Downloaded 961 times
The eXpress train is coming - and it has more cars.

User avatar
Auge_Ohr
Posts: 1405
Joined: Wed Feb 24, 2010 3:44 pm

Re: Express++ Sample as Newbie

#16 Post by Auge_Ohr »

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

Post Reply