c:\fwh\samples\poker\poker.prg

[Jimmy]

hi,

where I can write to you ?

AUGE_OHR AT WEB.DE
thx for help

[Jimmy]

hi,

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  Expand view

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
 

[bpd2000]

Try with buildh.bat

YES ...

Question : when using BUILD.BAT and when BUILDh.BAT

now i got EXE ... but it is only empty Form
in Source i have something like this

Code: Select all  Expand view

   set resources to "cards.dll"
   ...
   cardname[1]="card1.bmp"
   ...
   bi1:loadbmp(cardmap)
 

so where does "card1.bmp" come from
i can't "see" how Resource work.

Refer
http://www.catch22.net/tuts/win32/using-cards-dll-api#

http://www.catch22.net/tuts/win32/cards-dll-direct-bitmap-access#

[cnavarro]

Very interesting, thanks

[Jimmy]

Refer
http://www.catch22.net/tuts/win32/using-cards-dll-api#
http://www.catch22.net/tuts/win32/cards-dll-direct-bitmap-access#

that is what i search to get more Information about it, THX