Dbmemo

[Eder]

Pessoal....tenho 2 dúvidas com DBMemo.....porque eu nunca trabalhei com ele antes.

1-Eu mandei imprimir ele atraves deste codigo abaixo...mas o problema é que o dbmemo tem muito texto...e ele acaba fora do relatorio...então eu precisa que ele imprimisse como esta no memo.......ou seja.....se no dbmemo ele foi digitado 4 linhas de texto então eu gostaria que eu fosse pro Quickreport com 4 linhas também...ou que não ultrapassa a margem do relatorio, ou algo parecido

o codigo é esse abaixo que estou usando:

procedure TFormCPen.EncartaButton2Click(Sender: TObject);
Begin
With FormImpReg do
Begin
  qrlabel3.caption:=EditCodigo.text;
  qrlabel4.caption:=dbdateedit3.text;
  qrlabel5.caption:=DbCombobox1.text;
  qrlabel19.caption:=DbCombobox4.text;
  qrlabel39.caption:=DbMemo1.text;
  QuickRep1.Preview;
end;
end;

2-a outra duvida é que eu programei para a tabela paradox no campo dbmemo tivesse ate 200 caracteres alphanumericos para ser digitado...então quando chegar a 200 caracteres aparessesse uma mensagem ao usuario dizendo que o limite de digitação acabou.

muito Grato

[Kikonanet]

Olá Éder,

Por que você não usa um QRDBRichText ou um QRMemo para receber o seu campo MEMO ao invés de usar o QRlabel39?

Na outra dúvida você pode usar a propriedade MaxLength =200 ou fazer no OnKeyPress um contador....

Abs.

Kiko

[Eder]

Kiko

Na outra dúvida você pode usar a propriedade MaxLength =200 ou fazer no OnKeyPress um contador....

esta acima eu já resolvi...veja abaixo:

procedure TFormCPen.DBMemo1Change(Sender: TObject);
begin
if Length(TCustomMemo(Sender).Text) > 198 then
begin
 TCustomMemo(Sender).Text := Copy(TCustomMemo(Sender).Text, 1, 198);
 ShowMessage('O Limite máximo de Digitação é de 200 Caracteres!');
 end;
 end;
end.

=====================

Por que você não usa um QRDBRichText ou um QRMemo para receber o seu campo MEMO ao invés de usar o QRlabel39? 

esta acima.....tentei usar.....mas não aparece nada no visualização do quick fiz acim...

qrMemo1.caption:=DbMemo1.text;

Poderias me passar um exemplo???

muito Grato

[Kikonanet]

Olá Éder,

Tenta assim:

with FormImpReg do
  begin
   QRMemo1.Lines:=Memo1.Lines;
   QuickRep1.Preview;
  end;

[Eder]

Kiko...ele só leva.....a primeira linha do DbMemo....as outras linhas ele não leva junto......!!!!

[Kikonanet]

Olá Éder,

Tenta usar o QRRichText no lugar do QRMemo.

with FormImpReg do
 begin
  QRRichText1.Lines.Text:=Memo1.Text;
  QuickRep1.Preview;
 end;

Obs.: Deixe a propriedade AutoStretch como TRUE.

Abs.

Kiko

[Eder]

Kiko...beleza...cara...agora sim...funcionou como eu queria......

Cara....so mais uma dúvida.....

Qual a diferença entre o DBMemo e o DBRichEdit ???

Grato

[Kikonanet]

Éder,

Simplificando o RichEdit tem alguns atributos que o Memo não tem, mas os dois trabalham de forma muito parecida.

Para maiores esclarecimentos, dá uma olha no Help do Delphi

Abs.

Kiko

[Eder]

valeu...Kiko....Grato..pela ajuda....t+

[Kikonanet]

qualquer coisa estamos ai.

Abs.

Kiko