Arrais Júnior

quem tem que pedir desculpas sou eu por não ter especificado... .. perfeito o exemplo que você deu...serviu exatamente como eu queria...vlws mesmo pela ajuda... obrigado.

acho que você não entendeu jhonas, quando falo bem simples é solicitando que seja dada uma resposta direta e conclusiva a pergunta, assim como me foram dadas varias resposta pelo moderador Douglas. eu utilizo isso para chamar o fontdialog procedure TForm1.SpeedButton15Click(Sender: TObject); begin FontDialog1.Font:=richedit1.Font; if FontDialog1.Execute then richedit1.Font:=FontDialog1.Font; end; o que eu queria saber é se existe como eu aplicar o fontdialog (aquela caixinha de formatação), apenas para o texto selecionado do richedit.. se eu poderia utilizar a funcão TextoSelecionado: TTextAttributes; para fazer isso ...ou o que eu deveria fazer??? minha necessidade é de apenas aumentar a fonte e diminuir, se tivesse como fazer um botão que deixasse o texto selecionado no tamanho 10, outro botao que deixasse no tamanho 12, outro no tamanho 14 já servia!!! obrigado.

ENTÃO...NÃO CONSEGUI.... não tem com fazer simples da maneira que eu fiz com o negrito ? private function TextoSelecionado: TTextAttributes; e dois botões para TextoSelecionado.Style := TextoSelecionado.Style + [fsBold]; TextoSelecionado.Style := TextoSelecionado.Style - [fsBold]; ------ teria como usar a function TextoSelecionado : TTextAttributes; para aplicar a fontdialog? se sim....como ficaria?

vlws douglas.... 01 não kerendo enxer muito teu saco...apenas por questao de aparencia, como ficaria esse codigo se eu colocasse um [espaço]"-"[espaço] separando o nome que eu iria dar ao arquivo da data automática pra que fique nesse formato: NOMEDOARQUIVO - 13.07.2010 (nota-se que existe um espaço antes e depois do "-")

realmente...obrigado...resolvido o problema.

muito simples e diretas as respostas, obrigado só três probleminhas......, 01 - mesmo alterando a ofNoChangeDir, ainda dar para mudar o diretório onde vai abrir o arquivo e salvar o arquivo. 02 - outra, richedit1.Lines.SavetoFile(Savedialog1.FileName + DateToStr(Date)); ocorre um erro quando tento salvar o arquivo....eu acho que é pelo formato da DATA, 03/12/2010, não pode conter BARRA....teria como mudar? por ponto...sei lá..? 03 - mesmo setando o diretório que é pra ficar ele set os dois, load e save, se mudar o load, o save muda junto, se mudar o save, o load muda junto....teria como por cada um em uma pasta?

eu tenho um banco de dados do access, um projeto no delphi que mostra esse banco de dados em um grid, PORÉM, como o campo do banco em em MEMO, não tenho como adicionar novos dados usando o controlador padrão. como faria para escrever em um EDIT ou MEMO, clickar num botão e fazer com que o que estiver no EDIT ou MEMO fosse add no banco de dados OBS: nome do banco de dados é bancodedados.mdb, campo "qualificacao". obrigado.

existe alguma forma deu deixar uma pasta definida para quando for salvar e uma pasta definida para abrir arquivos ? eu gostaria de TRAVAR as pastas, para que não pudesse ir buscar arquivos ou salvar arquivos em outras pastas, apenas nas definidas, EX de Pastas: c:\ArquivosSalvos e uma outra chamada c:\ArquivosModelos outra coisa.... if Savedialog1.Execute then begin richedit1.Lines.SavetoFile(Savedialog1.FileName); richedit1.SetFocus; existe como eu colocar a data atual no nome do aquivo que vai ser salvo? como ficaria? obrigado.

não consegui encontrar uma maneira de aplicar o fontdialog apenas na parte do texto selecionada....falta somente isso para terminar a parte de edição dos textos. se alguém puder dizer uma forma de fazer isso...agradeceria.. antes que o amigo Jhonas venha me postar mais uma outra pesquisa feita no forum, eu aviso que já pesquisei aqui e em outros cantos, não achei!!! obrigado.

outra dúvida... richedit1.Paragraph.Alignment:= taLeftJustify; richedit1.Paragraph.Alignment:= taCenter; richedit1.Paragraph.Alignment:= tarightJustify; isso tá tudo beleza, não existe uma forma igual para o tipo JUSTIFICADO ? alguma maneira bem simples de justificar o texto selecionado apenas dando um click num botão?

