formas de botoes
galera tem como eu fazer um botão redondo no delphi.
obrigado
obrigado
Speedrob
Curtidas 0
Respostas
Jrjoliv2003
07/07/2004
Estou procurando isso a um bom tempo.
O único que encontrei o Glyph ficava atrás do texto.
Vamos ver se alguém!
Vou ficar de olho na sua mensagem.
JR. :shock:
O único que encontrei o Glyph ficava atrás do texto.
Vamos ver se alguém!
Vou ficar de olho na sua mensagem.
JR. :shock:
GOSTEI 0
Casetek
07/07/2004
Será que dá pra me mandar esse que vc tem. Já me quebraria um galhão.
ferprog@pop.com.br
Valeu
ferprog@pop.com.br
Valeu
GOSTEI 0
Jrjoliv2003
07/07/2004
Eu tô no trabalho.
O componente está em casa.
Assimq puder te mando!!!
Valeu!!!
JR.
O componente está em casa.
Assimq puder te mando!!!
Valeu!!!
JR.
GOSTEI 0
Marcelo Saviski
07/07/2004
Um Exemplo:
usando:
[color=green:c2a9e2e675]ArredondarControl(Button1);[/color:c2a9e2e675] por exemplo
mas ele não coloca as bordas do botão
procedure ArredondarControl(Control: TWinControl); var Region: HRGN; begin with Control.ClientRect do Region := CreateEllipticRgn(Left, Top, Right, Bottom); SetWindowRgn(Control.Handle, Region, False); DeleteObject(Region); end;
usando:
[color=green:c2a9e2e675]ArredondarControl(Button1);[/color:c2a9e2e675] por exemplo
mas ele não coloca as bordas do botão
GOSTEI 0
Fknyght
07/07/2004
[quote:b021e233a0=´Marcelo Saviski´]Um Exemplo:
usando:
[color=green:b021e233a0]ArredondarControl(Button1);[/color:b021e233a0] por exemplo
mas ele não coloca as bordas do botão[/quote:b021e233a0]
Seu Código naum funciona :)
procedure ArredondarControl(Control: TWinControl); var Region: HRGN; begin with Control.ClientRect do Region := CreateEllipticRgn(Left, Top, Right, Bottom); SetWindowRgn(Control.Handle, Region, False); DeleteObject(Region); end;
usando:
[color=green:b021e233a0]ArredondarControl(Button1);[/color:b021e233a0] por exemplo
mas ele não coloca as bordas do botão[/quote:b021e233a0]
Seu Código naum funciona :)
GOSTEI 0
Nildo
07/07/2004
Funciona sim, é só colocar um
em baixo do DeleteObject.
Control.Parent.Repaint;
em baixo do DeleteObject.
GOSTEI 0
Marcelo Saviski
07/07/2004
hum, ou mudar lá de:
[color=green:7f159e6549]SetWindowRgn(Control.Handle, Region, False); [/color:7f159e6549]
para
[color=green:7f159e6549]SetWindowRgn(Control.Handle, Region, [b:7f159e6549]True[/b:7f159e6549]); [/color:7f159e6549]
[color=green:7f159e6549]SetWindowRgn(Control.Handle, Region, False); [/color:7f159e6549]
para
[color=green:7f159e6549]SetWindowRgn(Control.Handle, Region, [b:7f159e6549]True[/b:7f159e6549]); [/color:7f159e6549]
GOSTEI 0
Fknyght
07/07/2004
po que paia de codigo
:twisted: :roll: :evil:
:twisted: :roll: :evil:
GOSTEI 0
Decimus
07/07/2004
aqui:
[url]http://www.devexpress.com/Downloads/VCL/ExForumLibrary/[/url]
usa o dfxPictureButton.
cumps.
[url]http://www.devexpress.com/Downloads/VCL/ExForumLibrary/[/url]
usa o dfxPictureButton.
cumps.
GOSTEI 0
Eniorm
07/07/2004
galera, aproveitando o embalo
tenho uma dica boa pra criar um botão, eu uso e fica com um visual legalzinho,
o local do botão, eu coloco um Bevel (com as propriedades padrões), no tamanho que seria o botão,
dentro do bevel, eu coloco um SpeedButton (Flat := true) , com as bordas do speedbutton alinhadas com as bordas internas do Bevel.
vale testar e ver o resultado.
tenho uma dica boa pra criar um botão, eu uso e fica com um visual legalzinho,
o local do botão, eu coloco um Bevel (com as propriedades padrões), no tamanho que seria o botão,
dentro do bevel, eu coloco um SpeedButton (Flat := true) , com as bordas do speedbutton alinhadas com as bordas internas do Bevel.
vale testar e ver o resultado.
GOSTEI 0