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

MainIDEBar: Change visibility of class members. Default published was used but is not needed.

Browse Source 
git-svn-id: trunk@49488 -
This commit is contained in:
juha 2015-07-02 18:50:27 +00:00
parent 7c8d3b0a52
commit 5e208cb2dd
1 changed files with 24 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
ide/mainbar.pas
View File

@ -38,29 +38,41 @@ uses
{$IFDEF IDE_MEM_CHECK} {$IFDEF IDE_MEM_CHECK}
MemCheck, MemCheck,
{$ENDIF} {$ENDIF}
Classes, SysUtils, LCLProc, Forms, Controls, Buttons, Menus, Classes, SysUtils, Math, Forms, Controls, Buttons, Menus,
ComCtrls, ExtCtrls, LMessages, ComCtrls, ExtCtrls, LMessages, LCLIntf, LCLType, LCLProc,
// IDEIntf // IDEIntf
ProjectIntf, NewItemIntf, MenuIntf, LazIDEIntf, LazFileCache, ProjectIntf, NewItemIntf, MenuIntf, LazIDEIntf, IDEWindowIntf, IDEImagesIntf,
EnvironmentOpts, LazarusIDEStrConsts, IDEImagesIntf, IdeCoolbarData; LazFileCache, EnvironmentOpts, LazarusIDEStrConsts, IdeCoolbarData;
type type
{ TMainIDEBar } { TMainIDEBar }
TMainIDEBar = class(TForm) TMainIDEBar = class(TForm)
private
OptionsPopupMenu: TPopupMenu;
FOldWindowState: TWindowState;
FOnActive: TNotifyEvent;
procedure CreatePopupMenus(TheOwner: TComponent);
procedure NewUnitFormDefaultClick(Sender: TObject);
procedure NewUnitFormPopupMenuPopup(Sender: TObject);
function CalcMainIDEHeight: Integer;
function CalcNonClientHeight: Integer;
protected
procedure DoActive;
procedure DoShow; override;
procedure WndProc(var Message: TLMessage); override;
procedure Resizing(State: TWindowState); override;
public
//Coolbar and PopUpMenus //Coolbar and PopUpMenus
CoolBar: TCoolBar; CoolBar: TCoolBar;
OptionsPopupMenu: TPopupMenu;
OptionsMenuItem: TMenuItem; OptionsMenuItem: TMenuItem;
OpenFilePopUpMenu: TPopupMenu; OpenFilePopUpMenu: TPopupMenu;
SetBuildModePopupMenu: TPopupMenu; SetBuildModePopupMenu: TPopupMenu;
NewUnitFormPopupMenu: TPopupMenu; NewUnitFormPopupMenu: TPopupMenu;
NewUFSetDefaultMenuItem: TMenuItem; NewUFSetDefaultMenuItem: TMenuItem;
ComponentPageControl: TPageControl; // component palette
//splitter between the Coolbar and MainMenu //GlobalMouseSpeedButton: TSpeedButton; <- what is this
MainSplitter: TSplitter; MainSplitter: TSplitter; // splitter between the Coolbar and MainMenu
// MainMenu // MainMenu
mnuMainMenu: TMainMenu; mnuMainMenu: TMainMenu;
//mnuMain: TIDEMenuSection; //mnuMain: TIDEMenuSection;
@ -361,30 +373,11 @@ type
itmHelpAboutLazarus: TIDEMenuCommand; itmHelpAboutLazarus: TIDEMenuCommand;
//itmHelpTools: TIDEMenuSection; //itmHelpTools: TIDEMenuSection;
// component palette constructor Create(TheOwner: TComponent); override;
ComponentPageControl: TPageControl; procedure MainIDEBarDropFiles(Sender: TObject; const FileNames: array of String);
GlobalMouseSpeedButton: TSpeedButton;
procedure MainIDEBarDropFiles(Sender: TObject;
const FileNames: array of String);
procedure CoolBarOnChange(Sender: TObject); procedure CoolBarOnChange(Sender: TObject);
procedure MainSplitterMoved(Sender: TObject); procedure MainSplitterMoved(Sender: TObject);
procedure SetMainIDEHeightEvent(Sender: TObject); procedure SetMainIDEHeightEvent(Sender: TObject);
private
FOldWindowState: TWindowState;
FOnActive: TNotifyEvent;
procedure CreatePopupMenus(TheOwner: TComponent);
procedure NewUnitFormDefaultClick(Sender: TObject);
procedure NewUnitFormPopupMenuPopup(Sender: TObject);
function CalcMainIDEHeight: Integer;
function CalcNonClientHeight: Integer;
protected
procedure DoActive;
procedure DoShow; override;
procedure WndProc(var Message: TLMessage); override;
procedure Resizing(State: TWindowState); override;
public
constructor Create(TheOwner: TComponent); override;
procedure SetupSpeedButtons(TheOwner: TComponent); procedure SetupSpeedButtons(TheOwner: TComponent);
procedure SetupComponentPalette(TheOwner: TComponent); procedure SetupComponentPalette(TheOwner: TComponent);
procedure HideIDE; procedure HideIDE;
@ -405,9 +398,6 @@ var
implementation implementation
uses
LCLIntf, LCLType, Math, IDEWindowIntf;
{ TMainIDEBar } { TMainIDEBar }
procedure TMainIDEBar.MainIDEBarDropFiles(Sender: TObject; procedure TMainIDEBar.MainIDEBarDropFiles(Sender: TObject;