Hello,
In xbrowse() function, new options for adding or editing the record do not work.
It´s not posible to enter data.
Thank you.
function XCBrowse( uData, cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, ;
lFastEdit, bValid, cSerial, oParent, lCaption, ;
nRowDlg, nColDlg, nWd, nHt )
.../..
DEFAULT uData := Alias(), ;
cTitle := If( ValType( uData ) == 'C', uData, ;
If( ValType( uData ) == 'O', uData:ClassName(), ;
'XBROWSE' ) ), ;
lAutoSort:= .f., ;
bSetUp := { || nil },;
lExcel := .t., ;
oParent := nil, ;
lCaption := .T., ;
nRowDlg := 0, ;
nColDlg := 0, ;
nWd := ( GetSysMetrics(0) * 0.75 ) , ; // / 2 ), ;
nHt := ( GetSysMetrics(1) / 2 )
if oParent == nil
if WndMain() == nil
DEFINE FONT oFont NAME 'TAHOMA' ;
SIZE 0, -Min( 14, Max( 8, Int( GetSysMetrics(0) / 100 ) ) )
else
//oFont := WndMain():oFont
nTipFont := 1
endif
else
//oFont := oParent:oFont
nTipFont := 2
endif
.../...
if oParent == nil
DEFINE DIALOG oDlg SIZE nWd, nHt PIXEL ;
TITLE cTitle ;//FONT oFont
STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME )
else
if lCaption
DEFINE DIALOG oDlg PIXEL OF oParent ; //SIZE nWd,nHt
TITLE cTitle ;
FROM nRowDlg, nColDlg TO nRowDlg + nHt, nColDlg + nWd //;
// STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME )
//FONT oFont
else
//cTitle := ""
DEFINE DIALOG oDlg PIXEL OF oParent ; //SIZE nWd,nHt
FROM nRowDlg, nColDlg TO nRowDlg + nHt, nColDlg + nWd
//FONT oFont
//STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME )
endif
endif
Do Case
Case nTipFont == 0
oDlg:SetFont( oFont )
Case nTipFont == 1
oDlg:SetFont( WndMain():oFont )
Case nTipFont == 2
oDlg:SetFont( oParent:oFont )
EndCase
nWd /= 2
nHt /= 2
.../...
Application
===========
Path and name: C:\Users\aperricone\Downloads\FivEdit (3)\SCIEDIT.exe (32 bits)
Size: 3,546,624 bytes
Compiler version: Harbour 3.2.0dev (r1406271520)
FiveWin Version: FWH 15.01
Windows version: 6.1, Build 7601 Service Pack 1
Time from start: 0 hours 0 mins 1 secs
Error occurred at: 05/03/2015, 16:34:12
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... } length: 29
[ 2] = N 30
Stack Calls
===========
Called from: C:\Verce43\FiveUI\Source\sciedit.prg => BUILDBAR( 1042 )
Called from: C:\Verce43\FiveUI\Source\sciedit.prg => MAIN( 586 )
System
======
CPU type: Intel(R) Core(TM)2 Duo CPU E7400 @ 2.80GHz 2800 Mhz
Hardware memory: 4095 megs
Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %
Windows total applications running: 4
1 ,
2 , C:\Users\aperricone\Downloads\FivEdit (3)\SCIEDIT.exe
3 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.17514_none_41e697
4 , C:\Windows\syswow64\SHLWAPI.dll
Variables in use
================
Procedure Type Value
==========================
BUILDBAR
Param 1: O Class: ERROR
MAIN
Param 1: A Len: 34
Param 2: L .T.
Local 1: N 30
Local 2: N 1
Local 3: U
Local 4: U
Local 5: U
Local 6: N 0
Local 7: A Len: 30
Local 8: A Len: 29
Local 9: S
Local 10: O Class: TBTNBMP
Local 11: A Len: 29
Local 12: N 30
Local 13: U
Local 14: U
Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFNTX
DataBases in use
================
Classes in use:
===============
1 ERROR
2 HBCLASS
3 HBOBJECT
4 TINI
5 TWINDOW
6 TCONTROL
7 TICON
8 TBRUSH
9 TFONT
10 TMENU
11 TMENUITEM
12 TMRU
13 TBAR
14 TBARC
15 TRECT
16 TBTNBMP
17 TREG32
Memory Analysis
===============
519 Static variables
Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 71 guests