Ekstra knapp formateringsfunksjonalitet funnet i Win95.Contributor: PA VAN LONKHUYZEN {*********************************** *****************************} {Delphi 2.0 kun} {AddBtn95 stammer TRadioButton95 og TCheckBox95 fra} {TRadioButton Og TCheckBox å gi dem den} {Flere formaterings Funksjonalitet funnet i} {Windows 95} {lagt til eller endret egenskaper:} {Alignment: hvordan teksten ved siden av knappen er justert} {AlignmentBtn: hvor knappen er plassert} {LikePushButton: Har kontroll look Liker en Push Button? } {VerticalAlignment: Hvor teksten og knappen er plassert} {wordwrap: Pakk teksten hvis boksen er å begrense} {************************ ****************************************} {Ver 1.0} {Copyright (c) 1 996 PA van Lonkhuyzen} {e-post: [email protected]} {******************************* *********************************} enhet addbtn95; interfaceuses Windows, StdCtrls, kurs, kontroller -typen TVAlignment = ( vaTop, vaBottom, vaCenter); TCheckBox95 = klasse (TCheckBox) private fAlignment: TAlignment; fAlignmentBtn: TLeftRight; fLikePushButton: Boolean; fVerticalAlignment: TVAlignment; fWordWrap: Boolean; beskyttede prosedyre createparams (Var Params: TCreateParams); styre; Prosedyre SetLikePushButton (ALikePushButton: Boolean); Prosedyre SetWordWrap (AWordWrap: Boolean); Prosedyre SetAlignment (AAlignment: TAlignment); Prosedyre SetAlignmentBtn (AAlignmentBtn: TLeftRight); Prosedyre SetVerticalAlignment (AVerticalAlignment: TVAlignment); offentlige {offentlige erklæringer} publisert Eiendom Alignment: TAlignment Les fAlignment Skriv SetAlignment; Eiendom AlignmentBtn: TLeftRight Les fAlignmentBtn Skriv SetAlignmentBtn; Eiendom LikePushButton: Boolean Les fLikePushButton Skriv SetLikePushButton; Eiendom VerticalAlignment: TVAlignment Les fVerticalAlignment Skriv SetVerticalAlignment; Eiendom wordwrap: Boolean Les fWordWrap Skriv SetWordWrap; ende; TRadioButton95 = klasse (TRadioButton) private fAlignment: TAlignment; fAlignmentBtn: TLeftRight; fLikePushButton: Boolean; fVerticalAlignment: TVAlignment; fWordWrap: Boolean; beskyttede prosedyre createparams (Var Params: TCreateParams); styre; Prosedyre SetLikePushButton (ALikePushButton: Boolean); Prosedyre SetWordWrap (AWordWrap: Boolean); Prosedyre SetAlignment (AAlignment: TAlignment); Prosedyre SetAlignmentBtn (AAlignmentBtn: TLeftRight); Prosedyre SetVerticalAlignment (AVerticalAlignment: TVAlignment); offentlige {offentlige erklæringer} publisert Eiendom Alignment: TAlignment Les fAlignment Skriv SetAlignment; Eiendom AlignmentBtn: TLeftRight Les fAlignmentBtn Skriv SetAlignmentBtn; Eiendom LikePushButton: Boolean Les fLikePushButton Skriv SetLikePushButton; Eiendom VerticalAlignment: TVAlignment Les fVerticalAlignment Skriv SetVerticalAlignment; Eiendom wordwrap: Boolean Les fWordWrap Skriv SetWordWrap; ende; prosedyre Registrer; implementationprocedure TRadioButton95.createparams (Var Params: TCreateParams); begynne Arvet createparams (Params); params.style:=params.style og ikke (BS_LEFT eller BS_RIGHT eller BS_CENTER ELLER BS_LEFTTEXT eller BS_RIGHTBUTTON ELLER BS_TOP ELLER BS_BOTTOM ELLER BS_VCENTER); Ved fVerticalAlignment av vaTop: params.style:=params.style eller BS_TOP; vaBottom: params.style:=params.style eller BS_BOTTOM; annet params.style:=params.style eller BS_VCENTER; slutt; hvis fAlignmentBtn = taRightJustify deretter params.style:=params.style eller BS_RIGHTBUTTON; Ved fAlignment av taLeftJustify: params.style:=params.style eller BS_LEFT; taRightJustify: params.style:=params.style eller BS_RIGHT; annet params.style:=params.style eller BS_CENTER; Slutt; hvis fLikePushButton deretter params.style:=params.style eller bs_pushLike; hvis fwordwrap deretter params.style:=params.style eller bs_MultiLine; ende; Prosedyre TRadioButton95.SetAlignment (AAlignment: TAlignment), begynner Hvis (AAlignment < > fAlignment) da begynne fAlignment: = AAlignment; recreatewnd; enden, End, Prosedyre TRadioButton95.SetAlignmentBtn (AAlignmentBtn: TLeftRight), begynner Hvis (AAlignmentBtn < > fAlignmentBtn) da begynne fAlignmentBtn: = AAlignmentBtn; recreatewnd; enden, End, Prosedyre TRadioButton95.SetLikePushButton (ALikePushButton: Boolean), begynner Hvis (ALikePushButton < > fLikePushButton) da begynne fLikePushButton: = ALikePushButton; recreatewnd; enden, End, Prosedyre TRadioButton95.SetWordWrap (AWordWrap: Boolean), begynner Hvis (AWordWrap < > fWordwrap) da begynne fWordwrap: = AWordWrap; recreatewnd; enden, End, Prosedyre TRadioButton95.SetVerticalAlignment (AVerticalAlignment: TVAlignment), begynner Hvis (AVerticalAlignment < > fVerticalAlignment) da begynne fVerticalAlignment: = AVerticalAlignment; Recreatewnd; end; ende; prosedyre TCheckBox95.createparams (Var params: TCreateParams), begynner Arvet createparams (params); params.style:=params.style og ikke (BS_LEFT eller BS_RIGHT eller BS_CENTER ELLER BS_LEFTTEXT eller BS_RIGHTBUTTON ELLER BS_TOP ELLER BS_BOTTOM ELLER BS_VCENTER); Ved fVerticalAlignment av vaTop: params.style:=params.style eller BS_TOP; vaBottom: params.style:=params.style eller BS_BOTTOM; annet params.style:=params.style eller BS_VCENTER; slutt; hvis fAlignmentBtn = taRightJustify deretter params.style:=params.style eller BS_RIGHTBUTTON; Ved fAlignment av taLeftJustify: params.style:=params.style eller BS_LEFT; taRightJustify: params.style:=params.style eller BS_RIGHT; annet params.style:=params.style eller BS_CENTER; Slutt; hvis fLikePushButton deretter params.style:=params.style eller bs_PushLike; hvis fwordwrap deretter params.style:=params.style eller bs_MultiLine; ende; Prosedyre TCheckBox95.SetAlignment (AAlignment: TAlignment), begynner Hvis (AAlignment < > fAlignment) da begynne fAlignment: = AAlignment; recreatewnd; enden, End, Prosedyre TCheckBox95.SetAlignmentBtn (AAlignmentBtn: TLeftRight), begynner Hvis (AAlignmentBtn < > fAlignmentBtn) da begynne fAlignmentBtn: = AAlignmentBtn; recreatewnd; enden, End, Prosedyre TCheckBox95.SetLikePushButton (ALikePushButton: Boolean), begynner Hvis (ALikePushButton < > fLikePushButton) da begynne fLikePushButton: = ALikePushButton; recreatewnd; enden, End, Prosedyre TCheckBox95.SetWordWrap (AWordWrap: Boolean), begynner Hvis (AWordWrap < > fWordwrap) da begynne fWordwrap: = AWordWrap; recreatewnd; enden, End, Prosedyre TCheckBox95.SetVerticalAlignment (AVerticalAlignment: TVAlignment), begynner Hvis (AVerticalAlignment < > fVerticalAlignment) da begynne fVerticalAlignment: = AVerticalAlignment; Recreatewnd; enden, End, prosedyre Registrer; begynne RegisterComponents ('Win95', [TCheckBox95, TRadioButton95]); end;. slutten Anmeldelser