Problem Clicking on Fields in Dialog

Post Reply
User avatar
cdmmaui
Posts: 653
Joined: Fri Oct 28, 2005 9:53 am
Location: The Woodlands - Dallas - Scottsdale - London
Contact:

Problem Clicking on Fields in Dialog

Post by cdmmaui »

Hello,

I am having a strange problem since switching over to Pelles C IDE to manage my resources. I update the resource then save as RES so I do not have problems of escape sequencing errors.

Now, user cannot click on field to access directly, they can tab through fields to eventually to get to field but it is very time consuming.

I am new to Pelles C IDE, is there something I can update within Pelles C IDE to correct the problem.

Thank you,
*~*~*~*~*~*~*~*~*~*
Darrell Ortiz
CDM Software Solutions, Inc.
https://www.cdmsoft.com
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: Problem Clicking on Fields in Dialog

Post by Antonio Linares »

Darrell,

Could you please post an example of a PRG and RC that behaves like you describe ? thanks
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
cdmmaui
Posts: 653
Joined: Fri Oct 28, 2005 9:53 am
Location: The Woodlands - Dallas - Scottsdale - London
Contact:

Re: Problem Clicking on Fields in Dialog

Post by cdmmaui »

Antonio,

Here is the PRG and part of RC, the WR1 listed below is only dialog that has this behavior.

Please note everything was working fine until I updated with Pelles C IDE.

// PRG........

DEFINE ICON oIcon RESOURCE "WMS"

DEFINE DIALOG oDlg RESOURCE "DATAENTRY" TITLE cTitle ICON oIcon

REDEFINE FOLDER oFld ID 5000 OF oDlg ;
PROMPT "Receipt" ;
DIALOGS cFolder

// Page 1...
REDEFINE GET aWr[01] VAR Mbookno ID 101 OF oFld:aDialogs[1] ;
PICTURE "@!S20" ;
VALID ( lPass := WrChk( "BOOK", lAppend, @Mbookno, @Mbookno2, @Mownid, @Mownchk, @Mownname, @Mpcs, @Mtotlbs, @Mtotkgs, Mserial, oDimBox, @Mconsid, @Mconschk, @Mconsname ), _GetRef( aWr ), lPass ) ;
WHEN lAppend .AND. (! "TOPLAX" $ Pmod)

REDEFINE GET aWr[02] VAR Mwrno ID 102 OF oFld:aDialogs[1] ;
PICTURE REPLIC("!",20) ;
WHEN lWrno

REDEFINE GET aWr[03] VAR Mdate ID 103 OF oFld:aDialogs[1] ;
PICTURE "@D" VALID( lPass := _sysdate( Mdate, PA[29], .F. ), lPass ) WHEN lAppend .OR. ( "TTUSA" $ Pmod )

REDEFINE GET aWr[04] VAR Mtime ID 104 OF oFld:aDialogs[1] ;
PICTURE "@!S8" ;
WHEN .F.

REDEFINE GET aWr[05] VAR Mrecvby ID 105 OF oFld:aDialogs[1] ;
PICTURE "@!S20" ;
WHEN (! "TOPLAX" $ Pmod)

REDEFINE GET aWr[06] VAR Msuppid ID 106 OF oFld:aDialogs[1] ;
PICTURE REPLIC("!",10) ;
UPDATE ;
VALID ( lPass := ContLook( @Msuppid, @Msuppchk, @Msupp ) , ;
WrChk( 'OWNER', Msuppid, @Mownid ) , ;
_GetRef( aWr ), lPass )

REDEFINE GET aWr[07] VAR Msupp ID 121 OF oFld:aDialogs[1] ;
PICTURE REPLIC("!",35) WHEN .F.

REDEFINE GET aWr[08] VAR Msuppref ID 110 OF oFld:aDialogs[1] ;
PICTURE REPLIC("!",30)

REDEFINE GET aWr[09] VAR Mshipfid ID 126 OF oFld:aDialogs[1] ;
PICTURE REPLIC("!",10) ;
UPDATE ;
VALID ( lPass := ContLook( @Mshipfid, @Mshipfchk, @Mshipfname ) , ;
_GetRef( aWr ), lPass )

REDEFINE GET aWr[10] VAR Mshipfname ID 127 OF oFld:aDialogs[1] ;
PICTURE REPLIC("!",35) WHEN .F.

REDEFINE GET aWr[11] VAR Mconsid ID 133 OF oFld:aDialogs[1] ;
PICTURE REPLIC("!",10) ;
UPDATE ;
VALID ( lPass := ContLook( @Mconsid, @Mconschk, @Mconsname ) , ;
_GetRef( aWr ), lPass )

REDEFINE GET aWr[12] VAR Mconsname ID 134 OF oFld:aDialogs[1] ;
PICTURE REPLIC("!",35) WHEN .F.

REDEFINE GET aWr[13] VAR Mownid ID 107 OF oFld:aDialogs[1] ;
PICTURE REPLIC("!",10) ;
UPDATE ;
VALID ( lPass := ContLook( @Mownid, @Mownchk, @Mownname ) , ;
_GetRef( aWr ), lPass )

REDEFINE GET aWr[14] VAR Mownname ID 108 OF oFld:aDialogs[1] ;
PICTURE REPLIC("!",35) WHEN .F.

REDEFINE GET aWr[15] VAR Mpo ID 116 OF oFld:aDialogs[1] ;
PICTURE REPLIC("!",30) ;
VALID ( lPass := PoLook( @Mpo, @Mownid, @Msuppid, .T. ) , ;
WrPoUpd( Mpo, Mownid, Msuppid, lAppend, Mserial, oDimBox ) , ;
_GetRef( aWr ), lPass )

REDEFINE GET aWr[16] VAR Mprojectid ID 135 OF oFld:aDialogs[1] PICTURE "@!"

REDEFINE COMBOBOX aWr[17] VAR Mreqloc ID 130 ITEMS aReqLoc OF oFld:aDialogs[1]

REDEFINE CHECKBOX Mbillable ID 114 OF oFld:aDialogs[1] WHEN aSecurity[05]

REDEFINE GET aWr[18] VAR Mctnr ID 115 OF oFld:aDialogs[1] ;
PICTURE REPLIC("!",15)

REDEFINE COMBOBOX aWr[19] VAR Mtype ID 122 ITEMS aCtnr ;
OF oFld:aDialogs[1]

REDEFINE COMBOBOX aWr[20] VAR Mloadtype ID 123 ITEMS aLoad OF oFld:aDialogs[1] ;
VALID ( oDlg:Refresh(), .T. )

REDEFINE GET aWr[21] VAR Mpallet ID 111 OF oFld:aDialogs[1] PICTURE '9999'

REDEFINE GET aWr[22] VAR Mctns ID 113 OF oFld:aDialogs[1] PICTURE '999999'

REDEFINE GET aWr[23] VAR Mpcs ID 136 OF oFld:aDialogs[1] PICTURE '999999'

REDEFINE GET aWr[24] VAR Mtotlbs ID 128 OF oFld:aDialogs[1] PICTURE '999999.99' ;
VALID ( lPass := _Calc( "LBS", @Mtotlbs, @Mtotlbs2, @Mtotkgs, @Mtotkgs2 ) , ;
_GetRef( aWr ), lPass )

REDEFINE GET aWr[25] VAR Mtotkgs ID 129 OF oFld:aDialogs[1] PICTURE '999999.99' ;
VALID ( lPass := _Calc( "KGS", @Mtotkgs, @Mtotkgs2, @Mtotlbs, @Mtotlbs2 ) , ;
_GetRef( aWr ), lPass )

REDEFINE GET aWr[26] VAR Mtotcft ID 131 OF oFld:aDialogs[1] PICTURE '999999.999' ;
VALID ( lPass := _Calc( "CFT", @Mtotcft, @Mtotcft2, @Mtotcbm, @Mtotcbm2 ) , ;
_GetRef( aWr ), lPass )

REDEFINE GET aWr[27] VAR Mtotcbm ID 132 OF oFld:aDialogs[1] PICTURE '999999.999' ;
VALID ( lPass := _Calc( "CBM", @Mtotcbm, @Mtotcbm2, @Mtotcft, @Mtotcft2 ) , ;
_GetRef( aWr ), lPass )

REDEFINE CHECKBOX aWr[28] VAR Mdevan ID 109 OF oFld:aDialogs[1]

REDEFINE GET aWr[29] VAR Mcarrier ID 124 OF oFld:aDialogs[1] ;
PICTURE REPLIC("!",10) ;
UPDATE ;
VALID ( lPass := ContLook( @Mcarrier, @Mcarrchk, @Mcarrname ) , ;
_GetRef( aWr ), lPass )

REDEFINE GET aWr[30] VAR Mcarrname ID 117 OF oFld:aDialogs[1] ;
PICTURE REPLIC("!",35) WHEN .F.

REDEFINE GET aWr[31] VAR Mcarrref ID 118 OF oFld:aDialogs[1]

REDEFINE GET Mtrackno ID 125 OF oFld:aDialogs[1]

REDEFINE CHECKBOX aWr[32] VAR Mhaz ID 112 OF oFld:aDialogs[1]

REDEFINE GET aWr[33] VAR Mexcept ID 119 OF oFld:aDialogs[1] WHEN .F.

REDEFINE GET aWr[34] VAR Mnotes MEMO ID 120 OF oFld:aDialogs[1]

REDEFINE RADIO aWr[35] VAR Mum ID 232,233 OF oFld:aDialogs[1]

REDEFINE BUTTON ID 1 OF oDlg ACTION ( lSave := .t. , oDlg:End() )
REDEFINE BUTTON ID 2 OF oDlg ACTION ( lSave := .f. , oDlg:End() )

// Details...
SELECT wmsdet
GO TOP
SEEK Mserial

DO CASE
CASE 'LINKSYS' $ Pmod
REDEFINE LISTBOX oDimBox FIELDS wmsdet->desc , ;
TRANSF(wmsdet->qty,"9999999") , ;
wmsdet->pkg , ;
LTRIM( STR( wmsdet->len, 9, 1 ) ) + ' x ' + LTRIM( STR( wmsdet->wid, 9, 1 ) ) + ' x ' + LTRIM( STR( wmsdet->hgt, 9, 1 ) ) , ;
TRANSF(wmsdet->lbs,"9,999,999.99") , ;
TRANSF(wmsdet->kgs,"9,999,999.99") , ;
wmsdet->receiptid ;
ID 6000 ;
HEADERS "Description", "Qty", "Pkg", "Dimensions", "Lbs", "Kgs", "ReceiptID" ;
FIELDSIZES 200 , 55 , 75 , 125 , 85 , 85 , 125 ;
SELECT serial FOR Mserial ;
ON DBLCLICK WrDet( oDimBox, .F., Mserial, Mownid, @Mexcept, Mownname ) ;
OF oFld:aDialogs[1] ;
UPDATE

OTHERWISE
REDEFINE LISTBOX oDimBox FIELDS STR( wmsdet->item, 6 ) , ;
wmsdet->sku , ;
wmsdet->lotno , ;
wmsdet->desc , ;
TRANSF(wmsdet->qty,"9999999") , ;
wmsdet->pkg , ;
wmsdet->except , ;
wmsdet->serialp , ;
wmsdet->reqloc , ;
wmsdet->receiptid ;
ID 6000 ;
HEADERS "Item No", "SKU", "Lot", "Description", "Quantity", "Pkg", "Exceptions", "Putaway Id", "", "ReceiptID" ;
FIELDSIZES 45 , 175 , 100 , 175 , 100 , 55 , 150 , 100 , 99, 100 ;
SELECT serial FOR Mserial ;
ON DBLCLICK WrDet( oDimBox, .F., Mserial, Mownid, @Mexcept, Mownname ) ;
OF oFld:aDialogs[1] ;
UPDATE
ENDCASE

// Pressing Enter...
oDimBox:bKeyDown := { | nKey | IF( nKey = 13, WrDet( oDimBox, .F., Mserial, Mownid, @Mexcept, Mownname ), oDimBox:Refresh() ) }

/* Buttons */
REDEFINE BUTTON ID 6001 OF oFld:aDialogs[1] ACTION WrDet( oDimBox, .T., Mserial, Mownid, @Mexcept, Mownname ) WHEN ! EMPTY( Mownid )
REDEFINE BUTTON ID 6002 OF oFld:aDialogs[1] ACTION WrDet( oDimBox, .F., Mserial, Mownid, @Mexcept, Mownname ) WHEN ! EMPTY( Mownid )
REDEFINE BUTTON ID 6003 OF oFld:aDialogs[1] ACTION WrDDi( oDimBox, Mserial, @Mexcept ) WHEN ! EMPTY( Mownid )

ACTIVATE DIALOG oDlg CENTERED VALID WrDup( @lSave, lAppend, @Mwrno, @Mbookno, Mserial, @Mpcs, @Mctns )

// RC........

// RESOURCE SCRIPT generated by "Pelles C for Windows, version 3.00".

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

