FiveTech Software tech support forums

Code: Select all  Expand view

...
...
ACTIVATE DIALOG oDlg1 CENTER ;
ON INIT F_BACKGRD( oFld1, .T. )

RETURN NIL

// --------  FOLDER - Backgrounds ( n are the different folderpages ) ---------------

FUNCTION F_BACKGRD( oFld, lTransp )
LOCAL n, oDlg, hDC, oBrush, oImage, nRow := 0, nCol := 0

oFld:lTransparent := lTransp

FOR n := 1 to Len( oFld:aDialogs )
    oDlg := oFld:aDialogs[ n ]
    hDC = CreateCompatibleDC( oDlg:GetDC() )
    IF n = 1
        IF !FILE( c_path1 + "Marble.bmp" )
            MsgAlert( "File : " + c_path1 + "Marble.bmp" + CRLF + ;
                    "does not exist to create" + CRLF + ;
                    "Brush-Background !", "ATTENTION" )
        ELSE
            DEFINE BRUSH oBrush FILENAME c_path1 + "Marble.bmp"
            oDlg:SetBrush( oBrush )
            RELEASE BRUSH oBrush
            ReleaseDC(hDC)
        ENDIF
    ENDIF
    IF n = 2
        DEFINE BRUSH oBrush COLOR 16107689
        oDlg:SetBrush( oBrush )
        RELEASE BRUSH oBrush
        ReleaseDC(hDC)
    ENDIF
    IF n = 3 // GRADIENT
        aGrad := { { 0.9, 16107689, 16777215 }, { 0.9, 16777215, 16107689 } }
        hDC = CreateCompatibleDC( oDlg:GetDC() )
        hBmp = CreateCompatibleBitMap( oDlg:hDC, oDlg:nRight * 2.1, ( oDlg:nBottom * 2.1 ) - 40 )
        hBmpOld = SelectObject( hDC, hBmp )
        GradientFill( hDC, 0, 0, ( oDlg:nBottom * 2.1 ) - 40, oDlg:nRight * 2.1, aGrad, .T. ) // .T: = Vertical
        DeleteObject( oDlg:oBrush:hBrush )
        oBrush := TBrush():New( ,,,, hBmp )
        oBrush:Cargo  := aGrad
        SelectObject( hDC, hBmpOld )
        oDlg:SetBrush( oBrush )
        RELEASE BRUSH oBrush
        ReleaseDC(hDC)
    ENDIF
    IF n = 4 // Image ADJUSTED
        DEFINE IMAGE oImage FILE c_path1 + "Backgrd.jpg"
        oBrush := TBrush():new( ,,,, ResizeBmp( oImage:hBitmap, oDlg:nWidth, oDlg:nHeight, .T. ) )
        oImage:End()
        oDlg:SetBrush( oBrush )
        RELEASE BRUSH oBrush
        ReleaseDC(hDC)
    ENDIF
    IF n = 5 // Image ADJUSTED
        DEFINE IMAGE oImage FILE c_path1 + "Backgrd.jpg"
        oBrush := TBrush():new( ,,,, ResizeBmp( oImage:hBitmap, oDlg:nWidth, oDlg:nHeight, .T. ) )
        oImage:End()
        oDlg:SetBrush( oBrush )
        RELEASE BRUSH oBrush
        ReleaseDC(hDC)
    ENDIF
    AEval( oDlg:aControls, { |o| IF( o:ClassName == "TSAY", ( o:SetColor( nTxtColor, 13885951 ), o:Refresh() ), NIL ) } )
NEXT

RETURN( NIL )
 

Code: Select all  Expand view

FiveH32.lib(IMGTXTIO.obj) : error LNK2005: _HB_FUN_CALCTEXTWH already defined in imgtxtio.obj
FiveH32.lib(IMGTXTIO.obj) : error LNK2005: _HB_FUN_WNDSAYPALBMP already defined in imgtxtio.obj
FiveH32.lib(IMGTXTIO.obj) : error LNK2005: _HB_FUN_WINDOWFROMDC already defined in imgtxtio.obj
FiveH32.lib(IMGTXTIO.obj) : error LNK2005: _HB_FUN_SELECTCLIPRGN already defined in imgtxtio.obj
FiveH32.lib(IMGTXTIO.obj) : error LNK2005: _HB_FUN_WNDREADPALBMPEX already defined in imgtxtio.obj
FiveH32.lib(IMGTXTIO.obj) : error LNK2005: _HB_FUN_ISXHBCOM already defined in imgtxtio.obj
FiveH32.lib(IMGTXTIO.obj) : error LNK2005: _HB_FUN_FW_CREATEBITMAP already defined in imgtxtio.obj
FiveH32.lib(IMGTXTIO.obj) : error LNK2005: _HB_FUN_USEGDI already defined in imgtxtio.obj
FiveH32.lib(IMGTXTIO.obj) : error LNK2005: _HB_FUN_MEMORYBUFFERTYPE already defined in imgtxtio.obj
FiveH32.lib(IMGTXTIO.obj) : error LNK2005: _HB_FUN_FW_DRAWSHAPES already defined in imgtxtio.obj
FiveH32.lib(IMGTXTIO.obj) : error LNK2005: _HB_FUN_WEBPAGECONTENTS already defined in imgtxtio.obj
   Creating library asw2016.lib and object asw2016.exp
asw2016.exe : fatal error LNK1169: one or more multiply defined symbols found

 

the missing backgroundcolor of SAY's inside folderpages.

Code: Select all  Expand view

#include "fivewin.ch"

function main()

   local oDlg, oFld, oSayDlg, oSayFld

   DEFINE DIALOG oDlg SIZE 300,300 PIXEL TRUEPIXEL

   @  20,20 FOLDER oFld SIZE 260,100 PIXEL OF oDlg PROMPTS "Page1"

   @  25,20 SAY "SAY ON FOLDER" SIZE 100,20 PIXEL OF oFld:aDialogs[ 1 ] ;
      COLOR CLR_HRED, CLR_YELLOW

   @ 150,40 SAY "SAY ON DIALOG" SIZE 100,20 PIXEL OF oDlg ;
      COLOR CLR_HRED, CLR_YELLOW

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oFld

    DEFINE DIALOG oDlg;
           RESOURCE "FOLDER"

    REDEFINE FOLDER oFld;
             ID 101 OF oDlg;
             PROMPTS "Test";
             DIALOGS "TEST"

    REDEFINE BTNBMP;
             ID 101 OF oFld:aDialogs[ 1 ];
             FILE "c:\fwh\bitmaps\open.bmp";
             NOBORDER

    REDEFINE BTNBMP;
             ID 102 OF oDlg;
             FILE "c:\fwh\bitmaps\open.bmp";
             NOBORDER

    REDEFINE BUTTON;
             ID 201 OF oDlg;
             ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

Code: Select all  Expand view

FOLDER DIALOG 49, 52, 365, 295
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Folder test"
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
 CONTROL "", 101, "SysTabControl32", WS_CHILD | WS_VISIBLE, 5, 5, 265, 195
 CONTROL "&Close", 201, "BUTTON", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 275, 40, 15
 CONTROL "", 102, "TBtnBmp", WS_CHILD | WS_VISIBLE, 280, 5, 30, 25
}


TEST DIALOG 49, 52, 365, 295
STYLE WS_CHILD
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
 CONTROL "", 101, "TBtnBmp", WS_CHILD | WS_VISIBLE, 10, 10, 30, 25
}