Botones

Botones

Botones : Multi-millones de consejos para hacer su vida mas facil.

boton Extra formato de funcionalidad que se encuentra en Win95.
Colaborador: PA VAN LONKHUYZEN

{****************************************************************}
{Delphi 2.0 }
{AddBtn95 deriva TRadioButton95 y TCheckBox95 de }
{ TRadioButton Y TCheckBox para Darles la }
{ Formato Adicional Funcionalidad que se encuentra en }
Windows{ 95 }
{Agregado o cambiado propiedades : }
{ Alineacion : Como el Texto junto al boton se alinean }
{ AlignmentBtn : Cuando el Boton se coloca }
{ LikePushButton : ¿El control de la mirada Como un pulsador? }
{ VerticalAlignment : Donde el texto y el boton se coloca }
{ ajuste de linea : ajustar el texto si el cuadro es estrecho }
{****************************************************************}
{Ver 1.0 }
{Copyright(c) 1996 PA van Lonkhuyzen }
{e-mail : [email protected] }
{****************************************************************}
unidad de addbtn95
interfaz
usos
& nbsp & nbsp Windows, StdCtrls, Clases, controles
tipo
& nbsp & nbsp TVAlignment = (vaTop,vaBottom,vaCenter)
& nbsp & nbsp TCheckBox95 = clase(TCheckBox)
& nbsp & nbsp privada
& nbsp & nbsp & nbsp fAlignment : TAlignment
& nbsp & nbsp & nbsp fAlignmentBtn : TLeftRight
& nbsp & nbsp & nbsp fLikePushButton : Boolean
& nbsp & nbsp & nbsp fVerticalAlignment : TVAlignment
& nbsp & nbsp & nbsp fWordWrap : Boolean
& nbsp & nbsp protegido
& nbsp & nbsp & nbsp & nbsp procedimiento de createparams(var Params: TCreateParams) reemplazar
& nbsp & nbsp & nbsp & nbsp Procedimiento SetLikePushButton(ALikePushButton : Boolean)
& nbsp & nbsp & nbsp & nbsp Procedimiento SetWordWrap(AWordWrap : Boolean)
& nbsp & nbsp & nbsp & nbsp Procedimiento SetAlignment(AAlignment : TAlignment)
& nbsp & nbsp & nbsp & nbsp Procedimiento SetAlignmentBtn(AAlignmentBtn : TLeftRight)
& nbsp & nbsp & nbsp & nbsp Procedimiento SetVerticalAlignment(AVerticalAlignment : TVAlignment)
& nbsp & nbsp publica
& nbsp & nbsp & nbsp & nbsp { Public declarations }
& nbsp & nbsp publicado
& nbsp & nbsp & nbsp Propiedad de Alineacion : TAlignment Leer fAlignment Escribir SetAlignment
& nbsp & nbsp & nbsp Propiedad AlignmentBtn : TLeftRight Leer fAlignmentBtn Escribir SetAlignmentBtn
& nbsp & nbsp & nbsp Propiedad LikePushButton : Boolean Leer fLikePushButton Escribir SetLikePushButton
& nbsp & nbsp & nbsp Propiedad VerticalAlignment : TVAlignment Leer fVerticalAlignment Escribir SetVerticalAlignment
& nbsp & nbsp & nbsp Propiedad WordWrap : Boolean Leer fWordWrap Escribir SetWordWrap
fin
& nbsp & nbsp TRadioButton95 = clase(TRadioButton)
& nbsp & nbsp privada
& nbsp & nbsp & nbsp fAlignment : TAlignment
& nbsp & nbsp & nbsp fAlignmentBtn : TLeftRight
& nbsp & nbsp & nbsp fLikePushButton : Boolean
& nbsp & nbsp & nbsp fVerticalAlignment : TVAlignment
& nbsp & nbsp & nbsp fWordWrap : Boolean
& nbsp & nbsp protegido
& nbsp & nbsp & nbsp & nbsp procedimiento de createparams(var Params: TCreateParams) reemplazar
& nbsp & nbsp & nbsp & nbsp Procedimiento SetLikePushButton(ALikePushButton : Boolean)
& nbsp & nbsp & nbsp & nbsp Procedimiento SetWordWrap(AWordWrap : Boolean)
& nbsp & nbsp & nbsp & nbsp Procedimiento SetAlignment(AAlignment : TAlignment)
& nbsp & nbsp & nbsp & nbsp Procedimiento SetAlignmentBtn(AAlignmentBtn : TLeftRight)
& nbsp & nbsp & nbsp & nbsp Procedimiento SetVerticalAlignment(AVerticalAlignment : TVAlignment)
& nbsp & nbsp publica
& nbsp & nbsp & nbsp & nbsp { Public declarations }
& nbsp & nbsp publicado
& nbsp & nbsp & nbsp Propiedad de Alineacion : TAlignment Leer fAlignment Escribir SetAlignment
& nbsp & nbsp & nbsp Propiedad AlignmentBtn : TLeftRight Leer fAlignmentBtn Escribir SetAlignmentBtn
& nbsp & nbsp & nbsp Propiedad LikePushButton : Boolean Leer fLikePushButton Escribir SetLikePushButton
& nbsp & nbsp & nbsp Propiedad VerticalAlignment : TVAlignment Leer fVerticalAlignment Escribir SetVerticalAlignment
& nbsp & nbsp & nbsp Propiedad WordWrap : Boolean Leer fWordWrap Escribir SetWordWrap
fin
procedimiento de Registro
aplicacion
procedimiento TRadioButton95.createparams(var Params: TCreateParams)
begin
& nbsp & nbsp Heredado de createparams(Params)
& nbsp & nbsp params.estilo:=params.estilo y no(BS_LEFT o BS_RIGHT o BS_CENTER O
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp BS_LEFTTEXT o BS_RIGHTBUTTON O
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp BS_TOP O BS_BOTTOM O BS_VCENTER)
& nbsp & nbsp caso fVerticalAlignment de
& nbsp & nbsp & nbsp & nbsp vaTop : params.estilo:=params.estilo o BS_TOP
& nbsp & nbsp & nbsp & nbsp vaBottom : params.estilo:=params.estilo o BS_BOTTOM
& nbsp & nbsp & nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp params.estilo:=params.estilo o BS_VCENTER
& nbsp & nbsp final
& nbsp & nbsp si fAlignmentBtn=taRightJustify, a continuacion,
& nbsp & nbsp & nbsp & nbsp params.estilo:=params.estilo o BS_RIGHTBUTTON
& nbsp & nbsp caso fAlignment de
& nbsp & nbsp & nbsp & nbsp taLeftJustify : params.estilo:=params.estilo o BS_LEFT
& nbsp & nbsp & nbsp & nbsp taRightJustify : params.estilo:=params.estilo o BS_RIGHT
& nbsp & nbsp & nbsp & nbsp demas parametros.estilo:=params.estilo o BS_CENTER
& nbsp & nbsp Final
& nbsp & nbsp si fLikePushButton, a continuacion,
& nbsp & nbsp & nbsp & nbsp params.estilo:=params.estilo o bs_pushLike
& nbsp & nbsp si fwordwrap, a continuacion,
& nbsp & nbsp & nbsp & nbsp params.estilo:=params.estilo o bs_MultiLine
fin

Procedimiento TRadioButton95.SetAlignment(AAlignment : TAlignment)
Begin
& nbsp & nbsp & nbsp Si (AAlignment <> fAlignment), a continuacion,
& nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp fAlignment := AAlignment
& nbsp & nbsp & nbsp & nbsp & nbsp recreatewnd
& nbsp & nbsp & nbsp final
Fin

Procedimiento TRadioButton95.SetAlignmentBtn(AAlignmentBtn : TLeftRight)
Begin
& nbsp & nbsp & nbsp Si (AAlignmentBtn <> fAlignmentBtn), a continuacion,
& nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp fAlignmentBtn := AAlignmentBtn
& nbsp & nbsp & nbsp & nbsp & nbsp recreatewnd
& nbsp & nbsp & nbsp final
Fin
Procedimiento TRadioButton95.SetLikePushButton(ALikePushButton : Boolean)
Begin
& nbsp & nbsp & nbsp Si (ALikePushButton <> fLikePushButton), a continuacion,
& nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp fLikePushButton := ALikePushButton
& nbsp & nbsp & nbsp & nbsp & nbsp recreatewnd
& nbsp & nbsp & nbsp final
Fin
Procedimiento TRadioButton95.SetWordWrap(AWordWrap : Boolean)
Begin
& nbsp & nbsp & nbsp Si (AWordWrap <> fWordwrap), a continuacion,
& nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp fWordwrap := AWordWrap
& nbsp & nbsp & nbsp & nbsp & nbsp recreatewnd
& nbsp & nbsp & nbsp final
Fin

Procedimiento TRadioButton95.SetVerticalAlignment(AVerticalAlignment : TVAlignment)
Begin
& nbsp & nbsp & nbsp Si (AVerticalAlignment <> fVerticalAlignment), a continuacion,
& nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp fVerticalAlignment := AVerticalAlignment
& nbsp & nbsp & nbsp & nbsp & nbsp Recreatewnd
& nbsp & nbsp & nbsp final
Fin
procedimiento TCheckBox95.createparams(var Params: TCreateParams)
begin
& nbsp & nbsp Heredado de createparams(Params)
& nbsp & nbsp params.estilo:=params.estilo y no(BS_LEFT o BS_RIGHT o BS_CENTER O
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp BS_LEFTTEXT o BS_RIGHTBUTTON O
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp BS_TOP O BS_BOTTOM O BS_VCENTER)
& nbsp & nbsp caso fVerticalAlignment de
& nbsp & nbsp & nbsp & nbsp vaTop : params.estilo:=params.estilo o BS_TOP
& nbsp & nbsp & nbsp & nbsp vaBottom : params.estilo:=params.estilo o BS_BOTTOM
& nbsp & nbsp & nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp params.estilo:=params.estilo o BS_VCENTER
& nbsp & nbsp final
& nbsp & nbsp si fAlignmentBtn=taRightJustify, a continuacion,
& nbsp & nbsp & nbsp & nbsp params.estilo:=params.estilo o BS_RIGHTBUTTON
& nbsp & nbsp caso fAlignment de
& nbsp & nbsp & nbsp & nbsp taLeftJustify : params.estilo:=params.estilo o BS_LEFT
& nbsp & nbsp & nbsp & nbsp taRightJustify : params.estilo:=params.estilo o BS_RIGHT
& nbsp & nbsp & nbsp & nbsp demas parametros.estilo:=params.estilo o BS_CENTER
& nbsp & nbsp Final
& nbsp & nbsp si fLikePushButton, a continuacion,
& nbsp & nbsp & nbsp & nbsp params.estilo:=params.estilo o bs_PushLike
& nbsp & nbsp si fwordwrap, a continuacion,
& nbsp & nbsp & nbsp & nbsp params.estilo:=params.estilo o bs_MultiLine
fin

Procedimiento TCheckBox95.SetAlignment(AAlignment : TAlignment)
Begin
& nbsp & nbsp & nbsp Si (AAlignment <> fAlignment), a continuacion,
& nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp fAlignment := AAlignment
& nbsp & nbsp & nbsp & nbsp & nbsp recreatewnd
& nbsp & nbsp & nbsp final
Fin

Procedimiento TCheckBox95.SetAlignmentBtn(AAlignmentBtn : TLeftRight)
Begin
& nbsp & nbsp & nbsp Si (AAlignmentBtn <> fAlignmentBtn), a continuacion,
& nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp fAlignmentBtn := AAlignmentBtn
& nbsp & nbsp & nbsp & nbsp & nbsp recreatewnd
& nbsp & nbsp & nbsp final
Fin
Procedimiento TCheckBox95.SetLikePushButton(ALikePushButton : Boolean)
Begin
& nbsp & nbsp & nbsp Si (ALikePushButton <> fLikePushButton), a continuacion,
& nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp fLikePushButton := ALikePushButton
& nbsp & nbsp & nbsp & nbsp & nbsp recreatewnd
& nbsp & nbsp & nbsp final
Fin
Procedimiento TCheckBox95.SetWordWrap(AWordWrap : Boolean)
Begin
& nbsp & nbsp & nbsp Si (AWordWrap <> fWordwrap), a continuacion,
& nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp fWordwrap := AWordWrap
& nbsp & nbsp & nbsp & nbsp & nbsp recreatewnd
& nbsp & nbsp & nbsp final
Fin

Procedimiento TCheckBox95.SetVerticalAlignment(AVerticalAlignment : TVAlignment)
Begin
& nbsp & nbsp & nbsp Si (AVerticalAlignment <> fVerticalAlignment), a continuacion,
& nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp fVerticalAlignment := AVerticalAlignment
& nbsp & nbsp & nbsp & nbsp & nbsp Recreatewnd
& nbsp & nbsp & nbsp final
Fin
procedimiento de Registro
begin
& nbsp & nbsp RegisterComponents('Win95', [TCheckBox95,TRadioButton95])
fin
final.