Changing DisplayNames of my properties using PropertyGrid component, how ??

[Tugrul HELVACI]

Changing DisplayNames of my properties using PropertyGrid component, how ??

I'm using Delphi 2006 and I have a class defination like this:

TPerson = class
fPersonName : String;
fPersonSurName : String;
fPersonAge : Integer;
published
property PersonName : String read fPersonName write fPersonName;
property PersonSurname : String read fPersonSurname write fPersonSurname;
property PersonAge : Integer read fPersonAge write fPersonAge;
end;

and i want to display my class instance using PropertyGrid,so ...

var
mPerson : TPerson;
begin
mPerson := TPerson.Create;
mPerson.PersonN ame := 'Tugrul';
mPerson.PersonS urname := 'HELVACI';
mPerson.PersonA ge := 31;
PropertyGrid1.S electedObject := mPerson;
end;

at the above code i can see my class instance in the property grid.
But i want to change property display names in the propertygrid component.
Because of these, i was searching on the net and i found PropertyDescrip tor
abstract class
and ICustomTypeConv erter interface.

i implemented theese classes following:

TArrayOfAttribu te = array of Attribute;
TMyDescriptor = class(PropertyD escriptor)
private
base : PropertyDescrip tor;
fName: String;

function GetName : String;
function GetDisplayName : String;
function GetIsReadOnly : Boolean;
function GetComponentTyp e : &Type;
function GetPropertyType : &Type;

function GetCustomNames( baseName : String) : String; // my custom names
getter function
public
constructor Create(baseP : PropertyDescrip tor; filter :
TArrayOfAttribu te); overload; virtual;
constructor Create(baseP : PropertyDescrip tor); overload; virtual;

function CanResetValue(c omp : TObject) : Boolean;
function GetValue(comp : TObject) : TObject;

procedure ResetValue(comp : TObject);
procedure SetValue(comp : TObject; Value : TObject);
function ShouldSerialize Value(comp : TObject) : Boolean;
property Name : String read GetName;
property DisplayName : String read GetDisplayName;
property IsReadOnly : Boolean read GetIsReadOnly;
property ComponentType : &Type read GetComponentTyp e;
property PropertyType : &Type read GetPropertyType ;
end;

TMyClass = class(TInterfac edObject, ICustomTypeDesc riptor)
public
function GetProperties(f ilter : TArrayOfAttribu te) :
PropertyDescrip torCollection; overload;
function GetAttributes : AttributeCollec tion;
function GetClassName : String;
function GetComponentNam e : String;
function GetConverter : TypeConverter;
function GetDefaultEvent : EventDescriptor ;

function GetEvents(attri butes : TArrayOfAttribu te) :
EventDescriptor Collection; overload;
function GetEvents : EventDescriptor Collection; overload;
function GetDefaultPrope rty : PropertyDescrip tor;

function GetProperties : PropertyDescrip torCollection; overload;
function GetEditor(edito rBaseType : System.Type) : TObject;
function GetPropertyOwne r(pd : PropertyDescrip tor) : TObject;
end;
and my new TPerson class is:
TPerson = class(TMyClass)
fPersonName : String;
fPersonSurName : String;
fPersonAge : Integer;
published
property PersonName : String read fPersonName write fPersonName;
property PersonSurname : String read fPersonSurname write fPersonSurname;
property PersonAge : Integer read fPersonAge write fPersonAge;
end;

*************** * IMPLEMENTATIONS BELOW *************** *************** ***
{ TMyDescriptor }

function TMyDescriptor.C anResetValue(co mp: TObject): Boolean;
begin
Result := base.CanResetVa lue(comp);
end;
constructor TMyDescriptor.C reate(baseP: PropertyDescrip tor;
filter: TArrayOfAttribu te);
begin
inherited Create(baseP, filter);
Self.base := baseP;
end;

constructor TMyDescriptor.C reate(baseP: PropertyDescrip tor);
begin
inherited Create(baseP);
Self.base := baseP;
end;

function TMyDescriptor.G etComponentType : &Type;
begin
Result := base.ComponentT ype;
end;

function TMyDescriptor.G etDisplayName: String;
begin
Result := GetCustomNames( base.Name);
end;

