FiveTech Support Forums

@zl, 5 LISTBOX oBrw2 ;
      ITEMS aLeist ;
      UPDATE ;
      SIZE 230, 30 PIXEL FONT oListFont

DEFINE WINDOW OWNDD TITLE "Pièces Détachées"
DEFINE FONT aFONT NAME "Tahoma" SIZE 0,-10

@ 0, 0 LISTBOX oBrw FIELDS ;
       PKDET->PID, ;
       GETPROD(PKDET->REFP), ;
       TRANSFORM(PKDET->QTE,"@Z 999.99")  ;
       HEADERS "Code","Désignation","Quantité" ;
       FIELDSIZES 70,110,40 ;
       FONT AFONT ;
       SIZE GETSYSMETRICS( SM_CXSCREEN ) , GETSYSMETRICS( SM_CYSCREEN ) - 70 OF Owndd

@ GETSYSMETRICS( SM_CYSCREEN ) - 65,10  BTNBMP OBTN1 FILE CurDir() + "\BMP\Nouveau.bmp" SIZE 40, 35 OF oWndd NOBORDER CENTER ;
     ACTION NEWPD(OBRW,@TFAC)
oBtn1:SetColor( CLR_YELLOW , CLR_WHITE)

@ GETSYSMETRICS( SM_CYSCREEN ) - 65,80  BTNBMP OBTN2 FILE CurDir() + "\BMP\Modifier.bmp" SIZE 40, 35 OF oWndd NOBORDER CENTER ;
     ACTION MODIPD(OBRW,@TFAC)
oBtn2:SetColor( CLR_YELLOW , CLR_WHITE)

@ GETSYSMETRICS( SM_CYSCREEN ) - 65,150  BTNBMP OBTN3 FILE CurDir() + "\BMP\SUPPRIMER.bmp" SIZE 40, 35 OF oWndd NOBORDER CENTER ;
     ACTION SUPPD(OBRW,@TFAC)
oBtn3:SetColor( CLR_YELLOW , CLR_WHITE)

OBRW:nClrBackHead := CLR_YELLOW       // header
OBRW:nClrForeHead := CLR_HBLUE        // header

ACTIVATE WINDOW oWNDD MODAL
AFONT:END()