Meu componente free: DBLabeledEdit

Delphi

31/05/2004

Olá pessoal, ha muito tempo que utilizo no Delphi 6 o
LabeledEdit, devido a facilidade, pois evita de ter que ficar
inserindo os edits e seus respectivos labels.

Mas como nunca vi um para o DBEdit, resolvi criar um.

Chama-se DBLabeledEdit, herda a classe TDBEdit (vcl)
com algumas propriedades:

ColorFocus : Tcolor; indica a cor que o componente terá quando receber o foco BoldFocus : boolean; se true, negrita o texto do label quando receber o foco.


Fora isso, ele jah vem setado com as propriedades:
BevelInner := bvNone; BevelKind := bkFlat; BorderStyle := bsNone; Height := 19;


Para criar esse componente, eu apenas acrescentei
os códigos do TLabeledEdit, que faz aparecer e controlar
o label do respectivo edit, e inserí-los no meu componente.

ELE É FREE (claro!) mas ainda falta criar um icone, (.dcr)
pra ele, quem quiser ajudar...

[b:67b3b5d2de]Links[/b:67b3b5d2de]

DBLabeledEdit
[url]http://www28.brinkster.com/marconcini/delphi32/DBLabeledEdit.zip[/url]

Versão simples, não conecta ao DataSource (edit simples)
[url]http://www28.brinkster.com/marconcini/delphi32/TColorLabelEdit.zip[/url]


Eniorm

Eniorm

Curtidas 0

Respostas

Nerdex

Nerdex

31/05/2004

Interessante... esta tua benfeitoria Enio... , sabendo-se que controles data aware sempre são bem vindos, importantes e sempre serão aceitos...
Tenho 4 controles deste padrão aqui comigo que são: DBMaskEdit, DBRadioButton, DBCheckBox e DBEditDateTime com calendário popup, e agora ... com mais o teu, fico realmente municiado até os dentes...

valew


GOSTEI 0
Eniorm

Eniorm

31/05/2004

(...) Tenho 4 controles deste padrão aqui comigo que são: DBMaskEdit, DBRadioButton, DBCheckBox e DBEditDateTime com calendário popup(...)


Só falta agora vc colocar os links desses componentes
pra gente fazer o download tbm!
:D T+


GOSTEI 0
Nerdex

Nerdex

31/05/2004

Sem problemas...

[size=14:0d5f99d5b3][color=blue:0d5f99d5b3]www.borland.com[/color:0d5f99d5b3] -> Developers ... no Code Central ... Componentes[/size:0d5f99d5b3]

[i:0d5f99d5b3]Lá vcs irão encontrar, e diga-se de passagem, transformar um componente em data aware ñ tem maiores mistérios...[/i:0d5f99d5b3]


GOSTEI 0
Logado

Logado

31/05/2004

Qunado eu adiciono o componente dblabeledit a borda dele vem por padrão no estilo flat. Depois de alterar para o estilo 3D (padrao do delphi) e salvar o projeto reparei q depois q fechava o projeto e abria novamente, ele voltava pro estilo flat. Alguém já reparou isso?


GOSTEI 0
Eniorm

Eniorm

31/05/2004

Qunado eu adiciono o componente dblabeledit a borda dele vem por padrão no estilo flat. Depois de alterar para o estilo 3D (padrao do delphi) e salvar o projeto reparei q depois q fechava o projeto e abria novamente, ele voltava pro estilo flat. Alguém já reparou isso?


Ae Logado, isso não eh um bug não, pois qdo eu criei o
componente DBLabeledEdit, on evento [b:c57ac3636b]Create[/b:c57ac3636b], fiz com
que ficasse dessa forma, que é da forma que eu uso:
constructor TDBLabeledEdit.Create(AOwner: TComponent);
begin
     inherited Create(AOwner);
     FLabelPosition := lpAbove;
     FLabelSpacing := 3;
     SetupInternalLabel;
     BorderStyle := bsNone;
     BevelInner := bvNone;
     BevelKind := bkFlat;
     ColorFocus := clCream;
end;


Pra mudar basta q vc mude o codigo acima para:
constructor TDBLabeledEdit.Create(AOwner: TComponent);
begin
     inherited Create(AOwner);
     FLabelPosition := lpAbove;
     FLabelSpacing := 3;
     SetupInternalLabel;
     ColorFocus := clCream;
end;


Será necessário recompilar a unit.

T+ :wink:


GOSTEI 0
Logado

Logado

31/05/2004

Po blz mas as configurações feitas em cima do componente não eram pra ficar salvas depois de inserida no formulário como os outros? quando eu insiro no form blz fica flat, mas depois q eu troco e salvo o projeto, os componentes inseridos voltam a forma original depois de fechar e abrir novamente o projeto.

Po naum to criticando apenas observando e to usando eles direto taum me ajudando muito.
valeu


GOSTEI 0
Ponce :)

Ponce :)

31/05/2004

[b:7cc6fac38f]Caro Enio Marconcini, gostei muito do seu componente, irei com certeza usar em minhas aplicações, mas gostaria de saber se você também tem um para o ComboBox e o DBComboBox. E aí, você tem uma espécie de LabelComboBox e DBLabelComboBox com o ColorFocus, se tiver me avise e coloque o URL do arquivo, se não tiver tem como você criar um, pois tentei e não consegui ter exito.
Valew,


__________________________________
Em terra de programador, quem tem Delphi é rei.[/b:7cc6fac38f]


GOSTEI 0
Eniorm

Eniorm

31/05/2004

[quote:35a87c922b=´Ponce :)´](...) se você também tem um para o ComboBox e o DBComboBox. E aí, você tem uma espécie de LabelComboBox e DBLabelComboBox com o ColorFocus, (...)[/quote:35a87c922b]

Ae não tenho não, mas vc deu uma ótima idéia :idea: !!!
Posso tentar... se der certo podes crer que ele estará
aqui pra download :wink:
T+


GOSTEI 0
Eniorm

Eniorm

31/05/2004

Ae colegas, já montei um DBLookUpComboBox com label,
vai chamar DBLabeledLComboBox (nome grande einh)
e estou criando uns outros.
Ai vou criar um package com os componetes e
distribuir pra galera.... :wink:
T+


GOSTEI 0
POSTAR