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

MG: TCustomLabel.Caption is now editable again in OI

Browse Source 
git-svn-id: trunk@3285 -
This commit is contained in:
lazarus 2002-09-05 12:22:54 +00:00
parent 7c8d67a7ad
commit 10d8f037da
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
designer/componenteditors.pas
View File

@ -555,13 +555,10 @@ begin
Hook:=nil;
if not GetHook(Hook) then exit;
NewPage:=NoteBook.Page[Index];
writeln('TNotebookComponentEditor.AddNewPageToDesigner ',NewPage<>nil,' ',Hook<>nil);
NewName:=GetDesigner.CreateUniqueComponentName(NewPage.ClassName);
NewPage.Caption:=NewName;
NewPage.Name:=NewName;
writeln('TNotebookComponentEditor.AddNewPageToDesigner ',Index);
NoteBook.PageIndex:=Index;
writeln('TNotebookComponentEditor.AddNewPageToDesigner ',NoteBook.PageIndex);
Hook.ComponentAdded(NewPage,true);
GetDesigner.Modified;
end;
@ -622,8 +619,6 @@ end;
procedure TNotebookComponentEditor.DoMoveActivePage(
CurIndex, NewIndex: Integer);
begin
writeln('TNotebookComponentEditor.DoMoveActivePage ',CurIndex,' -> ',NewIndex,
' ',NoteBook.Pages.ClassName);
NoteBook.Pages.Move(CurIndex,NewIndex);
GetDesigner.Modified;
end;

1
designer/objectinspector.pp
View File

@ -705,6 +705,7 @@ begin
if (NewIndex>=0) and (NewIndex<FRows.Count) then begin
NewRow:=Rows[NewIndex];
NewRow.Editor.Activate;
writeln(' NewRow.Editor.ClassName=',NewRow.Editor.ClassName);
if paDialog in NewRow.Editor.GetAttributes then begin
FCurrentButton:=ValueButton;
FCurrentButton.Visible:=true;