PureBoard

Verfasst: **16.04.2005 21:37**

Hi,
RH_GetRes Verion 1.05 vom 17.11.05 für PB 3.93
RH_GetRes Verion 1.05 vom 17.06.06 für PB 4.00
beide Versionen zum Downloaden im ShowCase.

Hiermit lassen sich hinzugelinkte Resourcen (*.RC) auslesen.
Und nun auch Resourcen aus anderen Dateien.
Alles weitere steht in der komplett neu gestalteten Hilfe.

Funktionen:
RH_GetResBitmap(nr,nr$,err,[ex$])
RH_GetResCursor(nr,nr$,err,[ex$])
RH_GetResIcon(nr,nr$,err,[ex$])
RH_GetResMenu(nr,nr$,err,[ex$])
RH_GetResString(nr,anz,err,[ex$])
RH_GetResVersionF()
RH_GetResVersionK()
RH_GetResVersionL()

Download unter:
http://www.purearea.net/pb/showcase/index.php
bzw.
http://www.purearea.net/pb/showcase/sho ... p=0&sort=1

Verfasst: **17.06.2006 18:21**

Hi,

RH_GetRes nun auch für PB4.00 erhältlich.

Verfasst: **17.06.2006 20:01**

Donald hat geschrieben:Hi,

RH_GetRes nun auch für PB4.00 erhältlich.

Danke, wann wirds den PB4 auch unterstüzen?

Aber nicht so schlimm, es gibt bisher kaum Libs die dies berücksichtigen

Verfasst: **18.06.2006 17:20**

Hab jetzt mal die erforderlichen Änderungen, damit es auch unter Unicode
funktioniert, zusammengestellt. Aber nur für eine Funktion, den Rest
kannste nachdem selben Schema abarbeiten.

Diese Variante sorgt nur für richtige Resultate, Unicode wird so nicht
unterstützt

Code: Alles auswählen

ProcedureDLL.s RH_GetResString2_UNICODE(nr,anz,err,ex$)
  ; Umwandlung nach ASCII
  Protected ex2$, Result.s, Result2.s
  If ex$
    ex2$ = PeekS(@ex$, #PB_Any,#PB_Unicode)
    ex$ = ex2$
  EndIf
  
  ; Original ASCII Procedure aufrufen
  Result =  RH_GetResString2(nr,anz,err,ex$)

  ; Ergebnis nach Unicode ändern
  Result2 = Space(Len(Result) * 2)
  PokeS(@Result2, Result, #PB_Any, #PB_Unicode)
  
  ; Unicodewert zurückgeben
  ProcedureReturn Result2
EndProcedure

ProcedureDLL.s RH_GetResString_UNICODE(nr,anz,err)
  ProcedureReturn RH_GetResString2_UNICODE(nr,anz,err,"")
EndProcedure

PureBoard

RH_GetRes - UserLibrarie

RH_GetRes - UserLibrarie