Ver Mensaje Individual
  #5  
Antiguo 17-12-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por aitorqrv Ver Mensaje
... y si le quero eliminar los bordes al spedd button?
Hola aitorqrv.

Si te referis al borde que se presenta cuando se pasa el mouse por encima creo que no, pero podes reemplazar los SpeedButtons por Images con el mismo resultado:
Código Delphi [-]
...
implementation 

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  img : TImage;
begin
  for i := 0 to 7 do
  begin
    img := FindComponent('Image'+IntToStr(i+1)) as TImage;
    if Assigned(img) then
    begin
      img.Height:= 16;
      img.Width := 16;
      img.Tag   := 0;    // Apagado por defecto
      ImageList1.GetBitmap(img.Tag, img.Picture.Bitmap)
    end;
  end;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
 with Sender as TImage do
  begin
    Picture.Bitmap := nil;
    Tag := Integer(not Boolean(Tag));
    ImageList1.GetBitmap(Tag, Picture.Bitmap);
  end;
  //...
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita