FiveTech Software tech support forums

Code: Select all | Expand

#include "FiveWin.ch"

Function Inicio
   LOCAL oDlg, oGet[1], oFont[1], oBtn[1]
   LOCAL cText1 := "Campo de texto 01"
   LOCAL cText2 := "Campo de texto 02"
   DEFINE FONT oFont[1] NAME "Arial" SIZE 0,16 BOLD
   DEFINE DIALOG oDlg SIZE 280,140 PIXEL 
       @ 10, 30 SAY "Versión:   " + FWVERSION OF oDlg PIXEL FONT oFont[1]
       @ 30, 10 GET oGet[1] VAR cText1 OF oDlg SIZE 100,11 PIXEL
       @ 30, 110 BTNBMP oBtn[1] PROMPT "+" OF oDlg SIZE 10,10 PIXEL FLAT
       @ 42, 10 GET oGet[1] VAR cText2 OF oDlg SIZE 100,11 PIXEL
   ACTIVATE DIALOG oDlg CENTERED
Return(NIL)

Code: Select all | Expand

METHOD CalcSize( nTop, nLeft, nWidth, nHeight, lRelative, oWnd, nBottom, nRight ) CLASS TControl // 2024-05-21

   local aRect
   local lTruePixel := .t.

   DEFAULT oWnd := ::oWnd, lRelative := oWnd:lAutoSizeCtrls

   if .PCount() > 0

Code: Select all | Expand

METHOD CalcSize( nTop, nLeft, nWidth, nHeight, lRelative, oWnd, nBottom, nRight ) CLASS TControl // 2024-05-21

   local aRect
   local lTruePixel := .t.

   DEFAULT oWnd := ::oWnd, lRelative := oWnd:lAutoSizeCtrls

   if .f. //PCount() > 0

Code: Select all | Expand

#pragma BEGINDUMP

int _streams;

#pragma ENDDUMP]/code]

Now I set environment variable xhdir=c:\xharbour70 and tried to build and this is successful.
Problem is only with the present xHarbour.
No problem with FWH at all


[url=https://imageshack.com/i/pnfNaN6Dg][img]https://imagizer.imageshack.com/img923/5583/fNaN6D.gif[/img][/url]

Code: Select all | Expand

Aplicación:
===========
   Path y nombre: D:\MSTVS\CG_VP.EXE
   Tam.: 8,605,184 bytes
   Máximo de ficheros abiertos: ( SetHandleCount() )   0
   Error ocurrido el día: 06-10-2024, a la hora: 18:45:24
   Nombre del error: Error BASE/1083  Error de argumento: *
   Args:
     [   1] = N   16
     [   2] = U   16

Llamadas a funciones
====================
   Llamado por TCONTROL:CTOCHAR(404)
   Llamado por (b)TGROUP:TGROUP(28)
   Llamado por TGROUP:CTOCHAR(0)
   Llamado por TDIALOG:CTOCHAR(725)
   Llamado por TDIALOG:ACTIVATE(309)
   Llamado por CGINI31(219)
   Llamado por (b)INICIAL(269)
   Llamado por TMDIFRAME:ACTIVATE(1106)
   Llamado por INICIAL(269)
   Llamado por INICIO(558)

Sistema
=======
   CPU tipo: Intel(R) Core(TM) i7-1065G7 CPU @ 1.30GHz
   Memoria: 16935899904 (16538964 megas)

   Recursos libres .....: % 90
        GDI  recursos ..: % 90
        Usuarios recurs.: % 90

   Version de Windows y MS-Dos:  6. 2, **. 2
   Total de aplicaciones WIN ejecutandose:   0
      1 ,                                                                                                     

Variables en uso
================
   Programa      Tipo   Valor
   ==========================
   TCONTROL:CTOCHAR
     Param   1:    C    "BUTTON"
     Local   1:    O    Class: TGROUP
     Local   2:    N    1048584
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    U    
     Local   7:    N    16
     Local   8:    U    
     Local   9:    U    
     Local  10:    U    
   (b)TGROUP:TGROUP
     Param   1:    O    Class: TGROUP
   TGROUP:CTOCHAR
   TDIALOG:CTOCHAR
     Param   1:    N    7736026
     Local   1:    O    Class: TDIALOG
     Local   2:    C    "

Code: Select all | Expand

METHOD CalcSize( nTop, nLeft, nWidth, nHeight, lRelative, oWnd, nBottom, nRight ) CLASS TControl // 2024-05-21

   local aRect

   DEFAULT oWnd := ::oWnd, lRelative := oWnd:lAutoSizeCtrls

   if .F. // PCount() > 0

Code: Select all | Expand

METHOD CalcSize( nTop, nLeft, nWidth, nHeight, lRelative, oWnd, nBottom, nRight ) CLASS TControl // 2024-05-21


   local aRect
   local lTruePixel := .t.

   DEFAULT oWnd := ::oWnd, lRelative := oWnd:lAutoSizeCtrls

   if .f. //PCount() > 0