paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 11:39:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added the code for getting property values to CustomFormEditor.pp

Browse Source 
Also changed the return type for
GetPropTypebyName and
GetPropType
to TTypeKind instead of TPropertyType
Shane

git-svn-id: trunk@43 -
This commit is contained in:
lazarus 2000-11-20 17:43:49 +00:00
parent 2ec79ce21b
commit 12879a937d
2 changed files with 204 additions and 122 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
designer/abstractformeditor.pp
View File

@ -24,12 +24,17 @@ unit AbstractFormEditor;
interface interface
uses uses
classes; classes,typinfo;
type type
TPropertyType = (ptUnknown, ptInteger, ptChar, ptEnumeration,ptFloat,ptString,ptSet, {
ptClass, ptMethod,ptWChar, ptLString, LWString, ptVariant); Should I include typinfo.pp and use TTypeKind instead of TPropertyType
or use TPropertyType
}
// TPropertyType = (ptUnknown, ptInteger, ptChar, ptEnumeration,ptFloat,ptString,ptSet,
// ptClass, ptMethod,ptWChar, ptLString, LWString, ptVariant);
TIComponentInterface = class TIComponentInterface = class
public public
@ -38,9 +43,11 @@ type
Function GetParent : TIComponentInterface; virtual; abstract; Function GetParent : TIComponentInterface; virtual; abstract;
Function IsTControl : Boolean; virtual; abstract; Function IsTControl : Boolean; virtual; abstract;
Function GetPropCount : Integer; virtual; abstract; Function GetPropCount : Integer; virtual; abstract;
Function GetPropType(Index : Integer) : TPropertyType; virtual; abstract; Function GetPropType(Index : Integer) : TTypeKind; virtual; abstract;
// Function GetPropType(Index : Integer) : TPropertyType; virtual; abstract;
Function GetPropName(Index : Integer) : String; virtual; abstract; Function GetPropName(Index : Integer) : String; virtual; abstract;
Function GetPropTypebyName(Name : String) : TPropertyType; virtual; abstract; Function GetPropTypebyName(Name : String) : TTypeKind; virtual; abstract;
// Function GetPropTypebyName(Name : String) : TPropertyType; virtual; abstract;
Function GetPropValue(Index : Integer; var Value) : Boolean; virtual; abstract; Function GetPropValue(Index : Integer; var Value) : Boolean; virtual; abstract;
Function GetPropValuebyName(Name: String; var Value) : Boolean; virtual; abstract; Function GetPropValuebyName(Name: String; var Value) : Boolean; virtual; abstract;

309
ide/customformeditor.pp
View File

