Foros Club Delphi - Boton con esquinas ovaladas

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Boton con esquinas ovaladas (https://www.clubdelphi.com/foros/showthread.php?t=88413)

Boton con esquinas ovaladas

Hola buenas noches, habrá forma de poner un botón con sus cuatro lados ovalados?

Saludos

Puedes intentar poner una imagen de un boton con el diseño que quieras y asociar al evento onclick de la imagen un procedimiento.

Saludos...:cool:

Hola kaua77.

Si como dice el título de tu mensaje deseas las ("esquinas ovaladas") podes hacer:

Código PHP:


		
			
void roundCtrl( TWinControl* wc ) {
  TRect rct = wc->ClientRect;
  HRGN  rgn = CreateRoundRectRgn( rct.left, rct.top, rct.right,
    rct.bottom, 25, 25 );

  SendMessage( wc->Handle, EM_GETRECT, 0, (LPARAM)&rct );
  InflateRect( &rct, -5, -5 );
  SendMessage (wc->Handle, EM_SETRECTNP, 0, (LPARAM)&rct );
  SetWindowRgn( wc->Handle, rgn, true );
  wc->Invalidate();
}

Ejemplo de uso:

Código PHP:


		
			
void __fastcall TForm1::Button1Click(TObject *Sender) {
  roundCtrl(Button1);
  roundCtrl(Memo1);
  ...  etc
}

Ahora, como dice el texto de tu mensaje: "sus cuatro lados ovalados" (como si estuviese inflado), vas a tener que hacer lo que te sugiere kapcomx.

Si por otro lado desearas darle forma elíptica:

Código PHP:


		
			
void ellipticalCtrl(TWinControl* wc) {
  HRGN   rgn;

  rgn = CreateEllipticRgn(2, 2, wc->Width - 2, wc->Height - 2);
  SetWindowRgn(wc->Handle, rgn, true);
}

Ejemplo de uso:

Código PHP:


		
			
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ellipticalCtrl(Button1);   // form->color <> clBtnFace
  ellipticalCtrl(Memo1); 
  ... etc
}

En este último caso y tratándose de un TButton que no posee la propiedad Color, servirá solo si el form es de otro color ya que si el color del form es clBtnFace al desaparecer sus bordes sólo se verá la leyenda (Caption) del botón.

Saludos :)

¿Por qué no crear un nuevo componente? Esto es un ejemplo para una pregunta similar en un Edit: TRoundEdit, un TEdit con las esquinas redondas.

Si quieres un efecto más vistoso, puedes revisar este hilo: Manejo de imágenes Bitmap estilo Winamp

Este es un ejemplo de un SkinButton

Saludos.

garcias, a todos saludos

Me he dado cuenta de que el componente TSkinButton estaba publicado en un foro restringido. He liberado el componente y ahora lo puedes encontrar en este enlace.
Esto es un ejemplo gráfico del resultado:

El truco está en el uso de regiones recortando la parte visible de un bitmap, como muestra este código:

Código Delphi [-]procedure SkinControl(Control: TWinControl; bmp: TBitmap);
var
  TransparentColor: DWORD;
  rgn, rgnTemp: HRGN;
  ini, x, y: integer;
  Pixel: PADWord;
begin
  bmp.HandleType:= bmDIB;
  bmp.PixelFormat:= pf32bit;
  Control.SetBounds(Control.Left, Control.Top, bmp.Width, bmp.Height);
 
  TransparentColor:= PADWord(bmp.ScanLine[bmp.Height-1])[0];
 
  rgn:= CreateRectRgn(0, 0, Control.Width, Control.Height);
  CombineRgn(rgn, rgn, rgn, RGN_DIFF);
 
  for  y:=0 to bmp.Height-1 do
  begin
    Pixel:= PADWord(bmp.ScanLine[y]);
    ini:= 0;
    for x:=0 to bmp.Width-1 do
    begin
       if pixel[x] <> TransparentColor then
       begin
         rgnTemp:= CreateRectRgn(ini, y, x, y+1);
         CombineRgn(rgn, rgn, rgnTemp, RGN_OR);
         DeleteObject(rgnTemp);
         ini:= x;
       end
       else inc(ini);
    end;
  end;
  SetWindowRgn(Control.Handle, rgn, true);
  DeleteObject(rgn);
end;

El proyecto de ejemplo y el código de TSkinButton lo encuentras aquí.

Saludos.

Originalmente lo publiqué en delphi pero puede traducirse a C++, esta es la versión:

Crear la región para el Skin:

Código PHP:


		
			
void __fastcall SkinControl(TWinControl* Control, Graphics::TBitmap *bmp)
{
   bmp->HandleType = bmDIB;
   bmp->PixelFormat = pf32bit;
   Control->SetBounds(Control->Left, Control->Top, bmp->Width, bmp->Height);

   DWORD TransparentColor = static_cast<DWORD*>(bmp->ScanLine[bmp->Height-1])[0];
   HRGN rgn, rgnTemp;

   rgn = CreateRectRgn(0, 0, 0, 0);

   for(int y=0; y<bmp->Height; ++y){
      DWORD *pixel = static_cast<DWORD*>(bmp->ScanLine[y]);
      for(int x=0, ini = 0; x<bmp->Width; ++x){
         if(pixel[x] != TransparentColor){
            rgnTemp = CreateRectRgn(ini, y, x, y+1);
            CombineRgn(rgn, rgn, rgnTemp, RGN_OR);
            DeleteObject(rgnTemp);
            ini = x;
         } else ini++;
      }
   }
   SetWindowRgn(Control->Handle, rgn, true);
   DeleteObject(rgn);
}

El cambio gráfico entre los estados:

Código PHP:


		
			
void __fastcall TSkinButton::CNDrawItem(TWMDrawItem& Message)
{
  FCanvas->Handle = Message.DrawItemStruct->hDC;
  FCanvas->Refresh();
 
  if(ComponentState.Contains(csDesigning)){
    if(fBmpUp->Empty)
      fBmpUp->LoadFromResourceName((int)HInstance, "SKINBUTTON");
    ActivateSkin();
    FCanvas->Draw(ClientRect.left, ClientRect.top, fBmpUp);
    return;
  }
 
  ActivateSkin();
 
  bool Push = Message.DrawItemStruct->itemState & ODS_SELECTED;
 
  if(Enabled){
    if(Push && !fAllowUp){
      fDown ^= true;
    }
    else if(fAllowUp){
      fDown = Push;
    }
  }
  FBitmap = fBmpUp;
  if(fDown){    // El botón está pulsado
    if(!fBmpDown->Empty) FBitmap = fBmpDown;
    if(Enabled && fHiLight && !fBmpDownHiLight->Empty) FBitmap = fBmpDownHiLight;
  }else{
    FBitmap = fBmpUp;
    if(Enabled && fHiLight && !fBmpUpHiLight->Empty) FBitmap = fBmpUpHiLight;
  }
 
  FCanvas->StretchDraw(ClientRect, FBitmap);
}

El código en C++ está aquí.

Saludos.