FlatSyle

Question

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 trans...

Sanses · Answer

� 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 querSanses...

Carlosib · Answer

Onde posso baixa o FlatSyle para o Delphi7?...

Lynx · Answer

� 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 ?

Lynx · Answer

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;

F�rum FlatSyle #285503