Subject | Re: [IBO] Cursors, session props and TIBOxxx |
---|---|
Author | Martijn Tonies |
Post date | 2002-01-15T19:50:14Z |
Hi,
The way I'm doing things now is:
Screen.Cursor := crHourGlass;
then, via some other methods:
(SessionProps)sp.BeginBusy(False);
(Session)ses.BeginLockCursor; // I also tried it without the sessionprops
component
Session is initialized as:
ses := TIB_Session.Create(nil);
ses.AllowDefaultConnection := False;
ses.AllowDefaultTransaction := False;
ses.BusyCursor := -11;
ses.YieldCursor := -11;
ses.UseCursor := True;
then, several queries are executed in a TIBOQuery component, some SELECTs,
a DROP, CREATE and some GRANTs. -- this is where the cursor flickers,
if I replace the component by a TIB_Query, it doesn't flicker.
after that, it's:
ses.EndLockCursor;
sp.EndBusy;
Screen.Cursor := crDefault;
That's about it...
--
Martijn Tonies
InterBase Workbench - the developer tool for InterBase and Firebird
http://www.interbaseworkbench.com
Upscene Productions
http://www.upscene.com
"This is an object-oriented system.
If we change anything, the users object."
> > I'm currently using TIB_Connection, some TIB_Session and TIBOQuery.Eh, what exactly?
> >
> > Whenevery I use the BeginBusy or BeginLockCursor, the cursor still
> > flickers like a madman whenever I issue a couple of queries.
> >
> > When I replace TIBOQuery with TIB_Query, this problem is removed
> > and the cursor stays solid crWait...
> >
> > However, TIB_Query is, at this moment, not a component that I can use...
> >
> > Am I doing something wrong or is there a bug in TIBOQuery?
>
> Show us the code.
The way I'm doing things now is:
Screen.Cursor := crHourGlass;
then, via some other methods:
(SessionProps)sp.BeginBusy(False);
(Session)ses.BeginLockCursor; // I also tried it without the sessionprops
component
Session is initialized as:
ses := TIB_Session.Create(nil);
ses.AllowDefaultConnection := False;
ses.AllowDefaultTransaction := False;
ses.BusyCursor := -11;
ses.YieldCursor := -11;
ses.UseCursor := True;
then, several queries are executed in a TIBOQuery component, some SELECTs,
a DROP, CREATE and some GRANTs. -- this is where the cursor flickers,
if I replace the component by a TIB_Query, it doesn't flicker.
after that, it's:
ses.EndLockCursor;
sp.EndBusy;
Screen.Cursor := crDefault;
That's about it...
--
Martijn Tonies
InterBase Workbench - the developer tool for InterBase and Firebird
http://www.interbaseworkbench.com
Upscene Productions
http://www.upscene.com
"This is an object-oriented system.
If we change anything, the users object."