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

lcl,ide: rename RegisterRemovedProperty to RegisterPropertyToSkip, ...

Browse Source 
git-svn-id: trunk@17792 -
This commit is contained in:
paul 2008-12-11 01:38:39 +00:00
parent da2a4e55f8
commit 98dbf8f94c
3 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/customformeditor.pp
View File

@ -2266,7 +2266,7 @@ procedure TCustomFormEditor.JITListPropertyNotFound(Sender: TObject;
var var
Index: Integer; Index: Integer;
begin begin
Index := RemovedProperties.IndexOf(Instance, PropName); Index := PropertiesToSkip.IndexOf(Instance, PropName);
if Index >= 0 then if Index >= 0 then
begin begin
Skip := True; Skip := True;

38
lcl/lresources.pp
View File

@ -349,17 +349,17 @@ type
property OnFindComponentClass; property OnFindComponentClass;
end; end;
TRemovedProperty = record TPropertyToSkip = record
PersistentClass: TPersistentClass; PersistentClass: TPersistentClass;
PropertyName: String; PropertyName: String;
Note: String; Note: String;
HelpKeyword: String; HelpKeyword: String;
end; end;
PRemovedProperty = ^TRemovedProperty; PRemovedProperty = ^TPropertyToSkip;
{ TRemovedPropertyList } { TPropertyToSkipList }
TRemovedPropertyList = class(TList) TPropertiesToSkip = class(TList)
private private
function GetItem(AIndex: Integer): PRemovedProperty; function GetItem(AIndex: Integer): PRemovedProperty;
procedure SetItem(AIndex: Integer; const AValue: PRemovedProperty); procedure SetItem(AIndex: Integer; const AValue: PRemovedProperty);
@ -382,7 +382,7 @@ const
var var
LazarusResources: TLResourceList; LazarusResources: TLResourceList;
RemovedProperties: TRemovedPropertyList = nil; PropertiesToSkip: TPropertiesToSkip = nil;
LRSObjectReaderClass: TLRSObjectReaderClass=TLRSObjectReader; LRSObjectReaderClass: TLRSObjectReaderClass=TLRSObjectReader;
LRSObjectWriterClass: TLRSObjectWriterClass=TLRSObjectWriter; LRSObjectWriterClass: TLRSObjectWriterClass=TLRSObjectWriter;
@ -510,7 +510,7 @@ function FloatToLFMStr(const Value: extended; Precision, Digits: Integer
function CompareLRPositionLinkWithLFMPosition(Item1, Item2: Pointer): integer; function CompareLRPositionLinkWithLFMPosition(Item1, Item2: Pointer): integer;
function CompareLRPositionLinkWithLRSPosition(Item1, Item2: Pointer): integer; function CompareLRPositionLinkWithLRSPosition(Item1, Item2: Pointer): integer;
procedure RegisterRemovedProperty(PersistentClass: TPersistentClass; procedure RegisterPropertyToSkip(PersistentClass: TPersistentClass;
PropertyName, Note, HelpKeyWord: string); PropertyName, Note, HelpKeyWord: string);
procedure Register; procedure Register;
@ -546,20 +546,20 @@ type
var Name: string); var Name: string);
end; end;
{ TRemovedPropertyList } { TPropertiesToSkip }
function TRemovedPropertyList.GetItem(AIndex: Integer): PRemovedProperty; function TPropertiesToSkip.GetItem(AIndex: Integer): PRemovedProperty;
begin begin
Result := inherited Get(AIndex); Result := inherited Get(AIndex);
end; end;
procedure TRemovedPropertyList.SetItem(AIndex: Integer; procedure TPropertiesToSkip.SetItem(AIndex: Integer;
const AValue: PRemovedProperty); const AValue: PRemovedProperty);
begin begin
inherited Put(AIndex, AValue); inherited Put(AIndex, AValue);
end; end;
procedure TRemovedPropertyList.Notify(Ptr: Pointer; Action: TListNotification); procedure TPropertiesToSkip.Notify(Ptr: Pointer; Action: TListNotification);
begin begin
if Action = lnDeleted then if Action = lnDeleted then
Dispose(PRemovedProperty(Ptr)) Dispose(PRemovedProperty(Ptr))
@ -567,14 +567,14 @@ begin
inherited Notify(Ptr, Action); inherited Notify(Ptr, Action);
end; end;
procedure TRemovedPropertyList.DoPropertyNotFound(Reader: TReader; Instance: TPersistent; procedure TPropertiesToSkip.DoPropertyNotFound(Reader: TReader; Instance: TPersistent;
var PropName: string; IsPath: boolean; var Handled, Skip: Boolean); var PropName: string; IsPath: boolean; var Handled, Skip: Boolean);
begin begin
Skip := IndexOf(Instance, PropName) >= 0; Skip := IndexOf(Instance, PropName) >= 0;
Handled := Skip; Handled := Skip;
end; end;
function TRemovedPropertyList.IndexOf(AInstance: TPersistent; function TPropertiesToSkip.IndexOf(AInstance: TPersistent;
APropertyName: String): Integer; APropertyName: String): Integer;
begin begin
if AInstance <> nil then if AInstance <> nil then
@ -583,7 +583,7 @@ begin
Result := -1; Result := -1;
end; end;
function TRemovedPropertyList.IndexOf(AClass: TPersistentClass; function TPropertiesToSkip.IndexOf(AClass: TPersistentClass;
APropertyName: String): Integer; APropertyName: String): Integer;
var var
i: integer; i: integer;
@ -599,7 +599,7 @@ begin
end; end;
end; end;
function TRemovedPropertyList.Add(APersistentClass: TPersistentClass; function TPropertiesToSkip.Add(APersistentClass: TPersistentClass;
APropertyName, ANote, AHelpKeyWord: string): Integer; APropertyName, ANote, AHelpKeyWord: string): Integer;
var var
Item: PRemovedProperty; Item: PRemovedProperty;
@ -3000,7 +3000,7 @@ begin
if Assigned(LRSTranslator) then if Assigned(LRSTranslator) then
Result.OnReadStringProperty:=@(LRSTranslator.TranslateStringProperty); Result.OnReadStringProperty:=@(LRSTranslator.TranslateStringProperty);
Result.OnPropertyNotFound := @(RemovedProperties.DoPropertyNotFound); Result.OnPropertyNotFound := @(PropertiesToSkip.DoPropertyNotFound);
DestroyDriver:=false; DestroyDriver:=false;
if Result.Driver.ClassType=LRSObjectReaderClass then exit; if Result.Driver.ClassType=LRSObjectReaderClass then exit;
@ -3458,10 +3458,10 @@ begin
Result:=0; Result:=0;
end; end;
procedure RegisterRemovedProperty(PersistentClass: TPersistentClass; procedure RegisterPropertyToSkip(PersistentClass: TPersistentClass;
PropertyName, Note, HelpKeyWord: string); PropertyName, Note, HelpKeyWord: string);
begin begin
RemovedProperties.Add(PersistentClass, PropertyName, Note, HelpKeyWord); PropertiesToSkip.Add(PersistentClass, PropertyName, Note, HelpKeyWord);
end; end;
procedure Register; procedure Register;
@ -5308,7 +5308,7 @@ procedure InternalInit;
begin begin
LazarusResources := TLResourceList.Create; LazarusResources := TLResourceList.Create;
RegisterInitComponentHandler(TComponent, @InitResourceComponent); RegisterInitComponentHandler(TComponent, @InitResourceComponent);
RemovedProperties := TRemovedPropertyList.Create; PropertiesToSkip := TPropertiesToSkip.Create;
end; end;
initialization initialization
@ -5316,7 +5316,7 @@ initialization
finalization finalization
FreeAndNil(LazarusResources); FreeAndNil(LazarusResources);
FreeAndNil(RemovedProperties); FreeAndNil(PropertiesToSkip);
end. end.

2
lcl/stdctrls.pp
View File

@ -1477,7 +1477,7 @@ end;
{$I customstatictext.inc} {$I customstatictext.inc}
initialization initialization
RegisterRemovedProperty(TButtonControl, 'UseOnChange', RegisterPropertyToSkip(TButtonControl, 'UseOnChange',
'Removed in 0.9.27. It was an old workaround which is not needed anymore.', 'Removed in 0.9.27. It was an old workaround which is not needed anymore.',
''); '');