WR1 DIALOG DISCARDABLE 68, 4, 595, 400
STYLE WS_CHILD|DS_3DLOOK|WS_CAPTION|WS_VISIBLE
FONT 8, "tahoma"
BEGIN
CONTROL "Booking No.", -1, "Static", WS_GROUP, 5, 7, 42, 8
CONTROL "", 101, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 55, 5, 90, 12
CONTROL "Receipt No.", -1, "Static", WS_GROUP, 5, 22, 40, 8
CONTROL "", 102, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 55, 20, 90, 12
CONTROL "Date", -1, "Static", WS_GROUP, 5, 37, 40, 8
CONTROL "", 103, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 55, 35, 45, 12
CONTROL "Time", -1, "Static", WS_GROUP, 5, 52, 40, 8
CONTROL "", 104, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 55, 50, 30, 12
CONTROL "Recv By", -1, "Static", WS_GROUP, 5, 67, 40, 8
CONTROL "", 105, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 55, 65, 65, 12
CONTROL "Supplier ID", -1, "Static", WS_GROUP, 5, 82, 47, 8
CONTROL "", 106, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 55, 80, 55, 12
CONTROL "Supplier", -1, "Static", WS_GROUP, 5, 97, 37, 8
CONTROL "", 121, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 55, 95, 150, 12
CONTROL "Supplier Ref.", -1, "Static", WS_GROUP, 5, 112, 47, 8
CONTROL "", 110, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 55, 110, 110, 12
CONTROL "Shipper ID", -1, "Static", WS_GROUP, 5, 127, 47, 8
CONTROL "", 126, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 55, 125, 55, 12
CONTROL "Shipper", -1, "Static", WS_GROUP, 5, 143, 46, 8
CONTROL "", 127, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 55, 140, 150, 12
CONTROL "Consignee ID", -1, "Static", WS_GROUP, 5, 157, 47, 8
CONTROL "", 133, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 55, 155, 55, 12
CONTROL "Consignee", -1, "Static", WS_GROUP, 5, 173, 46, 8
CONTROL "", 134, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 55, 170, 150, 12
CONTROL "Owner", -1, "Static", WS_GROUP, 5, 187, 47, 8
CONTROL "", 107, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 55, 185, 55, 12
CONTROL "Owner Name", -1, "Static", WS_GROUP, 5, 203, 46, 8
CONTROL "", 108, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 55, 200, 150, 12
CONTROL "P.O. No.", -1, "Static", WS_GROUP, 5, 217, 31, 8
CONTROL "", 116, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 55, 215, 110, 12
CONTROL "Project ID", -1, "Static", WS_GROUP, 5, 242, 44, 8
CONTROL "", 135, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 55, 240, 110, 12
CONTROL "Warehouse", -1, "Static", WS_GROUP, 225, 7, 38, 8
CONTROL "", 130, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|WS_VSCROLL|WS_TABSTOP, 280, 5, 50, 67
CONTROL "Billable (Click for Yes)", 114, "Button", BS_AUTOCHECKBOX|WS_TABSTOP, 383, 5, 86, 12
CONTROL "Container No.", -1, "Static", WS_GROUP, 225, 22, 43, 8
CONTROL "", 115, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 280, 20, 75, 12
CONTROL "Type", -1, "Static", SS_RIGHT|WS_GROUP, 360, 22, 19, 8
CONTROL "", 122, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|WS_VSCROLL|WS_TABSTOP, 383, 20, 55, 91
CONTROL "Load Type", -1, "Static", WS_GROUP, 225, 37, 43, 8
CONTROL "", 123, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|WS_VSCROLL|WS_TABSTOP, 280, 35, 75, 91
CONTROL "Pallets", -1, "Static", WS_GROUP, 225, 52, 46, 8
CONTROL "", 111, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 280, 50, 30, 12
CONTROL "Cartons", -1, "Static", WS_GROUP, 226, 67, 26, 8
CONTROL "", 113, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 280, 65, 30, 12
CONTROL "Pieces", -1, "Static", WS_GROUP, 226, 82, 22, 8
CONTROL "", 136, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 280, 80, 30, 12
CONTROL "Total LBS", -1, "Static", WS_GROUP, 225, 97, 43, 8
CONTROL "", 128, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 280, 95, 50, 12
CONTROL "Total KGS", -1, "Static", SS_RIGHT|WS_GROUP, 332, 97, 47, 8
CONTROL "", 129, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 383, 95, 50, 12
CONTROL "Total CFT", -1, "Static", WS_GROUP, 225, 112, 43, 8
CONTROL "", 131, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 280, 110, 50, 12
CONTROL "Total CBM", -1, "Static", SS_RIGHT|WS_GROUP, 332, 112, 47, 8
CONTROL "", 132, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 383, 110, 50, 12
CONTROL "Devan", -1, "Static", WS_GROUP, 225, 126, 43, 8
CONTROL "Check for Yes", 109, "Button", BS_AUTOCHECKBOX|WS_TABSTOP, 280, 125, 60, 12
CONTROL "Trucker ID", -1, "Static", WS_GROUP, 225, 142, 47, 8
CONTROL "", 124, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 280, 140, 55, 12
CONTROL "Trucking Co.", -1, "Static", WS_GROUP, 225, 157, 46, 8
CONTROL "", 117, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 280, 155, 150, 12
CONTROL "Trucker Pro", -1, "Static", WS_GROUP, 225, 172, 40, 8
CONTROL "", 118, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 280, 170, 125, 12
CONTROL "Tracking No.", -1, "Static", WS_GROUP, 225, 187, 47, 8
CONTROL "", 125, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 280, 185, 125, 12
CONTROL "Hazardous", -1, "Static", WS_GROUP, 225, 201, 43, 8
CONTROL "Check for Yes", 112, "Button", BS_AUTOCHECKBOX|WS_TABSTOP, 280, 200, 60, 12
CONTROL "Exceptions", -1, "Static", WS_GROUP, 225, 217, 40, 8
CONTROL "", 119, "Edit", ES_AUTOHSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 280, 215, 110, 12
CONTROL "-- Notes --", -1, "Static", SS_CENTER|WS_GROUP, 381, 238, 60, 8
CONTROL "", 120, "Edit", ES_MULTILINE|ES_AUTOVSCROLL|ES_WANTRETURN|ES_UPPERCASE|WS_VSCROLL|WS_BORDER|WS_TABSTOP, 226, 249, 366, 40
CONTROL "Inches", 232, "Button", BS_RADIOBUTTON, 5, 280, 33, 12
CONTROL "Centimeters", 233, "Button", BS_RADIOBUTTON, 46, 280, 48, 12
CONTROL "", 6000, "TWBrowse", WS_DISABLED|WS_TABSTOP|0x00b00000, 5, 295, 545, 95
CONTROL "&Add", 6001, "Button", WS_TABSTOP, 555, 295, 38, 14
CONTROL "&Modify", 6002, "Button", WS_TABSTOP, 555, 315, 38, 14
CONTROL "&Delete", 6003, "Button", WS_TABSTOP, 555, 335, 38, 14
END
*~*~*~*~*~*~*~*~*~*
Darrell Ortiz
CDM Software Solutions, Inc.
https://www.cdmsoft.com
User avatar
Richard Chidiak
Posts: 946
Joined: Thu Oct 06, 2005 7:05 pm
Location: France
Contact:

Re: Problem Clicking on Fields in Dialog

Post by Richard Chidiak »

Darrel

I have been through this one , remove the caption from dialog definition for child dialogs

STYLE WS_CHILD|DS_3DLOOK|WS_CAPTION|WS_VISIBLE

Replace with

STYLE WS_CHILD|DS_3DLOOK|WS_VISIBLE

Hth

Richard
http://www.cbati.com

Uestudio
Fwh 13.05 Harbour 3.2 MSVC 2013
User avatar
cdmmaui
Posts: 653
Joined: Fri Oct 28, 2005 9:53 am
Location: The Woodlands - Dallas - Scottsdale - London
Contact:

Re: Problem Clicking on Fields in Dialog

Post by cdmmaui »

Dear Richard,

Thank you so much! That fixed it!
*~*~*~*~*~*~*~*~*~*
Darrell Ortiz
CDM Software Solutions, Inc.
https://www.cdmsoft.com
User avatar
Enrico Maria Giordano
Posts: 7355
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Contact:

Re: Problem Clicking on Fields in Dialog

Post by Enrico Maria Giordano »

Richard Chidiak wrote:STYLE WS_CHILD|DS_3DLOOK|WS_VISIBLE
I would remove DS_3DLOOK too, as it's obsolete (source: Microsoft). And even WS_VISIBLE, as it has no useful meaning for dialogs.

EMG
User avatar
cdmmaui
Posts: 653
Joined: Fri Oct 28, 2005 9:53 am
Location: The Woodlands - Dallas - Scottsdale - London
Contact:

