paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-30 17:35:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf: Formatting

Browse Source 
git-svn-id: trunk@52191 -
This commit is contained in:
juha 2016-04-14 10:02:07 +00:00
parent 2ab7a2e3f5
commit a9f11cacba
2 changed files with 13 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/ideintf/objectinspector.pp
View File

@ -677,7 +677,7 @@ type
procedure PropFilterEditAfterFilter(Sender: TObject);
procedure NoteBookPageChange(Sender: TObject);
private
StateOfHintsOnMainPopupMenu:Boolean;
StateOfHintsOnMainPopupMenu: Boolean;
FFavorites: TOIFavoriteProperties;
FInfoBoxHeight: integer;
FOnPropertyHint: TOIPropertyHint;
@ -1526,11 +1526,13 @@ begin
OldChangeStep:=fChangeStep;
CurRow:=Rows[FItemIndex];
if paDialog in CurRow.Editor.GetAttributes then begin
{$IFNDEF DoNotCatchOIExceptions}
{$IFnDEF DoNotCatchOIExceptions}
try
{$ENDIF}
DebugLn(['#################### TOICustomPropertyGrid.DoCallEdit for ',
CurRow.Editor.ClassName,' Edit=',Edit=oiqeEdit]);
//if FSelection.Count > 0 then
// DebugLn(['# TOICustomPropertyGrid.DoCallEdit for ', CurRow.Editor.ClassName,
// ', Edit=', Edit=oiqeEdit, ', SelectionCount=', FSelection.Count,
// ', SelectionName=', FSelection[0].GetNamePath]);
Include(FStates,pgsCallingEdit);
try
if Edit=oiqeShowValue then
@ -1540,11 +1542,10 @@ begin
finally
Exclude(FStates,pgsCallingEdit);
end;
{$IFNDEF DoNotCatchOIExceptions}
{$IFnDEF DoNotCatchOIExceptions}
except
on E: Exception do begin
on E: Exception do
MessageDlg(oisError, E.Message, mtError, [mbOk], 0);
end;
end;
{$ENDIF}
// CurRow is now invalid, do not access CurRow
@ -1554,12 +1555,8 @@ begin
RefreshPropertyValues;
exit;
end;
// update value
RefreshValueEdit;
//invalidate changed subproperties
Invalidate;
RefreshValueEdit; // update value
Invalidate; //invalidate changed subproperties
end;
end;

6
components/ideintf/propedits.pp
View File

@ -306,7 +306,8 @@ type
procedure ShowValue; virtual; // called when Ctrl-Click on value
function GetAttributes: TPropertyAttributes; virtual;
function IsReadOnly: boolean; virtual;
function GetComponent(Index: Integer): TPersistent;// for Delphi compatibility it is called GetComponent instead of GetPersistent
// For Delphi compatibility it is called GetComponent instead of GetPersistent
function GetComponent(Index: Integer): TPersistent;
function GetUnitName(Index: Integer = 0): string;
function GetPropTypeUnitName(Index: Integer = 0): string;
function GetPropertyPath(Index: integer = 0): string;// e.g. 'TForm1.Color'
@ -1298,8 +1299,7 @@ type
function GetNextHandlerIndex(HookType: TPropHookType;
var i: integer): boolean;
protected
procedure Notification(AComponent: TComponent; Operation: TOperation);
override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
public
GetPrivateDirectory: AnsiString;
constructor Create; overload; deprecated; // use Create(TComponent) instead