paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-24 00:27:06 +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}
MemCheck,
{$ENDIF}
Classes, SysUtils, LCLProc, Forms, Controls, Buttons, Menus,
ComCtrls, ExtCtrls, LMessages,
Classes, SysUtils, Math, Forms, Controls, Buttons, Menus,
ComCtrls, ExtCtrls, LMessages, LCLIntf, LCLType, LCLProc,
// IDEIntf
ProjectIntf, NewItemIntf, MenuIntf, LazIDEIntf, LazFileCache,
EnvironmentOpts, LazarusIDEStrConsts, IDEImagesIntf, IdeCoolbarData;
ProjectIntf, NewItemIntf, MenuIntf, LazIDEIntf, IDEWindowIntf, IDEImagesIntf,
LazFileCache, EnvironmentOpts, LazarusIDEStrConsts, IdeCoolbarData;
type
{ TMainIDEBar }
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: TCoolBar;
OptionsPopupMenu: TPopupMenu;
OptionsMenuItem: TMenuItem;
OpenFilePopUpMenu: TPopupMenu;
SetBuildModePopupMenu: TPopupMenu;
NewUnitFormPopupMenu: TPopupMenu;
NewUFSetDefaultMenuItem: TMenuItem;
//splitter between the Coolbar and MainMenu
MainSplitter: TSplitter;
ComponentPageControl: TPageControl; // component palette
//GlobalMouseSpeedButton: TSpeedButton; <- what is this
MainSplitter: TSplitter; // splitter between the Coolbar and MainMenu
// MainMenu
mnuMainMenu: TMainMenu;
//mnuMain: TIDEMenuSection;
@ -361,30 +373,11 @@ type
itmHelpAboutLazarus: TIDEMenuCommand;
//itmHelpTools: TIDEMenuSection;
// component palette
ComponentPageControl: TPageControl;
GlobalMouseSpeedButton: TSpeedButton;
procedure MainIDEBarDropFiles(Sender: TObject;
const FileNames: array of String);
constructor Create(TheOwner: TComponent); override;
procedure MainIDEBarDropFiles(Sender: TObject; const FileNames: array of String);
procedure CoolBarOnChange(Sender: TObject);
procedure MainSplitterMoved(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 SetupComponentPalette(TheOwner: TComponent);
procedure HideIDE;
@ -405,9 +398,6 @@ var
implementation
uses
LCLIntf, LCLType, Math, IDEWindowIntf;
{ TMainIDEBar }
procedure TMainIDEBar.MainIDEBarDropFiles(Sender: TObject;