Re: Problem Clicking on Fields in Dialog

Post by cdmmaui »

Thank you Enrico
*~*~*~*~*~*~*~*~*~*
Darrell Ortiz
CDM Software Solutions, Inc.
https://www.cdmsoft.com
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: Problem Clicking on Fields in Dialog

Post by Antonio Linares »

Richard,

many thanks for your help :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
TimStone
Posts: 2536
Joined: Fri Oct 07, 2005 1:45 pm
Location: Trabuco Canyon, CA USA
Contact:

Re: Problem Clicking on Fields in Dialog

Post by TimStone »

I'm not using that. Here is the .RC with one of the 8 folders:

Code: Select all


REPORTS DIALOG 0, 0, 340, 200
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_VISIBLE
CAPTION "System Reports"
{
  CONTROL  "", 2040, WC_TABCONTROL, WS_TABSTOP, 10, 40, 320, 150, WS_EX_LEFT
}

RPTSfldr1 DIALOG 0, 0, 300, 130
STYLE WS_CHILD|WS_VISIBLE
{
  AUTOCHECKBOX "Receipts", 2037, 10, 10, 75, 10, 0
  AUTOCHECKBOX "Drawer", 2036, 10, 25, 75, 10, 0
  AUTOCHECKBOX "Parts Sales", 2035,10, 40, 75, 10
  AUTOCHECKBOX "Labor Sales", 2034, 10, 55, 75, 10
  AUTOCHECKBOX "Journal", 2033, 10, 70, 75, 10
  AUTOCHECKBOX "Active Work", 2032, 10, 85, 75, 10
  AUTOCHECKBOX "Finished Work", 2031, 10, 100, 75, 10
}


Antonio, when you are linking with Visual Studio, what libs are you using that would relate to the auto check box ?

The whole project here is to be able to build with Visual Studio 2013 ( and eventually 2015 ), using Harbour, FWH, and our own application code.

For those still wondering why we would do this, are you not aware of the changes coming:
   1) Visual Studio 2013 is FREE to most developers and should be with 2015
   2)  .NET is Open Source
   3)  Visual Studio can accommodate Harbour / FWH
   4)  Visual Studio 2015 can build for Windows, Linux, Android, and iOS.

I'm working on possibilities ...
Tim Stone
http://www.MasterLinkSoftware.com
timstone@masterlinksoftware.com
Using: FWH 19.06 with Harbour 3.2.0 / Microsoft Visual Studio Community 2019
User avatar
Richard Chidiak
Posts: 946
Joined: Thu Oct 06, 2005 7:05 pm
Location: France
Contact:

Re: Problem Clicking on Fields in Dialog

Post by Richard Chidiak »

Tim

in my rc autocheckbox are defined this way

CONTROL "Tous les Articles", 205, "Button", BS_AUTOCHECKBOX|WS_TABSTOP, 4, 4, 104, 16

Hth

Richard
http://www.cbati.com

Uestudio
Fwh 13.05 Harbour 3.2 MSVC 2013
User avatar
TimStone
Posts: 2536
Joined: Fri Oct 07, 2005 1:45 pm
Location: Trabuco Canyon, CA USA
Contact:

Re: Problem Clicking on Fields in Dialog

Post by TimStone »

Richard,

That is the way I used to have it, and the problem existed with that format. So, I've been studying .RC elements, and we actually inherited a lot of the values from Borland Resource Workshop. However, that was for 16 bit OS and many of those elements ( ie. DISCARDABLE ) are no longer valid. So I'm not editing my .RC files to remove all that is unnecessary.

HOWEVER, the problem did exist with your format and that is how this all started. Antonio's example in the new editor he is building uses the newer format.

Tim
Tim Stone
http://www.MasterLinkSoftware.com
timstone@masterlinksoftware.com
Using: FWH 19.06 with Harbour 3.2.0 / Microsoft Visual Studio Community 2019
User avatar
cdmmaui
Posts: 653
Joined: Fri Oct 28, 2005 9:53 am
Location: The Woodlands - Dallas - Scottsdale - London
Contact:

Re: Problem Clicking on Fields in Dialog

Post by cdmmaui »

Hi Tim,

Thanks. We cleaned up the RC files and were able to resolve this issue.

Sincerely,
*~*~*~*~*~*~*~*~*~*
Darrell Ortiz
CDM Software Solutions, Inc.
https://www.cdmsoft.com
Post Reply