Új hozzászólás Aktív témák

• #588 Rover623 félisten Ziby #586

  Új Válasz 2005-01-30 23:40:16 #588

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Rover623

  félisten

  válasz Ziby #586 üzenetére

  Egyszerűen...
  Eldugod a képernyőn kívülre...
  Mondjuk a 25. sorba, ha 80x25-ben vagy...
  
  Procedure WinDefCursor ( Start, WEnd : Byte );
  Var
  Regs : Registers;
  Begin
  With Regs Do Begin
  AH := $01;
  (*
  AL := VideoInfo^. OrigModeAL; { a rossz AMI es AST BIOS-ok miatt !! }
  *)
  CL := WEnd;
  CH := Start;
  End; {with}
  Intr ($10, Regs);
  End; {WinDefCursor}
  
  Procedure SetCursorPos (Col, Line: Byte);
  Var
  Regs : Registers;
  Begin
  With Regs Do Begin
  AH := $02;
  BH := $00;
  DL := Col;
  DH := Line;
  End; {with}
  Intr ($10, Regs);
  End; { SetCurPos }
  
  Procedure WinHideCursor;
  Begin
  If BIOSOutput Then Begin
  WinDefCursor (0, 32); {elcsesszük a méretét}
  End{with}
  Else Begin
  SetCursorPos (0, _NumLine);{_NumLine a képernyő sorainak száma}
  End; {else}
  End; {WinHideCursor}
  
  
  [Szerkesztve]

Új hozzászólás Aktív témák