Search found 1048 matches

by byte-one
Thu Jan 17, 2019 10:49 pm
Forum: FiveWin for Harbour/xHarbour
Topic: aGetfiles bug
Replies: 27
Views: 3180

aGetfiles bug

I will using aGetfiles(). Now i see, that a selection over 15 files not possible. Over 15 files is a error "Abnormal program termination" or the program freezes!
by byte-one
Wed Jan 16, 2019 3:49 pm
Forum: FiveWin for Harbour/xHarbour
Topic: XBROWSE bEditValid bug? updated!
Replies: 5
Views: 738

Re: XBROWSE bEditValid bug? updated!

I make a test-program to show the problem: If you leave a column the program the ::bEditValid show the variable and the len of the variable. 1. On the first browse the data-array are build at init of the dialog. All columns are now interpreted as wide. 2. On the second browse the data-array are buil...
by byte-one
Wed Jan 16, 2019 2:28 pm
Forum: FiveWin for Harbour/xHarbour
Topic: XBROWSE bEditValid bug? updated!
Replies: 5
Views: 738

Re: XBROWSE bEditValid bug? updated!

Thanks, what are the difference between oGet:varget() and eval( oGet:bSetGet) ?

The second bug is definitive!
if :lAutosave := .T. for this column, the bEditValue is evaluated twice if i leave the column with ENTER but when leaving with mouse sometime runtime-error nLastkey == NIL.
by byte-one
Tue Jan 15, 2019 10:27 am
Forum: FiveWin for Harbour/xHarbour
Topic: XBROWSE bEditValid bug? updated!
Replies: 5
Views: 738

XBROWSE bEditValid bug? updated!

When i use a variable in column 4 with the value "0101" and edit the column the resulting len of the x is 10, not 4! oBrw:aCols[4]:bEditValid := {|x|msginfo("'"+Eval( x:bSetGet)+"'"+CRLF+"Len: "+alltrim(str(len(Eval( x:bSetGet))))),.T.} It seems, that the vari...
by byte-one
Mon Jan 14, 2019 3:36 pm
Forum: FiveWin for Harbour/xHarbour
Topic: oJump for Antonio
Replies: 1
Views: 371

oJump for Antonio

Antonio, you set oJump after one navigation to this control to NIL, but if going again to the same control now the oJump is no further functioning as it is NIL!? METHOD ForWhen() CLASS TControl ……...    // keyboard navigation    if ::oJump != nil       SetFocus( ::oJump:hWnd )       ::oJump = nil …....
by byte-one
Mon Jan 14, 2019 3:31 pm
Forum: FiveWin for Harbour/xHarbour
Topic: TGET behavior (Antonio)
Replies: 7
Views: 829

Re: TGET behavior (Antonio)

Adapted code to respect oJump if present. if !::lKeepFocus         ::oBtn:bAction := {|| Eval( oThis:bAction, oThis ),oThis:refresh(),if(valtype(::bValid) == "B",;    //if bvalid is "B"                                         if(Eval( ::bValid, oThis ),;        //if bValid == .T....
by byte-one
Sun Jan 13, 2019 7:18 pm
Forum: FiveWin for Harbour/xHarbour
Topic: TGET behavior (Antonio)
Replies: 7
Views: 829

Re: TGET behavior (Antonio)

Rick, you can use your code as before if you do not set ::lKeepFocus to .F.!
I want this behavior for example to put a date from a calendar and if the valid-clause is .T. the cursor steps to next control without using the keybord.
by byte-one
Sat Jan 12, 2019 7:34 pm
Forum: FiveWin for Harbour/xHarbour
Topic: TGET behavior (Antonio)
Replies: 7
Views: 829

Re: TGET behavior (Antonio)

Antonio, i think nobody has used ::lKeepFocus as it was not used in actual tget-code! But it saves keybord- or mouse activation in the case of exist ::oBtn in the get and is elegant.
I am also excite to add in the headerfile on GET and [ACTION[NONEXT]]. [NONEXT] sets ::lKeepfocus to .F.
by byte-one
Sat Jan 12, 2019 3:02 pm
Forum: FiveWin for Harbour/xHarbour
Topic: TGET behavior (Antonio)
Replies: 7
Views: 829

Re: TGET behavior (Antonio)

I add this code to method createbutton() after line 943 in FWH 18/12 if !::lKeepFocus         ::oBtn:bAction := {|| Eval( oThis:bAction, oThis ),oThis:refresh(),if(valtype(::bValid) == "B",;    //if bvalid is "B"                                         if(Eval( ::bValid, oThis ),...
by byte-one
Thu Jan 10, 2019 9:31 am
Forum: FiveWin for Harbour/xHarbour
Topic: TGET behavior (Antonio)
Replies: 7
Views: 829

Re: TGET behavior (Antonio)

Antonio,
as the Button is an other way to input the value my idea is:
if lKeepfocus is false, to evaluate the oGet:bValid if present an then go to next control!
by byte-one
Tue Jan 08, 2019 2:43 pm
Forum: FiveWin for Harbour/xHarbour
Topic: TGET behavior (Antonio)
Replies: 7
Views: 829

TGET behavior (Antonio)

In method createbutton() is this line ::oBtn:bAction := {|| Eval( oThis:bAction, oThis ),oThis:SetFocus() } It respects not the present data ::lKeepFocus!! Should be: ::oBtn:bAction := {||  ( Eval( oThis:bAction, oThis ), if( ::lKeepFocus, oThis:SetFocus(), nil ) ) } as i cannot automatic go to next...
by byte-one
Fri Jan 04, 2019 3:34 pm
Forum: FiveWin for Harbour/xHarbour
Topic: List all functions and classes in FWH library
Replies: 13
Views: 3246

Re: List all functions and classes in FWH library

Mr. Rao, the static "c:\bcc7\" should be able to override with a parameter for the ??.exe. And please provide the compiled ??.exe!
by byte-one
Mon Dec 31, 2018 7:34 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Child of Folder
Replies: 2
Views: 443

Re: Child of Folder

Thanks, but i have only the result of getactivewindow(). In a dialog with folders normally this gives the handle from the selected one of the dialogs in the folder. But i will check if this handle is a handle from a dialog in a folder. Also a question for a function to get the oWnd- or oDlg-Object f...
by byte-one
Mon Dec 31, 2018 10:06 am
Forum: FiveWin for Harbour/xHarbour
Topic: Child of Folder
Replies: 2
Views: 443

Child of Folder

How to determine, if a dialog is inside a folder(ex)?
by byte-one
Sat Dec 29, 2018 9:08 am
Forum: FiveWin for Harbour/xHarbour
Topic: XBROWSE Facelifting and another behavior!
Replies: 7
Views: 1051

Re: XBROWSE Facelifting and another behavior!

If using code in this form, the headers, justify and sizes are not respected!     REDEFINE COLUMN XBROWSE oList ARRAY aList OF oDlg ID 103 MESSAGE "Liste" ;                 HEADERS {"Datum","Buchungstext","Betrag","Beleg"} ;                 JUSTIFY {...