RH_GetRes - UserLibrarie

[Donald]

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

[Donald]

Hi,

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

[ts-soft]

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

[ts-soft]

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