function TMyDescriptor.G etir(baseName : String): String;
begin
if baseName = 'PersonName' then Result := 'Names of the Personel';
if baseName = 'PersonSurname' then Result := 'Surname of the personel';
if baseName = 'PersonAge' then Result := 'Age of the personel';
end;

function TMyDescriptor.G etIsReadOnly: Boolean;
begin
Result := base.IsReadOnly ;
end;

function TMyDescriptor.G etName: String;
begin
Result := base.Name;
end;
function TMyDescriptor.G etPropertyType: &Type;
begin
Result := base.PropertyTy pe;
end;

function TMyDescriptor.G etValue(comp: TObject): TObject;
begin
Result := base.GetValue(c omp);
end;
procedure TMyDescriptor.R esetValue(comp: TObject);
begin
base.ResetValue (comp);
end;

procedure TMyDescriptor.S etValue(comp, Value: TObject);
begin
base.SetValue(c omp, value);
end;

function TMyDescriptor.S houldSerializeV alue(comp: TObject): Boolean;
begin
Result := base.ShouldSeri alizeValue(comp );
end;

{ TMyClass }

function TMyClass.GetPro perties(
filter: TArrayOfAttribu te): PropertyDescrip torCollection;
var
baseProps : PropertyDescrip torCollection;
newProps : array of PropertyDescrip tor;
iCounter : Integer;
oldname,
newname : String;
begin
baseProps := TypeDescriptor. GetProperties(G etType(), filter);

SetLength(newPr ops, baseProps.Count );

for iCounter := 0 to baseProps.Count do
begin
newProps[iCounter] := TMyDescriptor.C reate(baseProps[iCounter], filter);
// An error occured : E2402 constructing instance of abstract class..
oldname := PropertyDescrip tor(baseProps[iCounter]).DisplayName;
newName := TMyDescriptor(n ewProps[iCounter]).DisplayName;
end;

Result := PropertyDescrip torCollection.C reate(newProps) ;
end;

function TMyClass.GetAtt ributes: AttributeCollec tion;
begin
Result := TypeDescriptor. GetAttributes(S elf, true);
end;

function TMyClass.GetCla ssName: String;
begin
Result := TypeDescriptor. GetClassName(Se lf, true);
end;

function TMyClass.GetCom ponentName: String;
begin
Result := TypeDescriptor. GetComponentNam e(Self, true);
end;

function TMyClass.GetCon verter: TypeConverter;
begin
Result := TypeDescriptor. GetConverter(Se lf, true);
end;

function TMyClass.GetDef aultEvent: EventDescriptor ;
begin
Result := TypeDescriptor. GetDefaultEvent (Self, true);
end;

function TMyClass.GetDef aultProperty: PropertyDescrip tor;
begin
Result := TypeDescriptor. GetDefaultPrope rty(Self, true);
end;

function TMyClass.GetEdi tor(editorBaseT ype: System.Type): TObject;
begin
Result := TypeDescriptor. GetEditor(Self, editorBaseType, true);
end;

function TMyClass.GetEve nts: EventDescriptor Collection;
begin
Result := TypeDescriptor. GetEvents(Self, true);
end;

function TMyClass.GetEve nts(
attributes: TArrayOfAttribu te): EventDescriptor Collection;
begin
Result := TypeDescriptor. GetEvents(Self, attributes, true);
end;

function TMyClass.GetPro perties: PropertyDescrip torCollection;
begin
Result := TypeDescriptor. GetProperties(S elf, true);
end;

function TMyClass.GetPro pertyOwner(pd: PropertyDescrip tor): TObject;
begin
Result := Self;
end;
I dont understand what is this. Can anybody helps me , how can i
subclassing PropertyDescrip tor class correctly ??
Even we take an error when using delphi.net , we dont take any error
message using c#,

i want change the display name of the property which is the added to my
special class by using the propertyGrid Component ...
It's seems like DisplayNameAtti rubute of the .net Framework 2.0

With My Best Regards,

Thanks For Helping

[Marc Gravell]

I know enough about the component-model to answer this, but sadly my
object-pascal has slipped. I suggest you repost in a delphi ng.

In C#, can I point you here:
http://groups.google.co.uk/group/mic...42a0f66d6b3987

Cheers,

Marc

[Marc Gravell]

Of course, the simpler answer is to find how to set (fixed) attributes in
Delphi ;-p

Marc

[RobinS]

I saw this posting in the following groups:

