FiveTech Support Forums

#include "fivewin.ch"


    FUNCTION MAIN()

    local cColori:="colori.png"
    local cModello:="Modello.jpg"
    local cFile:="da_colorare.jpg"
    local oDlg,oBmp,oImg,oImgx
    local nColor := 0, oColor
    local hdc, nPickRow := 0, nPickCol := 0
    local oSay1, oSay2, oSay3, oFont
    local nColorSet:= 1
    DEFINE CURSOR oHand HAND
    DEFINE FONT oFont NAME "Verdanal" SIZE 0, -12 BOLD

    DEFINE dialog oDlg size 1100, 500

    @ 4,1 BITMAP oImgx filename cModello  SIZE 270,200 OF oDlg PIXEL NOBORDER
    @ 4,280 BITMAP oImg filename cFile  SIZE 260,200 OF oDlg  PIXEL NOBORDER
    @ 210,260 BITMAP oBmp filename cColori  SIZE 300,50 OF oDlg PIXEL NOBORDER



    oImg:oCursor := oHand
    oImg:bPainted := < |hDC|
        oSay1:Refresh()
        oSay2:Refresh()
        oSay3:Refresh()
    RETURN NIL
    >


    @ 210, 18 get oColor var ncolor size 20, 20 pixel  COLOR nColor, nColor UPDATE  NOBORDER
    @ 210, 100 say oSay0 PROMPT "Top, Left, color" size 60, 30 pixel  COLOR 0 FONT oFont UPDATE
    @ 200, 210 say oSay1 var nPickRow size 20, 20 pixel  COLOR 255 FONT oFont UPDATE
    @ 210, 210 say oSay2 var nPickCol size 20, 20 pixel  COLOR 255 FONT oFont UPDATE
    @ 220, 210 say oSay3 var nColor size 20, 20 pixel  COLOR 255 FONT oFont UPDATE

    oBmp:oCursor := oHand
    oBmp:bLClicked := { | nRow, nCol | ( ncolor := GETCOLOR( oBmp, nRow, nCol ), ;
                                                                oColor:SetColor(nColor, nColor), oColor:refresh(),nColorSet:=ncolor ) }

    oImg:blClicked := { | nRow, nCol | nPickRow := nRow, nPickCol := nCol,;
                        FILLCOLOR(oImg, nPickRow, nPickCol, nColorSet ) }



    ACTIVATE DIALOG oDlg CENTERED

    oFont:End()

    RETURN NIL

    //-----------------------

    FUNCTION GETCOLOR( oBmp, nRow, nCol )
    hDC := oBmp:GetDC()
    nColor := GetPixel( hDC, nCol, nRow )
    oBmp:ReleaseDC()
    RETURN nColor

   //-----------------------

  FUNCTION FILLCOLOR( oImg, nRow, nCol, nColor )
    local hDC:=oImg:getDc()
    LOCAL hBrush := CreateSolidBrush( nColor )
    LOCAL hOld := SelectObject(hDC, hBrush)
    ExtFloodFill(hDC, nCol, nRow,CLR_WHITE,2)
    SelectObject( hDC, hOld )
    DeleteObject( hBrush )
    //FloodFill( hDC, nCol, nRow, nil, nColor )
    oImg:ReleaseDC()
RETURN NIL