Ajustar width da form em tempo de execu��o conforme caption

Question

Bom dia colegas!! Minha d�vida: tenho uma form cujo caption muda de acordo com a vontade do fregues, dependendo de que form chamou ela. O problema � que

Edilcimar · Answer

tente colocar a largura de uma letra, mas n�o esque�a que o i gasta menos espa�o que o m...

Vitor Rubio · Answer

Quero fazer um c�digo que seja reaproveit�vel em qualquer aplicativo meu.

O tamanho da fonte do form nunca � igual ao tamanho do font do caption da form.

O tamanho da font do form pode variar, mas na barra de t�tulo continua o mesmo, ent�o essa sugest�o n�o d� certo. Al�m disso eu j� testei isso.... ou ele fica muito pequeno, ou, se eu somar 1 ao tamanho da font, fica muito grande.

o tamanho da font na barra de t�tulos tamb�m pode variar de acordo com as configura��es do windows.

Mesmo assim obrigado!

Edilcimar · Answer

j� tentou o trect(), n�o sei se � aplic�vel ao caso presente, eu j� o utilizei para impress�o, mas tamb�m d� para utilizar em tela...

Vitor Rubio · Answer

como eu usaria isso? vc poderia me dar um exemplo?VLW!...

Edilcimar · Answer

o programa onde utilizei n�o est� acess�vel no momento pois minha MB pifou e estou utilizando uma emprestada e para n�o reintalar o xp, instalei-o no meu hd de backup onde n�o tenho o delphi instalado, mas procure no help do delphi que existe exemplo com certeza

Massuda · Answer

O texto do t�tulo da janela tem que ficar totalmente vis�vel? As vezes d� menos trabalho mostrar parte do texto com um �...� no final....

Vitor Rubio · Answer

Gostaria que ficasse totalmente visivel, porque � um tipo de di�logo temporizado que eu estou criando (igual o do avg) por isso o usu�rio n�o vai poder redimensionar a janela. Tem que aparecer todo o caption da form na barra de t�tulo.

Massuda · Answer

[quote:c0928f73e4=�vitor^_^�]...Tem que aparecer todo o caption da form na barra de t�tulo.[/quote:c0928f73e4]Para medir o tamanho de um texto, voc� pode usar o Canvas do form:

var
  Tamanho: Integer;
...
  Tamanho := Canvas.TextWidth(Caption);

O problema � que dessa forma voc� tem o tamanho do texto apenas... para poder ajustar a largura da janela, precisaria levar em conta pelo menos o tamanho dos bot�es Maximizar/Minimizar/Fechar e do �cone da janela/form (se houver).

O ideal � que voc� limite o tamanho m�ximo que a janela pode atingir, para n�o ter uma janela com as laterais saindo da tela.

Massuda · Answer

[quote:440ee5a34e=�Massuda�]Para medir o tamanho de um texto, voc� pode usar o Canvas do form...[/quote:440ee5a34e]Uma outra coisa... n�o testei isso! Talvez tenha um problema porque n�o tenho certeza se o fonte que usa para escrever o t�tulo � o mesmo que usa no form....

Vitor Rubio · Answer

J� pensei na possibilidade da form ser maior que a tela.

com rela��o ao textwidth do canvas..... a fonte do canvas � a mesma que a da form, enquanto que a fonte da bara de t�tulo � configurada no windows, nas propriedades de v�deo.

Kapak · Answer

Utilize a fun��o GetWindowTextLength....

Kapak · Answer

GetWindowTextLength n�o ir� adiantar....

Massuda · Answer

[quote:b696b907a3=�vitor^_^�]a fonte do canvas � a mesma que a da form, enquanto que a fonte da bara de t�tulo � configurada no windows, nas propriedades de v�deo.[/quote:b696b907a3]Nada impede de voc� fazer o seguinte...

var 
  Tamanho: Integer; 
... 
  Canvas.Font.Name := ...nome do fonte usado no t�tulo...
  Canvas.Font.Size := ...tamanho do fonte usado no t�tulo...
  Tamanho := Canvas.TextWidth(Caption);
  Canvas.Font.Name := Font.Name;
  Canvas.Font.Size := Font.Size;

Vitor Rubio · Answer

Tem uma coisa que me impede sim ...[quote:12ec5e9bfb]...nome do fonte usado no t�tulo... [/quote:12ec5e9bfb]como eu vou saber isso? depende da configura��o da maquina onde o programa for rodar...n�o sei como pegar a fonte da barra de t�tulo do windows, sou iniciante  :oops: de qualquer forma, vou tentar sus outras sugest�es.vlw...

Massuda · Answer

[quote:8bd16b47f3=�vitor^_^�]Tem uma coisa que me impede sim ...[/quote:8bd16b47f3]Desculpe :oops: ... na hora que escrevi eu n�o tinha pensado em como obter essa informa��o.

Depois de alguma pesquisa, eis como obter os dados do fonte usado para escrever o t�tulo da janela...

var
  Metrics: TNonClientMetrics;
....
  Metrics.cbSize:=SizeOf(Metrics);
  SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(Metrics), @Metrics, 0);

  // Metrics.lfCaptionFont.lfHeight = altura do fonte, 
  // Metrics.lfCaptionFont.lfFaceName = nome do fonte

Vitor Rubio · Answer

Muito obrigado pelas dicas Massuda!Amanh�, assim que chegar no trabalho testarei.... meu projeto est� l�.o que estou fazendo � um conjuntinho de caixas de mensagm igual as messagebox(),  msgdialog() ou showmessage da vida, s� que com bot�es e �cones personalizados, e com temporizadores e gauges. Quando ficar pronto, se algu�m se interessar eu posto o fonte. por enquanto est� no come�o... e est� bem feinho. Mas vai melhorar :)Grato!!...