ok, vou testar o exemplo ai de cima no meu projeto. pode me ajudar a por a função function TextoSelecionado: TTextAttributes; para que somente a seleção tenha mudada a fonte... tou usando um botão que abre a caixa de fonte do fontdialog, porém, ele aplica em todo o texto, eu gostaria de deixar aplicando apenas na parte selecionada. procedure TForm1.Button1Click(Sender: TObject); begin FontDialog1.Font:=richedit1.Font; if FontDialog1.Execute then richedit1.Font:=FontDialog1.Font; end;

pronto, agora estou utilizando um RICHEDIT no lugar de uma memo.... consegui fazer os botões de negrito, sublinhado e itálico, usando assim private function TextoSelecionado: TTextAttributes; e dois botões para TextoSelecionado.Style := TextoSelecionado.Style + [fsBold]; TextoSelecionado.Style := TextoSelecionado.Style - [fsBold]; até aqui tudo bem, gostaria apenas de saber como ficaria para CENTRALIZAR, JUSTIFICAR, AUMENTAR e DIMINUIR a fonte, utilizando a function que defini TextoSelecionado: TTextAttributes OBS, já procurei em vários cantos sobre CENTRALIZA e JUSTIFICAR e tamanho da fonte... OBS 2 : o tamanho da fonte pode ser posto em dois buttons, um aumenta e outro diminui, me disseram que fica mais simples fazer dessa forma. OBS 3 : tem como visualizar a impressão usando os componentes DIALOGS? ou somente Quickrep? obrigado

bom dia, tou com uns probleminhas... tou com um SIMPLES editor de texto ( usando um memo, e componentes do DIALOGS ) , onde somente será preciso NEGRITO, ITÁLICO, SUBLINHADO, TAMANHO DA FONTE, CENTRALIZAR E JUSTFICAR problema 01: uso isso para deixar a fonte em negrito, porém, ele aplica a todas as palavras que estiverem no memo, como faço para se aplicar apenas a parte do texto selecionado? em botões memo1.Font.Style := [fsbold]; memo1.Font.Style := [fsitalic]; memo1.Font.Style := [fsunderline]; problema 02: o que for mais simples.....dois botões, um pra aumentar e outro pra diminuir o tamanho da fonte, ou igual nos editores padrões, em que você escolhe o tamanho da fonte e tals......OBS, também teria que alterar apenas a parte selecionada do texto.. problema 03: fazer os botões CENTRALIZAR e JUSTIFICAR, apenas para a parte selecionada.

muito obrigado pela ajuda..consegui fazer o que eu tava querendo....graça a ajuda de vocês!

muito obrigado...só não tou conseguindo achar o Clipbrd, já procurei 3x os componentes do delphi 7 e não achei...tou procurando no canto certo?

tipo, os COMENTÁRIOS que estao dentro do campo comentário, não estao sendo copiados quando eu dou um CTRL + C, por mais que eu selecione o campo para copiar, quando eu colo CRTL + V, aparece apenas (MEMO) ...como se o conteudo que tivesse sendo mostrado fosse apenas uma imagem e não um texto que pudesse ser copiado... é de extrema importancia que eu pegue todo o comentário , copiando do grid, ou de outra forma, e cole em um arqivo do tipo editor de texto.... obrigado e desculpas mais uma vez pelo transtorno.

pronto...deu certo aqui :) procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var R : TRect; begin R:=Rect; Dec(R.Bottom,2); if Column.Field=adotable1.FieldByName('qualificacao') then begin if not (gdSelected in State) then DBGrid2.Canvas.FillRect(Rect); DBGrid2.Canvas.TextRect(R,R.Left,R.Top, adotable1.FieldByName('qualificacao').AsString); end; end; end. OBS...só tem um probleminha.....quando eu clico no grid pra Copiar tudo que tem lá, copia apenas (MEMO) não copia os dados :(....algum luz?...algum dica de como eu poderia copiar todo o comentário?

por favor...me ajuda a deixar o dgrid exibindo as memos automaticamente.... obrigado.. desculpa o poste "duplo"

ok ok, realmente eu não tinha o query Oo... agora tá tudo normal...porem, ainda no Dbgrid exibe (MEMO) .... begin R:=Rect; Dec(R.Bottom,2); if Column.Field.Name = 'comentario' then begin if not (gdSelected in State) then DBGrid2.Canvas.FillRect(Rect); DBGrid2.Canvas.TextRect(R,R.Left,R.Top, Query1.FieldByName('comentario').AsString); end; end; queria saber se nesse código eu preciso ativar pra que seja mostrada, algo do tipo...eu gostaria que no grid já mostrasse automaticamente as memos... vlws

na linha Query1.FieldByName('comentario').AsString); qual poderia ser o problema? obrigado.

ok, ficou assim.... mais tah dando erra lá na linha vermelha var R : TRect; begin R:=Rect; Dec(R.Bottom,2); if Column.Field.Name = 'comentario' then begin if not (gdSelected in State) then DBGrid2.Canvas.FillRect(Rect); DBGrid2.Canvas.TextRect(R,R.Left,R.Top, Query1.FieldByName('comentario').AsString); end; end; obrigado pela paciencia

olhei o exemplo do link e ficou assim: procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var R : TRect; begin R:=Rect; Dec(R.Bottom,2); if Column.Field=Query1.FieldByName('comentario') then begin if not (gdSelected in State) then DBGrid2.Canvas.FillRect(Rect); DBGrid2.Canvas.TextRect(R,R.Left,R.Top, Query1.FieldByName('comentario').AsString); end; end; end; end. porém, dar erro nessa linha: if Column.Field=Query1.FieldByName('comentario') then detalhe, eu apenas uso um adoconnect, um adotable um datasoucer e um dbgrid. como eu faria pro memo ficar na coluna? pode ser que essa solução seja viavel! obrigado

não consegui... :( EDIT __________________________________ USUARIO CONSEGUIU, PARA MAIS INFORMAÇÕES VEJAM ESSE TÓPICO: http://scriptbrasil.com.br/forum/index.php?showtopic=151533

olá, estou tendo um probleminha, como exibo em um DBGRIG um campo MEMO ? dei uma olhada nos sites e não consegui com nenhum exemplo, sou iniciante, deve ser por isso... o nome do campo da tabela é COMENTARIOS alguém poderia me fornecer o codigo e informar em qual evento do DBGRID ele tem que ser posto. obrigado.

continuo sem intender, Jhonas, não ache que, porque eu não., eu não procurei....bem cara, pra falar a verdade acho que só cheguei a esses códigos que coloquei, porque procurei, e procurei muito, até mais do que qualquer pessoa poderia procurar, olhei, vi, achei, mais não intendo, procuro alguém que queira me dizer como isso funciona,...eu pergunto por não saber, eu não sei, porque não explicam! bem, depois de desabafar, mostrando minha indignação com todo o sistema de foruns e internet, sei que não vou mudar nada, mais quero que fique bem claro que até hoje não vi nenhum tutorial basico que seja básico, nunca ninguém faz algo para quem não sabe, e essa é minha situação atual....mais pretendo melhora-la muito...... se for comparar o que eu sei com o que vc6 sabem, pode-se dizer que eu não sei nada....mais se for comparar o que eu sei ..com o que eu sabia há 3 meses atras...acho que aprendi muito...aprendi não...fiz várias cópias e algumas associações....enfin, preciso de ajuda, e vejo que você as tem. voltando ao meu problema.. fiz o que você falow.. eu testei com uma outra aplicação que fiz... tipo, fiz um outro banco, com 3 campos, MES...VALOR....NOME...somente para testar coloquei um ADOtable, ADOquery, ADOconnection, DATAsource, e um DBgrid.......COloquei um botão e um edit.. no ONCLICK do botão coloquei.. ADOQuery1.Active := False; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT SUM(valor) FROM TABELA WHERE mes = 1'); ADOQyery1.Open; tah dando erro na ultima linha (pelo que já aprendi, nem sempre o erro está na linha marcada, as vezes está na linha anterior.... perguntas.. 1º posso colocar esse codigo no onclick do botão não é?? 2º o nome TABELA, é tabela mesmo ou eu tenho que colocar o nome da minha tabela que é "teste". (testei também, mais deu mesma coisa).. no onchange do edit coloquei.. ADOQuery1.FieldByName('valor').asFloat; não sei de nada sobre esse, mais parece não dar erro...somente não sei se é no edit mesmo que devo coloca-lo. editei porque faltava dizer uma coisa...tipo, tou com um banco feito no ACCESS, posso usar esses comando de adoquery? pensei que fosse pra sql... tah ligado assim...ADOconnection no meu arquivo .mdb, ADOtable ligado no ADOconection...o Datasource no ADOtable, ADOquery no ADOconnection, e o DBgrid no DATAsource. vlws tipo, acho que o critério poderia ser simples, tipo, eu uso um filtro...ai aperto o botao e soma o que tiver filtrado...então, o filtro fika como se fosse meu critério.. :)