| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
|
| Voltar ao Topo |
|
 |
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
|
| Voltar ao Topo |
|
|
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
 Enviada: Sex Jul 28, 2017 2:51 pm Assunto: Re: Retirar espaço no componente TCategoryPanel? |
 |
|
| adriano_servitec escreveu: | Como retiro este espaço no componente TcategoryPanel?
Olha o espaço
 |
Desculpe, não consegui identificar. Qual espaço?
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
|
| Voltar ao Topo |
|
|
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Sex Jul 28, 2017 4:25 pm Assunto: |
|
|
Pelo que entendi você quer que o CategoryPanel se ajuste ao tamanho total dos seus objetos filhos.
Seria o que faz a propriedade AutoSize de um panel, por exemplo.
Neste componente não tem essa propriedade.
Criei uma procedure pra isso:
| Código: | procedure AjustaCategPanel(Painel: TCategoryPanel; AlturaTitulo: Integer);
var
cont, j: Integer;
surface: TCategoryPanelSurface;
begin
cont := 0;
surface := Painel.Controls[0] as TCategoryPanelSurface;
for j := 0 to surface.ControlCount - 1 do
Inc(cont, surface.Controls[j].Height);
Painel.Height := cont + AlturaTitulo;
end; |
Você pode usar no evento OnExpand do CategoryPanel:
| Código: | | AjustaCategPanel(TCategoryPanel(Sender), 30); // Segundo parametro é a altura do título do CategoryPanel |
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
| Enviada: Sex Jul 28, 2017 5:42 pm Assunto: |
|
|
| natanbh1 escreveu: | Pelo que entendi você quer que o CategoryPanel se ajuste ao tamanho total dos seus objetos filhos.
Seria o que faz a propriedade AutoSize de um panel, por exemplo.
Neste componente não tem essa propriedade.
Criei uma procedure pra isso:
| Código: | procedure AjustaCategPanel(Painel: TCategoryPanel; AlturaTitulo: Integer);
var
cont, j: Integer;
surface: TCategoryPanelSurface;
begin
cont := 0;
surface := Painel.Controls[0] as TCategoryPanelSurface;
for j := 0 to surface.ControlCount - 1 do
Inc(cont, surface.Controls[j].Height);
Painel.Height := cont + AlturaTitulo;
end; |
Você pode usar no evento OnExpand do CategoryPanel:
| Código: | | AjustaCategPanel(TCategoryPanel(Sender), 30); // Segundo parametro é a altura do título do CategoryPanel |
|
Mais uma vez muito obrigado por ajudar Natan de BH
Deu certo amigo.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
