paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 14:13:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed type cast. Tag is Integer and the cast must be Integer, too.

Browse Source 
git-svn-id: trunk@27315 -
This commit is contained in:
juha 2010-09-11 22:10:54 +00:00
parent c3b2a1927d
commit 20ee3ff266
1 changed files with 1 additions and 1 deletions

2
ide/mainbase.pas
View File

@ -1092,7 +1092,7 @@ begin
CurMenuItem.Caption := SourceEditorManager.SourceEditors[i].PageName;
CurMenuItem.MenuItem.Checked := SourceEditorManager.ActiveEditor = SourceEditorManager.SourceEditors[i] ;
CurMenuItem.OnClick := @mnuWindowSourceItemClick;
CurMenuItem.Tag := PtrInt(Pointer(SourceEditorManager.SourceEditors[i]));
CurMenuItem.Tag := Integer(Pointer(SourceEditorManager.SourceEditors[i]));
inc(ItemCount);
end;
end;