9 respuestas en este tema

[escafandra]

TRoundEdit es un control derivado de TEdit con las esquinas redondeadas y un borde de un color seleccionable.

Las propiedades añadidas a TRoundEdit son las siguientes:

1.- sbRound: Un nuevo estilo de borde en la propiedad BorderStyle que redondea el Edit.
2.- BorderColor: El color del borde redondeado. Solo activo si BorderStyle = bsRound.
3.- BorderRadio: Radio de curvatura de las esquinas (0 a 12). Activo si BorderStyle = bsRound.

El efecto se consigue creando una región que esconda las esquinas y capturando el mensaje WM_NCPAINT para pintar el borde del color deseado.

La función de redondeo es privada, para uso interno de TRoundEdit:

delphi

procedure TRoundEdit.SetRound(Value: boolean);
var
  Rgn: HRGN;
begin
  Rgn:= 0;
  if Value then
    Rgn := CreateRoundRectRgn(0, 0, Width+1, Height+1, FBorderRadio-2, FBorderRadio-2) ;
  SetWindowRgn(Handle, Rgn, true);
  DeleteObject(Rgn);
end;

La función que responde al mensaje WM_NCPAINT:

delphi

procedure TRoundEdit.WMNCPaint(var Message: TMessage);
var
  Brush: TBrush;
  Pen: TPen;
  DC: HDC;
  Clip: integer;
begin
  if (BorderStyle <> bsRound) or not inherited Ctl3D then
  begin
    inherited;
    exit;
  end;
 
  DC:= GetWindowDC(Handle);
  Brush:= TBrush.Create;
  Pen:= TPen.Create;
  Pen.Color:= BorderColor;
  Brush.Color:= Color;
 
  ExcludeClipRect(DC, 4, 4, Width-4, Height-4);
  Windows.SelectObject(DC, Brush.Handle);
  Windows.SelectObject(DC, Pen.Handle);
 
  Windows.Rectangle(DC, 0, 0, Width, Height);
  Brush.Style:= bsClear;
  Windows.RoundRect(DC, 0, 0, Width, Height,  FBorderRadio, FBorderRadio);
 
  Windows.ReleaseDC(Handle, DC);
  Brush.Destroy;
  Pen.Destroy;
end;

La instalación del componente se realiza manualmente desde el menú Component -> Install Component.

El código completo lo subo en el archivo adjunto.

Espero que os sea de utilidad. 




Saludos.

Archivos adjuntos

•  RoundEdit.rar   1,15KB   78 descargas
•  TRoundEdit.JPG   55,19KB   7 descargas

[Caral]

Hola
Como siempre, impresionante.
Gracias por el aporte maestro.
Saludos

[egostar]

Genial amigo,

Salud OS

[wilox]

Muy bueno, hasta ahora lo uso y esta bien chido....

Gracias amigo por el aporte. 

[escafandra]

Repongo el archivo con el código en el primer mensaje del hilo, se perdió con la última mudanza.

 

 

Saludos.

[poliburro]

Gracias por la actualización amigo. Saludos.

[escafandra]

Gracias por la actualización amigo. Saludos.

En realidad no es una actualización, sino reponer el archivo. Tras la mudanza del motor del foro  los archivos comprimidos subidos con extensiones distintas a zip se han perdido y he repuesto algunos en distintos temas.

 

Saludos.

[Wilson]

Repongo el archivo con el código en el primer mensaje del hilo, se perdió con la última mudanza.

 

 

Saludos.

 

Maestro muchas gracias por tu compromiso con nuestra comunidad.

 

Un abrazo.

[cram]

Excelente. Sobre todo por el nivel de programación.

Yo hace unos años creé un grupo de controles similares. Precisamante es el de edición al que no modifiqué.

Aun los tengo guardados y "traducidos" a Lazarus. Aquí me encontré con un problema con los arreglos dinámicos (que uso para cosas que no vienen al caso aquí) pero lo solucioné gracias a un foro. Creo que el mismo de Lazarus.

 

Saludos

[oscargvh]

Saludos a todos

 

CRAM lo podras compartir para Lazarus.

 

Se agradece.