paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 12:49:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: less hints, comments

Browse Source 
git-svn-id: trunk@57999 -
This commit is contained in:
mattias 2018-05-22 08:00:08 +00:00
parent e2769e5420
commit 7aa6b95bbb
4 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/componenttreeview.pas
View File

@ -98,8 +98,6 @@ type
Added: boolean;
end;
TGetPersistentProc = procedure(APersistent: TPersistent; PropName: string) of object;
{ TComponentWalker }
TComponentWalker = class

1
components/ideintf/graphpropedits.pas
View File

@ -766,7 +766,6 @@ type
function TGridImageIndexPropertyEditor.GetImagelist: TCustomImagelist;
var
grid: TComponent;
p: TPersistent;
begin
Result := nil;

4
components/ideintf/objectinspector.pp
View File

@ -330,7 +330,7 @@ type
ValueButton: TSpeedButton;
procedure ActiveRowImagesGetWidthForPPI(Sender: TCustomImageList;
AImageWidth, APPI: Integer; var AResultWidth: Integer);
{%H-}AImageWidth, {%H-}APPI: Integer; var AResultWidth: Integer);
procedure HintMouseLeave(Sender: TObject);
procedure HintTimer(Sender: TObject);
procedure ResetLongHintTimer;
@ -2223,7 +2223,7 @@ begin
// check if circling
if (Row.Editor is TPersistentPropertyEditor) then begin
if (Row.Editor is TInterfacePropertyEditor) then
AnObject:=TPersistent(Row.Editor.GetIntfValue)
AnObject:={%H-}TPersistent(Row.Editor.GetIntfValue)
else
AnObject:=TPersistent(Row.Editor.GetObjectValue);
if FSelection.IndexOf(AnObject)>=0 then exit;

10
components/ideintf/propedits.pp
View File

@ -708,14 +708,18 @@ type
with the property being edited (e.g. the ActiveControl property). }
TComponentOneFormPropertyEditor = class(TPersistentPropertyEditor)
private
protected
fIgnoreClass: TControlClass;
public
function AllEqual: Boolean; override;
procedure GetValues(Proc: TGetStrProc); override;
end;
{ TCoolBarControlPropertyEditor }
{ TCoolBarControlPropertyEditor -
An editor for TComponents. It allows the user to set the value of this
property to point to a component in the same form that is type compatible
with the property being edited and is not a TCustomCoolBar
(e.g. the TCoolBand.Control property).}
TCoolBarControlPropertyEditor = class(TComponentOneFormPropertyEditor)
public
@ -5048,7 +5052,7 @@ procedure TComponentOneFormPropertyEditor.GetValues(Proc: TGetStrProc);
i: integer;
begin
for i := 0 to Root.ComponentCount - 1 do
if not (Root.Components[i] is fIgnoreClass) then
if (fIgnoreClass=nil) or not (Root.Components[i] is fIgnoreClass) then
Proc(Root.Components[i].Name);
end;