FiveTech Software tech support forums

Code: Select all | Expand

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   local oDlg, oFont, oBrw

   USE CUSTOMER NEW VIA "DBFCDX"

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 900,400 PIXEL FONT oFont TRUEPIXEL ;
      TITLE "FWH 16.12 : SEEK IN HEADER BAR"

   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "CUSTOMER" AUTOCOLS ;
      CELL LINES NOBORDER FOOTERS AUTOSORT

   WITH OBJECT oBrw
      :lSeekBar    := .t.
      :bClrEdits  := { || { CLR_HRED, CLR_YELLOW } }
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil
 

Code: Select all | Expand

    REDEFINE  XBROWSE  oLBxcl ;
      DATASOURCE oClients  ;
      HEADERS "Account", "Client", "City", "Phone", "Cellular",  "Email", "Last Visti", "Total Sales", " " ;
      COLUMNS "acrnum", "clicom", "clicty", "clipho", "clicel", "clieml", "clidls", "acrytd", " "  ;
      ID 860 ;
      OF  oFldCSE:aDialogs[ 1 ];
      ON CHANGE  ( oClientsr:load(), oFldCSE:aDialogs[ 1 ]:update() )  ;
      ON DBLCLICK (  lCliScoped := oServiceUnits:ScopeUnits( oClientsr, lCliScoped ), oLbvm:refresh( ),;
            oServiceUnitsr:load( ), oFldCSE:aDialogs[2]:update( ),oFldCSE:setoption(2)   ) ;
      AUTOSORT UPDATE 

    // Provide the header gradient and styles
    oLbxcl:bClrGrad := aPubGrad 
    oLbxcl:nMarqueeStyle := MARQSTYLE_HIGHLROW
    oLbxcl:nColDividerStyle := LINESTYLE_RAISED
    oLbxcl:nRowDividerStyle := LINESTYLE_RAISED
    oLbxcl:nHeadStrAligns  := AL_CENTER
    oLbxcl:nStretchCol := STRETCHCOL_LAST

    // Use for incremental search on opened database
    oLbxcl:bSeek := { |c| oClients:Seek( Upper( c )) }
  // oLbxcl:lSeekBar := .t.

 

Code: Select all | Expand

#include "FiveWin.ch"
#include "Folder.ch"

REQUEST DBFCDX

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oFld, oCbx, oSay, oBrw, oDbf
   local nValue := 2, oChk, lChk := .t.
   local cItem, oImageList

   SET _3DLOOK ON

   USE CUSTOMER NEW SHARED ALIAS CUST VIA "DBFCDX"
   SET ORDER TO TAG FIRST
   GO TOP
   DATABASE oDbf


   DEFINE DIALOG oDlg RESOURCE "Test" TITLE FWVERSION + " : " + hb_compiler()

   REDEFINE FOLDER oFld ID 110 OF oDlg ;
      PROMPT "XBrowse", "Dummy" ;
      DIALOGS "Sub1"

   REDEFINE XBROWSE oBrw OF oFld:aDialogs[ 1 ] ID 801 ;
      DATASOURCE oDbf ;
      COLUMNS "First", "Last", "City" ;
      AUTOSORT CELL LINES

   WITH OBJECT oBrw
      :lSeekBar      := .t.
      :bClrEdits     := { || { CLR_HRED, CLR_YELLOW } }
   END


   ACTIVATE DIALOG oDlg CENTERED

return nil
 

Code: Select all | Expand

#include <windows.h>

timbar DIALOG 0, 0, 400, 200
STYLE DS_MODALFRAME | WS_BORDER | WS_DLGFRAME | WS_POPUP | WS_SYSMENU
FONT 8, "MS Sans Serif"
CAPTION "Test"
BEGIN
   CONTROL "", 100, "TBar", 0 | WS_CHILD | WS_VISIBLE,   0, 0, 400, 40
   DEFPUSHBUTTON   "OK", IDOK, 40, 168, 50, 14, WS_VISIBLE
   PUSHBUTTON      "Cancel", IDCANCEL, 101, 168, 50, 14, WS_VISIBLE
   CONTROL "", 102, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 160, 160, 60, 30
   CONTROL "", 101, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 10, 50, 360, 100
