paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 17:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf: Minor optimization, use hard typecast when appropriate.

Browse Source 
git-svn-id: trunk@62774 -
This commit is contained in:
juha 2020-03-18 18:54:21 +00:00
parent a3b373f868
commit 5a0a107a61
2 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/ideintf/objectinspector.pp
View File

@ -1360,7 +1360,7 @@ begin
begin
FCurrentEdit.SetFocus;
if (FCurrentEdit is TEdit) then
(FCurrentEdit as TEdit).SelStart := Length((FCurrentEdit as TEdit).Text);
TEdit(FCurrentEdit).SelStart := Length((FCurrentEdit as TEdit).Text);
end;
end;
@ -2032,7 +2032,7 @@ begin
//debugln('TOICustomPropertyGrid.AddPropertyEditor A ',PropEditor.GetName);
if Favorites is TOIRestrictedProperties then
begin
WidgetSets := (Favorites as TOIRestrictedProperties).AreRestricted(
WidgetSets := TOIRestrictedProperties(Favorites).AreRestricted(
Selection,PropEditor.GetName);
if WidgetSets = [] then
begin
@ -2048,9 +2048,9 @@ begin
end;
if PropEditor is TClassPropertyEditor then
begin
(PropEditor as TClassPropertyEditor).SubPropsNameFilter := PropNameFilter;
(PropEditor as TClassPropertyEditor).SubPropsTypeFilter := FFilter;
(PropEditor as TClassPropertyEditor).HideClassName:=FHideClassNames;
TClassPropertyEditor(PropEditor).SubPropsNameFilter := PropNameFilter;
TClassPropertyEditor(PropEditor).SubPropsTypeFilter := FFilter;
TClassPropertyEditor(PropEditor).HideClassName:=FHideClassNames;
end;
NewRow := TOIPropertyGridRow.Create(Self, PropEditor, nil, WidgetSets);
FRows.Add(NewRow);
@ -2186,9 +2186,9 @@ begin
if PropEditor is TClassPropertyEditor then
begin
(PropEditor as TClassPropertyEditor).SubPropsNameFilter := PropNameFilter;
(PropEditor as TClassPropertyEditor).SubPropsTypeFilter := FFilter;
(PropEditor as TClassPropertyEditor).HideClassName:=FHideClassNames;
TClassPropertyEditor(PropEditor).SubPropsNameFilter := PropNameFilter;
TClassPropertyEditor(PropEditor).SubPropsTypeFilter := FFilter;
TClassPropertyEditor(PropEditor).HideClassName:=FHideClassNames;
end;
NewRow:=TOIPropertyGridRow.Create(Self,PropEditor,FExpandingRow, []);
NewIndex:=FExpandingRow.Index+1+FExpandingRow.ChildCount;
@ -3619,7 +3619,7 @@ procedure TOICustomPropertyGrid.ValueControlMouseMove(Sender: TObject;
begin
// when the cursor is divider change it to default
if (Sender as TControl).Parent.Cursor <> crDefault then
(Sender as TControl).Parent.Cursor := crDefault;
TControl(Sender).Parent.Cursor := crDefault;
end;
procedure TOICustomPropertyGrid.IncreaseChangeStep;
@ -3736,7 +3736,7 @@ begin
FHeight:=FTree.RealDefaultItemHeight;
FIndex:=-1;
LastPaintedValue:='';
FWidgetSets := WidgetSets;
FWidgetSets:=WidgetSets;
end;
destructor TOIPropertyGridRow.Destroy;

7
components/ideintf/oifavoriteproperties.pas
View File

@ -634,13 +634,12 @@ begin
for I := 0 to Count - 1 do
begin
if not (Items[I] is TOIRestrictedProperty) then Continue;
CurItem:=Items[I] as TOIRestrictedProperty;
CurItem:=TOIRestrictedProperty(Items[I]);
Result := Result + CurItem.IsRestricted(AClass,PropertyName);
end;
end;
function TOIRestrictedProperties.AreRestricted(
Selection: TPersistentSelectionList;
function TOIRestrictedProperties.AreRestricted(Selection: TPersistentSelectionList;
const PropertyName: string): TLCLPlatforms;
var
I: Integer;
@ -648,9 +647,7 @@ begin
Result := [];
if Selection = nil then Exit;
for i:=0 to Selection.Count-1 do
begin
Result := Result + IsRestricted(TPersistentClass(Selection[i].ClassType), PropertyName);
end;
end;
end.