Re: c:\fwh\samples\poker\poker.prg
Posted: Tue Dec 10, 2019 9:32 am
hi,
thx for help
AUGE_OHR AT WEB.DESilvio.Falconi wrote:where I can write to you ?
thx for help
back to my Question : load Resource
under Xbase++ i can't use "Cards.DLL", ExtractIcon() does not count any Resource.
using ResHacker i can see all Resource but as i say i can't load it under Xbase++
now i like to ask if it work with harbour / FiveWin
here is a harbour MiniGUI Sample like my Xbase++ Code to extract Icon
Code: Select all
Function MyDrawIcons()
LOCAL nJ := 0, nI, cStr, cObj, nRow := 10, nCol
LOCAL nWidth := Form_1.Width
LOCAL cIconSrc := System.SystemFolder + "\imageres.dll"
LOCAL nCount := ExtractIcon( cIconSrc, -1 ) - 1
FOR nI := 0 TO nCount
nCol := 10 + 70 * ( ++nJ - 1 )
IF nCol > nWidth - 80
nRow += 70
nJ := 1
nCol := 10
ENDIF
cObj := "Btn_"+LTRIM(STR(nI))
@ nRow, nCol BUTTON &cObj ;
OF Form_1 ;
ICON cIconSrc ;
EXTRACT nI FLAT ;
WIDTH 38 HEIGHT 38 ;
ACTION SaveThisIcon( cIconSrc, Val( SubStr( This.Name, At( "_", This.Name ) + 1 ) ) )
cObj := "Lbl_"+LTRIM(STR(nI))
cStr := "nI="+LTRIM(STR(nI))
@ nRow + 40, nCol LABEL &cObj ;
OF Form_1 VALUE cStr ;
WIDTH 60 HEIGHT 12 ;
TRANSPARENT FONTCOLOR BLUE
IF nI % 18 == 0
DO EVENTS
ENDIF
NEXT
Return NIL