END
 

Code: Select all | Expand

FROM THE RC 

// This is the main dialog:
CLISVCw DIALOG 0, 0, 850, 460
STYLE WS_POPUP | WS_CAPTION
CAPTION "Client and Vehicle Services"
{
  CONTROL         "",1600,"TFolderex",WS_TABSTOP,10,5,830,450
}

//  This is the dialog for a folder:
EDITCLIw DIALOG 0,0, 845, 440
STYLE WS_CHILD | WS_VISIBLE
{
    CONTROL                 "", 101, "TBar", 0|WS_CHILD|WS_VISIBLE, 0,0, 840, 40
    CONTROL         "",860,"TxBrowse",WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP,10,185,805,245
......  all other controls follow

}

 

Code: Select all | Expand

// Here is the dialog creation:
DEFINE DIALOG oDlgCSE RESOURCE "CLISVCw" BRUSH oBrush TRANSPARENT OF oWnd 

// Define the folder
        REDEFINE FOLDEREX oFldCSE ID 1600 OF oDlgCSE ;
        PROMPT "    &Client    ", "    "+aTit[1] + "    " ;
        DIALOGS "EDITCLIw", "EDITVEHw" ;
        ROUND 5 TRANSPARENT                             
    oFldCSE:aGradUnSel := { { 0.50,16776960,16777215 }, { 0.50,16777215,16776960 } }
    oFldCSE:aGradOverUnSel := { { 0.25, nRGB( 100, 149, 237 ), nRGB( 100, 149, 237 ) },{ 0.75,  16777215,16776960 } }           


// Define the control
    REDEFINE  XBROWSE  oLBxcl ;
      DATASOURCE oClients  ;
      HEADERS "Account", "Client", "City", "Phone", "Cellular",  "Email", "Last Visti", "Total Sales", " " ;
      COLUMNS "acrnum", "clicom", "clicty", "clipho", "clicel", "clieml", "clidls", "acrytd", " "  ;
      ID 860 ;
      OF  oFldCSE:aDialogs[ 1 ];
      ON CHANGE  ( oClientsr:load(), oFldCSE:aDialogs[ 1 ]:update() )  ;
      ON DBLCLICK (  lCliScoped := oServiceUnits:ScopeUnits( oClientsr, lCliScoped ), oLbvm:refresh( ),;
            oServiceUnitsr:load( ), oFldCSE:aDialogs[2]:update( ),oFldCSE:setoption(2)   ) ;
      AUTOSORT UPDATE 

    // Provide the header gradient and styles
    oLbxcl:bClrGrad := aPubGrad 
    oLbxcl:nMarqueeStyle := MARQSTYLE_HIGHLROW
    oLbxcl:nColDividerStyle := LINESTYLE_RAISED
    oLbxcl:nRowDividerStyle := LINESTYLE_RAISED
    oLbxcl:nHeadStrAligns  := AL_CENTER
    oLbxcl:nStretchCol := STRETCHCOL_LAST

    // Use for incremental search on opened database
    oLbxcl:bSeek := { |c| oClients:Seek( Upper( c )) }
  // oLbxcl:lSeekBar := .t.

// Activate the dialog
  ACTIVATE DIALOG oDlgCSE ON INIT ( oReBar:hide(),  oBarCL:lTransparent := .F.,  oBarVE:lTransparent := .F.) ;
    ON PAINT    oFldCSE:setoption(nType)  CENTERED





 

Code: Select all | Expand

REQUEST DBFCDX

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oBar, oClients

   USE CUSTOMER NEW SHARED VIA "DBFCDX"
   SET ORDER TO TAG FIRST
   GO TOP
   DATABASE oClients

   DEFINE WINDOW oWnd TITLE FWVERSION + " : " + hb_compiler()
   DEFINE BUTTONBAR oBar SIZE 100,32 2007
   DEFINE BUTTON OF oBar PROMPT "Dialog" CENTER ;
      ACTION ShowDialog( oClients )

   ACTIVATE WINDOW oWnd MAXIMIZED

return nil

//----------------------------------------------------------------------------//

