Izaias, Tente assim:
//-- Com Negrito Memo1.Font.Style := Memo1.Font.Style + [fsBold]; //-- Sem Negrito Memo1.Font.Style := Memo1.Font.Style - [fsBold]; Sucesso !! Moacir izaias_gomes escreveu: > se possivel me tirar duas dúvidas que não consegui resolver com ninguem, desde > já envio meus votos de gratidão por estar me dando sua atenção uma vez que > tenho > certeza que estão sempre muito ocupados. Bem segue abaixo as Dúvidas, mais uma > vez MUITO OBRIGADO! > > Atenciosamente, > > Izaias Gomes Bezerra > Batalha-Alagoas > > Delphi 7.0 > Firebird 1.5 > ClientDataSet > DBExpress > FastReport 4.3 > > Dúvidas: > > 1: > No Evento OnBeforePrint uso o comando : > Memo1.Font.Style := fsBold; > ou seja coloco o Memo1 no Style Negrito, até ai tudo bem mas no meu caso eu > preciso colocar uma linha o memo negrito em outra linha o memo normal, é ai > que > mora o problema, uma vez configurado para negrito eu já tentei todo tipo de > comando para tirar o negrito mas não consegui, ou seja assim como estou > conseguindo colocar o negrito via código preciso também tirar o negrito via > código. > > 2: > No Evento BeforePrint da Banda Detail do QuickReport eu podia fazer um loop em > uma determinada tabela e somar um campo númerico por exemplo: > cdsVendas.First; > While Not cdsVendas.Eof do > begin > Variavel_Total :=Variavel_Total + cdsVendasValor_Venda.AsFloat; > cdsVendas.Next; > end; > já no FastReport não consigo dar um loop na banda OnBeforePrint. > > > > > ------------------------------------ > >
