Dear All,
I used Drag&Drop for many years without any problem.
xbrowse:bDragBegin
folder:bDropOver
get:bDropVer
Today change to FWH 2304 the drag & drop is not working anymore
::oDragCursor is working
::bDragBegin is working
::bDropOver does not response
Thank you for any idea and suggestion.
bDragBegin and bDropOver problem *Unresolve*
bDragBegin and bDropOver problem *Unresolve*
Last edited by dutch on Sat Sep 23, 2023 4:33 am, edited 2 times in total.
Regards,
Dutch
FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
Dutch
FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
-
Antonio Linares
- Site Admin
- Posts: 42259
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: bDragBegin and bDropOver problem
Dear Dutch,
Please go to FWH\samples and do this:
buildh testdrp2
buildh testdrp3
buildh testdrp4
buildh testdrp5
buildh testdrp6
they all seem to work fine except testdrp3.prg
Can you please show the code how you are using it ? thanks
Please go to FWH\samples and do this:
buildh testdrp2
buildh testdrp3
buildh testdrp4
buildh testdrp5
buildh testdrp6
they all seem to work fine except testdrp3.prg
Can you please show the code how you are using it ? thanks
Re: bDragBegin and bDropOver problem
Dear Antonio,
This is the Drag&Drop code that still working fine with FWH1901. I'm back to FWH1901 now.
When I change to FWH2304, This Drag&Drop code is not working. When I drop to FOLDER or SAY, it doesn't call ::bDropOver and still show ::oDragCursor.
This is the Drag&Drop code that still working fine with FWH1901. I'm back to FWH1901 now.
When I change to FWH2304, This Drag&Drop code is not working. When I drop to FOLDER or SAY, it doesn't call ::bDropOver and still show ::oDragCursor.
Antonio Linares wrote:Dear Dutch,
Please go to FWH\samples and do this:
buildh testdrp2
buildh testdrp3
buildh testdrp4
buildh testdrp5
buildh testdrp6
they all seem to work fine except testdrp3.prg
Can you please show the code how you are using it ? thanks
Code: Select all | Expand
DEFINE CURSOR oCursor RESOURCE "DRAGTRN2"
DEFINE DIALOG oDlgf RESOURCE cFolGst TITLE TE(0396,'โฟลิโอแขกพักห้อง','Guest In House Folio') ;
COLOR FONTTHEME, MEMVAR->THEME2020 ;
FONT MEMVAR->oFont
oDlgf:lHelpIcon := .F.
REDEFINE FOLDER oFld ID 102 OF oDlgf ;
PROMPTS 'Folio# 1 ',;
'Folio# 2 ',;
'Folio# 3 ',;
'Folio# 4 ',;
'Folio# 5 ',;
'Folio# 6 ',;
'Folio# 7 ',;
'Folio# 8 ',;
'Folio# 9 ' ;
DIALOGS cFolList, ;
cFolList, ;
cFolList, ;
cFolList, ;
cFolList, ;
cFolList, ;
cFolList, ;
cFolList, ;
cFolList ;
COLOR FONTTHEME, MEMVAR->THEME2020
// oFld:lAllWidth := .T.
oFld:bChange := { || oFld_Con() }
oFld:oFont := oFnt[4]
// Drag & Drop
oFld:bDropOver = { |uDropInfo,nRow,nCol,nKeyFlags| MoveTrns(0,nRow,nCol) }
REDEFINE XBROWSE oTbw COLUMNS 'tbl_rmno', ;
'ChkSt(oTBL)', ;
'', ;
'tbl_last', ;
'tbl_com', ;
'tbl_group', ;
'TotalFolio(oTBL)' ;
FIELDSIZES aGstsSize ;
HEADERS TE(0062,'ห้อง','Room'),;
TE(0490,'เช็ค','Chk'),;
TE('ออฟไลน์','Offline'),;
TE(0299,'ชื่อแขก','Guest Name'),;
TE(0171,'บริษัท','Company'), ;
TE(0172,'กลุ่ม','Group'), ;
TE(0398,'ยอด','Balance') ;
PICTURE ,,,,,,'999,999,999.99' ;
STYLE 2010 ;
JUSTIFY 0, 2, 2, 0, 0, 0, 1 ;
DATASOURCE oTBL ;
AUTOSORT ;
UPDATE ;
ID 101 ;
OF oDlgf
xBrStyles( oTbw, .T. )
oTbw:nHeaderHeight:= 31
oTbw:nRowHeight := 29
oTbw:aCols[1]:AddResource("LOCK1")
oTbw:aCols[1]:bBmpData := { || iif(rtrim(oTBL:tbl_lockrm)='Y', 1, 0 ) }
oTbw:aCols[1]:nDataBmpAlign := AL_RIGHT
oTbw:aCols[4]:bStrData := { ||RsGstName2(oTBL) }
oTbw:aCols[5]:bStrImage := { || iif(!empty(oTBL:gsi_image1), oTBL:gsi_image1, '' ) }
oTbw:aCols[5]:bStrData := { || iif(!empty(oTBL:gsi_image1), space(6), '' )+oTBL:tbl_com }
oTbw:bClrStd := { ||{ iif(oTBL:tbl_dep=MEMVAR->comdat , CLR_WHITE,FONTTHEME), iif(oTBL:TBL_DEP=MEMVAR->comdat , CLR_HRED, nXBckGrd( oTbw )) }}
oTbw:bClrSel := oTbw:bClrSelFocus
oTbw:bChange := { || if(!empty(oTBL:tbl_intno),(oTbl_Con(), oDlgf:aEvalWhen(), oDlgf:Update(), ReBtn2(oBtn,oBtnf) ), ) } // , SysRefresh() ) }
oTbw:bKeyDown := { | nKey | (if(upper(chr(nKey))='R' , (ReCalc(), oTBL:ReSync()) , ), oTbw:Refresh(), oTbw:SetFocus()) }
oTbw:bLDblClick := { |nRow,nCol,nKeyFlag| if(oTbw:nAt=3, (ChngOffPos(),oTbw:SetFocus(),oTbw:RefreshCurrent()), (if(!empty(val(oTBL:tbl_intno)),(RsvnScr(.F.,.T.,oTBL), oTbw:SetFocus(), oDlgf:Refresh(), ReGets()), )) ) }
oTbw:aCols[3]:AddResource("LOCK")
oTbw:aCols[3]:bBmpData := { || iif(oTBL:tbl_offpos, 1, 0) }
oTbw:aCols[3]:nDataBmpAlign := AL_CENTER
REDEFINE SAY oSayf[3] PROMPT TE(0399,'ห้อง# : ','Room# : ') ID 300 OF oDlgf UPDATE FONT oFnt[1] COLOR FONTTHEME, MEMVAR->THEME2020
REDEFINE SAY oTbw:oSeek PROMPT oTbw:cSeek ID 299 OF oDlgf UPDATE FONT oFnt[1] COLOR CLR_GREEN, MEMVAR->THEME2020
REDEFINE SAY oSayf[2] PROMPT cAT ID 298 OF oDlgf UPDATE FONT oFnt[1] COLOR CLR_HRED, MEMVAR->THEME2020
REDEFINE SAY oSays PROMPT TE(0225,'เลขห้อง','Room No.') ID 131 OF oDlgf
REDEFINE SAY oSays PROMPT TE(0400,'ค่าห้องพัก','Room Rate') ID 132 OF oDlgf
REDEFINE SAY oSays PROMPT TE(0017,'วันเข้า','Arrival') ID 133 OF oDlgf
REDEFINE SAY oSays PROMPT TE(0233,'วันออก','Departure') ID 134 OF oDlgf
REDEFINE SAY oSays PROMPT TE(1154,'เที่ยวบิน','Flight') ID 135 OF oDlgf
// REDEFINE SAY oSays PROMPT TE(0172,'กลุ่ม','Group') ID 136 OF oDlgf
REDEFINE SAY oSays PROMPT TE(0401,'ชำระโดย','Pay by') ID 137 OF oDlgf
REDEFINE SAY oSays PROMPT TE(0209,'หมายเหตุ','Remarks') ID 138 OF oDlgf
REDEFINE SAY oGets[1] VAR oTBL:tbl_rmno ID 103 OF oDlgf FONT oFnt[2] COLOR CLR_HRED, MEMVAR->THEME2020
REDEFINE SAY oGets[20] VAR Trans( TotalFolio(oTBL),'9,999,999,999.99') ID 104 OF oDlgf FONT oFnt[2] COLOR CLR_RED, RGB( 255, 255, 128 )
oGets[20]:lTransparent := .F.
REDEFINE GET oGets[2] VAR oTBL:tbl_rate ID 105 OF oDlgf WHEN .F. FONT oFnt[4] PICTURE '@Z 99,999.99'
REDEFINE GET oGets[3] VAR oTBL:tbl_arr ID 106 OF oDlgf WHEN .F. FONT oFnt[4]
REDEFINE GET oGets[4] VAR oTBL:tbl_dep ID 107 OF oDlgf WHEN .F. FONT oFnt[4]
REDEFINE GET oGets[5] VAR oTBL:tbl_dpflt ID 108 OF oDlgf WHEN .F. FONT oFnt[4]
REDEFINE GET oGets[6] VAR oTBL:tbl_dptime ID 109 OF oDlgf WHEN .F. FONT oFnt[4]
REDEFINE GET oGets[7] VAR oTBL:tbl_pay ID 110 OF oDlgf WHEN .F. FONT oFnt[4]
REDEFINE GET oGets[8] VAR oTBL:tbl_rmk ID 111 OF oDlgf WHEN .F. FONT oFnt[1] COLOR CLR_RED, RGB(128,255,255)
REDEFINE GET oGets[9] VAR oTBL:tbl_card ID 112 OF oDlgf WHEN .F. FONT oFnt[4]
REDEFINE GET oGets[10] VAR oTBL:tbl_expire ID 113 OF oDlgf WHEN .F. FONT oFnt[4]
DEFINE CURSOR oCur HAND
REDEFINE SAY oBals VAR TRANS( TotalFolio( oTBL, str(oFld:nOption,1) ) ,'999,999,999.99') ID 128 OF oDlgf FONT oFnt[5] COLOR FONTTHEME, RGB( 255, 255, 128 )
oBals:lTransparent := .F.
REDEFINE GET oGet2[1] VAR cPay[1] ID 129 OF oDlgf COLOR CLR_WHITE, CLR_RED WHEN .F. READONLY FONT oFnt[1]
oGet2[1]:lDisColors := .F.
oGet2[1]:lTransparent := .F.
for n := 1 to 9
REDEFINE XBROWSE oTrn[n] FIELDS DTOC(TRN1:trn_date) ,;
iif(MEMVAR->PrnInvNo,iif(TRN1:trn_invno=0,'',ltrim(str(TRN1:trn_invno,10))),left(TRN1:trn_time,5)) , ;
TRN1:trn_trno , ;
TRN1:trn_order, ;
TRN1:trn_desc , ;
TRN1:trn_rmk, ;
iif(TRN1:trn_tbl=TRN1:trn_rmno,'',TRN1:trn_rmno) , ;
iif(TRN1:trn_void='V','Void','') , ;
iif(!empty(TRN1:trn_trno), iif(EMPTY(TRN1:trn_user),'AUTO',TRN1:trn_user) , '' ) , ;
iif(TRN1:trn_trno< '9000' ,ROUND(TRN1:trn_unit * TRN1:trn_qtty,2), 0 ), ; // '@Z 999,999,999.99'), ;
iif(TRN1:trn_trno>='9000' ,ROUND((TRN1:trn_unit * TRN1:trn_qtty)*-1,2),0) ; //,'@Z 999,999,999.99') ;
FIELDSIZES aColsSize ; // 70, 60, 40, 75, 220, 200, 70, 45, 90, 110, 110 ;
HEADERS TE(0203,'วันที่','Date'), ;
TE(iif(MEMVAR->PrnInvNo,'ใบแจ้งหนี้','เวลา'),iif(MEMVAR->PrnInvNo,'Invoice','Time')), ;
TE(0402,'รหัส','Trn#'), ;
TE(0403,'เลขอ้างอิง','Reference'), ;
TE(0582,'รายการ','Description'), ;
TE(0209,'หมายเหตุ','Remarks'), ;
TE(0404,'ห้องเดิม','O.Rm'), ;
TE(0405,'ยกเว้น','Void'), ;
TE(0406,'พนักงาน','UserID'), ;
TE(0354,'จำนวนเงิน','Amount'), ;
TE(0407,'ยอดชำระ','Paid') ;
DATASOURCE TRN1 ;
UPDATE ;
JUSTIFY 2 , 2 , 2 , 0 , 0 , 0 , 2 , 2 , 2 , 1 , 1 ;
PICTURE ,,,,,,,,,'@Z 99,999,999.99', '@Z 99,999,999.99' ;
ID 121 ;
STYLE 2010 ;
OF oFld:aDialogs[ n ] ;
xBrStyles( oTrn[n], .T. )
oTrn[n]:nRowDividerStyle := MARQSTYLE_NOMARQUEE
oTrn[n]:lRecordSelector := .F.
oTrn[n]:bClrStd := { ||{ SelColor(TRN1:trn_void,.F.,.F.), SelColor(TRN1:trn_void,.T.,.F.) }}
oTrn[n]:bClrSel := { ||{ SelColor(TRN1:trn_void,.F.,.T.), SelColor(TRN1:trn_void,.T.,.T.) }}
oTrn[n]:nRowHeight := 29
oTrn[n]:nFooterHeight := 28
oTrn[n]:lFooter := .T.
oTrn[n]:aCols[ 9]:bFooter := {||'Total'}
oTrn[n]:aCols[ 9]:nFootStrAlign := AL_CENTER
oTrn[n]:aCols[10]:nFooterType := AGGR_SUM
oTrn[n]:aCols[10]:bSumCondition := { |v,o| TRN1:trn_void<>'V' }
oTrn[n]:aCols[10]:cEditPicture := '@Z 9,999,999,999.99'
oTrn[n]:aCols[10]:nFootStrAlign := AL_RIGHT
oTrn[n]:aCols[11]:nFooterType := AGGR_SUM
oTrn[n]:aCols[11]:cEditPicture := '@Z 9,999,999,999.99'
oTrn[n]:aCols[11]:nFootStrAlign := AL_RIGHT
oTrn[n]:oDragCursor := oCursor
oTrn[n]:bDragBegin := { || iif(UserRights(57,.F.), ( nFolioNo := oFld:nOption ),) }
oTrn[n]:bLDblClick := { || iif(!empty(TRN1:trn_trno),NewPost( .F. , 'R' ), ) }
oTrn[n]:bChange := { || (lEnables := TRN1:trn_date=MEMVAR->COMDAT.and.!empty(TRN1:trn_trno)) , ;
(lSplit := TRN1:trn_void<>'V'.and.TRN1:trn_trno<'9000'.and.!empty(TRN1:trn_trno)) , ;
ReBtn2(oBtn,oBtnf), ;
oDlgf:aEvalWhen() , ;
oDlgf:Update() }
oTrn[n]:bKeyDown := { | nKey | (IIF(nKey = VK_INSERT.and.empty(aRecNo) , NewPost(.T.,'R') , ;
IIF(nKey = VK_RETURN , iif(!empty(TRN1:trn_trno), NewPost(.F.,'R') , ) , ;
IIF(nKey = VK_ADD , iif(!empty(TRN1:trn_trno), (MarkTrn() , (lTrnsfer := !empty(aRecNo)) , oDlgf:aEvalWhen() , oDlgf:Update() ) , ) , ;
IIF(nKey = VK_MULTIPLY, iif(!empty(TRN1:trn_trno), (MarkAll() , (lTrnsfer := !empty(aRecNo)) , oDlgf:aEvalWhen() , oDlgf:Update() ) , ) , ;
IIF(nKey = VK_DELETE , iif(!empty(TRN1:trn_trno), iif(TRN1:TRN_TRNO<'9000', (VoidTrn(TRN1:RecNo()),oTrn[oFld:nOption]:SetFocus()), NewPost(.T.,'P',,.T.)) , ) , ;
IIF(nKey = VK_INSERT.and.!empty(aRecNo) , MoveTrns( oFld:nOption, 0 , 0 ) , ) ) ) ) ) ), oTbw:Refresh()) }
oTrn[n]:Maketotals()
next
REDEFINE SAY oSayc PROMPT TE(0398,'ยอดสุทธิ','Balance') ID 125 OF oDlgf TRANSPARENT FONT oFnt[1]
REDEFINE SBUTTON oBtnf[1] ID 122 OF oDlgf ;
RESOURCE 'MARK1' ;
PROMPT TE(0264,'เลือก','Mark'); // TE(0265,'ยกเลิก','UnMark') ;
WHEN ((TRN1:trn_chkno=0.or.(TRN1:trn_chkno>0.and.UserRights(118,.F.))) .and. MEMVAR->oTBL:tbl_status='O'.and.UserRights(57,.F.) ) ; // lTrnsfer ;
ACTION ( MarkTrn(), (lTrnsfer := !empty(aRecNo)) , oDlgf:aEvalWhen() , oDlgf:Update(), ReBtn2(oBtn,oBtnf) ) ;
COLOR bSColors W97 ;
TEXT ON_BOTTOM
REDEFINE SBUTTON oBtnf[2] ID 123 OF oDlgf ;
RESOURCE 'MARKALL1' ;
PROMPT TE(0264,'เลือก','Mark')+' '+;
TE(0408,'หมด','All') ;
WHEN ((TRN1:TRN_CHKNO=0.or.(TRN1:TRN_CHKNO>0.and.UserRights(118,.F.))) .and. MEMVAR->oTBL:tbl_status='O'.and.UserRights(57,.F.) ) ; // lTrnsfer ;
ACTION (MarkAll() , (lTrnsfer := !empty(aRecNo)) , oDlgf:aEvalWhen() , oDlgf:Update(), ReBtn2(oBtn,oBtnf) ) ;
COLOR bSColors W97 ;
TEXT ON_BOTTOM
REDEFINE SBUTTON oBtnf[3] ID 130 OF oDlgf ;
RESOURCE 'MOVETRN1' ;
PROMPT TE(0409,'ย้าย','Move')+' '+;
TE(0410,'รายการ','Trns') ;
WHEN ( !empty(aRecNo).and.MEMVAR->oTBL:tbl_status='O'.and.UserRights(57,.F.) ) ; // lTrnsfer ;
ACTION ( MoveToFol(), oBtn[9]:Refresh(), oBtnf[3]:Refresh() ) ;
COLOR bSColors W97 ;
TEXT ON_BOTTOM
REDEFINE SBUTTON oSay2[1] ID 241 OF oDlgf ;
ACTION ( oFld:SetOption(1) ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oSay2[2] ID 242 OF oDlgf ;
ACTION ( oFld:SetOption(2) ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oSay2[3] ID 243 OF oDlgf ;
ACTION ( oFld:SetOption(3) ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oSay2[4] ID 244 OF oDlgf ;
ACTION ( oFld:SetOption(4) ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oSay2[5] ID 245 OF oDlgf ;
ACTION ( oFld:SetOption(5) ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oSay2[6] ID 246 OF oDlgf ;
ACTION ( oFld:SetOption(6) ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oSay2[7] ID 247 OF oDlgf ;
ACTION ( oFld:SetOption(7) ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oSay2[8] ID 248 OF oDlgf ;
ACTION ( oFld:SetOption(8) ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oSay2[9] ID 249 OF oDlgf ;
ACTION ( oFld:SetOption(9) ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SAY oGets[11] VAR oTBL:fol_amt1-oTBL:fol_pad1 PICTURE '@Z 999,999,999.99' ID 141 OF oDlgf COLOR CLR_RED, CLR_WHITE
oGets[11]:bDropOver := {|| MoveTrns(1,0,0) }
REDEFINE SAY oGets[12] VAR oTBL:fol_amt2-oTBL:fol_pad2 PICTURE '@Z 999,999,999.99' ID 142 OF oDlgf COLOR CLR_RED, CLR_WHITE
oGets[12]:bDropOver := {|| MoveTrns(2,0,0) }
REDEFINE SAY oGets[13] VAR oTBL:fol_amt3-oTBL:fol_pad3 PICTURE '@Z 999,999,999.99' ID 143 OF oDlgf COLOR CLR_RED, CLR_WHITE
oGets[13]:bDropOver := {|| MoveTrns(3,0,0) }
REDEFINE SAY oGets[14] VAR oTBL:fol_amt4-oTBL:fol_pad4 PICTURE '@Z 999,999,999.99' ID 144 OF oDlgf COLOR CLR_RED, CLR_WHITE
oGets[14]:bDropOver := {|| MoveTrns(4,0,0) }
REDEFINE SAY oGets[15] VAR oTBL:fol_amt5-oTBL:fol_pad5 PICTURE '@Z 999,999,999.99' ID 145 OF oDlgf COLOR CLR_RED, CLR_WHITE
oGets[15]:bDropOver := {|| MoveTrns(5,0,0) }
REDEFINE SAY oGets[16] VAR oTBL:fol_amt6-oTBL:fol_pad6 PICTURE '@Z 999,999,999.99' ID 146 OF oDlgf COLOR CLR_RED, CLR_WHITE
oGets[16]:bDropOver := {|| MoveTrns(6,0,0) }
REDEFINE SAY oGets[17] VAR oTBL:fol_amt7-oTBL:fol_pad7 PICTURE '@Z 999,999,999.99' ID 147 OF oDlgf COLOR CLR_RED, CLR_WHITE
oGets[17]:bDropOver := {|| MoveTrns(7,0,0) }
REDEFINE SAY oGets[18] VAR oTBL:fol_amt8-oTBL:fol_pad8 PICTURE '@Z 999,999,999.99' ID 148 OF oDlgf COLOR CLR_RED, CLR_WHITE
oGets[18]:bDropOver := {|| MoveTrns(8,0,0) }
REDEFINE SAY oGets[19] VAR oTBL:fol_amt9-oTBL:fol_pad9 PICTURE '@Z 999,999,999.99' ID 149 OF oDlgf COLOR CLR_RED, CLR_WHITE
oGets[19]:bDropOver := {|| MoveTrns(9,0,0) }
for x := 11 to 9
oGets[x]:lTransparent := .F.
next
REDEFINE SBUTTON oBtn[1] ID 201 OF oDlgf ;
RESOURCE 'NEW1' ;
WHEN (oTBL:tbl_status='O' .and.UserRights( 31,.F.)) ;
PROMPT TE(0411,'วอคอิน','Walk In') ;
ACTION ( RsvnScr(.T.,.T.,oTBL), oTbw:SetFocus(), oTbl_Con(), oDlgf:Refresh() ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[2] ID 202 OF oDlgf;
RESOURCE 'EDIT1' ;
WHEN (oTBL:tbl_status='O' .and. UserRights( 31,.F.)) ;
PROMPT TE(0192,'แก้ไข','Edit')+' '+TE(0204,'จอง','Book') ;
ACTION (if(!empty(val(oTBL:tbl_intno)),(RsvnScr(.F.,.T.,oTBL), oTbw:SetFocus(), oDlgf:Refresh(), ReGets()), ) ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[3] ID 203 OF oDlgf ;
RESOURCE 'OUT1' ;
WHEN (TotalFolio(oTBL)=0) ;
PROMPT iif(oTBL:tbl_status='O', TE(0412,'แขกออก','Check Out'), ;
TE(0413,'เลิกออก','Cxl C/Out'));
ACTION (iif(oTBL:tbl_status='O',CheckOut(oTBL:tbl_rmno,,oTBL),CxlChkOut(oTBL,oTBL:tbl_rmno)), ;
oTBL:Refresh(), ;
oTbw:GoUp(), ;
oTbw:Refresh(), ;
oTbw:SetFocus(), ;
oBtn[3]:Refresh(), oDlgf:Update(), SysRefresh(), ;
iif(oTBL:KeyCount()=0, oDlgf:End(), ) ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[4] ID 204 OF oDlgf ;
RESOURCE 'MOVERM' ;
WHEN (oTBL:tbl_status='O'.and.UserRights( 39, .F.)) ;
PROMPT TE(0415,'ย้ายห้อง','Move Room') ;
ACTION (Moveroom(oTBL:Tbl_Intno,oTBL:tbl_shrno,oTBL), oGets[1]:Refresh(), oTBL:ReQuery(), oTbw:Refresh(), oTbw:SetFocus()) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[5] ID 205 OF oDlgf ;
RESOURCE 'FOLSET1' ;
WHEN (oTBL:tbl_status='O'.and.UserRights( 41, .F.)) ;
PROMPT TE(0417,'รูปแบบโฟลิโอ','Folio SetUp') ;
ACTION ( if(FolSetUp(), oTrn[oFld:nOption]:SetFocus(), ;
oTrn[oFld:nOption]:SetFocus()), Eval(oTbw:bChange) ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[6] ID 206 OF oDlgf ;
RESOURCE 'PAY1' ;
WHEN (oTBL:tbl_status='O'.and.UserRights( 58 , .F. )) ;
PROMPT TE(0418,'จ่าย','Pay') ;
ACTION (if(Bal0(oFld:nOption),PrintFol0(str(oFld:nOption,1)),NewPost( .T. , 'P' )), oTrn[oFld:nOption]:SetFocus() ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[7] ID 207 OF oDlgf ;
RESOURCE 'POST1' ;
WHEN (oTBL:tbl_status='O'.and.UserRights(53,.F.)) ;
PROMPT TE(0420,'บันทึกใหม่','New Post') ;
ACTION (NewPost( .T. , 'R' ), oTBL:ReQuery(), oTbw:Refresh(), ReBtn2(oBtn,oBtnf), oTrn[oFld:nOption]:SetFocus() ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[8] ID 208 OF oDlgf ;
RESOURCE 'DELETE1' ;
WHEN (lEnables.and.oTBL:tbl_status='O'.and.UserRights(55,.F.)) ; // lMainMenu.and. .and.TRN1:TRN_DATE=MEMVAR->comdat
PROMPT TE(0422,'ยกเลิก/เรียกคืน','Void/UnVoid') ;
ACTION (if(TRN1:trn_trno<'9000',(VoidTrn(TRN1:RecNo()), oTbw:Refresh()), ;
(NewPost( .T. , 'P', , .T. )) ), oTrn[oFld:nOption]:SetFocus()) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[9] ID 209 OF oDlgf ;
RESOURCE 'TRANSFER' ;
WHEN (!empty(aRecNo).and.oTBL:tbl_status='O'.and.UserRights(57,.F.)) ; // lTrnsfer
PROMPT TE(0424,'โอนย้าย','Transfer') ;
ACTION ( PickGst(oFld:nOption), oTBL:ReQuery(), oBtn[9]:Refresh(), oBtnf[3]:Refresh(), oTrn[oFld:nOption]:SetFocus() ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[10] ID 210 OF oDlgf ;
RESOURCE 'SPLIT' ;
WHEN (lSplit.and.oTBL:tbl_status='O' .and. ascan( MEMVAR->aMnb , TRN1:trn_trno )=0 .and. !empty(TRN1:trn_trno).and.UserRights(54,.F.)) ;
PROMPT TE(0426,'แบ่งรายการ','Spl&it Trns.') ;
ACTION ( Splitrn( (15*(oTrn[oFld:nOption]:nRowSel-1)), TRN1:Recno() ) , oTrn[oFld:nOption]:SetFocus() ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[11] ID 211 OF oDlgf ;
RESOURCE 'PRINT1' ;
WHEN (oTBL:Fields('fol_uprn'+str(oFld:nOption,1)):Value=.F.) ;
PROMPT TE(0348,'พิมพ์','Print') ;
ACTION (PrintFol(str(oFld:nOption,1),0,,MEMVAR->lDemo,iif(empty(oTBL:tbl_lang),iif(MEMVAR->dLang='E',1,2),iif(oTBL:tbl_lang='E',1,2)))) ; // PrnOpt(str(oFld:nOption,1)) ;
MENU ACTION (PrnOpt(str(oFld:nOption,1))) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[13] ID 223 OF oDlgf ;
RESOURCE 'OUT1' ;
WHEN (oTBL:tbl_status='O' .and. !empty(cGroup)) ;
PROMPT TE(0414,'แขกออกยอด 0','Chk&Out 0 Bal.') ;
ACTION (ChkOutZero( oTBL:tbl_grpno), ;
oTBL:ReQuery(), ;
oTBL:Refresh(), ;
oTbw:SetFocus(), ;
oTbw:Refresh(), ;
oTbw:SetFocus(), ;
oBtn[13]:Refresh(), ;
oBtn[15]:Refresh(), ;
oBtn[16]:Refresh(), ;
oBtn[17]:Refresh(), ;
oBtn[21]:Refresh(), ;
SysRefresh()) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[14] ID 224 OF oDlgf ;
RESOURCE 'GUEST1' ;
WHEN (oTBL:tbl_status='O' ) ;
PROMPT TE(0416,'ประวัติแขก','Guest Profile') ;
ACTION (EditGst(oDlgf),oTbw:SetFocus(), oTBL:ReSync(), oTBL:Refresh(), oTbw:Refresh()) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[15] ID 226 OF oDlgf ;
RESOURCE 'ATPOST1' ;
WHEN (oTBL:tbl_status='O'.and.UserRights(53,.F.)) ;
PROMPT TE(0419,'บันทึกค่าห้อง','Room Posted') ;
ACTION (RoomPost(oTBL:tbl_rmno) , oTbw:Refresh() , oTbl_con() ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[16] ID 227 OF oDlgf ;
RESOURCE 'CALENDAR3' ;
WHEN (oTBL:tbl_status='O'.and.UserRights(53,.F.) .and. !empty(oTBL:tbl_ratcod)) ;
PROMPT TE(0421,'ค่าเช่ารายเดือน','Monthly Posting');
ACTION (mPostDate(.F.), oTbw:SetFocus(), oTbw:Refresh()) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[17] ID 228 OF oDlgf ;
RESOURCE 'CALLHK1' ;
WHEN (oTBL:tbl_status='O') ;
PROMPT TE(0423,'แจ้งแม่บ้าน','Call H/K') ;
ACTION (if(MsgYesNo(TE(1628,'ส่งข้อความเช็คเอาท์ให้แม่บ้าน','Send Check Out Message to H/K')+' ?'), SendMsgHK() , ), oTbw:Refresh()) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[18] ID 229 OF oDlgf ;
RESOURCE 'FOLDER1' ;
WHEN (oTBL:tbl_status='O' ) ;
PROMPT TE(0425,'บันทึกเปลี่ยน','User Log') ;
ACTION ViewLog(oTBL:tbl_intno,'C') ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[19] ID 231 OF oDlgf ;
RESOURCE 'SHARE1' ;
WHEN (oTBL:tbl_status='O'.and.UserRights(34,.F.)) ;
PROMPT TE(0427,'พักร่วม','Share Guest') ;
ACTION ( ShareRsvn(oTBL:tbl_status), oTbw:Refresh(), oTbw:SetFocus() ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[20] ID 233 OF oDlgf ;
RESOURCE 'CHKIN1' ;
PROMPT TE(0428,'พัก/ออก','In/Out') ;
ACTION ((rStatus := iif(rStatus='O',"","O")), ;
oDlgf:SetText( if(rStatus='O',TE(0396,'โฟลิโอแขกพักห้อง','Guest In House Folio'),TE(0429,'โฟลิโอที่จ่ายแล้ว','Checked Out Folio')) ), ;
SysRefresh(), ;
oTBL:ReQuery( {rStatus} ) , ;
oTBL:Refresh(), ;
oTBL:GoTop(), ;
oTbw:GoTop(), ;
ReBtn2(oBtn,oBtnf), ;
oTbw:Refresh(), ;
oTbw:SetFocus() ) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[21] ID 234 OF oDlgf ;
RESOURCE 'CHNGST1' ;
WHEN (oTBL:tbl_status='O' ) ;
PROMPT TE(0430,'เปลี่ยนแขก','Change Guest') ;
ACTION (ChangeGuest( .F. ), oTbw:Refresh(), oTbw:SetFocus()) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
REDEFINE SBUTTON oBtn[12] ID 236 OF oDlgf ;
PROMPT TE(0431,'ออก','Exit') ;
RESOURCE 'EXIT1' ;
ACTION (oDlgf:End()) ;
COLOR bSColors W97 ;
TEXT ON_RIGHT
oDlgf:bStart := {|| if(empty(cSearch), oTbw:SetFocus(), ) }
ACTIVATE DIALOG oDlgf ON INIT (oDlgf:Move( MEMVAR->TopWin,MEMVAR->LeftWin) , oTbw:GoTop() , Eval( oTbw:bChange )) ;
ON PAINT (Timers()) ;
VALID (oTimer:Deactivate(), .T.) RESIZE16
Regards,
Dutch
FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
Dutch
FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
-
nageswaragunupudi
- Posts: 10691
- Joined: Sun Nov 19, 2006 5:22 am
- Location: India
- Contact:
Re: bDragBegin and bDropOver problem
You will appreciate that we can not build your sample here and test.
We need to prepare a sample similar to that.
We'll get back soon.
We need to prepare a sample similar to that.
We'll get back soon.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Re: bDragBegin and bDropOver problem
Dear All,
This code works fine with FWH1901 but doesn't work with FWH2304.
https://drive.google.com/drive/folders/ ... drive_link
I use UES for build the sample program.
This code works fine with FWH1901 but doesn't work with FWH2304.
https://drive.google.com/drive/folders/ ... drive_link
I use UES for build the sample program.
Thank you in advance,nageswaragunupudi wrote:You will appreciate that we can not build your sample here and test.
We need to prepare a sample similar to that.
We'll get back soon.
Regards,
Dutch
FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
Dutch
FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
-
nageswaragunupudi
- Posts: 10691
- Joined: Sun Nov 19, 2006 5:22 am
- Location: India
- Contact:
Re: bDragBegin and bDropOver problem
I could not see anything
If it is a anim gif file, please send to my email
Pardon my ignorance. What is UES ?
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Re: bDragBegin and bDropOver problem
Dear Master Rao,
I'm sorry. I forgot allow to access this file. I allow all now. Could you try again, please.
UES = Ultra Edit Studio.
I'm sorry. I forgot allow to access this file. I allow all now. Could you try again, please.
UES = Ultra Edit Studio.
nageswaragunupudi wrote:I could not see anything
If it is a anim gif file, please send to my email
Pardon my ignorance. What is UES ?
Regards,
Dutch
FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
Dutch
FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
Re: bDragBegin and bDropOver problem
Any update.
Thanks in advance.
Thanks in advance.
Regards,
Dutch
FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
Dutch
FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
Re: bDragBegin and bDropOver problem
Buen día. ¿Este FILE.RES se produjo con qué editor de recursos?
Good morning. This FILE.RES was produced with which resource editor?
Regards, saludos.
Good morning. This FILE.RES was produced with which resource editor?
Code: Select all | Expand
/****************************************************************************
ss.rc
produced by Borland Resource Workshop
*****************************************************************************/
FOLGST19 DIALOG 0, 0, 746, 532
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Guest Folio"
FONT 8, "MS Sans Serif"
{
CONTROL "", 101, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_TABSTOP, 279, 2, 458, 73
CONTROL "TFolder", 102, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 3, 131, 736, 357
EDITTEXT 105, 197, 8, 75, 15, ES_RIGHT | ES_MULTILINE | WS_DISABLED | WS_BORDER | WS_TABSTOP
__CLASS "Edit"
EDITTEXT 106, 68, 26, 60, 15, ES_MULTILINE | WS_DISABLED | WS_BORDER | WS_TABSTOP
__CLASS "Edit"
EDITTEXT 107, 68, 44, 60, 15, ES_MULTILINE | WS_DISABLED | WS_BORDER | WS_TABSTOP
__CLASS "Edit"
EDITTEXT 108, 197, 44, 40, 15, ES_CENTER | ES_MULTILINE | WS_DISABLED | WS_BORDER | WS_TABSTOP
__CLASS "Edit"
EDITTEXT 109, 242, 44, 30, 15, ES_CENTER | ES_MULTILINE | WS_DISABLED | WS_BORDER | WS_TABSTOP
__CLASS "Edit"
EDITTEXT 110, 68, 62, 25, 15, ES_CENTER | ES_MULTILINE | WS_BORDER | WS_TABSTOP
__CLASS "Edit"
EDITTEXT 111, 68, 81, 442, 14, ES_MULTILINE | ES_READONLY | WS_BORDER | WS_TABSTOP
__CLASS "Edit"
EDITTEXT 112, 97, 62, 140, 15, ES_MULTILINE | WS_BORDER | WS_TABSTOP
__CLASS "Edit"
EDITTEXT 113, 242, 62, 30, 15, ES_CENTER | ES_MULTILINE | WS_BORDER | WS_TABSTOP
__CLASS "Edit"
LTEXT "Room No.", 131, 10, 10, 55, 11
__CLASS "Static"
LTEXT "Room Rate", 132, 146, 11, 46, 11
__CLASS "Static"
LTEXT "Arrival", 133, 10, 29, 55, 11
__CLASS "Static"
LTEXT "Flight", 135, 151, 47, 32, 11
__CLASS "Static"
LTEXT "Remarks", 138, 10, 84, 55, 11
__CLASS "Static"
LTEXT "Departure", 134, 10, 47, 55, 11
__CLASS "Static"
LTEXT "Pay by", 137, 10, 65, 55, 11
__CLASS "Static"
LTEXT "Room#", 300, 519, 80, 34, 12
__CLASS "Static"
LTEXT "Text", 103, 69, 5, 71, 15
__CLASS "Static"
LTEXT "*AT*", 298, 519, 93, 24, 10
__CLASS "Static"
PUSHBUTTON "Folio# 1", 241, 2, 103, 80, 12
__CLASS "Button"
PUSHBUTTON "Folio# 2", 242, 84, 103, 80, 12
__CLASS "Button"
PUSHBUTTON "Folio# 3", 243, 166, 103, 80, 12
__CLASS "Button"
PUSHBUTTON "Folio# 4", 244, 248, 103, 80, 12
__CLASS "Button"
PUSHBUTTON "Folio# 5", 245, 330, 103, 80, 12
__CLASS "Button"
PUSHBUTTON "Folio# 6", 246, 412, 103, 80, 12
__CLASS "Button"
PUSHBUTTON "Folio# 7", 247, 494, 103, 80, 12
__CLASS "Button"
PUSHBUTTON "Folio# 8", 248, 576, 103, 80, 12
__CLASS "Button"
PUSHBUTTON "Folio# 9", 249, 658, 103, 80, 12
__CLASS "Button"
EDITTEXT 141, 2, 115, 80, 14, ES_RIGHT | ES_READONLY | NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
__CLASS "Edit"
EDITTEXT 142, 84, 115, 80, 14, ES_RIGHT | ES_READONLY | NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
__CLASS "Edit"
EDITTEXT 143, 166, 115, 80, 14, ES_RIGHT | ES_READONLY | NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
__CLASS "Edit"
EDITTEXT 144, 248, 115, 80, 14, ES_RIGHT | ES_READONLY | NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
__CLASS "Edit"
EDITTEXT 145, 330, 115, 80, 14, ES_RIGHT | ES_READONLY | NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
__CLASS "Edit"
EDITTEXT 146, 412, 115, 80, 14, ES_RIGHT | ES_READONLY | NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
__CLASS "Edit"
EDITTEXT 147, 494, 115, 80, 14, ES_RIGHT | ES_READONLY | NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
__CLASS "Edit"
EDITTEXT 148, 576, 115, 80, 14, ES_RIGHT | ES_READONLY | NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
__CLASS "Edit"
EDITTEXT 149, 658, 115, 80, 14, ES_RIGHT | ES_READONLY | NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
__CLASS "Edit"
EDITTEXT 104, 609, 79, 117, 20, ES_RIGHT | ES_READONLY | NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
__CLASS "Edit"
LTEXT "", 299, 556, 79, 46, 13
__CLASS "Static"
EDITTEXT 128, 641, 498, 90, 18, ES_RIGHT | ES_READONLY | WS_BORDER | WS_TABSTOP
__CLASS "Edit"
CTEXT "Balance", 125, 572, 502, 62, 13
__CLASS "Static"
EDITTEXT 129, 179, 506, 345, 18, ES_READONLY | WS_BORDER | WS_TABSTOP
__CLASS "Edit"
}
FOLLIST19 DIALOG 5, 33, 734, 339
STYLE WS_CHILD | WS_VISIBLE
FONT 6, "MS Sans Serif"
{
CONTROL "", 121, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_TABSTOP, 0, 0, 734, 339
}
DRAGTRN2 CURSOR
{
'00 00 02 00 01 00 20 20 00 00 00 00 00 00 30 01'
'00 00 16 00 00 00 28 00 00 00 20 00 00 00 40 00'
'00 00 01 00 01 00 00 00 00 00 80 00 00 00 00 00'
'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
'00 00 FF FF FF 00 00 00 00 00 00 00 00 00 00 00'
'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
'00 00 00 00 06 00 00 00 06 00 00 00 0C 00 00 00'
'0C 00 00 00 18 00 00 02 18 00 00 03 30 00 00 03'
'B0 00 00 03 F0 00 55 53 FE 55 80 03 FC 00 00 03'
'F8 01 80 03 F0 00 00 03 E0 01 80 03 C0 00 00 03'
'80 01 80 03 00 00 00 02 00 01 80 00 00 00 00 00'
'00 01 80 00 00 00 00 00 00 01 80 00 00 00 00 00'
'00 01 AA AA AA AA FF FF FF FF FF FF FF FF FF FF'
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
'F9 FF FF FF F0 FF FF FF F0 FF FF FF E1 FF FF FB'
'E1 FF FF F8 C3 FF FF F8 43 FF FF F8 03 FF FF F8'
'07 FF FF F8 00 7F 00 00 00 00 7F F8 01 FE 7F F8'
'03 FE 7F F8 07 FE 7F F8 0F FE 7F F8 1F FE 7F F8'
'3F FE 7F F8 7F FE 7F F8 FF FE 7F F9 FF FE 7F FF'
'FF FE 7F FF FF FE 7F FF FF FE 7F FF FF FE 7F FF'
'FF FE 00 00 00 00'
}
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
-
Enrico Maria Giordano
- Posts: 8728
- Joined: Thu Oct 06, 2005 8:17 pm
- Location: Roma - Italia
- Contact:
Re: bDragBegin and bDropOver problem
Code: Select all | Expand
produced by Borland Resource Workshop
Re: bDragBegin and bDropOver problem
Enrico Maria Giordano wrote:Code: Select all | Expand
produced by Borland Resource Workshop
HAHAHAHAHA,
This .RC, I was the one who passed the .RES to .RC using WORKSHOP.exe, I asked why the FILE.RES that he made available for download has technical defects.
Este .RC, fui yo quien pasó el .RES a .RC usando WORKSHOP.exe, pregunté por qué el FILE.RES que puso a disposición para descargar tiene defectos técnicos.
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Re: bDragBegin and bDropOver problem
Dear Karinha,
This FILE.RES is concerned with this problem. I don't understand.
Thank you for your suggestion.
This FILE.RES is concerned with this problem. I don't understand.
Thank you for your suggestion.
karinha wrote:Enrico Maria Giordano wrote:Code: Select all | Expand
produced by Borland Resource Workshop
HAHAHAHAHA,
This .RC, I was the one who passed the .RES to .RC using WORKSHOP.exe, I asked why the FILE.RES that he made available for download has technical defects.
Este .RC, fui yo quien pasó el .RES a .RC usando WORKSHOP.exe, pregunté por qué el FILE.RES que puso a disposición para descargar tiene defectos técnicos.
Regards, saludos.
Regards,
Dutch
FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
Dutch
FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
Re: bDragBegin and bDropOver problem
Dutch, don't worry, there was some damage caused during the download, I downloaded it again and there was no error when opening the .res file.
Dutch, no te preocupes, hubo algunos _ durante la descarga, lo descargué nuevamente y no hubo ningún error al abrir el archivo .res.
Regards, saludos.
Dutch, no te preocupes, hubo algunos _ durante la descarga, lo descargué nuevamente y no hubo ningún error al abrir el archivo .res.
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Re: bDragBegin and bDropOver problem
OK, Karinha. I got it.
karinha wrote:Dutch, don't worry, there was some damage caused during the download, I downloaded it again and there was no error when opening the .res file.
Dutch, no te preocupes, hubo algunos _ durante la descarga, lo descargué nuevamente y no hubo ningún error al abrir el archivo .res.
Regards, saludos.
Regards,
Dutch
FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
Dutch
FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
-
nageswaragunupudi
- Posts: 10691
- Joined: Sun Nov 19, 2006 5:22 am
- Location: India
- Contact:
Re: bDragBegin and bDropOver problem
Say control does not accept drop unless oSay:lWantClick is set to .T.
The behavior is consistent in all versions of FWH and in particular this is the same behavior both in 1901 and 2304.
Here is a small test:
The behavior is consistent in all versions of FWH and in particular this is the same behavior both in 1901 and 2304.
Here is a small test:
Code: Select all | Expand
#include "fivewin.ch"
function Main()
local oDlg, oBrw, oChk, oSay, cSay := "This is Say Control"
local oCur, oFont
DEFINE CURSOR oCur DRAG
DEFINE FONT oFont NAME "VERDANA" SIZE 0,-20
DEFINE DIALOG oDlg SIZE 600,250 PIXEL TRUEPIXEL ;
FONT oFont TITLE FWVERSION
@ 20,20 XBROWSE oBrw SIZE 200,-20 PIXEL OF oDlg ;
DATASOURCE { "One", "Two", "Three" } ;
CELL LINES NOBORDER
WITH OBJECT oBrw
:nStretchCol := 1
:oDragCursor := oCur
:bDragBegin := { || SetDropInfo( oBrw:aCols[ 1 ]:Value ) }
:CreateFromCode()
END
@ 20, 250 SAY oSay PROMPT cSay SIZE 250,30 PIXEL OF oDlg ;
COLOR CLR_BLACK,CLR_WHITE
oSay:lWantClick := .t.
oSay:bDropOver := { |u,r,c,f| cSay := u, oSay:Refresh() }
@ 90,250 CHECKBOX oChk VAR oSay:lWantClick ;
PROMPT "oSay:lWantClick" ;
SIZE 250,30 PIXEL OF oDlg
// oDlg:bDropOver := { |u,r,c,f| MsgInfo( "no drop here" ) }
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
return nilRegards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India