FiveTech Support Forums

    REDEFINE  XBROWSE  oLBvm ;
      DATASOURCE oServiceUnits  ;
      HEADERS sLbl[1], "Client", "Account", sLbl[2], "Year", "Make", "Model", "SubModel", " ";
      COLUMNS "vehlic", "clicom", "acrnum", "vehidn", "vehyer", "vehmak", "vehmod", "vehsmd", " "  ;
      ID 885 OF  oFldCSE:aDialogs[ 2 ];
      ON CHANGE  ( oServiceUnitsr:load(), oFldCSE:aDialogs[ 2 ]:update()) ;
      ON DBLCLICK ( oClients:setorder(1), oClients:seek( oServiceUnitsr:acrnum), oClientsr:load( ),  oFldCSE:aDialogs[1]:update(),oFldCSE:setoption(1) ) ;
      AUTOSORT UPDATE 

    // Use for incremental search on opened database
    oLbvm:bSeek := { |c| oServiceUnits:Seek( Upper( c )) }

    @ 5, 145 SAY oSeek PROMPT oBrw:cSeek SIZE 140, 20 ;  // PICTURE "XXXXXXXXXX"
      PIXEL oF oBarFl1 COLOR  CLR_BLUE, CLR_WHITE ;
      BORDER TRANSPARENT UPDATE

#include "fivewin.ch"

REQUEST DBFCDX

function main()

   local oDlg, oBar, oFont, oBrw

   USE CUSTOMER NEW SHARED ALIAS CUST VIA "DBFCDX"

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14

   DEFINE DIALOG oDlg RESOURCE "timbar" TITLE FWVERSION FONT oFont

   REDEFINE BUTTONBAR oBar ID 100 OF oDlg 2013

   DEFINE BUTTON OF oBar PROMPT "Add"     FILE "c:\fwh\bitmaps\32x32\new.bmp"
   DEFINE BUTTON OF oBar PROMPT "Edit"    FILE "c:\fwh\bitmaps\32x32\edit.bmp"
   DEFINE BUTTON OF oBar PROMPT "Delete"  FILE "c:\fwh\bitmaps\delete.bmp"     GROUP
   DEFINE BUTTON OF oBar PROMPT "Print"   FILE "c:\fwh\bitmaps\print32.bmp" GROUP
   DEFINE BUTTON OF oBar PROMPT "Quit"    FILE "c:\fwh\bitmaps\32x32\exit.bmp" GROUP ACTION oDlg:End()

   REDEFINE XBROWSE oBrw ID 101 OF oDlg DATASOURCE Alias() AUTOCOLS AUTOSORT FOOTERS

   REDEFINE SAY oBrw:oSeek VAR oBrw:cSeek ID 4002 OF oDlg COLOR CLR_HRED,CLR_YELLOW

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont

return nil

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

TIMBAR DIALOG DISCARDABLE 0, 0, 448, 216
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU
EXSTYLE WS_EX_CLIENTEDGE|WS_EX_TRANSPARENT
CAPTION "Test"
FONT 8, "MS Sans Serif"
{
  CONTROL "", 100, "TBar", 0x00000000, 0, 0, 448, 40
  CONTROL "OK", IDOK, "Button", BS_DEFPUSHBUTTON|WS_TABSTOP, 316, 184, 50, 20
  CONTROL "Cancel", IDCANCEL, "Button", WS_TABSTOP, 380, 184, 50, 20
  CONTROL "", 101, "TXBrowse", WS_TABSTOP, 12, 80, 416, 84
  CONTROL "cSeek", 4002, "Static", WS_GROUP, 40, 52, 356, 16, WS_EX_CLIENTEDGE
}