function ShowDialog( oClients )

   local oDlgCSE, oFldCSE, oLBxcl, oBarCL, oBrush
   local oWnd := WndMain()
   local aTit := { "aTit[1]" }

// Here is the dialog creation:
   DEFINE BRUSH oBrush FILE "..\bitmaps\backgrnd\marble5.bmp"
   DEFINE DIALOG oDlgCSE RESOURCE "CLISVCw" BRUSH oBrush TRANSPARENT OF oWnd ;
      TITLE FWVERSION + " : " + hb_compiler()

// Define the folder
   REDEFINE FOLDEREX oFldCSE ID 1600 OF oDlgCSE ;
   PROMPT "    &Client    ", "    "+aTit[1] + "    " ;
   DIALOGS "EDITCLIw" ; //, "EDITVEHw" ;
   ROUND 5 TRANSPARENT

   oFldCSE:aGradUnSel := { { 0.50,16776960,16777215 }, { 0.50,16777215,16776960 } }
   oFldCSE:aGradOverUnSel := { { 0.25, nRGB( 100, 149, 237 ), nRGB( 100, 149, 237 ) },{ 0.75,  16777215,16776960 } }

   REDEFINE BUTTONBAR oBarCL ID 101 OF oFldCSE:aDialogs[ 1 ] 2007
   DEFINE BUTTON OF oBarCL FILE "..\bitmaps\32x32\quit.bmp" PROMPT "Close" ACTION oDlgCSE:End()

// Define the control
   REDEFINE  XBROWSE  oLBxcl ;
      DATASOURCE oClients  ;
      AUTOCOLS ;
      ; //HEADERS "Account", "Client", "City", "Phone", "Cellular",  "Email", "Last Visti", "Total Sales", " " ;
      ; //COLUMNS "acrnum", "clicom", "clicty", "clipho", "clicel", "clieml", "clidls", "acrytd", " "  ;
      ID 860 ;
      OF  oFldCSE:aDialogs[ 1 ];
      ; //ON CHANGE  ( oClientsr:load(), oFldCSE:aDialogs[ 1 ]:update() )  ;
      ; //ON DBLCLICK (  lCliScoped := oServiceUnits:ScopeUnits( oClientsr, lCliScoped ), oLbvm:refresh( ),oServiceUnitsr:load( ), oFldCSE:aDialogs[2]:update( ),oFldCSE:setoption(2)   ) ;
      AUTOSORT UPDATE

    // Provide the header gradient and styles
//   oLbxcl:bClrGrad := aPubGrad
   oLbxcl:nMarqueeStyle := MARQSTYLE_HIGHLROW
   oLbxcl:nColDividerStyle := LINESTYLE_RAISED
   oLbxcl:nRowDividerStyle := LINESTYLE_RAISED
   oLbxcl:nHeadStrAligns  := AL_CENTER
   oLbxcl:nStretchCol := STRETCHCOL_LAST

    // Use for incremental search on opened database
   oLbxcl:bSeek := { |c| oClients:Seek( Upper( c )) }
   oLbxcl:lSeekBar := .t.
   oLbxcl:bClrEdits := { || { CLR_HRED, CLR_YELLOW } }

// Activate the dialog
   ACTIVATE DIALOG oDlgCSE ;
      ; //ON INIT ( oReBar:hide(),  oBarCL:lTransparent := .F.,  oBarVE:lTransparent := .F.) ;
      ; //ON PAINT    oFldCSE:setoption(nType)
      CENTERED


return nil
 

Code: Select all | Expand

#include <windows.h>

CLISVCw DIALOG 0, 0, 850, 460
STYLE WS_POPUP | WS_CAPTION
CAPTION "Client and Vehicle Services"
{
  CONTROL         "",1600,"TFolderex",WS_TABSTOP,10,5,830,450
}

EDITCLIw DIALOG 0,0, 845, 440
STYLE WS_CHILD | WS_VISIBLE
{
    CONTROL                 "", 101, "TBar", 0|WS_CHILD|WS_VISIBLE, 0,0, 840, 40
    CONTROL         "",860,"TxBrowse",WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP,10,185,805,245
}