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

fixed finding class after class completion

Browse Source 
git-svn-id: trunk@6514 -
This commit is contained in:
mattias 2005-01-08 16:27:59 +00:00
parent 66a176a847
commit d92ce8d36c
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codecompletiontool.pas
View File

@ -2269,7 +2269,7 @@ var CleanCursorPos, Indent, insertPos: integer;
// due to insertions in fron of the class, the cursor position could
// have changed
while (CursorNode<>nil) do begin
if (CursorNode.Desc in [ctnTypeSection,ctnTypeDefinition,ctnClass])
if (CursorNode.Desc in [ctnTypeSection,ctnTypeDefinition])
then break;
CursorNode:=CursorNode.Parent;
end;

9
components/rtticontrols/rttigrids.pas
View File

@ -94,6 +94,8 @@ type
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
procedure Loaded; override;
procedure SaveChanges; virtual;
public
property ListObject: TObject read FListObject write SetListObject;
property ListDirection: TTIListDirection read FListDirection write SetListDirection;
property DefaultRowHeight default 20;
@ -177,6 +179,8 @@ procedure TTICustomGrid.SetListObject(const AValue: TObject);
begin
if FListObject=AValue then exit;
FListObject:=AValue;
if SaveOnChangeTIObject then
SaveChanges;
ReloadTIList;
end;
@ -237,6 +241,11 @@ begin
ReloadTIList;
end;
procedure TTICustomGrid.SaveChanges;
begin
end;
initialization
// property editor for TTICustomPropertyGrid.TIObject
RegisterPropertyEditor(ClassTypeInfo(TPersistent),