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

IdeIntf: Make methods private. Formatting. The usefull changes in issues #32902 and #32903.

Browse Source 
git-svn-id: trunk@56873 -
This commit is contained in:
juha 2017-12-30 12:06:13 +00:00
parent 84369842cc
commit 1cc6bfbcd1
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/ideintf/dbgridcolumnspropeditform.pas
View File

@ -51,6 +51,8 @@ type
FOwnerComponent: TPersistent; FOwnerComponent: TPersistent;
FOwnerPersistent: TPersistent; FOwnerPersistent: TPersistent;
FPropertyName: String; FPropertyName: String;
procedure FillCollectionListBox;
procedure SelectInObjectInspector(ForceUpdate, UnselectAll: Boolean);
protected protected
procedure UpdateCaption; procedure UpdateCaption;
procedure UpdateButtons; procedure UpdateButtons;
@ -59,8 +61,6 @@ type
procedure PersistentDeleting(APersistent: TPersistent); procedure PersistentDeleting(APersistent: TPersistent);
procedure RefreshPropertyValues; procedure RefreshPropertyValues;
public public
procedure FillCollectionListBox;
procedure SelectInObjectInspector(ForceUpdate, UnselectAll: Boolean);
procedure SetCollection(NewCollection: TCollection; procedure SetCollection(NewCollection: TCollection;
NewOwnerPersistent: TPersistent; const NewPropName: String); NewOwnerPersistent: TPersistent; const NewPropName: String);
procedure Modified; procedure Modified;

2
components/ideintf/dbpropedits.pas
View File

@ -37,7 +37,7 @@ type
TDBGridColumnsPropertyEditor = class (TCollectionPropertyEditor) TDBGridColumnsPropertyEditor = class (TCollectionPropertyEditor)
public public
class function ShowCollectionEditor(ACollection: TCollection; class function ShowCollectionEditor(ACollection: TCollection;
OwnerPersistent: TPersistent; const PropName: String): TCustomForm; override; OwnerPersistent: TPersistent; const PropName: String): TCustomForm; override;
end; end;
{ TLookupFieldProperty } { TLookupFieldProperty }