Hi,
I have change the sample app like below.
It does not give any errors during compilation. However, when run, I get the following error message.
If I remove the following lines, the application runs without errors but is incomplete.
if I changed this line like this. it compiles and run ok.
I need to add two get memos to the same TFolderEx page. How can I solve this problem?
I have change the sample app like below.
#include "FiveWin.ch"
#define EM_LIMITTEXT 197
request HB_CODEPAGE_UTF8
request HB_CODEPAGE_UTF16LE
REQUEST HB_CODEPAGE_TRWIN
Function Main()
Local oDlg, oFont, oFld_Not
Local oGet1, oGet2
local cVar1 := Create_Text(100000)+CRLF+"xxx"
local cVar2 := ""
HB_CDPSELECT( "TRWIN" )
FW_SetUnicode( .f. )
TFont():nDefaultCharSet := 162
oFont := TFont():New("Verdana", 0, -11)
DEFINE DIALOG oDlg SIZE 650,450 PIXEL ;
FONT oFont TITLE "Sample - "+STR(LEN(cVar1)) ;
STYLE nOr( WS_OVERLAPPEDWINDOW ) transparent
@ 3, 3 FOLDERex oFld_Not OF oDlg PIXEL ;
PROMPTS "Page 1","Page 2";
ROUND 10
@ 5,5 get oGet1 var cVar1 MEMO;
size 280,140 of oFld_Not:aDialogs[1] pixel
@ 150,5 get oGet2 var cVar2 MEMO; <--------- This lines.
size 280,30 of oFld_Not:aDialogs[1] pixel <---------
oDlg:bStart = { || oGet1:GoBottom() }
ACTIVATE DIALOG oDlg CENTER ON INIT MyOninit(oget1)
return nil
FUNCTION MyOninit(oget1)
oGet1:LimitText( -1 )
RETURN nil
FUNCTION Create_Text(nByte)
LOCAL cResult := "", cText := "bla bla bla blaaa bla blaa "
DO WHILE LEN(cResult) < nByte
cResult += cText
ENDDO
RETURN cResultApplication
===========
Path and name: C:\fwh\samples\testmget1.exe (32 bits)
Size: 4,719,104 bytes
Compiler version: Harbour 3.2.0dev (r2503251254)
FiveWin version: FWH 25.04.2
C compiler version: Microsoft Visual C 19.32.31329 (32-bit)
Windows 11 64 Bits, version: 6.2, Build 9200
Time from start: 0 sec
Error occurred at: 09/15/25, 15:57:48
Error description: Error FiveWin/3 Cannot create Dialog Box:
Title: , System Error: İşlem başarıyla tamamlandı.
Stack Calls
===========
Called from: .\source\classes\dialog.prg => CREATEDLGERROR( 804 )
Called from: .\source\classes\dialog.prg => TDIALOG:ACTIVATE( 342 )
Called from: .\source\classes\tfoldex.prg => TFOLDEREX:DEFAULT( 843 )
Called from: .\source\classes\tfoldex.prg => TFOLDEREX:INITIATE( 1039 )
Called from: => __OBJSENDMSG( 0 )
Called from: .\source\function\harbour.prg => OSEND( 296 )
Called from: .\source\function\harbour.prg => ASEND( 264 )
Called from: .\source\classes\dialog.prg => TDIALOG:INITIATE( 902 )
Called from: .\source\classes\dialog.prg => TDIALOG:HANDLEEVENT( 1238 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\dialog.prg => TDIALOG:ACTIVATE( 325 )
Called from: testmget1.prg => MAIN( 38 )
System
======
CPU type: 12th Gen Intel(R) Core(TM) i7-1255U 2611 Mhz
Hardware memory: 32401 megs
Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %
Windows total applications running: 1
1 ,
Variables in use
================
Procedure Type Value
==========================
CREATEDLGERROR
Param 1: O Class: ERROR
TDIALOG:ACTIVATE
Param 1: O Class: TDIALOG
Param 2: N 0
Local 1: U
Local 2: C " "
TFOLDEREX:DEFAULT
Param 1: U
Param 2: U
Param 3: U
Param 4: L .F.
Param 5: B {|| ... }
Param 6: L .F.
Param 7: B {|| ... }
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: L .F.
Param 13: O Class: TDIALOG
Param 14: U
Param 15: U
Local 1: N 855106
TFOLDEREX:INITIATE
Local 1: O Class: TDIALOG
Local 2: N 27
Local 3: A Len: 4
Local 4: U
Local 5: N 0
Local 6: U
Local 7: O Class: TDIALOG
Local 8: N 1
__OBJSENDMSG
Param 1: N 134240
Local 1: U
Local 2: N 1375797248
OSEND
Param 1: O Class: TFOLDEREX
Param 2: C "INITIATE"
Param 3: N 134240
ASEND
Param 1: O Class: TFOLDEREX
Param 2: C "INITIATE"
Param 3: N 134240
TDIALOG:INITIATE
Param 1: A Len: 1
Param 2: C "INITIATE()"
Param 3: N 134240
Local 1: S @OSEND()
TDIALOG:HANDLEEVENT
Param 1: N 855106
Param 2: N 134240
Local 1: L .T.
Local 2: U
Local 3: U
Local 4: L .F.
Local 5: U
Local 6: U
DIALOGBOXINDIRECT
Param 1: N 272
Param 2: N 855106
Param 3: N 134240
TDIALOG:ACTIVATE
Param 1: N 11337728
Param 2: C " Ï Fâ S a m p l e - 1 0 0 0 1 3 R ,È e T F O L D E R E X "
Param 3: N 0
Param 4: O Class: TDIALOG
MAIN
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: B {|| ... }
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: L .F.
Param 13: O Class: TDIALOG
Param 14: U
Param 15: U
Local 1: N 0
Local 2: S @_NRESULT()
Local 3: O Class: TDIALOG
Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFCDX
DBFNTX
DataBases in use
================
Classes in use:
===============
1 ERROR
2 HBCLASS
3 HBOBJECT
4 TFONT
5 TWINDOW
6 TDIALOG
7 TBRUSH
8 TCONTROL
9 TFOLDEREX
10 TREG32
11 TSTRUCT
12 TMULTIGET
Memory Analysis
===============
735 Static variables
Dynamic memory consume:
Actual Value: 983040 bytes
Highest Value: 983040 bytes @ 150,5 get oGet2 var cVar2 MEMO;
size 280,30 of oFld_Not:aDialogs[1] pixellocal cVar1 := Create_Text(32000)+CRLF+"xxx"Regards,
Hakan ONEMLI
Harbour & MSVC 2022 & FWH 23.06
Hakan ONEMLI
Harbour & MSVC 2022 & FWH 23.06
