Sumir cursor

[caljinha]

pessoal qual o comando ou como fazer uma procedure pra o cursor sumir ou parar de piscar no pascal

[Simon Viegas]

pessoal qual o comando ou como fazer uma procedure pra o cursor sumir ou parar de piscar no pascal

Olá,

Eu acredito que a cor do cursor seja atribuída automaticamente de acordo com o fundo do texto, ou seja, a medida que o cursor passa por uma determinada com de fundo, ele se altera para formar um contraste.

Eu particularmente desconheço uma forma de desabilitar, ou esconder (como colocar da mesma cor do fundo). Pode ser algum comando relacionado a unit Graph, não sei!

Estou na curiosidade também...

Boa sorte.

Abraços

[geloh]

Tive essa dúvida uma vez. Procurei,procurei e fui encontrar na documentação do pascal.

A unidade CRT possui um procedimento chamado "cursoroff", que esconde o cursor mas mantém o foco posicionado onde está. É bom pra fazer jogos e desenhar molduras.

uses CRT;
var i:integer;
     s:string;
BEGIN
cursoroff;{esconde o cursor}
S:='Cadê o cursor?';
For i:=1 to length(S) do
begin
write(S[i]);
delay(150);
end;
cursoron;{mostra o cursor novamente}
readln;
END.

[Simon Viegas]

Tive essa dúvida uma vez. Procurei,procurei e fui encontrar na documentação do pascal.

A unidade CRT possui um procedimento chamado "cursoroff", que esconde o cursor mas mantém o foco posicionado onde está. É bom pra fazer jogos e desenhar molduras.

uses CRT;
var i:integer;
     s:string;
BEGIN
cursoroff;{esconde o cursor}
S:='Cadê o cursor?';
For i:=1 to length(S) do
begin
write(S[i]);
delay(150);
end;
cursoron;{mostra o cursor novamente}
readln;
END.

Mais uma novidade pra mim... acho que nunca tinha visto! rs

Abraços

[viniciusbmatos]

Olá!

É possível fazer isso também de outra forma, usando a unit video:

[COLOR=#228b22]SetCursorType[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR]crHidden[COLOR=#a52a2a][B]);[/B][/COLOR]

Exemplo:

[COLOR=#000000][B]program[/B][/COLOR] TestandoCursor[COLOR=#a52a2a][B];[/B][/COLOR]
[COLOR=#000000][B]uses[/B][/COLOR]
  crt[COLOR=#a52a2a][B],[/B][/COLOR] video[COLOR=#a52a2a][B];[/B][/COLOR]  [COLOR=#4682b4][I]{"crt" apenas para o delay }[/I][/COLOR]
[COLOR=#000000][B]begin[/B][/COLOR]
  [COLOR=#4682b4][I]//[/I][/COLOR]
  [COLOR=#228b22]SetCursorType[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR]crUnderLine[COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#228b22]writeln[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR][COLOR=#ff4500]'Cursor linha'[/COLOR][COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#228b22]delay[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR][COLOR=#000000]3000[/COLOR][COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#4682b4][I]//[/I][/COLOR]
  [COLOR=#228b22]SetCursorType[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR]crBlock[COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#228b22]writeln[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR][COLOR=#ff4500]'Cursor quadrado'[/COLOR][COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#228b22]delay[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR][COLOR=#000000]3000[/COLOR][COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#4682b4][I]//[/I][/COLOR]
  [COLOR=#228b22]SetCursorType[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR]crHalfBlock[COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#228b22]writeln[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR][COLOR=#ff4500]'Cursor 1/2 quadrado'[/COLOR][COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#228b22]delay[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR][COLOR=#000000]3000[/COLOR][COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#4682b4][I]//[/I][/COLOR]
  [COLOR=#228b22]SetCursorType[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR]crHidden[COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#228b22]writeln[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR][COLOR=#ff4500]'Cursor oculto'[/COLOR][COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#228b22]delay[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR][COLOR=#000000]3000[/COLOR][COLOR=#a52a2a][B]);[/B][/COLOR]
[COLOR=#000000][B]end[/B][/COLOR][COLOR=#a52a2a][B].[/B][/COLOR]

Sobre os comandos desta e de muitas outras units:

ftp://ftp.freepascal.org/pub/fpc/docs-pdf/rtl.pdf

Obs.: o documento PDF tem 1721 páginas.

[Simon Viegas]

Olá!

É possível fazer isso também de outra forma, usando a unit video:

[COLOR=#228b22]SetCursorType[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR]crHidden[COLOR=#a52a2a][B]);[/B][/COLOR]

Exemplo:

[COLOR=#000000][B]program[/B][/COLOR] TestandoCursor[COLOR=#a52a2a][B];[/B][/COLOR]
[COLOR=#000000][B]uses[/B][/COLOR]
  crt[COLOR=#a52a2a][B],[/B][/COLOR] video[COLOR=#a52a2a][B];[/B][/COLOR]  [COLOR=#4682b4][I]{"crt" apenas para o delay }[/I][/COLOR]
[COLOR=#000000][B]begin[/B][/COLOR]
  [COLOR=#4682b4][I]//[/I][/COLOR]
  [COLOR=#228b22]SetCursorType[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR]crUnderLine[COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#228b22]writeln[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR][COLOR=#ff4500]'Cursor linha'[/COLOR][COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#228b22]delay[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR][COLOR=#000000]3000[/COLOR][COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#4682b4][I]//[/I][/COLOR]
  [COLOR=#228b22]SetCursorType[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR]crBlock[COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#228b22]writeln[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR][COLOR=#ff4500]'Cursor quadrado'[/COLOR][COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#228b22]delay[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR][COLOR=#000000]3000[/COLOR][COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#4682b4][I]//[/I][/COLOR]
  [COLOR=#228b22]SetCursorType[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR]crHalfBlock[COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#228b22]writeln[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR][COLOR=#ff4500]'Cursor 1/2 quadrado'[/COLOR][COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#228b22]delay[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR][COLOR=#000000]3000[/COLOR][COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#4682b4][I]//[/I][/COLOR]
  [COLOR=#228b22]SetCursorType[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR]crHidden[COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#228b22]writeln[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR][COLOR=#ff4500]'Cursor oculto'[/COLOR][COLOR=#a52a2a][B]);[/B][/COLOR]
  [COLOR=#228b22]delay[/COLOR][COLOR=#a52a2a][B]([/B][/COLOR][COLOR=#000000]3000[/COLOR][COLOR=#a52a2a][B]);[/B][/COLOR]
[COLOR=#000000][B]end[/B][/COLOR][COLOR=#a52a2a][B].[/B][/COLOR]

Sobre os comandos desta e de muitas outras units:

ftp://ftp.freepascal.org/pub/fpc/docs-pdf/rtl.pdf

Obs.: o documento PDF tem 1721 páginas.

Oooopa, mais uma coisa nova, não conhecia essa unit.

Abraços