paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 17:50:19 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
designer/designer.pp
View File

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