@ -27,6 +27,8 @@ interface
uses uses
classes, abstractformeditor, controls,Typinfo; classes, abstractformeditor, controls,Typinfo;
Const OrdinalTypes = [tkInteger,tkChar,tkENumeration,tkbool];
type type
{ {
@ -35,37 +37,43 @@ each control that's dropped onto the form
} }
TCustomFormEditor = class; //forward declaration TCustomFormEditor = class; //forward declaration
TSetProc = Procedure (const Value) of Object;
TGetProc = Function : Variant of Object;
TComponentInterface = class(TIComponentInterface)
TComponentInterface = class(TIComponentInterface)
private private
FControl : TComponent; FControl : TComponent;
FFormEditor : TCustomFormEditor; //used to call it's functions FFormEditor : TCustomFormEditor; //used to call it's functions
protected
Function GetPropbyIndex(Index : Integer) : PPropInfo;
MySetProc : TSetPRoc;
MyGetProc : TGetProc;
public public
Function GetComponentType : String; override; Function GetComponentType : String; override;
Function GetComponentHandle : LongInt; override; Function GetComponentHandle : LongInt; override;
Function GetParent : TIComponentInterface; override; Function GetParent : TIComponentInterface; override;
Function IsTControl : Boolean; override; Function IsTControl : Boolean; override;
Function GetPropCount : Integer; override; Function GetPropCount : Integer; override;
Function GetPropType(Index : Integer) : TPropertyType; override; Function GetPropType(Index : Integer) : TTypeKind; override;
Function GetPropName(Index : Integer) : String; override; Function GetPropName(Index : Integer) : String; override;
Function GetPropTypebyName(Name : String) : TPropertyType; override; Function GetPropTypebyName(Name : String) : TTypeKind; override;
Function GetPropValue(Index : Integer; var Value) : Boolean; override; Function GetPropValue(Index : Integer; var Value) : Boolean; override;
Function GetPropValuebyName(Name: String; var Value) : Boolean; override; Function GetPropValuebyName(Name: String; var Value) : Boolean; override;
Function SetProp(Index : Integer; const Value) : Boolean; override; Function SetProp(Index : Integer; const Value) : Boolean; override;
Function SetPropbyName(Name : String; const Value) : Boolean; override; Function SetPropbyName(Name : String; const Value) : Boolean; override;
Function GetControlCount: Integer; override; Function GetControlCount: Integer; override;
Function GetControl(Index : Integer): TIComponentInterface; override; Function GetControl(Index : Integer): TIComponentInterface; override;
Function GetComponentCount: Integer; override; Function GetComponentCount: Integer; override;
Function GetComponent(Index : Integer): TIComponentInterface; override; Function GetComponent(Index : Integer): TIComponentInterface; override;
Function Select : Boolean; override; Function Select : Boolean; override;
Function Focus : Boolean; override; Function Focus : Boolean; override;
Function Delete : Boolean; override; Function Delete : Boolean; override;
end; end;
{ {
TCustomFormEditor TCustomFormEditor
@ -102,6 +110,10 @@ TCustomFormEditor
implementation implementation
{TComponentInterface} {TComponentInterface}
Function TComponentInterface.GetPropByIndex(Index:Integer): PPropInfo;
Begin
end;
Function TComponentInterface.GetComponentType : String; Function TComponentInterface.GetComponentType : String;
Begin Begin
@ -132,137 +144,200 @@ end;
Function TComponentInterface.GetPropCount : Integer; Function TComponentInterface.GetPropCount : Integer;
var var
TypeInfo : PTypeInfo; PT : PTypeData;
TypeKinds : TTypeKinds;
PropList : TPropList;
Begin Begin
TypeKinds := [tkInteger,tkChar,tkEnumeration,tkFloat,tkSet,tkMethod,tkSString,tkLString,tkAString, PT:=GetTypeData(FControl.ClassInfo);
tkWString,tkVariant,tkArray,tkRecord,tkInterface,
tkClass,tkObject,tkWChar,tkBool,tkInt64,tkQWord];
Result := GetPropList(TypeInfo,TypeKinds,@Proplist); Result := PT^.PropCount;
end; end;
Function TComponentInterface.GetPropType(Index : Integer) : TPropertyType; Function TComponentInterface.GetPropType(Index : Integer) : TTypeKind;
var var
TypeInfo : PTypeInfo; PT : PTypeData;
TypeKinds : TTypeKinds; PP : PPropList;
PropList : TPropList; PI : PTypeInfo;
PropInfo : TPropInfo;
Num : Integer; Num : Integer;
Begin Begin
TypeKinds := [tkUnknown,tkInteger,tkChar,tkEnumeration,tkFloat,tkSet,tkMethod,tkSString,tkLString,tkAString, PT:=GetTypeData(FControl.ClassInfo);
tkWString,tkVariant,tkArray,tkRecord,tkInterface, GetMem (PP,PT^.PropCount*SizeOf(Pointer));
tkClass,tkObject,tkWChar,tkBool,tkInt64,tkQWord]; GetPropInfos(PI,PP);
if Index < PT^.PropCount then
Num := GetPropList(TypeInfo,TypeKinds,@Proplist); Result := PP^[Index]^.PropType^.Kind
If NUm > 0 then
Begin
PropInfo := PropList[Index]^;
TypeInfo := PropInfo.PropType;
case TypeInfo^.kind of
tkUnknown : Result := ptUnknown;
tkInteger : Result := ptInteger;
tkChar : Result := ptChar;
tkEnumeration : Result := ptEnumeration;
tkFloat : Result := ptFloat;
tkSet : Result := ptSet;
tkMethod : Result := ptMethod;
tkSString : Result := ptString;
tkLString : Result := ptLString;
tkAString : Result := ptLString;
tkWString : Result := ptLString;
tkVariant : Result := ptVariant;
tkClass : Result := ptClass;
tkWChar : Result := ptWChar;
else else
Result := ptUnknown Result := tkUnknown;
end;
end; freemem(PP);
end; end;
Function TComponentInterface.GetPropName(Index : Integer) : String; Function TComponentInterface.GetPropName(Index : Integer) : String;
var var
TypeInfo : PTypeInfo; PT : PTypeData;
TypeKinds : TTypeKinds; PP : PPropList;
PropList : TPropList; PI : PTypeInfo;
PropInfo : TPropInfo;
Num : Integer; Num : Integer;
Begin Begin
TypeKinds := [tkUnknown,tkInteger,tkChar,tkEnumeration,tkFloat,tkSet,tkMethod,tkSString,tkLString,tkAString, PT:=GetTypeData(FControl.ClassInfo);
tkWString,tkVariant,tkArray,tkRecord,tkInterface, GetMem (PP,PT^.PropCount*SizeOf(Pointer));
tkClass,tkObject,tkWChar,tkBool,tkInt64,tkQWord]; GetPropInfos(PI,PP);
if Index < PT^.PropCount then
Num := GetPropList(TypeInfo,TypeKinds,@Proplist); Result := PP^[Index]^.PropType^.Name
else
If NUm > 0 then Result := '';
Begin freemem(PP);
PropInfo := PropList[Index]^;
TypeInfo := PropInfo.PropType;
Result := TypeInfo^.Name;
end;
end; end;
Function TComponentInterface.GetPropTypebyName(Name : String) : TPropertyType; Function TComponentInterface.GetPropTypebyName(Name : String) : TTypeKind;
var var
TypeInfo : PTypeInfo; PT : PTypeData;
TypeKinds : TTypeKinds; PP : PPropList;
PropList : TPropList; PI : PTypeInfo;
PropInfo : TPropInfo;
Num : Integer; Num : Integer;
I : Longint;
Begin Begin
TypeKinds := [tkUnknown,tkInteger,tkChar,tkEnumeration,tkFloat,tkSet,tkMethod,tkSString,tkLString,tkAString, PT:=GetTypeData(FControl.ClassInfo);
tkWString,tkVariant,tkArray,tkRecord,tkInterface, GetMem (PP,PT^.PropCount*SizeOf(Pointer));
tkClass,tkObject,tkWChar,tkBool,tkInt64,tkQWord]; GetPropInfos(PI,PP);
Num := GetPropInfo(TypeInfo,Name); Result := tkUnknown;
For I:=0 to PT^.PropCount-1 do
If NUm > 0 then If PP^[i]<>Nil then
Begin begin
PropInfo := PropList[Index]^; if PP^[i]^.Name = Name then
TypeInfo := PropInfo.PropType; begin
case TypeInfo^.kind of Result := PP^[i]^.PropType^.Kind;
tkUnknown : Result := ptUnknown; Break;
tkInteger : Result := ptInteger; end;
tkChar : Result := ptChar; end;
tkEnumeration : Result := ptEnumeration;
tkFloat : Result := ptFloat;
tkSet : Result := ptSet;
tkMethod : Result := ptMethod;
tkSString : Result := ptString;
tkLString : Result := ptLString;
tkAString : Result := ptLString;
tkWString : Result := ptLString;
tkVariant : Result := ptVariant;
tkClass : Result := ptClass;
tkWChar : Result := ptWChar;
else
Result := ptUnknown
end;
end;
freemem(PP);
end; end;
Function TComponentInterface.GetPropValue(Index : Integer; var Value) : Boolean; Function TComponentInterface.GetPropValue(Index : Integer; var Value) : Boolean;
var
PT : PTypeData;
PP : PPropList;
PI : PTypeInfo;
PRI : PPropInfo;
J : Longint;
Num : Integer;
Begin Begin
PT:=GetTypeData(FControl.ClassInfo);
GetMem (PP,PT^.PropCount*SizeOf(Pointer));
GetPropInfos(PI,PP);
result := False;
if Index < PT^.PropCount then
begin
pri:=PP^[index];
with PRI^ do
Begin
Result := True;
If (Proptype^.kind in Ordinaltypes) Then
begin
J:=GetOrdProp(FControl,pri);
If PropType^.Kind=tkenumeration then
Value := GetEnumName(Proptype,J)
else
Value := J;
end
else
Case pri^.proptype^.kind of
tkfloat : begin
Value := GetFloatProp(FControl,pri);
end;
tkAstring : begin
Value := GetStrProp(FControl,Pri);
end;
else
Begin
Value := -1;
Result := False;
end;
end; //end of the CASE
end; //end of the with PRI^...
end; //end of If Index < PT
freemem(PP);
end; end;
Function TComponentInterface.GetPropValuebyName(Name: String; var Value) : Boolean; Function TComponentInterface.GetPropValuebyName(Name: String; var Value) : Boolean;
var
PT : PTypeData;
PP : PPropList;
PI : PTypeInfo;
PRI : PPropInfo;
I,J : Longint;
Num : Integer;
Begin Begin
PT:=GetTypeData(FControl.ClassInfo);
GetMem (PP,PT^.PropCount*SizeOf(Pointer));
GetPropInfos(PI,PP);
result := -1;
I := -1;
repeat
inc(i);
until (PP^[i]^.Name = Name) or (i > PT^.PropCount-1);
if PP^[i]^.Name = Name then
begin
pri:=PP^[i];
with PRI^ do
Begin
If (Proptype^.kind in Ordinaltypes) Then
begin
J:=GetOrdProp(FControl,pri);
If PropType^.Kind=tkenumeration then
Result := GetEnumName(Proptype,J)
else
Result := J;
end
else
Case pri^.proptype^.kind of
tkfloat : begin
Result := GetFloatProp(FControl,pri);
end;
tkAstring : begin
Result := GetStrProp(FControl,Pri);
end;
end; //end of the CASE
end; //end of the with PRI^...
end; //end of If Index < PT
freemem(PP);
end; end;
Function TComponentInterface.SetProp(Index : Integer; const Value) : Boolean; Function TComponentInterface.SetProp(Index : Integer; const Value) : Boolean;
Begin
var
PT : PTypeData;
PP : PPropList;
PI : PTypeInfo;
PRI : PPropInfo;
J : Longint;
Num : Integer;
Begin
PT:=GetTypeData(FControl.ClassInfo);
GetMem (PP,PT^.PropCount*SizeOf(Pointer));
GetPropInfos(PI,PP);
result := -1;
if Index < PT^.PropCount then
begin
pri:=PP^[i];
with PRI^ do
Begin
if SetProc <> nil then
Begin //call the procedure passing Value
MySetProc := SetProc;
MySetProc(Value);
end;
end;
end;
freemem(PP);
end; end;
Function TComponentInterface.SetPropbyName(Name : String; const Value) : Boolean; Function TComponentInterface.SetPropbyName(Name : String; const Value) : Boolean;