Aew Galera, fiz um pequeno "estudo de caso", hehehe, e vejam o que consegui.
Sou péssimo no que diz respeito a criação dinâmica de componentes, então, se
tiver um jeito melhor, por favor, postem, assim eu aprendo tbm!!!
Encham o seu form de edits e coloca isso no OnActivate.
procedure TForm1.FormActivate(Sender: TObject);
var
I: Integer;
Sp: TShape;
begin
for I := 0 to ComponentCount - 1 do
begin
if Components[I] is TEdit then
with Components[I] as TEdit do
begin
BorderStyle := bsNone; // Assim os edits ficam sem borda, não
precisa nem setar eles como CTL3D em False.
Sp := TShape.Create(Self); // Cria o Shape
Sp.Pen.Color := clLime; //Aqui vai a cor da borda pra ser mudada
Sp.Brush.Color := clBlack; //Eu coloquei em preto, pq ai eu vejo se
"vazar" algum shape
Sp.Left := Left - 1;
Sp.Top := Top - 1;
Sp.Height := Height + 2;
Sp.Width := Width + 2;
Sp.Parent := Form1;
end;
end;
end;
Bom Código
Ricardo Berti
----- Original Message -----
From: Ricardo Berti
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, February 07, 2007 11:48 AM
Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes
Deixa o Edit com BorderStyle em bsNone e coloca junto com ele um TShape
atrás, de forma que só apareça a borda... ou se quiser fazer isso em muitos
edits, cria uma procedure que leia todos os edits do form e desenhe um TShape
atrás de cada um...
Vou fazer alguns testes aqui e devolvo a vocês!
Bom Código
Ricard Berti
----- Original Message -----
From: Rafael Marques
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, February 07, 2007 11:31 AM
Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes
eu tentei pelo canvas mas tomei um pau danado e num consegui
:(
eheheehheheheeh
procurei nuns sites e num achei!! talvez alguem tenha algum exemplo
----- Original Message -----
From: Henrique Netzka (Vetor Sistemas)
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, February 07, 2007 10:11 AM
Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes
Canvas! hahahahaha
não tenho uma solução melhor, desculpe rs............. Só não sei se é tão
simples, já que o Delphi provavelmente mande o Windows desenhar os controles ao
invés de ele mesmo fazê-lo...
abraços
----- Original Message -----
From: Rafael Marques
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, February 07, 2007 8:38 AM
Subject: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes
Bom Dia!!
alguem sabe como alterar a cor da linha do contorno dos componentes qdo
desabilitamos a propriedade CTRL3D???
por exemplo os Edits. eles ficam sem o relevo e com o contorno em linha
preta!! eu gostaria de , por exemplo, trocar a cor dessa linha pra azul ou
vermelho
mto obrigado!!
Rafael
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
----------------------------------------------------------
Esta mensagem foi verificada pelo E-mail Protegido Terra.
Scan engine: McAfee VirusScan / Atualizado em 06/02/2007 / Versão: 5.1.00/4957
Proteja o seu e-mail Terra: http://mail.terra.com.br/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
