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

6
components/ideintf/propedits.pp
View File

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