RxDbRichedit

[Renanbg 1]

Bom pessoal, tenho umas telas com esse componente e estou montando mais 7, fiz um upgrade do delphi 5 para o 6 e esta normal...

 

Nesse caso para n ter q montar a tela toda de novo eu user crtl c e ctrl v para copiar todos os componentes de um form para o outro...

 

só q da erro na hora de compilar nesse codigo

 

procedure Tfrmedprocedimentosaquisicao.FindDialog1Find(Sender: TObject);

var

Aux : longInt;

Inicio, Fim : Integer;

begin

If rxDBRichEdit1.SelLength > 0 Then

Inicio := rxDBRichEdit1.SelStart + rxDBRichEdit1.SelLength

else

Inicio := 0;

Fim := Length(rxDBRichEdit1.Text) - Inicio;

aux := rxDBRichEdit1.FindText(finddialog1.findtext, inicio, fim, [stmatchcase]); //aqui da o erro

If aux <> -1 Then

Begin

rxDBRichEdit1.SetFocus;

rxDBRichEdit1.SelStart := Aux;

rxDBRichEdit1.SelLength := Length(FindDialog1.FindText);

End

else

showmessage('Não foi possível encontrar "'+finddialog1.findtext + '"');

 

 

end;

 

Alguem tem ideia do que pode ser?

 

o erro q da é esse:

 

Incompatible types: 'TRichSearchType' and 'TSearchType'

[marcio.theis 3]

Logo após o rxDBRichEdit1. dê um ctrl + espaço e veja como este procedimento deve de ser chamado e os parâmetros necessários.

[Renanbg 1]

Descobri...N sei pq mas tinha algo a mais ou a menos no UsesDae peguei o uses de outro form exatamente igual e conferi ate descobrirAbraço...

[marcio.theis 3]

ah... beleza então... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif