8/9/2018
0
2232

Boutons


Extra bouton mise en forme fonctionnalité de Windows 95.
Contributeur: PA VAN LONKHUYZEN

{****************************************************************}
{Delphi 2.0 seulement }
{AddBtn95 dérive TRadioButton95 et TCheckBox95 de }
{ TRadioButton Et TCheckBox de leur Donner l' }
{ Supplémentaires de mise en forme Fonctionnalités disponibles dans }
{ Windows 95 }
{ajouter ou de modifier des propriétés : }
{ Alignement : Comment le Texte à côté du bouton est aligné }
{ AlignmentBtn : si le Bouton est positionné }
{ LikePushButton : Le contrôle de ressembler à un Bouton Poussoir? }
{ VerticalAlignment : là Où le texte et le bouton sont positionnés }
{ WordWrap : le texte à la ligne si la boîte est à l'étroit }
{****************************************************************}
{Ver 1.0 }
{Copyright(c) 1996 PA van Lonkhuyzen }
{e-mail : [email protected] }
{****************************************************************}
unité de addbtn95
interface

& nbsp & nbsp Windows, StdCtrls, de Classes, de contrôle
type
& nbsp & nbsp TVAlignment = (vaTop,vaBottom,vaCenter)
& nbsp & nbsp TCheckBox95 = classe(TCheckBox)
& nbsp & nbsp privé
& 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 protégé
& ! & ! & ! & nbsp procédure createparams(var Params: TCreateParams) remplacer
& ! & ! & ! & nbsp Procédure SetLikePushButton(ALikePushButton : Boolean)
& ! & ! & ! & nbsp Procédure SetWordWrap(AWordWrap : Boolean)
& ! & ! & ! & nbsp Procédure SetAlignment(AAlignment : TAlignment)
& ! & ! & ! & nbsp Procédure SetAlignmentBtn(AAlignmentBtn : TLeftRight)
& ! & ! & ! & nbsp Procédure SetVerticalAlignment(AVerticalAlignment : TVAlignment)
& nbsp & nbsp public
& ! & ! & ! & nbsp { déclarations Publiques }
& nbsp & nbsp publié
& nbsp & nbsp & nbsp Propriété Alignement : TAlignment Lire fAlignment Écrire SetAlignment
& nbsp & nbsp & nbsp Propriété AlignmentBtn : TLeftRight Lire fAlignmentBtn Écrire SetAlignmentBtn
& nbsp & nbsp & nbsp Propriété LikePushButton : Boolean Lire fLikePushButton Écrire SetLikePushButton
& nbsp & nbsp & nbsp Propriété VerticalAlignment : TVAlignment Lire fVerticalAlignment Écrire SetVerticalAlignment
& nbsp & nbsp & nbsp Propriété WordWrap : Boolean Lire fWordWrap Écrire SetWordWrap
fin
& nbsp & nbsp TRadioButton95 = classe(TRadioButton)
& nbsp & nbsp privé
& 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 protégé
& ! & ! & ! & nbsp procédure createparams(var Params: TCreateParams) remplacer
& ! & ! & ! & nbsp Procédure SetLikePushButton(ALikePushButton : Boolean)
& ! & ! & ! & nbsp Procédure SetWordWrap(AWordWrap : Boolean)
& ! & ! & ! & nbsp Procédure SetAlignment(AAlignment : TAlignment)
& ! & ! & ! & nbsp Procédure SetAlignmentBtn(AAlignmentBtn : TLeftRight)
& ! & ! & ! & nbsp Procédure SetVerticalAlignment(AVerticalAlignment : TVAlignment)
& nbsp & nbsp public
& ! & ! & ! & nbsp { déclarations Publiques }
& nbsp & nbsp publié
& nbsp & nbsp & nbsp Propriété Alignement : TAlignment Lire fAlignment Écrire SetAlignment
& nbsp & nbsp & nbsp Propriété AlignmentBtn : TLeftRight Lire fAlignmentBtn Écrire SetAlignmentBtn
& nbsp & nbsp & nbsp Propriété LikePushButton : Boolean Lire fLikePushButton Écrire SetLikePushButton
& nbsp & nbsp & nbsp Propriété VerticalAlignment : TVAlignment Lire fVerticalAlignment Écrire SetVerticalAlignment
& nbsp & nbsp & nbsp Propriété WordWrap : Boolean Lire fWordWrap Écrire SetWordWrap
fin
procédure Register
application
procédure TRadioButton95.createparams(var Params: TCreateParams)
begin
& nbsp & nbsp Hérité createparams(Params)
& nbsp & nbsp params.style:=params.style et pas(BS_LEFT ou BS_RIGHT ou BS_CENTER OU
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp BS_LEFTTEXT ou BS_RIGHTBUTTON OU
& nbsp & nbsp & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp BS_TOP OU BS_BOTTOM OU BS_VCENTER)
& nbsp & nbsp cas fVerticalAlignment de
& ! & ! & ! & nbsp vaTop : params.style:=params.style ou BS_TOP
& ! & ! & ! & nbsp vaBottom : params.style:=params.style ou BS_BOTTOM
& ! & ! & ! & nbsp else
& ! & ! & ! & ! & ! & nbsp params.style:=params.style ou BS_VCENTER
& nbsp & nbsp fin
& nbsp & nbsp si fAlignmentBtn=taRightJustify puis
& ! & ! & ! & nbsp params.style:=params.style ou BS_RIGHTBUTTON
& nbsp & nbsp cas fAlignment de
& ! & ! & ! & nbsp taLeftJustify : params.style:=params.style ou BS_LEFT
& ! & ! & ! & nbsp taRightJustify : params.style:=params.style ou BS_RIGHT
& ! & ! & ! & nbsp autre params.style:=params.style ou BS_CENTER
& nbsp & nbsp Fin
& nbsp & nbsp si fLikePushButton puis
& ! & ! & ! & nbsp params.style:=params.style ou bs_pushLike
& nbsp & nbsp si fwordwrap puis
& ! & ! & ! & nbsp params.style:=params.style ou bs_MultiLine
fin

Procédure TRadioButton95.SetAlignment(AAlignment : TAlignment)
Begin
& nbsp & nbsp & nbsp Si (AAlignment <> fAlignment)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fAlignment := AAlignment
& ! & ! & ! & ! & nbsp recreatewnd
& nbsp & nbsp & nbsp fin
Fin

Procédure TRadioButton95.SetAlignmentBtn(AAlignmentBtn : TLeftRight)
Begin
& nbsp & nbsp & nbsp Si (AAlignmentBtn <> fAlignmentBtn)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fAlignmentBtn := AAlignmentBtn
& ! & ! & ! & ! & nbsp recreatewnd
& nbsp & nbsp & nbsp fin
Fin
Procédure TRadioButton95.SetLikePushButton(ALikePushButton : Boolean)
Begin
& nbsp & nbsp & nbsp Si (ALikePushButton <> fLikePushButton)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fLikePushButton := ALikePushButton
& ! & ! & ! & ! & nbsp recreatewnd
& nbsp & nbsp & nbsp fin
Fin
Procédure TRadioButton95.SetWordWrap(AWordWrap : Boolean)
Begin
& nbsp & nbsp & nbsp Si (AWordWrap <> fWordwrap)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fWordwrap := AWordWrap
& ! & ! & ! & ! & nbsp recreatewnd
& nbsp & nbsp & nbsp fin
Fin

Procédure TRadioButton95.SetVerticalAlignment(AVerticalAlignment : TVAlignment)
Begin
& nbsp & nbsp & nbsp Si (AVerticalAlignment <> fVerticalAlignment)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fVerticalAlignment := AVerticalAlignment
& ! & ! & ! & ! & nbsp Recreatewnd
& nbsp & nbsp & nbsp fin
Fin
procédure TCheckBox95.createparams(var Params: TCreateParams)
begin
& nbsp & nbsp Hérité createparams(Params)
& nbsp & nbsp params.style:=params.style et pas(BS_LEFT ou BS_RIGHT ou BS_CENTER OU
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp BS_LEFTTEXT ou BS_RIGHTBUTTON OU
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp & ! & ! & ! & ! & ! & ! & ! & ! & nbsp BS_TOP OU BS_BOTTOM OU BS_VCENTER)
& nbsp & nbsp cas fVerticalAlignment de
& ! & ! & ! & nbsp vaTop : params.style:=params.style ou BS_TOP
& ! & ! & ! & nbsp vaBottom : params.style:=params.style ou BS_BOTTOM
& ! & ! & ! & nbsp else
& ! & ! & ! & ! & ! & nbsp params.style:=params.style ou BS_VCENTER
& nbsp & nbsp fin
& nbsp & nbsp si fAlignmentBtn=taRightJustify puis
& ! & ! & ! & nbsp params.style:=params.style ou BS_RIGHTBUTTON
& nbsp & nbsp cas fAlignment de
& ! & ! & ! & nbsp taLeftJustify : params.style:=params.style ou BS_LEFT
& ! & ! & ! & nbsp taRightJustify : params.style:=params.style ou BS_RIGHT
& ! & ! & ! & nbsp autre params.style:=params.style ou BS_CENTER
& nbsp & nbsp Fin
& nbsp & nbsp si fLikePushButton puis
& ! & ! & ! & nbsp params.style:=params.style ou bs_PushLike
& nbsp & nbsp si fwordwrap puis
& ! & ! & ! & nbsp params.style:=params.style ou bs_MultiLine
fin

Procédure TCheckBox95.SetAlignment(AAlignment : TAlignment)
Begin
& nbsp & nbsp & nbsp Si (AAlignment <> fAlignment)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fAlignment := AAlignment
& ! & ! & ! & ! & nbsp recreatewnd
& nbsp & nbsp & nbsp fin
Fin

Procédure TCheckBox95.SetAlignmentBtn(AAlignmentBtn : TLeftRight)
Begin
& nbsp & nbsp & nbsp Si (AAlignmentBtn <> fAlignmentBtn)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fAlignmentBtn := AAlignmentBtn
& ! & ! & ! & ! & nbsp recreatewnd
& nbsp & nbsp & nbsp fin
Fin
Procédure TCheckBox95.SetLikePushButton(ALikePushButton : Boolean)
Begin
& nbsp & nbsp & nbsp Si (ALikePushButton <> fLikePushButton)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fLikePushButton := ALikePushButton
& ! & ! & ! & ! & nbsp recreatewnd
& nbsp & nbsp & nbsp fin
Fin
Procédure TCheckBox95.SetWordWrap(AWordWrap : Boolean)
Begin
& nbsp & nbsp & nbsp Si (AWordWrap <> fWordwrap)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fWordwrap := AWordWrap
& ! & ! & ! & ! & nbsp recreatewnd
& nbsp & nbsp & nbsp fin
Fin

Procédure TCheckBox95.SetVerticalAlignment(AVerticalAlignment : TVAlignment)
Begin
& nbsp & nbsp & nbsp Si (AVerticalAlignment <> fVerticalAlignment)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fVerticalAlignment := AVerticalAlignment
& ! & ! & ! & ! & nbsp Recreatewnd
& nbsp & nbsp & nbsp fin
Fin
procédure Register
begin
& nbsp & nbsp RegisterComponents('95', [TCheckBox95,TRadioButton95])
fin
à la fin.









Boutons


Boutons : Plusieurs milliers de conseils pour vous faciliter la vie.


Extra bouton mise en forme fonctionnalite de Windows 95.
Contributeur: PA VAN LONKHUYZEN

{****************************************************************}
{Delphi 2.0 seulement }
{AddBtn95 derive TRadioButton95 et TCheckBox95 de }
{ TRadioButton Et TCheckBox de leur Donner l' }
{ Supplementaires de mise en forme Fonctionnalites disponibles dans }
{ Windows 95 }
{ajouter ou de modifier des proprietes : }
{ Alignement : Comment le Texte a cote du bouton est aligne }
{ AlignmentBtn : si le Bouton est positionne }
{ LikePushButton : Le controle de ressembler a un Bouton Poussoir? }
{ VerticalAlignment : la Ou le texte et le bouton sont positionnes }
{ WordWrap : le texte a la ligne si la boîte est a l'etroit }
{****************************************************************}
{Ver 1.0 }
{Copyright(c) 1996 PA van Lonkhuyzen }
{e-mail : [email protected] }
{****************************************************************}
unite de addbtn95
interface

& nbsp & nbsp Windows, StdCtrls, de Classes, de controle
type
& nbsp & nbsp TVAlignment = (vaTop,vaBottom,vaCenter)
& nbsp & nbsp TCheckBox95 = classe(TCheckBox)
& nbsp & nbsp prive
& 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 protege
& ! & ! & ! & nbsp procedure createparams(var Params: TCreateParams) remplacer
& ! & ! & ! & nbsp Procedure SetLikePushButton(ALikePushButton : Boolean)
& ! & ! & ! & nbsp Procedure SetWordWrap(AWordWrap : Boolean)
& ! & ! & ! & nbsp Procedure SetAlignment(AAlignment : TAlignment)
& ! & ! & ! & nbsp Procedure SetAlignmentBtn(AAlignmentBtn : TLeftRight)
& ! & ! & ! & nbsp Procedure SetVerticalAlignment(AVerticalAlignment : TVAlignment)
& nbsp & nbsp public
& ! & ! & ! & nbsp { declarations Publiques }
& nbsp & nbsp publie
& nbsp & nbsp & nbsp Propriete Alignement : TAlignment Lire fAlignment Ecrire SetAlignment
& nbsp & nbsp & nbsp Propriete AlignmentBtn : TLeftRight Lire fAlignmentBtn Ecrire SetAlignmentBtn
& nbsp & nbsp & nbsp Propriete LikePushButton : Boolean Lire fLikePushButton Ecrire SetLikePushButton
& nbsp & nbsp & nbsp Propriete VerticalAlignment : TVAlignment Lire fVerticalAlignment Ecrire SetVerticalAlignment
& nbsp & nbsp & nbsp Propriete WordWrap : Boolean Lire fWordWrap Ecrire SetWordWrap
fin
& nbsp & nbsp TRadioButton95 = classe(TRadioButton)
& nbsp & nbsp prive
& 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 protege
& ! & ! & ! & nbsp procedure createparams(var Params: TCreateParams) remplacer
& ! & ! & ! & nbsp Procedure SetLikePushButton(ALikePushButton : Boolean)
& ! & ! & ! & nbsp Procedure SetWordWrap(AWordWrap : Boolean)
& ! & ! & ! & nbsp Procedure SetAlignment(AAlignment : TAlignment)
& ! & ! & ! & nbsp Procedure SetAlignmentBtn(AAlignmentBtn : TLeftRight)
& ! & ! & ! & nbsp Procedure SetVerticalAlignment(AVerticalAlignment : TVAlignment)
& nbsp & nbsp public
& ! & ! & ! & nbsp { declarations Publiques }
& nbsp & nbsp publie
& nbsp & nbsp & nbsp Propriete Alignement : TAlignment Lire fAlignment Ecrire SetAlignment
& nbsp & nbsp & nbsp Propriete AlignmentBtn : TLeftRight Lire fAlignmentBtn Ecrire SetAlignmentBtn
& nbsp & nbsp & nbsp Propriete LikePushButton : Boolean Lire fLikePushButton Ecrire SetLikePushButton
& nbsp & nbsp & nbsp Propriete VerticalAlignment : TVAlignment Lire fVerticalAlignment Ecrire SetVerticalAlignment
& nbsp & nbsp & nbsp Propriete WordWrap : Boolean Lire fWordWrap Ecrire SetWordWrap
fin
procedure Register
application
procedure TRadioButton95.createparams(var Params: TCreateParams)
begin
& nbsp & nbsp Herite createparams(Params)
& nbsp & nbsp params.style:=params.style et pas(BS_LEFT ou BS_RIGHT ou BS_CENTER OU
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp BS_LEFTTEXT ou BS_RIGHTBUTTON OU
& nbsp & nbsp & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp BS_TOP OU BS_BOTTOM OU BS_VCENTER)
& nbsp & nbsp cas fVerticalAlignment de
& ! & ! & ! & nbsp vaTop : params.style:=params.style ou BS_TOP
& ! & ! & ! & nbsp vaBottom : params.style:=params.style ou BS_BOTTOM
& ! & ! & ! & nbsp else
& ! & ! & ! & ! & ! & nbsp params.style:=params.style ou BS_VCENTER
& nbsp & nbsp fin
& nbsp & nbsp si fAlignmentBtn=taRightJustify puis
& ! & ! & ! & nbsp params.style:=params.style ou BS_RIGHTBUTTON
& nbsp & nbsp cas fAlignment de
& ! & ! & ! & nbsp taLeftJustify : params.style:=params.style ou BS_LEFT
& ! & ! & ! & nbsp taRightJustify : params.style:=params.style ou BS_RIGHT
& ! & ! & ! & nbsp autre params.style:=params.style ou BS_CENTER
& nbsp & nbsp Fin
& nbsp & nbsp si fLikePushButton puis
& ! & ! & ! & nbsp params.style:=params.style ou bs_pushLike
& nbsp & nbsp si fwordwrap puis
& ! & ! & ! & nbsp params.style:=params.style ou bs_MultiLine
fin

Procedure TRadioButton95.SetAlignment(AAlignment : TAlignment)
Begin
& nbsp & nbsp & nbsp Si (AAlignment <> fAlignment)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fAlignment := AAlignment
& ! & ! & ! & ! & nbsp recreatewnd
& nbsp & nbsp & nbsp fin
Fin

Procedure TRadioButton95.SetAlignmentBtn(AAlignmentBtn : TLeftRight)
Begin
& nbsp & nbsp & nbsp Si (AAlignmentBtn <> fAlignmentBtn)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fAlignmentBtn := AAlignmentBtn
& ! & ! & ! & ! & nbsp recreatewnd
& nbsp & nbsp & nbsp fin
Fin
Procedure TRadioButton95.SetLikePushButton(ALikePushButton : Boolean)
Begin
& nbsp & nbsp & nbsp Si (ALikePushButton <> fLikePushButton)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fLikePushButton := ALikePushButton
& ! & ! & ! & ! & nbsp recreatewnd
& nbsp & nbsp & nbsp fin
Fin
Procedure TRadioButton95.SetWordWrap(AWordWrap : Boolean)
Begin
& nbsp & nbsp & nbsp Si (AWordWrap <> fWordwrap)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fWordwrap := AWordWrap
& ! & ! & ! & ! & nbsp recreatewnd
& nbsp & nbsp & nbsp fin
Fin

Procedure TRadioButton95.SetVerticalAlignment(AVerticalAlignment : TVAlignment)
Begin
& nbsp & nbsp & nbsp Si (AVerticalAlignment <> fVerticalAlignment)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fVerticalAlignment := AVerticalAlignment
& ! & ! & ! & ! & nbsp Recreatewnd
& nbsp & nbsp & nbsp fin
Fin
procedure TCheckBox95.createparams(var Params: TCreateParams)
begin
& nbsp & nbsp Herite createparams(Params)
& nbsp & nbsp params.style:=params.style et pas(BS_LEFT ou BS_RIGHT ou BS_CENTER OU
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp BS_LEFTTEXT ou BS_RIGHTBUTTON OU
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp & ! & ! & ! & ! & ! & ! & ! & ! & nbsp BS_TOP OU BS_BOTTOM OU BS_VCENTER)
& nbsp & nbsp cas fVerticalAlignment de
& ! & ! & ! & nbsp vaTop : params.style:=params.style ou BS_TOP
& ! & ! & ! & nbsp vaBottom : params.style:=params.style ou BS_BOTTOM
& ! & ! & ! & nbsp else
& ! & ! & ! & ! & ! & nbsp params.style:=params.style ou BS_VCENTER
& nbsp & nbsp fin
& nbsp & nbsp si fAlignmentBtn=taRightJustify puis
& ! & ! & ! & nbsp params.style:=params.style ou BS_RIGHTBUTTON
& nbsp & nbsp cas fAlignment de
& ! & ! & ! & nbsp taLeftJustify : params.style:=params.style ou BS_LEFT
& ! & ! & ! & nbsp taRightJustify : params.style:=params.style ou BS_RIGHT
& ! & ! & ! & nbsp autre params.style:=params.style ou BS_CENTER
& nbsp & nbsp Fin
& nbsp & nbsp si fLikePushButton puis
& ! & ! & ! & nbsp params.style:=params.style ou bs_PushLike
& nbsp & nbsp si fwordwrap puis
& ! & ! & ! & nbsp params.style:=params.style ou bs_MultiLine
fin

Procedure TCheckBox95.SetAlignment(AAlignment : TAlignment)
Begin
& nbsp & nbsp & nbsp Si (AAlignment <> fAlignment)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fAlignment := AAlignment
& ! & ! & ! & ! & nbsp recreatewnd
& nbsp & nbsp & nbsp fin
Fin

Procedure TCheckBox95.SetAlignmentBtn(AAlignmentBtn : TLeftRight)
Begin
& nbsp & nbsp & nbsp Si (AAlignmentBtn <> fAlignmentBtn)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fAlignmentBtn := AAlignmentBtn
& ! & ! & ! & ! & nbsp recreatewnd
& nbsp & nbsp & nbsp fin
Fin
Procedure TCheckBox95.SetLikePushButton(ALikePushButton : Boolean)
Begin
& nbsp & nbsp & nbsp Si (ALikePushButton <> fLikePushButton)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fLikePushButton := ALikePushButton
& ! & ! & ! & ! & nbsp recreatewnd
& nbsp & nbsp & nbsp fin
Fin
Procedure TCheckBox95.SetWordWrap(AWordWrap : Boolean)
Begin
& nbsp & nbsp & nbsp Si (AWordWrap <> fWordwrap)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fWordwrap := AWordWrap
& ! & ! & ! & ! & nbsp recreatewnd
& nbsp & nbsp & nbsp fin
Fin

Procedure TCheckBox95.SetVerticalAlignment(AVerticalAlignment : TVAlignment)
Begin
& nbsp & nbsp & nbsp Si (AVerticalAlignment <> fVerticalAlignment)
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & nbsp fVerticalAlignment := AVerticalAlignment
& ! & ! & ! & ! & nbsp Recreatewnd
& nbsp & nbsp & nbsp fin
Fin
procedure Register
begin
& nbsp & nbsp RegisterComponents('95', [TCheckBox95,TRadioButton95])
fin
a la fin.


Boutons

Boutons : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation