PC Toledo

Código: Selecionar todos

\HWGOSP\c\PRG920.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
\HWGOSP\c\PRG922.c:
Borland Resource Compiler  Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland

Primeiro erro:
Error: Unresolved external '_HB_FUN_HSTATICEX' referenced from C:\HWGOSP\OBJ\PRG
910.OBJ

Segundo erro:
Error: Unresolved external '_HB_FUN_HB_AT' referenced from C:\HWGUI\LIB\HWGUI.LI
B|hfrmtmpl

Terceiro erro:
Error: Unresolved external '_HB_FUN_HWG_FILESIZE' referenced from C:\HWGOSP\OBJ\
PDF1.OBJ

Não foi possível encontrar C:\HWGOSP\.c
Não foi possível encontrar C:\HWGOSP\.map
Não foi possível encontrar C:\HWGOSP\.obj
fim....
Pressione qualquer tecla para continuar. . .

Código: Selecionar todos

Function hwg_hfrm_Str2Arr( stroka )

Local arr := {}, pos1 := 2, pos2 := 1

   IF Len( stroka ) > 2
      DO WHILE pos2 > 0
         DO WHILE Substr( stroka,pos1,1 ) <= ' ' ; pos1 ++ ; ENDDO
      // pos2 := hb_At( ',',stroka,pos1 )
         pos2 := At( ',',stroka,pos1 )
      // Aadd( arr, Trim( Substr( stroka,pos1,Iif( pos2>0,pos2-pos1,hb_At('}',stroka,pos1)-pos1 ) ) ) )
         Aadd( arr, Trim( Substr( stroka,pos1,Iif( pos2>0,pos2-pos1,At('}',stroka,pos1)-pos1 ) ) ) )
         pos1 := pos2 + 1
      ENDDO
   ENDIF

Return arr

Function hwg_hfrm_Arr2Str( arr )

Local stroka := "{", i, cType

   FOR i := 1 TO Len( arr )
      IF i > 1
         stroka += ","
      ENDIF
      cType := Valtype( arr[i] )
      IF cType == "C"
         stroka += arr[i]
      ELSEIF cType == "N"
         stroka += Ltrim( Str( arr[i] ) )

Código: Selecionar todos

2012-11-15 16:07 UTC+0200 Alexey Myronenko (m.oleksa@ukr.net)
  * doc/en/string.txt
    + documentaion for HB_AT(), HB_RAT() added/corrected
    ! fixed examples for them
    - delete allusion for HB_OEMTOANSI(), HB_ANSITOOEM() due to they will
      disappear after next stable release

2012-11-08 14:59 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
  * harbour/src/rtl/rat.c
    ! fixed HB_RAT() to respect end range in the same way as in HB_AT()
    ; Warnings: 1) It's not backward compatible and may change the behavior
                   of some code which expects that ranges are not strictly
                   respected. If someone uses HB_RAT() with 4-th parameter
                   then he should check if above modification interacts with
                   his code. The modification is significant only if 1-st
                   parameter is longer then 1 character.
                2) xHarbour supports in its RAT() function 3-rd and 4-th
                   parameters but their meaning is reverted then in HB_RAT()
                   and they do not have any range checking so they are used
                   in raw form accessing any memory addresses (even out of
                   process memory area generating GPF in such case).
                   It means that also above fix is not respected and may
                   introduce the same incompatibilities in code which tires
                   to use sth like HB_RAT() with reverted 3-rd and 4-th
                   parameters to emulate xHarbour RAT().

  * harbour/src/rtl/rat.c
    % use 4-th parameter of HB_RAT() function instead of creating temporary
      substring from 2-nd parameter.

  * harbour/contrib/hbtinymt/3rd/tinymt/tinymt.hbx
    * regenerated (removed Id header)

Código: Selecionar todos

2013-01-16 11:50 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
  * include/guilib.ch
    * commands SAYEX, REDEFINE SAYEX, BUTTONX, REDEFINE BUTTONX, GROUPBOXEX
      was changed to SAY, REDEFINE SAY, BUTTON, REDEFINE BUTTON, GROUPBOX.
      If you will use them with clauses, which demands "ex" classes
      ( HStaticEx, etc. ), they will be preprocessed to these "ex" classes,
      in other case they will be preprocessed into more simple and fast base
      classes ( HStatic, etc. ). If you want them to be preprocessed into
      "ex" classes independently of used clauses, you need to write them with
      a word "EXTENDED" or "EXT", for example:
      @ 1,1 SAY EXT "Hello" SIZE 100,24

Código: Selecionar todos

{win}libs=hwgui hbxml procmisc xhb hwgdebug hwg_extctrl