| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
 Enviada: Qui Out 16, 2014 9:47 am Assunto: |
 |
|
Tente assim:
| Código: |
procedure TfrmEdicaoContrato.negrito(DBRichEdit: TDBRichEdit);
begin
if Objeto is TDBRichEdit then
begin
With DBRichEdit.SelAttributes do
Begin
if (Style = [fsBold]) or
(Style = [fsBold, fsItalic]) or
(Style = [fsBold, fsUnderline]) or
(Style = [fsBold, fsItalic, fsUnderline]) then
Style:= Style - [fsBold]
else
Style:= Style + [fsBold];
End;
end;
end;
|
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
 |
michael_jackson
Membro Junior
Registrado: Quarta-Feira, 17 de Fevereiro de 2010
Mensagens: 393
|
| Enviada: Qui Out 16, 2014 3:57 pm Assunto: |
|
|
todos estes estão funcionando
negrito
itálico
sublinhado
alinhamento a esquerda
centralizado
alinhamento a direita
justificado
fonte
cor da fonte
só falta o tamanho da fonte, trocar o tamanho é fácil,
mas tem algum código que carregue os tamanhos das fontes do windows em uma combobox? Isso eu não achei.
encontrei de como carregar as fontes. |
|
| Voltar ao Topo |
|
|
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Qui Out 16, 2014 4:20 pm Assunto: |
|
|
Creio que não encontre o tamanho das fontes usadas no Windows.
Mas o mais comum é se fazer um Loop preenchendo o combobox com o intervalo numérico desejado.
| Código: |
Var
i: integer;
Begin
for i:= 1 to 48 do
Combobox1.Items.Add(inttostr(i));
Combobox1.Text:= '12';
End;
|
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
michael_jackson
Membro Junior
Registrado: Quarta-Feira, 17 de Fevereiro de 2010
Mensagens: 393
|
| Enviada: Qui Out 16, 2014 4:37 pm Assunto: |
|
|
resolvido
é foi isso que eu fiz manualmente, fui e inseri
os tamanhos na propriedade itens |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
