FlatSyle
Bom Dia !
Alguém conhece o componente FlatSyle ?
Alguém sabe porque o FlatEdit o tamanho height fica sempre 19 ?
Não tem como mudar ?
é complicado a maioria dos componentes XP, tem algum bug...
Tem o transpear XP mas nesse não tem outro componente que eu preciso que tem no FlatStyle!
E O FlatStyle tem todos os componentes que preciso, mas o FlatEdit não fica com o height 21...
Alguém conhece o componente FlatSyle ?
Alguém sabe porque o FlatEdit o tamanho height fica sempre 19 ?
Não tem como mudar ?
é complicado a maioria dos componentes XP, tem algum bug...
Tem o transpear XP mas nesse não tem outro componente que eu preciso que tem no FlatStyle!
E O FlatStyle tem todos os componentes que preciso, mas o FlatEdit não fica com o height 21...
Lynx
Curtidas 0
Respostas
Sanses
21/06/2005
É realmente é um bug dos componentes, mas voce já tentou fazer isso:
No onpaint do form coloque:
flatedit1.Height := 30;
Assim quando compilar ele vai estar com o tamanho que vc quer
Sanses
No onpaint do form coloque:
flatedit1.Height := 30;
Assim quando compilar ele vai estar com o tamanho que vc quer
Sanses
GOSTEI 0
Carlosib
21/06/2005
Onde posso baixa o FlatSyle para o Delphi7?
GOSTEI 0
Lynx
21/06/2005
é sanses assim realmente funciona, mas é difícil começar fazendo ´manobras´ por causa de componente...
Será que não tem outra versão deste componente ?
ah outra coisa, você sabe onde baixa botões neste estilo ?
Será que não tem outra versão deste componente ?
ah outra coisa, você sabe onde baixa botões neste estilo ?
GOSTEI 0
Lynx
21/06/2005
o cara que fez o componente fixou o valor do heigh...
pegue o fonte do componente e edita este valor pra 8
procedure TCustomFlatEdit.NewAdjustHeight;
var
DC: HDC;
SaveFont: HFONT;
Metrics: TTextMetric;
begin
DC := GetDC(0);
SaveFont := SelectObject(DC, Font.Handle);
GetTextMetrics(DC, Metrics);
SelectObject(DC, SaveFont);
ReleaseDC(0, DC);
Height := Metrics.tmHeight + 8;
end;
pegue o fonte do componente e edita este valor pra 8
procedure TCustomFlatEdit.NewAdjustHeight;
var
DC: HDC;
SaveFont: HFONT;
Metrics: TTextMetric;
begin
DC := GetDC(0);
SaveFont := SelectObject(DC, Font.Handle);
GetTextMetrics(DC, Metrics);
SelectObject(DC, SaveFont);
ReleaseDC(0, DC);
Height := Metrics.tmHeight + 8;
end;
GOSTEI 0