Re: [Notes2-team] Pra quem quiser ajudar...

[Anderson R. B. <no...@ig...>]

Mande sim o c=F3digo para tecla insert, Joelson. Nem tive tempo pra ver n=
ada
hoje, minhas segundas inciam as 7h e v=E3o at=E9 as 9h30, 10h sem nenhum=20
computador
por perto :)

Mande para o e-mail please, n=E3o estarei no icq (nunca estou nas segunda=
s
e quartas).

Obrigado.
Anderson

Joelson wrote:

>Ol=E1 amigo Anderson aqui vai alguns c=F3digos que pode ajudar...
>
>//este procedimento procura o texto....
>procedure TFvisimp.FindDialog1Find(Sender: TObject);
>var
>        FoundAt: LongInt;
>        StartPos, ToEnd: Integer;
>begin
>        with RichEdit1 do
>        begin
>                if SelLength <> 0 then
>                StartPos :=3D SelStart + SelLength
>                else
>                StartPos :=3D 0;
>                ToEnd :=3D Length(Text) - StartPos;
>                FoundAt :=3D FindText(FindDialog1.FindText, StartPos, To=
End,
>[stMatchCase]);
>                if FoundAt <> -1 then
>                begin
>                        SetFocus;
>                        SelStart :=3D FoundAt;
>                        SelLength :=3D Length(FindDialog1.FindText);
>                end;
>        end;
>end;
>//este procedimento substitui textos
>var
>        SelPos: Integer;
>begin
>        with TReplaceDialog(Sender) do
>        begin
>                SelPos :=3D Pos(FindText, RichEdit1.Lines.Text);
>                if SelPos > 0 then
>                begin
>                        RichEdit1.SelStart :=3D SelPos - 1;
>                        RichEdit1.SelLength :=3D Length(FindText);
>                        RichEdit1.SelText :=3D ReplaceText;
>                end
>                else
>                MessageDlg(Concat('A palavra "', FindText, '" n=E3o foi
>encontrada no relat=F3rio.'), mtError, [mbOk], 0);
>        end;
>end;
>
>se ainda n=E3o tiver encontrado a fun=E7=E3o de verificar o estado da te=
cla me de
>um toque q mando pra vc hj a noite pelo icq... essas acima tava mais f=E1=
cil
>pq tenho no meu sistema e o mesmo ta aberto nesse instante...
>
>no mais
>um abra=E7o
>Joelson
>
>
>
>-------------------------------------------------------
>This SF.net email is sponsored by: SF.net Giveback Program.
>Does SourceForge.net help you be more productive?  Does it
>help you create better code?   SHARE THE LOVE, and help us help
>YOU!  Click Here: http://sourceforge.net/donate/
>_______________________________________________
>notes2-team mailing list
>not...@li...
>https://lists.sourceforge.net/lists/listinfo/notes2-team
>
>
> =20
>