Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

#include "Dbedit.ch"
#include "Inkey.ch"
#include "dcdialog.ch"
#include "xbp.ch"

#pragma library("c:\alaska\exp20\lib\dclipx.lib")

 PROCEDURE main

 LOCAL GetList := {}, GetOptions, oTabPage1, oTabPage2, ;
       oBrowse, cAlias, aDirectory, oDirectory

 USE COLLECT NEW SHARED

 /* ---- Tab Page #1 ---- */

 @ 3,3 DCTABPAGE oTabPage1 CAPTION 'Browse' ;
   SIZE 142,39

 cAlias := "COLLECT"

 @ 2,2 DCBROWSE oBrowse PARENT oTabPage1  ;
       DATA cAlias SIZE 140,35 FREEZELEFT { 1, 2 } FONT "14.Courier"

 DCBROWSECOL FIELD COLLECT->descrip ;
   HEADER "Description" PARENT oBrowse

 DCBROWSECOL FIELD COLLECT->type ;
   HEADER "Type" PARENT oBrowse

 DCBROWSECOL FIELD COLLECT->sub_type ;
   HEADER "SubType" PARENT oBrowse

 DCBROWSECOL FIELD COLLECT->location ;
   HEADER "Location" PARENT oBrowse

 DCBROWSECOL DATA {|a|a:={'Yes','No','Not Sure'},a[COLLECT->for_sale+1]} ;
   HEADER "For Sale?" PARENT oBrowse

 DCBROWSECOL FIELD COLLECT->date_orig ;
   HEADER "Orig Date" PARENT oBrowse

 DCBROWSECOL FIELD COLLECT->date_acqu ;
   HEADER "Acqu Date" PARENT oBrowse

 DCBROWSECOL FIELD COLLECT->orig_price ;
   HEADER "Acqu Price" PARENT oBrowse

 DCBROWSECOL FIELD COLLECT->appr_value ;
   HEADER "Appr Value" PARENT oBrowse

 DCBROWSECOL FIELD COLLECT->condition ;
   HEADER "Condition" PARENT oBrowse

 DCBROWSECOL DATA {||IIF(COLLECT->original,'Yes','No')} ;
   HEADER "Orig Owner?" PARENT oBrowse


 /* ---- Tab Page #2 ---- */

 @  0,0 DCTABPAGE oTabPage2 CAPTION 'Directory' ;
    RELATIVE oTabPage1

 aDirectory := Directory()

 @ 2,2 DCBROWSE oDirectory PARENT oTabPage2 ;
       DATA aDirectory SIZE 55,9

 DCBROWSECOL ELEMENT 1 HEADER "Name" PARENT oDirectory WIDTH 10

 DCBROWSECOL ELEMENT 2 HEADER "Size" PARENT oDirectory WIDTH 8

 DCBROWSECOL ELEMENT 3 HEADER "Date" PARENT oDirectory WIDTH 8

 DCBROWSECOL ELEMENT 4 HEADER "Time" PARENT oDirectory WIDTH 8

 DCREAD GUI ;
   TITLE "My COLLECTION" ;
   FIT ;
   ADDBUTTONS ;
   EVAL {||oBrowse:hide(), oBrowse:show()}

 RETURN
 

Code: Alles auswählen

c:\exp20\Samples\Browse\Zebra.prg
c:\exp20\Samples\Browse\browtype.prg

Code: Alles auswählen

@ 2,2 DCBROWSE oBrowse PARENT oTabPage1  ;
       DATA cAlias SIZE 140,35 FREEZELEFT { 1, 2 } FONT "14.Courier" ZEBRA {|lEven|Jd_BrowseZebraColor(lEven)}

Code: Alles auswählen

Function Jd_BrowseZebraColor(lEven)

LOCAL aRet

if lEven
  aRet := {GRA_CLR_BLACK,GraMakeRGBColor({255,255,170})}
else
  aRet := {GRA_CLR_BLACK,GraMakeRGBColor({159,231,176})}
endif

Return aRet

Code: Alles auswählen

CURSORMODE (XBPBRW_CURSOR_ROW)

Code: Alles auswählen

@ 4,6 DCSAY "Description" get collect->descrip PARENT oTabPage2

Code: Alles auswählen

@ DCBROWSE ... ITEMMARKED (oder ITEMSELECTED, je nachdem, ob durch einen einfachen oder einen Doppelklick die zweite Tabpage aktualisiert werden soll) {||DC_GetRefresh(oTab2)}

Code: Alles auswählen

lEdit := .F.
@ 1,1 DCSAY "Name:" GET cName EDITPROTECT {||!lEdit} GETOBJECT oErstesFeld
..
@ 20,1 DCPUSHBUTTON CAPTION {||IF(lEdit,'Speichern','Bearbeiten')} SIZE 15,1 ACTION {||lEdit := !lEdit,IF(lEdit,SetAppFocus(oErstesFeld),NIL)}

* und auf Tab1 (vermutlich auch noch an anderen Stellen erforderlich):

@ x,y DCTABPAGE ... WHEN {||!lEdit} // dies verhindert, dass im Browse gearbeitet werden kann, während das Bearbeiten aktiv ist.

Code: Alles auswählen

@ 0,0 DCTABPAGE oTab2 GOTFOCUS {||lEdit := .T.}

Code: Alles auswählen

... oTab1 GOTFOCUS {||SaveData(),lEdit := .F.}

Code: Alles auswählen

@ 1,1 DCTABPAGE oSubTab1 ... PARENT oTab2

Code: Alles auswählen

@ x,y DCTABPAGE oTab
DCSETPARENT TO oTab
... weitere Controls
DCSETPARENT TO

Code: Alles auswählen

 @ 4,6 DCSAY "Description" get collect->descrip PARENT oTabPage2 VALID {||DC_GetRefresh(obrowse)} 

Code: Alles auswählen

@ x,y DCSAY ... GET ... LOSTFOCUS {||oBrowse:RefreshCurrent()}

Code: Alles auswählen

@ x,y DCTABPAGE ... GOTFOCUS {||oBrowse:RefreshAll()}