microsoft.publi c.dotnet.faqs
microsoft.publi c.dotnet.framew ork
microsoft.publi c.dotnet.framew ork.interop
microsoft.publi c.dotnet.framew ork.windowsform s
microsoft.publi c.dotnet.framew ork.windowsform s.controls
microsoft.publi c.dotnet.langua ges.csharp
microsoft.publi c.dotnet.genera l

When you post a message to multiple groups, please post all of
them at once. That way, if someone in one group provides a
solution, the solution will be posted to all of the groups.
Also, if someone in another group is working on a solution,
they will know it has been solved, and they can work on helping
somebody else.

Thanks,
Robin S.
---------------------------------
"Tugrul HELVACI" <ki************ @hotmail.comwro te in message
news:eU******** ******@TK2MSFTN GP04.phx.gbl...

Changing DisplayNames of my properties using PropertyGrid component, how
??

I'm using Delphi 2006 and I have a class defination like this:

TPerson = class
fPersonName : String;
fPersonSurName : String;
fPersonAge : Integer;
published
property PersonName : String read fPersonName write fPersonName;
property PersonSurname : String read fPersonSurname write fPersonSurname;
property PersonAge : Integer read fPersonAge write fPersonAge;
end;

and i want to display my class instance using PropertyGrid,so ...

var
mPerson : TPerson;
begin
mPerson := TPerson.Create;
mPerson.PersonN ame := 'Tugrul';
mPerson.PersonS urname := 'HELVACI';
mPerson.PersonA ge := 31;
PropertyGrid1.S electedObject := mPerson;
end;

at the above code i can see my class instance in the property grid.
But i want to change property display names in the propertygrid component.
Because of these, i was searching on the net and i found
PropertyDescrip tor abstract class
and ICustomTypeConv erter interface.

i implemented theese classes following:

TArrayOfAttribu te = array of Attribute;
TMyDescriptor = class(PropertyD escriptor)
private
base : PropertyDescrip tor;
fName: String;

function GetName : String;
function GetDisplayName : String;
function GetIsReadOnly : Boolean;
function GetComponentTyp e : &Type;
function GetPropertyType : &Type;

function GetCustomNames( baseName : String) : String; // my custom names
getter function
public
constructor Create(baseP : PropertyDescrip tor; filter :
TArrayOfAttribu te); overload; virtual;
constructor Create(baseP : PropertyDescrip tor); overload; virtual;

function CanResetValue(c omp : TObject) : Boolean;
function GetValue(comp : TObject) : TObject;

procedure ResetValue(comp : TObject);
procedure SetValue(comp : TObject; Value : TObject);
function ShouldSerialize Value(comp : TObject) : Boolean;
property Name : String read GetName;
property DisplayName : String read GetDisplayName;
property IsReadOnly : Boolean read GetIsReadOnly;
property ComponentType : &Type read GetComponentTyp e;
property PropertyType : &Type read GetPropertyType ;
end;

TMyClass = class(TInterfac edObject, ICustomTypeDesc riptor)
public
function GetProperties(f ilter : TArrayOfAttribu te) :
PropertyDescrip torCollection; overload;
function GetAttributes : AttributeCollec tion;
function GetClassName : String;
function GetComponentNam e : String;
function GetConverter : TypeConverter;
function GetDefaultEvent : EventDescriptor ;

function GetEvents(attri butes : TArrayOfAttribu te) :
EventDescriptor Collection; overload;
function GetEvents : EventDescriptor Collection; overload;
function GetDefaultPrope rty : PropertyDescrip tor;

function GetProperties : PropertyDescrip torCollection; overload;
function GetEditor(edito rBaseType : System.Type) : TObject;
function GetPropertyOwne r(pd : PropertyDescrip tor) : TObject;
end;
and my new TPerson class is:
TPerson = class(TMyClass)
fPersonName : String;
fPersonSurName : String;
fPersonAge : Integer;
published
property PersonName : String read fPersonName write fPersonName;
property PersonSurname : String read fPersonSurname write
fPersonSurname;
property PersonAge : Integer read fPersonAge write fPersonAge;
end;

*************** * IMPLEMENTATIONS BELOW *************** *************** ***
{ TMyDescriptor }

