FiveTech Software tech support forums

Code: Select all

#include "FiveWin.ch" 

function Main() 

   local oFnt, oFnt2, oDlg, oFld, oGrp, oGrp1 
    
   DEFINE FONT oFnt NAME "Verdana" SIZE 0, -16 BOLD 

   DEFINE FONT oFnt2 NAME "Arial" SIZE 0, -10 
    
   DEFINE DIALOG oDlg SIZE 400, 300 FONT oFnt TRANSPARENT
   
   @ 0.5, 1 FOLDER oFld OF oDlg SIZE 188, 138 ; 
      PROMPTS "One", "Two", "Three" 
      
   @ 1, 1 GROUP oGrp TO 5, 15 PROMPT "Test" OF oFld:aDialogs[ 1 ] FONT oFnt2 

   @ 5, 1 BUTTON "font" OF oFld:aDialogs[ 1 ] ACTION oGrp:SelFont() 
      
   ACTIVATE DIALOG oDlg CENTERED ON INIT (oDlg:SetColor(,9425383),oFld:SetColor(,9425383))

return nil 

Code: Select all

DEFINE DIALOG oDlg RESOURCE "MainDlg" TITLE  "Dialog" FONT ProgFont

REDEFINE FOLDER oFld ID 110 OF oDlg ; 
PROMPTS "  &Page 1 ", "  &Page 2 "  ;
DIALOGS "Page1","Page2" FONT oProgFont 

FOLDER_1(oDlg,oFld)
FOLDER_2(oDlg,oFld)

ACTIVATE DIALOG oDlg CENTERED ;
ON PAINT ( Gradpaint0( hDC, oDlg ), SetDialogsGradient( oFld ) ) ;
ON INIT ( oDlg:Move( 30 , 10, oDlg:nWidth, oDlg:nHeight, .f. ) 

RETURN ( NIL )

// --------- Gradient in FOLDER -------------------

FUNCTION SetDialogsGradient( oFld ) 
LOCAL n, oDlg 
    
for n = 1 to Len( oFld:aDialogs ) 
      oDlg = oFld:aDialogs[ n ]                                      
      oDlg:bPainted = { | hDC | GradientFill( hDC, 0, 0, oDlg:nHeight, oDlg:nWidth, { { 0.50, 12609872, 16045947 } } ) } 
next    

RETURN NIL    

// -------- Gradient in DIALOG ---------------------------------

static func Gradpaint0( hDC, oDlg )
local aGrad1

aGrad1 := { { 0.50, 16054371, 8388608 },{ 0.50, 8388608, 16054371 } }
GradientFill( hDC, 0, 0, oDlg:nHeight, oDlg:nWidth, aGrad1, .T. )

RETURN NIL