Antonio Linares wrote:Frances,
If we could have a small and simple example to reproduce it here, it may be easier to find a fix for it, thanks
Hello again Sir!
Here is the exact skeleton of that procedure array version. notice that the oDlg:Refresh() is commented.
Code:
Code: Select all
PROCEDURE uTest_Me()
LOCAL bErrorHandler, oErr
LOCAL oDlg, oBtn, oSync
LOCAL oVSplit, oHSplit
LOCAL cOldOrder,;
cOldRec
LOCAL aFont[3],;
aGroup[3]
LOCAL lGo := .F.,;
lSync := .F.
STATIC aLocal := { {'','','','','',''} },;
aServer := { {'','','','','',''} },;
aCompare := { {'','','','',''} }
STATIC oLocalXbrw,;
oServerXbrw,;
oCompareXbrw
bErrorHandler := ErrorBlock( {|oError| Break( oError) })
BEGIN SEQUENCE
DEFINE FONT aFont[ 1 ] Name 'Tahoma' Size 0, -14 BOLD
DEFINE DIALOG oDlg RESOURCE 'CBS_COMPARISON';
OF oMDIFrame:oWndClient PIXEL
REDEFINE GROUP aGroup[1] ID 1007;
OF oDlg TRANSPARENT FONT aFont[1];
UPDATE
REDEFINE GROUP aGroup[2] ID 1008;
OF oDlg TRANSPARENT FONT aFont[1];
UPDATE
REDEFINE GROUP aGroup[3] ID 1009;
OF oDlg TRANSPARENT FONT aFont[1];
UPDATE
REDEFINE XBROWSE oLocalXbrw;
OF oDlg ID 1002;
ARRAY aLocal AUTOSORT UPDATE
REDEFINE XBROWSE oServerXbrw;
OF oDlg ID 1003;
ARRAY aServer AUTOSORT UPDATE;
COLSIZES ,; //100,;
,; // 90,;
60,;
35,;
210;
REDEFINE SPLITTER oVSplit ID 1004 ;
VERTICAL _3DLOOK ;
PREVIOUS CONTROLS aGroup[1], oLocalXbrw ;
HINDS CONTROLS aGroup[2], oServerXbrw;
OF oDlg UPDATE;
//ON CHANGE oDlg:Refresh()
REDEFINE XBROWSE oCompareXbrw;
OF oDlg ID 1001;
ARRAY aCompare AUTOSORT UPDATE
REDEFINE SPLITTER oHSplit ID 1005 ;
HORIZONTAL _3DLOOK ;
PREVIOUS CONTROLS aGroup[1],oLocalXbrw,oVSplit,aGroup[2],oServerXbrw ;
HINDS CONTROLS aGroup[3], oCompareXbrw ;
OF oDlg UPDATE;
//ON CHANGE oDlg:Refresh()
REDEFINE CHECKBOX oSync VAR lSync ;
ID 1010 OF oDlg
REDEFINE BUTTONBMP ID 1011 OF oDlg
REDEFINE BUTTONBMP ID 1006 OF oDlg
ACTIVATE DIALOG oDlg
RECOVER USING oErr
If ValType( oErr ) == "O"
MsgAlert( '::SubSystem ' + cValToChar( oErr:SubSystem ) + CRLF +;
'::SubCode ' + cValToChar( oErr:SubCode ) + CRLF +;
'::Operation ' + cValToChar( oErr:Operation ) + CRLF +;
'::Description ' + cValToChar( oErr:Description ) + CRLF +;
'::Argument ' + valToPrg( oErr:Args ), 'uCBS_Comparison()' )
End
END SEQUENCE
ErrorBlock( bErrorHandler)
RETURN
Now using ResEd 2.2
RC:
Code: Select all
CBS_COMPARISON DIALOGEX 5,6,495,413
FONT 10,"Courier",0,0
STYLE WS_VISIBLE|WS_OVERLAPPEDWINDOW|DS_CENTER
EXSTYLE WS_EX_TOOLWINDOW|0x80800000
BEGIN
CONTROL "Local CBS",1007,"Button",WS_CHILD|WS_VISIBLE|BS_RIGHTBUTTON|BS_GROUPBOX,1,1,243,202
CONTROL "",1002,"TXBrowse",WS_CHILD|WS_VISIBLE|WS_BORDER|WS_TABSTOP,6,12,237,190
CONTROL "",1004,"TSplitter",WS_CHILD|WS_VISIBLE,246,0,3,207
CONTROL "Server CBS",1008,"Button",WS_CHILD|WS_VISIBLE|BS_RIGHTBUTTON|BS_GROUPBOX,250,1,244,202
CONTROL "",1003,"TXBrowse",WS_CHILD|WS_VISIBLE|WS_BORDER|WS_TABSTOP,255,12,238,190
CONTROL "",1005,"TSplitter",WS_CHILD|WS_VISIBLE,0,206,494,3
CONTROL "Erroneous Entry",1009,"Button",WS_CHILD|WS_VISIBLE|BS_RIGHTBUTTON|BS_GROUPBOX,1,212,493,181
CONTROL "",1001,"TXBrowse",WS_CHILD|WS_VISIBLE|WS_BORDER|WS_TABSTOP,6,224,487,168
CONTROL "Remove Duplicate ",1006,"Button",WS_CHILD|WS_VISIBLE|WS_TABSTOP|BS_RIGHT,217,395,61,16
CONTROL "Synchronize",1010,"Button",WS_CHILD|WS_VISIBLE|WS_TABSTOP|BS_AUTOCHECKBOX,41,398,58,9
CONTROL "Refresh ",1011,"Button",WS_CHILD|WS_VISIBLE|WS_TABSTOP|BS_RIGHT,1,395,38,16
END
RESULT: