Советы по Delphi


         

Редактор свойства Color с заданными ограничениями


Редактор свойства, пример которого приведен ниже, имеет ограничение на устанавливаемые цвета: только clRed, clWhite или clBlue.

unit ClrComps;
interface
usesSysUtils, WinTypes, WinProcs, Messages, Classes,Graphics,Controls, Forms, Dialogs, DsgnIntf;
typeTColorComponent = class( TComponent )privateFColor: TColor;protectedprocedure SetColor( Value: TColor );publicconstructor Create( AnOwner: TComponent ); override;publishedproperty Color: TColor read FColor write SetColor;end;
{ Это специальный редактор свойства выбора цветов... }TMyColorProperty = class( TIntegerProperty )publicfunction GetAttributes: TPropertyAttributes; override;function GetValue: string; override;procedure GetValues( Proc: TGetStrProc ); override;procedure SetValue( const Value: string ); override;end;
procedure Register;
implementation
{ TMyColorProperty }
function TMyColorProperty.GetAttributes: TPropertyAttributes;beginResult := [ paMultiSelect, paValueList ];end;
function TMyColorProperty.GetValue: string;beginResult := ColorToString( TColor( GetOrdValue ));end;
procedure TMyColorProperty.GetValues( Proc: TGetStrProc );beginProc( 'clRed' );Proc( 'clWhite' );Proc( 'clBlue' );end;
procedure TMyColorProperty.SetValue( const Value: string );varNewValue: Longint;beginif IdentToColor( Value, NewValue ) and(( NewValue = clRed ) or( NewValue = clWhite ) or( NewValue = clBlue )) thenSetOrdValue( NewValue );end;
{ Образец компонента... }
constructor TColorComponent.Create( AnOwner: TComponent );begininherited Create( AnOwner );FColor := clRed;end;
procedure TColorComponent.SetColor( Value: TColor );beginif ( Value = clRed ) or( Value = clWhite ) or( Value = clBlue ) thenbeginFColor := Value;end;end;
procedure Register;beginRegisterComponents( 'Samples', [ TColorComponent ]);RegisterPropertyEditor( TypeInfo( TColor ), TColorComponent,'Color', TMyColorProperty );end;
end.

- Ed Jordan [000995]



Содержание  Назад