function TMyDescriptor.C anResetValue(co mp: TObject): Boolean;
begin
Result := base.CanResetVa lue(comp);
end;
constructor TMyDescriptor.C reate(baseP: PropertyDescrip tor;
filter: TArrayOfAttribu te);
begin
inherited Create(baseP, filter);
Self.base := baseP;
end;

constructor TMyDescriptor.C reate(baseP: PropertyDescrip tor);
begin
inherited Create(baseP);
Self.base := baseP;
end;

function TMyDescriptor.G etComponentType : &Type;
begin
Result := base.ComponentT ype;
end;

function TMyDescriptor.G etDisplayName: String;
begin
Result := GetCustomNames( base.Name);
end;

function TMyDescriptor.G etir(baseName : String): String;
begin
if baseName = 'PersonName' then Result := 'Names of the Personel';
if baseName = 'PersonSurname' then Result := 'Surname of the personel';
if baseName = 'PersonAge' then Result := 'Age of the personel';
end;

function TMyDescriptor.G etIsReadOnly: Boolean;
begin
Result := base.IsReadOnly ;
end;

function TMyDescriptor.G etName: String;
begin
Result := base.Name;
end;
function TMyDescriptor.G etPropertyType: &Type;
begin
Result := base.PropertyTy pe;
end;

function TMyDescriptor.G etValue(comp: TObject): TObject;
begin
Result := base.GetValue(c omp);
end;
procedure TMyDescriptor.R esetValue(comp: TObject);
begin
base.ResetValue (comp);
end;

procedure TMyDescriptor.S etValue(comp, Value: TObject);
begin
base.SetValue(c omp, value);
end;

function TMyDescriptor.S houldSerializeV alue(comp: TObject): Boolean;
begin
Result := base.ShouldSeri alizeValue(comp );
end;

{ TMyClass }

function TMyClass.GetPro perties(
filter: TArrayOfAttribu te): PropertyDescrip torCollection;
var
baseProps : PropertyDescrip torCollection;
newProps : array of PropertyDescrip tor;
iCounter : Integer;
oldname,
newname : String;
begin
baseProps := TypeDescriptor. GetProperties(G etType(), filter);

SetLength(newPr ops, baseProps.Count );

for iCounter := 0 to baseProps.Count do
begin
newProps[iCounter] := TMyDescriptor.C reate(baseProps[iCounter],
filter); // An error occured : E2402 constructing instance of abstract
class..
oldname := PropertyDescrip tor(baseProps[iCounter]).DisplayName;
newName := TMyDescriptor(n ewProps[iCounter]).DisplayName;
end;

Result := PropertyDescrip torCollection.C reate(newProps) ;
end;

function TMyClass.GetAtt ributes: AttributeCollec tion;
begin
Result := TypeDescriptor. GetAttributes(S elf, true);
end;

function TMyClass.GetCla ssName: String;
begin
Result := TypeDescriptor. GetClassName(Se lf, true);
end;

function TMyClass.GetCom ponentName: String;
begin
Result := TypeDescriptor. GetComponentNam e(Self, true);
end;

function TMyClass.GetCon verter: TypeConverter;
begin
Result := TypeDescriptor. GetConverter(Se lf, true);
end;

function TMyClass.GetDef aultEvent: EventDescriptor ;
begin
Result := TypeDescriptor. GetDefaultEvent (Self, true);
end;

function TMyClass.GetDef aultProperty: PropertyDescrip tor;
begin
Result := TypeDescriptor. GetDefaultPrope rty(Self, true);
end;

function TMyClass.GetEdi tor(editorBaseT ype: System.Type): TObject;
begin
Result := TypeDescriptor. GetEditor(Self, editorBaseType, true);
end;

function TMyClass.GetEve nts: EventDescriptor Collection;
begin
Result := TypeDescriptor. GetEvents(Self, true);
end;

function TMyClass.GetEve nts(
attributes: TArrayOfAttribu te): EventDescriptor Collection;
begin
Result := TypeDescriptor. GetEvents(Self, attributes, true);
end;

function TMyClass.GetPro perties: PropertyDescrip torCollection;
begin
Result := TypeDescriptor. GetProperties(S elf, true);
end;

function TMyClass.GetPro pertyOwner(pd: PropertyDescrip tor): TObject;
begin
Result := Self;
end;
I dont understand what is this. Can anybody helps me , how can i
subclassing PropertyDescrip tor class correctly ??
Even we take an error when using delphi.net , we dont take any error
message using c#,

