Hi Brian,
Thanks for the code snippet. I'll compare it to what we're doing. I used
to be a real Delphi programmer years ago. Turbo Pascal before that.
Mike
On Fri, 14 Apr 2000, Alex Brainman wrote:
>
> ----- Original Message -----
> From: Mike Madore <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Friday, April 14, 2000 2:05 AM
> Subject: Re: The Diabolical Cursor Part II: This Time He's Mad
>
> >
> > The spec says that during the WRITE TO DISPLAY command the following logic
> > is used to determine cursor position:
> >
> > if (keyboard is locked) then
> > Leave the cursor where it is
> > else
> > 1) Honer any insert cursor order
> > 2) Move to the first non-bypass field
> > 3) Move to position 0,0
> >
>
> That is how I do it (no warranty implied), if it's any help...
>
> You DON'T move cursor while processing command.
> You MUST do the processing on after WTD or Read,
> in fact, I DEFER ALL IC and MC until then, and the action
> DEPENDS on aCC = write control char 2:
>
> if ((aCC and $08) <> 0) and (State <> stateNormalUnlocked) then begin
> KeyboardLocked := False;
> AID.Reset;
> if SystemIC.IsMC then begin
> { MC order }
> if SystemIC.Pending then
> CurPos := SystemIC.Value;
> end else begin
> { IC order or nothing }
> if (aCC and $40) = 0 then
> MoveCursorHome;
> end;
> end;
>
> where:
>
> procedure TN5250Console.MoveCursorHome;
> begin
> if SystemIC.Pending then
> CurPos := SystemIC.HomePos
> else begin
> CurPos := 0;
> Tab;
> end;
> end;
>
> I do SystemIC.Reset on
>
> 1) Clear Unit
> 2) Clear Format Table
> 3) At the begining of Start Of Header
>
> If you see, I use MoveCursorHome on Home key too
> (it took me a while to work that on out), whether it is
> right or not, but I haven't seen any problems yet.
>
> Sorry, the code is Delphi, but, I assume, it's simple enough.
>
>
> Alex
>
>
>
> +---
> | This is the LINUX5250 Mailing List!
> | To submit a new message, send your mail to [EMAIL PROTECTED]
> | To subscribe to this list send email to [EMAIL PROTECTED]
> | To unsubscribe from this list send email to [EMAIL PROTECTED]
> | Questions should be directed to the list owner/operator: [EMAIL PROTECTED]
> +---
>
+---
| This is the LINUX5250 Mailing List!
| To submit a new message, send your mail to [EMAIL PROTECTED]
| To subscribe to this list send email to [EMAIL PROTECTED]
| To unsubscribe from this list send email to [EMAIL PROTECTED]
| Questions should be directed to the list owner/operator: [EMAIL PROTECTED]
+---
