Schaltflächen

Schaltflächen

Schaltflächen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Zusätzliche Schaltfläche formatieren Win95-Funktionalität.
Autor: PA VAN LONKHUYZEN

{****************************************************************}
{Nur Delphi 2.0}
{AddBtn95 abgeleitet wird, TRadioButton95 und TCheckBox95 aus}
{TRadioButton und TCheckBox geben die}
{Die zusätzliche Formatierung Funktionen gefunden in}
{Windows 95}
{Hinzugefügten oder geänderten Eigenschaften:}
{Ausrichtung: die Ausrichtung des Textes neben der Schaltfläche}
{AlignmentBtn: wo befindet sich die Schaltfläche '}
{LikePushButton: das Steuerelement sieht wie ein Druckknopf?}
{VerticalAlignment: wo den Text und die Taste positioniert sind}
{WordWrap: einen Zeilenumbruch ist das Feld eingrenzen}
{****************************************************************}
{Ver 1.0}
{Copyright(c) 1996 PA van Lonkhuyzen}
{E-mail: [email protected]}
{****************************************************************}
Einheit addbtn95;
Schnittstelle
verwendet
Windows, StdCtrls, Klassen, Steuerelemente;
Typ
TVAlignment = (VaTop, VaBottom, VaCenter);
TCheckBox95 = class(TCheckBox)
Private
fAlignment: TAlignment;
fAlignmentBtn: TLeftRight;
fLikePushButton: Boolean;
fVerticalAlignment: TVAlignment;
fWordWrap: Boolean;
geschützt
Verfahren Createparams (Var Params: TCreateParams); außer Kraft setzen;
Prozedur SetLikePushButton(ALikePushButton: Boolean);
Prozedur SetWordWrap(AWordWrap: Boolean);
Prozedur SetAlignment(AAlignment: TAlignment);
Prozedur SetAlignmentBtn(AAlignmentBtn: TLeftRight);
Prozedur SetVerticalAlignment(AVerticalAlignment: TVAlignment);
öffentliche
{Public Deklarationen}
veröffentlicht
Ausrichtung der Eigenschaft: TAlignment Read fAlignment SetAlignment schreiben;
Eigenschaft AlignmentBtn: TLeftRight Read fAlignmentBtn SetAlignmentBtn schreiben;
Eigenschaft LikePushButton: Boolean Read fLikePushButton SetLikePushButton schreiben;
VerticalAlignment Eigentum: TVAlignment Read fVerticalAlignment SetVerticalAlignment schreiben;
Eigenschaft WordWrap: Boolean Read fWordWrap SetWordWrap schreiben;
Ende;
TRadioButton95 = class(TRadioButton)
Private
fAlignment: TAlignment;
fAlignmentBtn: TLeftRight;
fLikePushButton: Boolean;
fVerticalAlignment: TVAlignment;
fWordWrap: Boolean;
geschützt
Verfahren Createparams (Var Params: TCreateParams); außer Kraft setzen;
Prozedur SetLikePushButton(ALikePushButton: Boolean);
Prozedur SetWordWrap(AWordWrap: Boolean);
Prozedur SetAlignment(AAlignment: TAlignment);
Prozedur SetAlignmentBtn(AAlignmentBtn: TLeftRight);
Prozedur SetVerticalAlignment(AVerticalAlignment: TVAlignment);
öffentliche
{Public Deklarationen}
veröffentlicht
Ausrichtung der Eigenschaft: TAlignment Read fAlignment SetAlignment schreiben;
Eigenschaft AlignmentBtn: TLeftRight Read fAlignmentBtn SetAlignmentBtn schreiben;
Eigenschaft LikePushButton: Boolean Read fLikePushButton SetLikePushButton schreiben;
VerticalAlignment Eigentum: TVAlignment Read fVerticalAlignment SetVerticalAlignment schreiben;
Eigenschaft WordWrap: Boolean Read fWordWrap SetWordWrap schreiben;
Ende;
Register des Verfahrens;
Umsetzung
Procedure TRadioButton95.createparams (Var Params: TCreateParams);
beginnen
Geerbte createparams(Params);
params.Style:=params.Style und nicht (BS_LEFT oder BS_RIGHT oder BS_CENTER oder
BS_LEFTTEXT oder BS_RIGHTBUTTON oder
BS_TOP ODER BS_BOTTOM ODER BS_VCENTER);
RS fVerticalAlignment der
VaTop: params.style:=params.style oder BS_TOP;
VaBottom: params.style:=params.style oder BS_BOTTOM;
sonst
params.Style:=params.Style oder BS_VCENTER;
Ende;
Wenn fAlignmentBtn = TaRightJustify then
params.Style:=params.Style oder BS_RIGHTBUTTON;
RS fAlignment der
TaLeftJustify: params.style:=params.style oder BS_LEFT;
TaRightJustify: params.style:=params.style oder BS_RIGHT;
sonst params.Style:=params.Style oder BS_CENTER;
Ende;
Wenn fLikePushButton dann
params.Style:=params.Style oder Bs_pushLike;
Wenn Fwordwrap dann
params.Style:=params.Style oder Bs_MultiLine;
Ende;

Prozedur TRadioButton95.SetAlignment(AAlignment: TAlignment);
BEGIN
Wenn (AAlignment <> fAlignment) dann
beginnen
fAlignment: = AAlignment;
Recreatewnd;
Ende;
Ende;

Prozedur TRadioButton95.SetAlignmentBtn(AAlignmentBtn: TLeftRight);
BEGIN
Wenn (AAlignmentBtn <> fAlignmentBtn) dann
beginnen
fAlignmentBtn: = AAlignmentBtn;
Recreatewnd;
Ende;
Ende;
Prozedur TRadioButton95.SetLikePushButton(ALikePushButton: Boolean);
BEGIN
Wenn (ALikePushButton <> fLikePushButton) dann
beginnen
fLikePushButton: = ALikePushButton;
Recreatewnd;
Ende;
Ende;
Prozedur TRadioButton95.SetWordWrap(AWordWrap: Boolean);
BEGIN
Wenn (AWordWrap <> fWordwrap) dann
beginnen
fWordwrap: = AWordWrap;
Recreatewnd;
Ende;
Ende;

Prozedur TRadioButton95.SetVerticalAlignment(AVerticalAlignment: TVAlignment);
BEGIN
Wenn (AVerticalAlignment <> fVerticalAlignment) dann
beginnen
fVerticalAlignment: = AVerticalAlignment;
Recreatewnd;
Ende;
Ende;
Procedure TCheckBox95.createparams (Var Params: TCreateParams);
beginnen
Geerbte createparams(Params);
params.Style:=params.Style und nicht (BS_LEFT oder BS_RIGHT oder BS_CENTER oder
BS_LEFTTEXT oder BS_RIGHTBUTTON oder
BS_TOP ODER BS_BOTTOM ODER BS_VCENTER);
RS fVerticalAlignment der
VaTop: params.style:=params.style oder BS_TOP;
VaBottom: params.style:=params.style oder BS_BOTTOM;
sonst
params.Style:=params.Style oder BS_VCENTER;
Ende;
Wenn fAlignmentBtn = TaRightJustify then
params.Style:=params.Style oder BS_RIGHTBUTTON;
RS fAlignment der
TaLeftJustify: params.style:=params.style oder BS_LEFT;
TaRightJustify: params.style:=params.style oder BS_RIGHT;
sonst params.style:=params.style oder BS_CENTER;
Ende;
Wenn fLikePushButton dann
params.Style:=params.Style oder Bs_PushLike;
Wenn Fwordwrap dann
params.Style:=params.Style oder Bs_MultiLine;
Ende;

Prozedur TCheckBox95.SetAlignment(AAlignment: TAlignment);
BEGIN
Wenn (AAlignment <> fAlignment) dann
beginnen
fAlignment: = AAlignment;
Recreatewnd;
Ende;
Ende;

Prozedur TCheckBox95.SetAlignmentBtn(AAlignmentBtn: TLeftRight);
BEGIN
Wenn (AAlignmentBtn <> fAlignmentBtn) dann
beginnen
fAlignmentBtn: = AAlignmentBtn;
Recreatewnd;
Ende;
Ende;
Prozedur TCheckBox95.SetLikePushButton(ALikePushButton: Boolean);
BEGIN
Wenn (ALikePushButton <> fLikePushButton) dann
beginnen
fLikePushButton: = ALikePushButton;
Recreatewnd;
Ende;
Ende;
Prozedur TCheckBox95.SetWordWrap(AWordWrap: Boolean);
BEGIN
Wenn (AWordWrap <> fWordwrap) dann
beginnen
fWordwrap: = AWordWrap;
Recreatewnd;
Ende;
Ende;

Prozedur TCheckBox95.SetVerticalAlignment(AVerticalAlignment: TVAlignment);
BEGIN
Wenn (AVerticalAlignment <> fVerticalAlignment) dann
beginnen
fVerticalAlignment: = AVerticalAlignment;
Recreatewnd;
Ende;
Ende;
Register des Verfahrens;
beginnen
RegisterComponents ('Win95', [TCheckBox95, TRadioButton95]);
Ende;
Ende.