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

IDE: designer: renamed private variable

Browse Source 
git-svn-id: trunk@22836 -
This commit is contained in:
mattias 2009-11-27 17:51:58 +00:00
parent 271c760dc1
commit 95082ac67f
1 changed files with 7 additions and 7 deletions

14
designer/designer.pp
View File

@ -82,7 +82,7 @@ type
TDesigner = class(TComponentEditorDesigner)
private
DesignerPopupMenu: TPopupMenu;
FDesignerPopupMenu: TPopupMenu;
FDefaultFormBounds: TRect;
FLastFormBounds: TRect;
FDefaultFormBoundsValid: boolean;
@ -550,7 +550,7 @@ end;
destructor TDesigner.Destroy;
Begin
FreeAndNil(DesignerPopupMenu);
FreeAndNil(FDesignerPopupMenu);
FreeAndNil(FHintWIndow);
FreeAndNil(FHintTimer);
FreeAndNil(DDC);
@ -2044,7 +2044,7 @@ begin
PopupMenuComponentEditor:=GetComponentEditorForSelection;
BuildPopupMenu;
PopupPos := Form.ClientToScreen(MouseUpPos);
DesignerPopupMenu.Popup(PopupPos.X,PopupPos.Y);
FDesignerPopupMenu.Popup(PopupPos.X,PopupPos.Y);
end;
DisableRubberBand;
@ -3323,10 +3323,10 @@ end;
procedure TDesigner.BuildPopupMenu;
begin
if DesignerPopupMenu = nil then
if FDesignerPopupMenu = nil then
begin
DesignerPopupMenu:=TPopupMenu.Create(nil);
with DesignerPopupMenu do
FDesignerPopupMenu:=TPopupMenu.Create(nil);
with FDesignerPopupMenu do
begin
Name := 'DesignerPopupmenu';
OnPopup := @DesignerPopupMenuPopup;
@ -3341,7 +3341,7 @@ begin
DesignerPopupMenu.Items.WriteDebugReport('TSourceNotebook.BuildPopupMenu ');
DesignerMenuRoot.ConsistencyCheck;
{$ENDIF}
DesignerMenuRoot.MenuItem := DesignerPopupMenu.Items;
DesignerMenuRoot.MenuItem := FDesignerPopupMenu.Items;
DesignerMenuAlign.OnClick := @OnAlignPopupMenuClick;
DesignerMenuMirrorHorizontal.OnClick := @OnMirrorHorizontalPopupMenuClick;