Subject | RE: [IBO] Possible regression in 4.9.14 36h |
---|---|
Author | IBO Support List |
Post date | 2012-01-22T13:30:47Z |
Thomas,
I couldn't get it to reproduce but I do see a flaw in the logic and have
improved the code. Please let me know if this remedies the problem.
Inside of the TIB_Session.ProcessPassiveTasks() method in IB_Components.pas:
...
{$IFNDEF CONSOLE}
tc := GetTickCount;
if (( FYieldCursorTick > 0 ) and
( tc > FYieldCursorTick ) and
( tc - FYieldCursorTick >= FRestoreCursorTicks )) or
(( FBusyCursorTick > 0 ) and
( tc > FBusyCursorTick ) and
( tc - FBusyCursorTick >= FRestoreCursorTicks )) then
begin
if (( Screen.Cursor = YieldCursor ) or
( Screen.Cursor = BusyCursor )) and
( FOldCursor >= 0 ) then
begin
Screen.Cursor := FOldCursor;
FYieldCursorTick := 0;
FBusyCursorTick := 0;
end;
end;
if ( not IsWaiting ) and
( FBusyCursorTick = 0 ) and
( FYieldCursorTick = 0 ) then
FTimer.Interval := FTimerInterval;
{$ENDIF}
...
Please let me know.
Thanks,
Jason
-----Original Message-----
From: IBObjects@yahoogroups.com [mailto:IBObjects@yahoogroups.com] On Behalf
Of Thomas Steinmaurer
Sent: 21 January 2012 03:20 PM
To: IBObjects@yahoogroups.com
Subject: Re: [IBO] Possible regression in 4.9.14 36h
Hello Jason,
for transaction 1 into insert mode and don't enter anything. Open the
second native query and go into insert mode as well. At this time I
don't see the cursor anymore.
Can you reproduce?
Thanks
Thomas
I couldn't get it to reproduce but I do see a flaw in the logic and have
improved the code. Please let me know if this remedies the problem.
Inside of the TIB_Session.ProcessPassiveTasks() method in IB_Components.pas:
...
{$IFNDEF CONSOLE}
tc := GetTickCount;
if (( FYieldCursorTick > 0 ) and
( tc > FYieldCursorTick ) and
( tc - FYieldCursorTick >= FRestoreCursorTicks )) or
(( FBusyCursorTick > 0 ) and
( tc > FBusyCursorTick ) and
( tc - FBusyCursorTick >= FRestoreCursorTicks )) then
begin
if (( Screen.Cursor = YieldCursor ) or
( Screen.Cursor = BusyCursor )) and
( FOldCursor >= 0 ) then
begin
Screen.Cursor := FOldCursor;
FYieldCursorTick := 0;
FBusyCursorTick := 0;
end;
end;
if ( not IsWaiting ) and
( FBusyCursorTick = 0 ) and
( FYieldCursorTick = 0 ) then
FTimer.Interval := FTimerInterval;
{$ENDIF}
...
Please let me know.
Thanks,
Jason
-----Original Message-----
From: IBObjects@yahoogroups.com [mailto:IBObjects@yahoogroups.com] On Behalf
Of Thomas Steinmaurer
Sent: 21 January 2012 03:20 PM
To: IBObjects@yahoogroups.com
Subject: Re: [IBO] Possible regression in 4.9.14 36h
Hello Jason,
> No idea comes to mind right off as to exactly what the problem is.Obviously
> there is a problem and so I wonder if you can give me precise steps toRecompile the DML caching app and then go with the first native query
> duplicate it.
for transaction 1 into insert mode and don't enter anything. Open the
second native query and go into insert mode as well. At this time I
don't see the cursor anymore.
Can you reproduce?
Thanks
Thomas
> Thanks,Behalf
> Jason
>
>
> -----Original Message-----
> From: IBObjects@yahoogroups.com [mailto:IBObjects@yahoogroups.com] On
> Of Thomas Steinmaurer
> Sent: 21 January 2012 12:25 PM
> To: IBObjects@yahoogroups.com
> Subject: [IBO] Possible regression in 4.9.14 36h
>
> Hello Jason,
>
> I think due to the new way to avoid screen cursor flickering, there is a
> regression. In my DML caching demo app, when I start the app, everything
> is fine. Once I open both query objects in context of the single
> transaction 1, the mouse cursor disappers, I sometimes see the mouse
> cursor when moving it and all in all, the application seems to be "busy".
>
> Any ideas?
>
> Thanks,
> Thomas