DBRichEdit e Atributos
Estou usando este componente para que o usuário digite um texto, aplique formatações (fonte, tamanho, cor da fonte, negrito, itálico, etc) e salve no banco de dados!
Estou quebrando a cabeça e não consigo com que o texto aceite os atributos!
Peguei um exemplo de uso do RichEdit do velho Delphi 7 e usei como base para fazer o meu. E isso não funciona nem por reza brava.
No meu código uso uma função assim:
Daí em um evento da minha toolbar, onde tem um toolbutton, eu uso:
Só que não funciona absolutamente nada. Se seleciono um texto e aperto o botão negrito, não rola nada. Se aperto o botão porque quero digitar tudo em negrito não fica.
A única coisa que funciona é a seleção (ou troca) da fonte, que uso:
Uso um objeto TRzFontComboBox da paleta Raize.
Do resto nada funciona!
Alguém tem alguma ideia do porque disso?
Valeu!
Estou quebrando a cabeça e não consigo com que o texto aceite os atributos!
Peguei um exemplo de uso do RichEdit do velho Delphi 7 e usei como base para fazer o meu. E isso não funciona nem por reza brava.
No meu código uso uma função assim:
function TForm_Editor.CurrText: TTextAttributes;
begin
if DBRichEdit1.SelLength > 0 then
Result := DBRichEdit1.SelAttributes
else
Result := DBRichEdit1.DefAttributes;
end;
Daí em um evento da minha toolbar, onde tem um toolbutton, eu uso:
if BoldButton.Down then
CurrText.Style := CurrText.Style + [fsBold]
else
CurrText.Style := CurrText.Style - [fsBold];
Só que não funciona absolutamente nada. Se seleciono um texto e aperto o botão negrito, não rola nada. Se aperto o botão porque quero digitar tudo em negrito não fica.
A única coisa que funciona é a seleção (ou troca) da fonte, que uso:
CurrText.Name := FontName.Items[FontName.ItemIndex];
Uso um objeto TRzFontComboBox da paleta Raize.
Do resto nada funciona!
Alguém tem alguma ideia do porque disso?
Valeu!
Adilson Júnior
Curtidas 0