Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

FUNCTION MAIN()
LOCAL GetList := {}, GetOptions := {}, oBrowse1, oBrowse2, oDialog, a := Directory(), lShowBrowse1 := .T., lShowBrowse2 := .F.
DCGETOPTIONS NOMINBUTTON HIDE

@ 1,1 DCBROWSE oBROWSE1 DATA a SIZE 100,20 HIDE {||!lShowBrowse1}
DCBROWSECOL ELEMENT 1 HEADER "Test1" WIDTH 20 PARENT oBrowse1

@ 1,1 DCBROWSE oBROWSE2 DATA a SIZE 100,20 HIDE {||!lShowBrowse2}
DCBROWSECOL ELEMENT 2 HEADER "Test2" WIDTH 20 PARENT oBrowse2

@ 22,1 DCPUSHBUTTON CAPTION 'Toggle' SIZE 10,1 ACTION {||lShowBrowse1:=!lShowBrowse1,lShowBrowse2:=!lShowBrowse2,DC_GetRefresh(GetList)}

DCREAD GUI FIT ADDBUTTONS OPTIONS GetOptions PARENT @oDialog EVAL {||oDialog:Show()}

RETURN NIL

Code: Alles auswählen

********************************************************************************
         DCGETOPTIONS;
           AUTORESIZE;
               BORDER XBPDLG_SIZEBORDER;
                 BUSY "Daten werden geladen";
                COLOR oSysPara:doParaWS:dialog_hg;
            COLORGETS {oSysPara:doParaWS:colorgets_aktiv,oSysPara:doParaWS:colorgets_inaktiv};
              GETFONT oVtpara:us_font_menue;
              HIDE;
           HILITEGETS oSysPara:doParaWS:hilitegets;
          NOESCAPEKEY;
          NOMAXBUTTON;
          NOMINBUTTON;
                PIXEL;
         PRESENTATION oVtPara:aPresGet;
              SAYFONT oVtpara:us_font_menue;
           SAYOPTIONS XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_LEFT;
           SCROLLBARS XBP_SCROLLBAR_VERT+XBP_SCROLLBAR_HORIZ;
         TOOLTIPCOLOR oSysPara:doParaWS:tooltipcolor_vg,oSysPara:doParaWS:tooltipcolor_hg;
          TOOLTIPFONT oSysPara:doParaWS:tooltipfont;
          WINDOWWIDTH oDialogZusatz:nFensterBreite;
         WINDOWHEIGHT oDialogZusatz:nFensterHoehe

         DCREAD GUI;
               EVAL {|| oDialog:setFrameState(XBPDLG_FRAMESTAT_MAXIMIZED),;
                        oDialogZusatz:setzePbButton(x_wechsel,oDialog,x_filter,@getlist),;
                        passeBreiteAn(oDialogZusatz),;                          /* oDialogZusatz:MausImKopf(2,"dat_buc",,.T.),; */
                        oDialogZUsatz:aktualisiereBrowse(oDialogZUsatz:oJo),;
                        SetAppFocus(oDialogZusatz:oBrowse);
                    };
              MODAL;
            OPTIONS GetOptions;
             PARENT @oDialog;
              TITLE sag_kopf( oVtPara:N_JOURNAL + x_filter , "JTNR" )