i want change the display name of the property which is the added to my
special class by using the propertyGrid Component ...
It's seems like DisplayNameAtti rubute of the .net Framework 2.0

With My Best Regards,

Thanks For Helping

[Gabriel Lozano-Morán]

DisplayNameAttr ibute found in System.Componen tModel

Gabriel Lozano-Morán

"Tugrul HELVACI" <ki************ @hotmail.comwro te in message
news:eU******** ******@TK2MSFTN GP04.phx.gbl...

Changing DisplayNames of my properties using PropertyGrid component, how
??

I'm using Delphi 2006 and I have a class defination like this:

TPerson = class
fPersonName : String;
fPersonSurName : String;
fPersonAge : Integer;
published
property PersonName : String read fPersonName write fPersonName;
property PersonSurname : String read fPersonSurname write fPersonSurname;
property PersonAge : Integer read fPersonAge write fPersonAge;
end;

and i want to display my class instance using PropertyGrid,so ...

var
mPerson : TPerson;
begin
mPerson := TPerson.Create;
mPerson.PersonN ame := 'Tugrul';
mPerson.PersonS urname := 'HELVACI';
mPerson.PersonA ge := 31;
PropertyGrid1.S electedObject := mPerson;
end;

at the above code i can see my class instance in the property grid.
But i want to change property display names in the propertygrid component.
Because of these, i was searching on the net and i found
PropertyDescrip tor abstract class
and ICustomTypeConv erter interface.

i implemented theese classes following:

TArrayOfAttribu te = array of Attribute;
TMyDescriptor = class(PropertyD escriptor)
private
base : PropertyDescrip tor;
fName: String;

function GetName : String;
function GetDisplayName : String;
function GetIsReadOnly : Boolean;
function GetComponentTyp e : &Type;
function GetPropertyType : &Type;

function GetCustomNames( baseName : String) : String; // my custom names
getter function
public
constructor Create(baseP : PropertyDescrip tor; filter :
TArrayOfAttribu te); overload; virtual;
constructor Create(baseP : PropertyDescrip tor); overload; virtual;

function CanResetValue(c omp : TObject) : Boolean;
function GetValue(comp : TObject) : TObject;

procedure ResetValue(comp : TObject);
procedure SetValue(comp : TObject; Value : TObject);
function ShouldSerialize Value(comp : TObject) : Boolean;
property Name : String read GetName;
property DisplayName : String read GetDisplayName;
property IsReadOnly : Boolean read GetIsReadOnly;
property ComponentType : &Type read GetComponentTyp e;
property PropertyType : &Type read GetPropertyType ;
end;

TMyClass = class(TInterfac edObject, ICustomTypeDesc riptor)
public
function GetProperties(f ilter : TArrayOfAttribu te) :
PropertyDescrip torCollection; overload;
function GetAttributes : AttributeCollec tion;
function GetClassName : String;
function GetComponentNam e : String;
function GetConverter : TypeConverter;
function GetDefaultEvent : EventDescriptor ;

function GetEvents(attri butes : TArrayOfAttribu te) :
EventDescriptor Collection; overload;
function GetEvents : EventDescriptor Collection; overload;
function GetDefaultPrope rty : PropertyDescrip tor;

function GetProperties : PropertyDescrip torCollection; overload;
function GetEditor(edito rBaseType : System.Type) : TObject;
function GetPropertyOwne r(pd : PropertyDescrip tor) : TObject;
end;
and my new TPerson class is:
TPerson = class(TMyClass)
fPersonName : String;
fPersonSurName : String;
fPersonAge : Integer;
published
property PersonName : String read fPersonName write fPersonName;
property PersonSurname : String read fPersonSurname write
fPersonSurname;
property PersonAge : Integer read fPersonAge write fPersonAge;
end;

*************** * IMPLEMENTATIONS BELOW *************** *************** ***
{ TMyDescriptor }

function TMyDescriptor.C anResetValue(co mp: TObject): Boolean;
begin
Result := base.CanResetVa lue(comp);
end;
constructor TMyDescriptor.C reate(baseP: PropertyDescrip tor;
filter: TArrayOfAttribu te);
begin
inherited Create(baseP, filter);
Self.base := baseP;
end;

constructor TMyDescriptor.C reate(baseP: PropertyDescrip tor);
begin
inherited Create(baseP);
Self.base := baseP;
end;

function TMyDescriptor.G etComponentType : &Type;
begin
Result := base.ComponentT ype;
end;

function TMyDescriptor.G etDisplayName: String;
begin
Result := GetCustomNames( base.Name);
end;

function TMyDescriptor.G etir(baseName : String): String;
begin
if baseName = 'PersonName' then Result := 'Names of the Personel';
if baseName = 'PersonSurname' then Result := 'Surname of the personel';
if baseName = 'PersonAge' then Result := 'Age of the personel';
end;

function TMyDescriptor.G etIsReadOnly: Boolean;
begin
Result := base.IsReadOnly ;
end;

function TMyDescriptor.G etName: String;
begin
Result := base.Name;
end;
function TMyDescriptor.G etPropertyType: &Type;
begin
Result := base.PropertyTy pe;
end;

function TMyDescriptor.G etValue(comp: TObject): TObject;
begin
Result := base.GetValue(c omp);
end;
procedure TMyDescriptor.R esetValue(comp: TObject);
begin
base.ResetValue (comp);
end;

procedure TMyDescriptor.S etValue(comp, Value: TObject);
begin
base.SetValue(c omp, value);
end;

function TMyDescriptor.S houldSerializeV alue(comp: TObject): Boolean;
begin
Result := base.ShouldSeri alizeValue(comp );
end;

{ TMyClass }

function TMyClass.GetPro perties(
filter: TArrayOfAttribu te): PropertyDescrip torCollection;
var
baseProps : PropertyDescrip torCollection;
newProps : array of PropertyDescrip tor;
iCounter : Integer;
oldname,
newname : String;
begin
baseProps := TypeDescriptor. GetProperties(G etType(), filter);

SetLength(newPr ops, baseProps.Count );

for iCounter := 0 to baseProps.Count do
begin
newProps[iCounter] := TMyDescriptor.C reate(baseProps[iCounter],
filter); // An error occured : E2402 constructing instance of abstract
class..
oldname := PropertyDescrip tor(baseProps[iCounter]).DisplayName;
newName := TMyDescriptor(n ewProps[iCounter]).DisplayName;
end;

Result := PropertyDescrip torCollection.C reate(newProps) ;
end;

function TMyClass.GetAtt ributes: AttributeCollec tion;
begin
Result := TypeDescriptor. GetAttributes(S elf, true);
end;

function TMyClass.GetCla ssName: String;
begin
Result := TypeDescriptor. GetClassName(Se lf, true);
end;

function TMyClass.GetCom ponentName: String;
begin
Result := TypeDescriptor. GetComponentNam e(Self, true);
end;

function TMyClass.GetCon verter: TypeConverter;
begin
Result := TypeDescriptor. GetConverter(Se lf, true);
end;

function TMyClass.GetDef aultEvent: EventDescriptor ;
begin
Result := TypeDescriptor. GetDefaultEvent (Self, true);
end;

function TMyClass.GetDef aultProperty: PropertyDescrip tor;
begin
Result := TypeDescriptor. GetDefaultPrope rty(Self, true);
end;

function TMyClass.GetEdi tor(editorBaseT ype: System.Type): TObject;
begin
Result := TypeDescriptor. GetEditor(Self, editorBaseType, true);
end;

function TMyClass.GetEve nts: EventDescriptor Collection;
begin
Result := TypeDescriptor. GetEvents(Self, true);
end;

function TMyClass.GetEve nts(
attributes: TArrayOfAttribu te): EventDescriptor Collection;
begin
Result := TypeDescriptor. GetEvents(Self, attributes, true);
end;

function TMyClass.GetPro perties: PropertyDescrip torCollection;
begin
Result := TypeDescriptor. GetProperties(S elf, true);
end;

function TMyClass.GetPro pertyOwner(pd: PropertyDescrip tor): TObject;
begin
Result := Self;
end;
I dont understand what is this. Can anybody helps me , how can i
subclassing PropertyDescrip tor class correctly ??
Even we take an error when using delphi.net , we dont take any error
message using c#,

i want change the display name of the property which is the added to my
special class by using the propertyGrid Component ...
It's seems like DisplayNameAtti rubute of the .net Framework 2.0

With My Best Regards,

Thanks For Helping