FiveTech Support Forums

#include "FiveWin.ch"

//======================================================================================================
Function  Main

Local n1 := 0
Local oGet := array(5)
LOcal oSay := array(4) 
LOcal dDalla := date()
LOcal DAlla := date()
Local lInsoluti := .f. 
Local lRitenuta := .f. 
Local oDlg 


 DEFINE DIALOG oDlg RESOURCE "COMBOS"  TRANSPARENT  // BRUSH oBrush TRANSPARENT 
  REDEFINE get oGet[1] VAR   n1  ID  51 of oDlg 
   oGet[1]:lBtnTransparent := .t.    
     

    REDEFINE SAY oSay[1]       VAR  "1..."      ID 105 of oDlg  COLOR 'R+/W'
    REDEFINE SAY oSay[2]       VAR  "2..."         ID 106 of oDlg  COLOR 'R+/W'
    REDEFINE SAY oSay[3]       VAR  "3..."       ID 107 of oDlg  COLOR 'R+/W'
    REDEFINE SAY oSay[4]       VAR  "3..."       ID 108 of oDlg  COLOR 'R+/W' 


    REDEFINE get oGet[2]       Var  dDalla  ID  52 of oDlg
    REDEFINE get oGet[3]       Var  dAlla   ID  53 of oDlg 
                                             

    REDEFINE CHECKBOX oGet[4] VAR  lInsoluti  ID  54 OF oDlg  
                         
    REDEFINE CHECKBOX oGet[5] VAR  lRitenuta  ID  55 OF oDlg 
   ACTIVATE DIALOG oDlg CENTERED  ON INIT ( GRADIENTBRUSH( oDlg, ACLRGRAD() ),;
                                              oGet[5]:Disable())  


Return nil




Static FUNCTION GRADIENTBRUSH( oDlg, aColors )

    LOCAL hDC, hBmp, hBmpOld, oBrush

    hDC = CREATECOMPATIBLEDC( oDlg:GetDC() )

    hBmp = CREATECOMPATIBLEBITMAP( oDlg:hDC, oDlg:nWidth, oDlg:nHeight )

    hBmpOld = SELECTOBJECT( hDC, hBmp )

    GRADIENTFILL( hDC, 0, 0, oDlg:nHeight, oDlg:nWidth, aColors )

    oBrush = TBrush():New( ,,,, hBmp )
    
//     DEFINE BRUSH oBrush COLOR rgb(246,245,242)

    oDlg:SetBrush( oBrush )

    AEVAL( oDlg:aControls, { | oCtl | If( oCtl:lTransparent, oCtl:SetBrush( oDlg:oBrush ), ) } )

    RELEASE BRUSH oBrush

    SELECTOBJECT( hDC, hBmpOld )

    DELETEDC( hDC )

    oDlg:ReleaseDC()

    RETURN NIL
    
    STATIC FUNCTION ACLRGRAD()
RETURN { { 1, RGB( 239, 239, 239 ), RGB( 216, 230, 238 ) } }

// RESOURCE SCRIPT generated by "Pelles C for Windows, version 6.50".

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

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

COMBOS DIALOG DISCARDABLE 22, 74, 394, 119
STYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU
CAPTION "Testing all ComboBoxes styles"
FONT 8, "Arial"
{
  CONTROL "", 51, "Edit", WS_BORDER|WS_TABSTOP, 5, 24, 191, 14
  CONTROL "", 52, "Edit", ES_RIGHT|ES_READONLY|WS_BORDER|WS_DISABLED|WS_TABSTOP, 268, 54, 53, 12
  CONTROL "", 53, "Edit", ES_RIGHT|ES_READONLY|WS_BORDER|WS_DISABLED|WS_TABSTOP, 327, 54, 53, 12
  CONTROL "Insoluti ", 54, "Button", BS_AUTOCHECKBOX|WS_GROUP|WS_TABSTOP, 269, 17, 54, 10
  CONTROL "Ritenute", 55, "Button", BS_AUTOCHECKBOX|WS_GROUP|WS_TABSTOP, 269, 31, 46, 10
  CONTROL "Rag.Sociale :", -1, "Static", WS_GROUP, 6, 14, 51, 10
  CONTROL "Dal :", 4001, "Static", WS_GROUP, 268, 43, 21, 10
  CONTROL "Al :", 4002, "Static", WS_GROUP, 327, 43, 13, 10
  CONTROL "", 106, "Static", WS_BORDER|WS_GROUP, 5, 40, 191, 12
  CONTROL "n. Conto", 4003, "Static", WS_GROUP, 201, 14, 39, 10
  CONTROL "", 105, "Static", WS_BORDER|WS_GROUP, 201, 24, 52, 14
  CONTROL "", 107, "Static", WS_BORDER|WS_GROUP, 5, 54, 191, 12
  CONTROL "Saldo ", 4004, "Static", WS_GROUP, 201, 43, 39, 10
  CONTROL "", 108, "Static", WS_BORDER|WS_GROUP, 201, 53, 52, 12
  CONTROL "", 4005, "Button", BS_GROUPBOX, 0, 6, 258, 64
  CONTROL "", 4006, "Button", BS_GROUPBOX, 261, 6, 125, 64
}


 1 24 ".\WinXP\WindowsXP.Manifest"

if ! Empty( ::oBrush:hBitmap ) .or. ! Empty( ::oBrush:aGrad )
   ParentImage( ::hWnd, hDC )

if ! Empty( ::oBrush:hBitmap )
   SetBrushOrgEx( hDC, nBmpWidth( ::oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oBrush:hBitmap ) - ::nTop )
   FillRect( hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )