FiveTech Support Forums

   DEFINE DIALOG oDlgDet RESOURCE "DLG_CABGuia" TITLE "Nota de Pedido" FONT oFontS

   REDEFINE GROUP oGrupo ID 4001 OF oDlgDet TRANSPARENT

   REDEFINE GET oGet VAR oDbf:Fecha ID 100 OF oDlgDet

   REDEFINE GET oGet VAR nNumero ID 104 OF oDlgDet UPDATE
   oGet:Disable()

   REDEFINE GET oGet VAR oDbf:Ruc ID 109 OF oDlgDet UPDATE;
           VALID valCodCli(oDlgDet, oDbf) COLOR CLR_BLACK,CLR_HCYAN
   REDEFINE BUTTON oBtn ID 300 OF oDlgDet                 ;
           ACTION ( aDatos := BrwProveedores("C", 2, .F.) ;
                   ,oDbf:Ruc   := IIF(aDatos[1]==nil, space(11), Left(aDatos[1],11));
                   ,oDbf:CodUbi:= Right(aDatos[1],3)      ;
                   ,cNomCli:= aDatos[2]                   ;
                   ,cDirecc:= aDatos[3]                   ;
                   ,iif(mcodi->de="*",colorear(oGrupo, oDlgDet), descolorear(oGrupo,nC1,nC2) ) ;  //condicion para llamar a la funcion colorear
                   ,oDlgDet:UPDATE()                      ;
                   ,oGet4:SetFocus()  )

   REDEFINE SAY oSay PROMPT cNomCli ID 110 OF oDlgDet UPDATE TRANSPARENT

   REDEFINE SAY oSay PROMPT cDirecc ID 102 OF oDlgDet UPDATE

   REDEFINE GET oGet4 VAR oDbf:CodVen ID 122 OF oDlgDet UPDATE ;
           VALID valCodVen(oDlgDet, oDbf)
   REDEFINE BUTTON oBtn ID 303 OF oDlgDet                     ;
           ACTION ( aDatos := BrwPersona("V", 2, .F.)     ;
                   ,oDbf:CodVen:= IIF(aDatos[1]==nil, space(3), aDatos[1]);
                   ,cVende := aDatos[2]                   ;
                   ,oDlgDet:UPDATE()                      ;
                   ,oGet5:SetFocus()  )

   REDEFINE SAY oSay PROMPT cVende ID 118 OF oDlgDet UPDATE
   oGet:Disable()

   REDEFINE GET oGet5 VAR cMnda ID 111 PICTURE '!' OF oDlgDet UPDATE ;
   VALID (cMnda=='S' .OR. cMnda=='D')
   IIF( lModo, oGet5:Enable(), oGet5:Disable() )

   REDEFINE GET oGet2 VAR nCambio ID 101 OF oDlgDet UPDATE PICTURE '9.999' ;
   valid Valcambio(cmnda, ncambio, lmodo)

   ACTIVATE DIALOG oDlgDet CENTERED

Static function colorear(oGroup, oDlg)
   bBLQ:={||aColor:={oGroup:nClrPane,oGroup:nClrText},;
            aSize :={oGroup:nWidth  ,oGroup:nHeight },;
            oGroup:nWidth:=0,oGroup:nHeight:=0,;
            oGroup:Refresh(),;
            oGroup:SETCOLOR(CLR_RED, CLR_YELLOW),;
            oGroup:SETSIZE(aSIZE[1],aSIZE[2]),;
            oGroup:Refresh()}
            oDlg:Update()

   EVAL(bBLQ)

Return nil

// Testing Groups - \SAMPLES\TESTGRP.PRG AND TESTGRP.RC - Modified.

#include "FiveWin.ch"
#include "WColors.ch"

FUNCTION Main()

   LOCAL oDlg, oBrush, oFont, cText := "Hello", oGroup

   DEFINE BRUSH oBrush FILE "..\bitmaps\bricks.bmp"

   DEFINE FONT oFont NAME 'MS Sans Serif' SIZE 0, -10 BOLD

   DEFINE DIALOG oDlg NAME "Test" BRUSH oBrush

   oDlg:lHelpIcon := .F.

   REDEFINE GET cText ID 102 OF oDlg

   REDEFINE GROUP oGroup ID 101 COLOR GetSysColor( COLOR_HIGHLIGHT ) OF oDlg ;
            FONT oFont PROMPT "Modified Group Caption"

   REDEFINE BUTTON ID 103 OF oDlg ACTION( oDlg:End() ) CANCEL

   ACTIVATE DIALOG oDlg ON INIT( COLOREAR( oGroup, oDlg ) )

   RELEASE BRUSH oBrush
   RELEASE FONT oFont

RETURN NIL

FUNCTION COLOREAR(oGroup, oDlg)

   LOCAL bBLQ, aColor, aSize

   bBLQ := { || aColor:={oGroup:nClrPane,oGroup:nClrText}, ;
                aSize :={oGroup:nWidth  ,oGroup:nHeight }, ;
                oGroup:nWidth:=0,oGroup:nHeight:=0,        ;
                oGroup:Refresh(),                          ;
                oGroup:SETCOLOR( CLR_HRED, CLR_HBLUE ),    ;
                oGroup:SETSIZE(aSIZE[1],aSIZE[2]),         ;
                oGroup:Refresh() }

                oDlg:Refresh()

   EVAL(bBLQ)

RETURN NIL