[Harbour] Sx_Settag() bug

[Stupar]

file: Harbour\src\rdd\sxcompat.prg

line
295  IF nOrder != 0
296 nOldOrd := OrdNumber()
297 OrdSetFocus( nOrder )
298 lRet := nOrder == OrdSetFocus()    == 
must be lRet := OrdName( nOrder ) == OrdSetFocus()
299 IF ! lRet
300OrdSetFocus( nOldOrd )
301 ENDIF
302  ELSEIF Empty( xTag )
303 OrdSetFocus( 0 )
304 lRet := .T.
305  ENDIF

>From Clipper 5.3 NG

ORDSETFOCUS([ | ]
   [,]) --> cPrevOrderNameInFocus



___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

[Harbour] Get:Display() incompatibility with Clipper

[Stupar]

Litle sample to demonstrate differences between
Clipper 5.2e and Harbour 2.0.0


function TestGetPic()

local GetList:={}, cTestVar:="12345"

 @ 10, 0  SAY "A" GET cTestVar
 @ Row(), Col()+1 SAY "B" GET cTestVar PICTURE "@KS20" // Note: 20 > 
Len(cTestVar)
 @ Row(), Col()+1 SAY "C" GET cTestVar // "C" must be 1 col 
after 5
 @ Row(), Col()+1 SAY "D" GET cTestVar // "D" is corrected 
positioned after 5
 READ

return nil
 



___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

[Harbour] Mouse whell problem!?

[Stupar]

Hi,

Is problem with Harbour or with my OS or mouse driver?

Harbour 2.0.0
Windows XP SP3
Compile & link: hbmk2 TestMouse.prg
Sample code:

-
TestMouse.prg
--
#include "inkey.ch"

procedure TestMouse()
local nKey:=0

clear screen

@ 10, 0 SAY "Go to any row & col:"
@ 11, 0 SAY "Whell button and other buttons return different MRow & MCol 
position"

while InKey(0, INKEY_ALL) <> K_ESC

@ 0, 0 SAY "MRow=" +Str(MRow(),4) +", MCol=" +Str(MCol(),4)

enddo

return


Thanks to all
Stupar 



___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

[Harbour] Re: Mouse whell problem!?

[Stupar]

Hi
Thanks to test code.
I uninstall/reinstall mouse driver and also test on another PC with windows
an get same result.

When roll whell mouse buttons: MRow() and MCol() return
apsolutly position from desktop (not app window)
but with other keys (left, right, middle) click, all is OK
Also when I roll whell button (forward or backward) outside
app window Row() & Col() position is updated with desktop row & col.

Tested also witg WVG and console window.
On full screen Whell event is ignred

Is this normal or ?
I port my 15 year old application from Clipper 52e + SIX 3.0 to Harbour
and include mouse events.
My idea is: step up/down Date, Number...etc... with whell button when is 
cursor ower
get object, but I do not get correct coorinates.

Sorry for my bad english explanation :(



___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

[Harbour] Re: Re: Mouse whell problem!?

[Stupar]

> Wheel actions spit out keyboard events. They don't
> modify mouse coordinates (mrow/mcol) if that's what
> you mean or expect.


Ok Viktor,
thanks

but...

After any mouse event (move, click, dblclick ) except whell,  MRow()  and 
MCol()
return corect coordinates inside application window.
Do you know any way to recalculate mRow/mCol after mouse whell events
(like nRowInside := MRow() - ApplicationTopRow())
(mybee question is for user newsgroup)

I found another problem with GT WVG

InKey(, INKEY_ALL)  not recognize/return events:
K_MMLEFTDOWN, K_MMRIGHTDOWN, K_MMMIDDLEDOWN

MSetPos( nNewRow, nNewCol ) : not update mouse position or move cursor on 
new location

Sorry for your time,



___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

[Harbour] FieldType() wrong result or ....

[Stupar]

When I create table with field types (Currency) Y and Z I get wrong result.
Database header contain I and B.

Is corect integer values with decimals?

-
REQUEST DBFCDX
procedure TestFieldType()

local i
local aStruct:={;
{"CURRENCY" , "Y", 8,0},;
{"CURDOUBLE", "Z", 8,5},;
{"INTEGER"  , "I", 4,2};
  }

   dbCreate("TEST", aStruct, "DBFCDX" )

   USE TEST EXCLUSIVE

   APPEND BLANK
   TEST->CURRENCY := 1234567890.12345
   TEST->CURDOUBLE:= 1234567890.12345
   TEST->INTEGER  := 12345.12345 // store 12345.12

   FOR i:=1 to FCount()
  ? Pad( FieldName( i ), 10 ), FieldType( i ), FieldLen( i ), 
FieldDec( i )
  ?
  ? FieldGet( i )
  ? "ValType( FieldGet( i ) )  =", ValType( FieldGet( i ) )  // show 
allways N
  ? "ValType( &(FieldName(i)) )=", ValType( &(FieldName(i)) )
  ?
  ?
   NEXT
   wait

return

--- 



___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour