DEFINE DIALOG oDlgOrdem RESOURCE "CFGORDEM" icon Load_Obj(1) Font Load_Obj(2) transparent
REDEFINE RADIO onOpc VAR nOpc ID 101,102,103 OF oDlgOrdem ;
ON CHANGE Habilita()
REDEFINE CHECKBOX owEtapacor VAR wEtapacor ID 104 OF oDlgOrdem when nopc==1
REDEFINE CHECKBOX owCombicor VAR wCombicor ID 105 OF oDlgOrdem when nopc==1
REDEFINE CHECKBOX owObsercor VAR wObsercor ID 106 OF oDlgOrdem when nopc==1
REDEFINE CHECKBOX owengencor VAR wengencor ID 107 OF oDlgOrdem when nopc==1
REDEFINE RADIO owMaterrea VAR wMatercor ID 108,109,110 OF oDlgOrdem when nopc==1
REDEFINE CHECKBOX owEtapaRea VAR wEtapaRea ID 111 OF oDlgOrdem when nopc==2
REDEFINE CHECKBOX owCombiRea VAR wCombiRea ID 112 OF oDlgOrdem when nopc==2
REDEFINE CHECKBOX owObserRea VAR wObserRea ID 113 OF oDlgOrdem when nopc==2
REDEFINE CHECKBOX owengenRea VAR wengenRea ID 114 OF oDlgOrdem when nopc==2
REDEFINE RADIO owMaterRea Var wMaterrea ID 115,116,117 OF oDlgOrdem when nopc==2
REDEFINE CHECKBOX owEtapaSer VAR wEtapaSer ID 118 OF oDlgOrdem when nopc==3
REDEFINE CHECKBOX owCombiSer VAR wCombiSer ID 119 OF oDlgOrdem when nopc==3
REDEFINE CHECKBOX owObserSer VAR wObserSer ID 120 OF oDlgOrdem when nopc==3
REDEFINE CHECKBOX owengenSer VAR wengenSer ID 121 OF oDlgOrdem when nopc==3
REDEFINE RADIO owMaterSer Var wMaterSer ID 122,123,124 OF oDlgOrdem when nopc==3
REDEFINE BUTTON Obtok ID 125 ACTION( Grava(),oDlgOrdem:End() )
REDEFINE BUTTON obtcan ID 126 ACTION (oDlgOrdem:End ( )) CANCEL
ACTIVATE DIALOG oDlgOrdem CENTER on init sysrefresh()
Eu uso tambem esta funĆ§Ć£o para fazer o degrade no onpaint()
*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
FUNCTION Textura(oDlgTxt)
*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
LOCAL hWnd:=oDlgTxt:hWnd
LOCAL aRec:=GetClientRect(hWnd)
LOCAL oBrush,nX,nStp:=(aRec[3]-aRec[1])/2
LOCAL nColor1:=rgb(245,245,245),nColor2:=rgb(215,215,215)
LOCAL nColorR1:=nRgbRed(nColor1),nColorG1:=nRgbGreen(nColor1),nColorB1:=nRgbBlue(nColor1)
LOCAL nColorR2:=nRgbRed(nColor2),nColorG2:=nRgbGreen(nColor2),nColorB2:=nRgbBlue(nColor2)
LOCAL nSomaR:=ABS(nColorR2-nColorR1),nSomaG:=ABS(nColorG2-nColorG1),nSomaB:=ABS(nColorB2-nColorB1)
nSomaR:=IIF(nSomaR<0,0,(nSomaR/((aRec[3])/2)))
nSomaG:=IIF(nSomaG<0,0,(nSomaG/((aRec[3])/2)))
nSomaB:=IIF(nSomaB<0,0,(nSomaB/((aRec[3])/2)))
oDlgTxt:GetDC()
aRec[3]:=0
FOR nX:=1 TO nStp
aRec[3]+=2
DEFINE BRUSH oBrush COLOR nRgb(nColorR1,nColorG1,nColorB1)
FillRect(oDlgTxt:hDC,aRec,oBrush:hBrush)
RELEASE BRUSH oBrush
aRec[1]+=2
nColorR1:=IIF(nColorR2>=nColorR1,nColorR1+nSomaR,nColorR1-nSomaR)
nColorG1:=IIF(nColorG2>=nColorG1,nColorG1+nSomaG,nColorG1-nSomaG)
nColorB1:=IIF(nColorB2>=nColorB1,nColorB1+nSomaB,nColorB1-nSomaB)
NEXT
oDlgTxt:ReleaseDC()
RETURN(NIL)
