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

MG: accelerated designer mouse move and added Delete Selection to designer popupmenu

Browse Source 
git-svn-id: trunk@2782 -
This commit is contained in:
lazarus 2002-08-18 08:54:02 +00:00
parent 91ad812a85
commit f1bd716cdf
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/main.pp
View File

@ -6091,9 +6091,11 @@ begin
for PageIndex:=0 to SourceNotebook.NoteBook.PageCount-1 do begin
AnUnitInfo:=Project1.UnitWithEditorIndex(PageIndex);
if AnUnitInfo=nil then continue;
if FilenameIsPascalUnit(AnUnitInfo.Filename) then
SourceName:=CodeToolBoss.GetCachedSourceName(AnUnitInfo.Source)
else
if FilenameIsPascalUnit(AnUnitInfo.Filename) then begin
SourceName:=CodeToolBoss.GetCachedSourceName(AnUnitInfo.Source);
if SourceName<>'' then
AnUnitInfo.UnitName:=SourceName;
end else
SourceName:='';
PageName:=CreateSrcEditPageName(SourceName,AnUnitInfo.Filename,PageIndex);
SourceNotebook.NoteBook.Pages[PageIndex]:=PageName;
@ -7128,6 +7130,9 @@ end.
{ =============================================================================
$Log$
Revision 1.387 2002/09/17 21:33:14 lazarus
MG: accelerated designer mouse move and added Delete Selection to designer popupmenu
Revision 1.386 2002/09/16 17:19:05 lazarus
MG: reduced output