topic-38146

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: c:\fwh\samples\poker\poker.prg
Posted: Tue Dec 10, 2019 09:32 AM

hi,

Silvio.Falconi wrote:where I can write to you ?

AUGE_OHR AT WEB.DE
thx for help

greeting,

Jimmy

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: c:\fwh\samples\poker\poker.prg
Posted: Mon Dec 16, 2019 10:10 PM

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 (fw): Select all Collapse

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

greeting,

Jimmy

bpd2000

Posts: 153

Joined: Tue Aug 05, 2014 09:48 AM

Re: c:\fwh\samples\poker\poker.prg
Posted: Thu Dec 19, 2019 11:37 AM

Jimmy wrote:
cnavarro wrote: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 (fw): Select all Collapse
   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#

Regards, Greetings

Try FWH. You will enjoy it's simplicity and power.!

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: c:\fwh\samples\poker\poker.prg
Posted: Thu Dec 19, 2019 11:45 AM

Very interesting, thanks

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: c:\fwh\samples\poker\poker.prg
Posted: Thu Dec 19, 2019 08:29 PM

bpd2000 wrote:
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

greeting,

Jimmy

FiveTech Support Forums

Continue the discussion