mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-13 15:59:38 +02:00
CodeExplorer now uses the MenuIntf
git-svn-id: trunk@7457 -
This commit is contained in:
parent
2d239b23cd
commit
7ef1a6df74
@ -1,20 +1,21 @@
|
||||
object CodeExplorerView: TCodeExplorerView
|
||||
ActiveControl = RefreshButton
|
||||
Caption = 'CodeExplorerView'
|
||||
ClientHeight = 505
|
||||
ClientWidth = 206
|
||||
KeyPreview = True
|
||||
OnClose = CodeExplorerViewCLOSE
|
||||
OnCreate = CodeExplorerViewCREATE
|
||||
OnDestroy = CodeExplorerViewDestroy
|
||||
OnResize = CodeExplorerViewRESIZE
|
||||
PixelsPerInch = 90
|
||||
HorzScrollBar.Page = 207
|
||||
VertScrollBar.Page = 506
|
||||
PixelsPerInch = 112
|
||||
HorzScrollBar.Page = 205
|
||||
VertScrollBar.Page = 504
|
||||
Left = 378
|
||||
Height = 505
|
||||
Top = 175
|
||||
Width = 206
|
||||
object RefreshButton: TButton
|
||||
BorderSpacing.OnChange = nil
|
||||
Caption = 'Refresh'
|
||||
OnClick = RefreshButtonCLICK
|
||||
TabOrder = 0
|
||||
@ -22,6 +23,7 @@ object CodeExplorerView: TCodeExplorerView
|
||||
Width = 96
|
||||
end
|
||||
object OptionsButton: TButton
|
||||
BorderSpacing.OnChange = nil
|
||||
Caption = 'Options'
|
||||
OnClick = OptionsButtonClick
|
||||
TabOrder = 1
|
||||
@ -31,7 +33,8 @@ object CodeExplorerView: TCodeExplorerView
|
||||
end
|
||||
object CodeTreeview: TTreeView
|
||||
Align = alBottom
|
||||
DefaultItemHeight = 17
|
||||
BorderSpacing.OnChange = nil
|
||||
DefaultItemHeight = 16
|
||||
HideSelection = False
|
||||
Images = Imagelist1
|
||||
ParentCtl3D = False
|
||||
@ -53,13 +56,5 @@ object CodeExplorerView: TCodeExplorerView
|
||||
object TreePopupmenu: TPopupMenu
|
||||
left = 64
|
||||
top = 72
|
||||
object JumpToMenuitem: TMenuItem
|
||||
Caption = 'Jump to source'
|
||||
OnClick = JumpToMenuitemCLICK
|
||||
end
|
||||
object RefreshMenuitem: TMenuItem
|
||||
Caption = 'Refresh'
|
||||
OnClick = RefreshMenuitemCLICK
|
||||
end
|
||||
end
|
||||
end
|
||||
|
@ -1,26 +1,25 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TCodeExplorerView','FORMDATA',[
|
||||
'TPF0'#17'TCodeExplorerView'#16'CodeExplorerView'#13'ActiveControl'#7#13'Refr'
|
||||
+'eshButton'#7'Caption'#6#16'CodeExplorerView'#12'ClientHeight'#3#249#1#11'Cl'
|
||||
+'ientWidth'#3#206#0#10'KeyPreview'#9#7'OnClose'#7#21'CodeExplorerViewCLOSE'#8
|
||||
+'OnCreate'#7#22'CodeExplorerViewCREATE'#8'OnResize'#7#22'CodeExplorerViewRES'
|
||||
+'IZE'#13'PixelsPerInch'#2'Z'#18'HorzScrollBar.Page'#3#207#0#18'VertScrollBar'
|
||||
+'.Page'#3#250#1#4'Left'#3'z'#1#6'Height'#3#249#1#3'Top'#3#175#0#5'Width'#3
|
||||
+#206#0#0#7'TButton'#13'RefreshButton'#7'Caption'#6#7'Refresh'#7'OnClick'#7#18
|
||||
+'RefreshButtonCLICK'#8'TabOrder'#2#0#6'Height'#2#25#5'Width'#2'`'#0#0#7'TBut'
|
||||
+'ton'#13'OptionsButton'#7'Caption'#6#7'Options'#7'OnClick'#7#18'OptionsButto'
|
||||
+'nClick'#8'TabOrder'#2#1#4'Left'#2'n'#6'Height'#2#25#5'Width'#2'`'#0#0#9'TTr'
|
||||
+'eeView'#12'CodeTreeview'#5'Align'#7#8'alBottom'#17'DefaultItemHeight'#2#17
|
||||
+#13'HideSelection'#8#6'Images'#7#10'Imagelist1'#11'ParentCtl3D'#8#9'PopupMen'
|
||||
+'u'#7#13'TreePopupmenu'#16'RightClickSelect'#9#8'TabOrder'#2#2#10'OnDblClick'
|
||||
+#7#20'CodeTreeviewDBLCLICK'#10'OnDeletion'#7#20'CodeTreeviewDELETION'#7'OnKe'
|
||||
+'yUp'#7#17'CodeTreeviewKeyUp'#7'Options'#11#17'tvoAutoItemHeight'#21'tvoKeep'
|
||||
+'CollapsedNodes'#19'tvoRightClickSelect'#14'tvoShowButtons'#12'tvoShowLines'
|
||||
+#11'tvoShowRoot'#11'tvoToolTips'#0#6'Height'#3#224#1#3'Top'#2#25#5'Width'#3
|
||||
+#206#0#0#0#10'TImageList'#10'Imagelist1'#4'left'#2'@'#3'top'#2' '#0#0#10'TPo'
|
||||
+'pupMenu'#13'TreePopupmenu'#4'left'#2'@'#3'top'#2'H'#0#9'TMenuItem'#14'JumpT'
|
||||
+'oMenuitem'#7'Caption'#6#14'Jump to source'#7'OnClick'#7#19'JumpToMenuitemCL'
|
||||
+'ICK'#0#0#9'TMenuItem'#15'RefreshMenuitem'#7'Caption'#6#7'Refresh'#7'OnClick'
|
||||
+#7#20'RefreshMenuitemCLICK'#0#0#0#0
|
||||
'TPF0'#17'TCodeExplorerView'#16'CodeExplorerView'#7'Caption'#6#16'CodeExplore'
|
||||
+'rView'#12'ClientHeight'#3#249#1#11'ClientWidth'#3#206#0#10'KeyPreview'#9#7
|
||||
+'OnClose'#7#21'CodeExplorerViewCLOSE'#8'OnCreate'#7#22'CodeExplorerViewCREAT'
|
||||
+'E'#9'OnDestroy'#7#23'CodeExplorerViewDestroy'#8'OnResize'#7#22'CodeExplorer'
|
||||
+'ViewRESIZE'#13'PixelsPerInch'#2'p'#18'HorzScrollBar.Page'#3#205#0#18'VertSc'
|
||||
+'rollBar.Page'#3#248#1#4'Left'#3'z'#1#6'Height'#3#249#1#3'Top'#3#175#0#5'Wid'
|
||||
+'th'#3#206#0#0#7'TButton'#13'RefreshButton'#22'BorderSpacing.OnChange'#13#7
|
||||
+'Caption'#6#7'Refresh'#7'OnClick'#7#18'RefreshButtonCLICK'#8'TabOrder'#2#0#6
|
||||
+'Height'#2#25#5'Width'#2'`'#0#0#7'TButton'#13'OptionsButton'#22'BorderSpacin'
|
||||
+'g.OnChange'#13#7'Caption'#6#7'Options'#7'OnClick'#7#18'OptionsButtonClick'#8
|
||||
+'TabOrder'#2#1#4'Left'#2'n'#6'Height'#2#25#5'Width'#2'`'#0#0#9'TTreeView'#12
|
||||
+'CodeTreeview'#5'Align'#7#8'alBottom'#22'BorderSpacing.OnChange'#13#17'Defau'
|
||||
+'ltItemHeight'#2#16#13'HideSelection'#8#6'Images'#7#10'Imagelist1'#11'Parent'
|
||||
+'Ctl3D'#8#9'PopupMenu'#7#13'TreePopupmenu'#16'RightClickSelect'#9#8'TabOrder'
|
||||
+#2#2#10'OnDblClick'#7#20'CodeTreeviewDBLCLICK'#10'OnDeletion'#7#20'CodeTreev'
|
||||
+'iewDELETION'#7'OnKeyUp'#7#17'CodeTreeviewKeyUp'#7'Options'#11#17'tvoAutoIte'
|
||||
+'mHeight'#21'tvoKeepCollapsedNodes'#19'tvoRightClickSelect'#14'tvoShowButton'
|
||||
+'s'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#6'Height'#3#224#1#3'T'
|
||||
+'op'#2#25#5'Width'#3#206#0#0#0#10'TImageList'#10'Imagelist1'#4'left'#2'@'#3
|
||||
+'top'#2' '#0#0#10'TPopupMenu'#13'TreePopupmenu'#4'left'#2'@'#3'top'#2'H'#0#0
|
||||
+#0
|
||||
]);
|
||||
|
@ -32,10 +32,14 @@ unit CodeExplorer;
|
||||
interface
|
||||
|
||||
uses
|
||||
// FCL+LCL
|
||||
Classes, SysUtils, LCLProc, LCLType, LResources, Forms, Controls, Graphics,
|
||||
Dialogs, Buttons, ComCtrls, Menus,
|
||||
// CodeTools
|
||||
CodeToolManager, CodeAtom, CodeCache, CodeTree, PascalParserTool,
|
||||
IDECommands,
|
||||
// IDE Intf
|
||||
IDECommands, MenuIntf,
|
||||
// IDE
|
||||
LazarusIDEStrConsts, EnvironmentOpts, IDEOptionDefs, InputHistory, IDEProcs,
|
||||
CodeExplOpts;
|
||||
|
||||
@ -56,24 +60,24 @@ type
|
||||
{ TCodeExplorerView }
|
||||
|
||||
TCodeExplorerView = class(TForm)
|
||||
Imagelist1: TIMAGELIST;
|
||||
JumpToMenuitem: TMENUITEM;
|
||||
RefreshMenuitem: TMENUITEM;
|
||||
TreePopupmenu: TPOPUPMENU;
|
||||
RefreshButton: TBUTTON;
|
||||
OptionsButton: TBUTTON;
|
||||
CodeTreeview: TTREEVIEW;
|
||||
procedure CodeExplorerViewCLOSE(Sender: TObject; var CloseAction: TCloseAction);
|
||||
procedure CodeExplorerViewCREATE(Sender: TObject);
|
||||
procedure CodeExplorerViewRESIZE(Sender: TObject);
|
||||
procedure CodeTreeviewDBLCLICK(Sender: TObject);
|
||||
procedure CodeTreeviewDELETION(Sender: TObject; Node: TTreeNode);
|
||||
Imagelist1: TImageList;
|
||||
TreePopupmenu: TPopupMenu;
|
||||
RefreshButton: TButton;
|
||||
OptionsButton: TButton;
|
||||
CodeTreeview: TTreeView;
|
||||
procedure CodeExplorerViewClose(Sender: TObject;
|
||||
var CloseAction: TCloseAction);
|
||||
procedure CodeExplorerViewCreate(Sender: TObject);
|
||||
procedure CodeExplorerViewDestroy(Sender: TObject);
|
||||
procedure CodeExplorerViewResize(Sender: TObject);
|
||||
procedure CodeTreeviewDblClick(Sender: TObject);
|
||||
procedure CodeTreeviewDeletion(Sender: TObject; Node: TTreeNode);
|
||||
procedure CodeTreeviewKeyUp(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
procedure JumpToMenuitemCLICK(Sender: TObject);
|
||||
procedure JumpToMenuitemClick(Sender: TObject);
|
||||
procedure OptionsButtonClick(Sender: TObject);
|
||||
procedure RefreshButtonCLICK(Sender: TObject);
|
||||
procedure RefreshMenuitemCLICK(Sender: TObject);
|
||||
procedure RefreshButtonClick(Sender: TObject);
|
||||
procedure RefreshMenuitemClick(Sender: TObject);
|
||||
private
|
||||
FMainFilename: string;
|
||||
FFlags: TCodeExplorerViewFlags;
|
||||
@ -116,13 +120,20 @@ type
|
||||
property MainFilename: string read FMainFilename;
|
||||
end;
|
||||
|
||||
const
|
||||
CodeExplorerMenuRootName = 'Code Explorer';
|
||||
|
||||
var
|
||||
CodeExplorerView: TCodeExplorerView;
|
||||
|
||||
CEJumpToIDEMenuCommand: TIDEMenuCommand;
|
||||
CERefreshIDEMenuCommand: TIDEMenuCommand;
|
||||
|
||||
procedure InitCodeExplorerOptions;
|
||||
procedure LoadCodeExplorerOptions;
|
||||
procedure SaveCodeExplorerOptions;
|
||||
|
||||
procedure RegisterStandardCodeExplorerMenuItems;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
@ -153,6 +164,18 @@ begin
|
||||
CodeExplorerOptions.Save;
|
||||
end;
|
||||
|
||||
procedure RegisterStandardCodeExplorerMenuItems;
|
||||
var
|
||||
Path: String;
|
||||
begin
|
||||
CodeExplorerMenuRoot:=RegisterIDEMenuRoot(CodeExplorerMenuRootName);
|
||||
Path:=CodeExplorerMenuRoot.Name;
|
||||
CEJumpToIDEMenuCommand:=RegisterIDEMenuCommand(Path, 'Jump to', lisMenuJumpTo
|
||||
);
|
||||
CERefreshIDEMenuCommand:=RegisterIDEMenuCommand(Path, 'Refresh',
|
||||
dlgUnitDepRefresh);
|
||||
end;
|
||||
|
||||
{ TViewNodeData }
|
||||
|
||||
constructor TViewNodeData.Create(CodeNode: TCodeTreeNode);
|
||||
@ -220,6 +243,20 @@ begin
|
||||
AddResImg(Imagelist1,'ce_procedure');
|
||||
ImgIDProperty:=Imagelist1.Count;
|
||||
AddResImg(Imagelist1,'ce_property');
|
||||
|
||||
// assign the root TMenuItem to the registered menu root.
|
||||
// This will automatically create all registered items
|
||||
CodeExplorerMenuRoot.MenuItem:=TreePopupMenu.Items;
|
||||
//CodeExplorerMenuRoot.Items.WriteDebugReport(' ');
|
||||
|
||||
CEJumpToIDEMenuCommand.OnClickMethod:=@JumpToMenuitemCLICK;
|
||||
CERefreshIDEMenuCommand.OnClickMethod:=@RefreshMenuitemCLICK;
|
||||
end;
|
||||
|
||||
procedure TCodeExplorerView.CodeExplorerViewDestroy(Sender: TObject);
|
||||
begin
|
||||
debugln('TCodeExplorerView.CodeExplorerViewDestroy');
|
||||
CodeExplorerMenuRoot.MenuItem:=nil;
|
||||
end;
|
||||
|
||||
procedure TCodeExplorerView.CodeExplorerViewRESIZE(Sender: TObject);
|
||||
|
295
ide/lazarus.pp
295
ide/lazarus.pp
@ -97,298 +97,3 @@ begin
|
||||
MainIDE:=nil;
|
||||
end.
|
||||
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.64 2004/12/12 03:54:08 mattias
|
||||
implemented open project after open standard windows
|
||||
|
||||
Revision 1.63 2004/11/10 15:25:32 mattias
|
||||
updated memcheck.pas from heaptrc.pp
|
||||
|
||||
Revision 1.62 2004/09/17 20:04:34 vincents
|
||||
replaced writeln by DebugLn
|
||||
|
||||
Revision 1.61 2004/09/04 23:50:17 marc
|
||||
* removed compileroptionsdlg from uses claus to get rid of compiler warning
|
||||
|
||||
Revision 1.60 2004/09/04 21:54:08 marc
|
||||
+ Added option to skip compiler step on compile, build or run
|
||||
* Fixed adding of runtime watches
|
||||
* Fixed runnerror reporting (correct number and location is shown)
|
||||
|
||||
Revision 1.59 2004/08/08 18:02:44 mattias
|
||||
splitted TMainIDE (main control instance) and TMainIDEBar (IDE menu and palette), added mainbase.pas and mainintf.pas
|
||||
|
||||
Revision 1.58 2004/04/24 21:00:41 mattias
|
||||
clean up
|
||||
|
||||
Revision 1.57 2004/04/24 20:57:18 mattias
|
||||
fixed gtk2 for drawing list item from Ladislav
|
||||
|
||||
Revision 1.56 2004/04/09 10:32:02 mattias
|
||||
FindInFilesDialog size is now stored
|
||||
|
||||
Revision 1.55 2004/04/08 18:27:51 mattias
|
||||
fixed memleak in TDefaultComponentEditor.Edit
|
||||
|
||||
Revision 1.54 2004/02/27 00:42:41 marc
|
||||
* Interface CreateComponent splitup
|
||||
* Implemented CreateButtonHandle on GTK interface
|
||||
on win32 interface it still needs to be done
|
||||
* Changed ApiWizz to support multilines and more interfaces
|
||||
|
||||
Revision 1.53 2004/01/04 03:53:35 marc
|
||||
* Changed TComponentSelectionList to TPersistentSelectionList
|
||||
+ Added SSHdebugger property
|
||||
|
||||
Revision 1.52 2003/08/18 14:40:29 mattias
|
||||
deactivated memcheck
|
||||
|
||||
Revision 1.51 2003/08/18 13:21:23 mattias
|
||||
renamed lazqueue to lazlinkedlist, patch from Jeroen
|
||||
|
||||
Revision 1.50 2003/08/08 07:52:33 mattias
|
||||
deactivated memcheck
|
||||
|
||||
Revision 1.49 2003/08/08 07:49:56 mattias
|
||||
fixed mem leaks in debugger
|
||||
|
||||
Revision 1.48 2003/07/24 08:52:46 marc
|
||||
+ Added SSHGDB debugger
|
||||
|
||||
Revision 1.47 2003/07/24 08:47:36 marc
|
||||
+ Added SSHGDB debugger
|
||||
|
||||
Revision 1.46 2003/06/23 09:42:09 mattias
|
||||
fixes for debugging lazarus
|
||||
|
||||
Revision 1.45 2003/05/30 12:41:46 mattias
|
||||
added checks and texts for mixing gtk1 and gtk2
|
||||
|
||||
Revision 1.44 2003/05/30 08:10:51 mattias
|
||||
added try except to Application.Run, message on changing debugger items during compile
|
||||
|
||||
Revision 1.43 2003/04/26 07:34:54 mattias
|
||||
implemented custom package initialization
|
||||
|
||||
Revision 1.42 2003/04/21 16:21:28 mattias
|
||||
implemented default package for custom IDE components
|
||||
|
||||
Revision 1.41 2003/04/18 15:32:51 mattias
|
||||
implemented file reference list
|
||||
|
||||
Revision 1.40 2003/04/08 09:04:07 mattias
|
||||
fixed registration for fpc 1.0.x
|
||||
|
||||
Revision 1.39 2002/10/26 15:15:42 lazarus
|
||||
MG: broke LCL<->interface circles
|
||||
|
||||
Revision 1.38 2002/10/10 20:34:32 lazarus
|
||||
MG: fixed freeing Glyph in TBitBtn.SetKind
|
||||
|
||||
Revision 1.37 2002/09/13 08:11:45 lazarus
|
||||
MG: fixed memcheck output
|
||||
|
||||
Revision 1.36 2002/07/30 06:24:04 lazarus
|
||||
MG: added a faster version of TXMLConfig
|
||||
|
||||
Revision 1.35 2002/06/09 07:08:41 lazarus
|
||||
MG: fixed window jumping
|
||||
|
||||
Revision 1.34 2002/05/27 17:58:40 lazarus
|
||||
MG: added command line help
|
||||
|
||||
Revision 1.33 2002/05/15 05:58:16 lazarus
|
||||
MG: added TMainMenu.Parent
|
||||
|
||||
Revision 1.32 2002/05/10 06:57:42 lazarus
|
||||
MG: updated licenses
|
||||
|
||||
Revision 1.31 2002/05/08 14:45:55 lazarus
|
||||
|
||||
New About Dialog Window added; Splash screen modified to stay visible
|
||||
longer. MAH
|
||||
|
||||
Revision 1.30 2002/03/30 07:29:15 lazarus
|
||||
MG: fixed splash screen, fixed parser of resource strings
|
||||
|
||||
Revision 1.29 2002/03/27 09:18:11 lazarus
|
||||
MG: splitted main.pp: TMainIDE has now an ancestor TMainIDEBar
|
||||
|
||||
Revision 1.28 2002/02/25 16:48:10 lazarus
|
||||
MG: new IDE window layout system
|
||||
|
||||
Revision 1.27 2002/01/29 18:55:27 lazarus
|
||||
Keith: Fixed duplicate compiler options on Win32
|
||||
|
||||
Revision 1.26 2001/12/11 16:51:36 lazarus
|
||||
Modified the Watches dialog
|
||||
Shane
|
||||
|
||||
Revision 1.25 2001/12/07 20:12:13 lazarus
|
||||
Added a watch dialog.
|
||||
Shane
|
||||
|
||||
Revision 1.24 2001/11/06 16:42:23 lazarus
|
||||
MG: added facade for find in files
|
||||
|
||||
Revision 1.23 2001/10/26 20:36:48 lazarus
|
||||
Added an OnSelectionChanged event in Main.pp fired by MSgView dialog. This fires when the ListBox gets clicked on.
|
||||
This allows the editor to highlight different lines when you click on different error messages.
|
||||
Shane
|
||||
|
||||
Revision 1.22 2001/10/15 17:41:30 lazarus
|
||||
MG: fixed splashform showing
|
||||
|
||||
Revision 1.20 2001/08/02 12:58:35 lazarus
|
||||
MG: win32 interface patch from Keith Bowes
|
||||
|
||||
Revision 1.19 2001/06/04 07:50:42 lazarus
|
||||
MG: close application object in gtkint.pp
|
||||
|
||||
Revision 1.18 2001/03/19 14:00:46 lazarus
|
||||
MG: fixed many unreleased DC and GDIObj bugs
|
||||
|
||||
Revision 1.17 2001/03/12 09:34:52 lazarus
|
||||
MG: added transfermacros, renamed dlgmessage.pp to msgview.pp
|
||||
|
||||
Revision 1.15 2001/02/22 17:04:57 lazarus
|
||||
added environment options + killed ide unit circles
|
||||
|
||||
Revision 1.14 2001/02/21 22:55:24 lazarus
|
||||
small bugfixes + added TOIOptions
|
||||
|
||||
Revision 1.13 2001/02/20 16:53:24 lazarus
|
||||
Changes for wordcompletion and many other things from Mattias.
|
||||
Shane
|
||||
|
||||
Revision 1.12 2001/01/31 13:03:33 lazarus
|
||||
Commitng source with new editor.
|
||||
Shane
|
||||
|
||||
Revision 1.11 2001/01/16 23:30:45 lazarus
|
||||
trying to determine what's crashing LAzarus on load.
|
||||
Shane
|
||||
|
||||
Revision 1.9 2001/01/15 18:25:51 lazarus
|
||||
Fixed a stupid error I caused by using a variable as an index in main.pp and this variable sometimes caused an exception because the index was out of range.
|
||||
Shane
|
||||
|
||||
Revision 1.8 2001/01/13 06:11:06 lazarus
|
||||
Minor fixes
|
||||
Shane
|
||||
|
||||
Revision 1.7 2001/01/08 23:48:33 lazarus
|
||||
MWE:
|
||||
~ Changed makefiles
|
||||
~ Removed testform from lararus and changed it into program
|
||||
* some formatting
|
||||
|
||||
Revision 1.6 2001/01/04 20:33:53 lazarus
|
||||
Moved lresources.
|
||||
Moved CreateLFM to Main.pp
|
||||
Changed Form1 and TFOrm1 to MainIDE and TMainIDE
|
||||
Shane
|
||||
|
||||
Revision 1.5 2000/12/19 18:43:12 lazarus
|
||||
Removed IDEEDITOR. This causes the PROJECT class to not function.
|
||||
Saving projects no longer works.
|
||||
|
||||
I added TSourceNotebook and TSourceEditor. They do all the work for saving/closing/opening units. Somethings work but they are in early development.
|
||||
Shane
|
||||
|
||||
Revision 1.4 2000/09/10 23:08:29 lazarus
|
||||
MWE:
|
||||
+ Added CreateCompatibeleBitamp function
|
||||
+ Updated TWinControl.WMPaint
|
||||
+ Added some checks to avoid gtk/gdk errors
|
||||
- Removed no fixed warning from GetDC
|
||||
- Removed some output
|
||||
|
||||
Revision 1.3 2000/08/09 18:32:10 lazarus
|
||||
Added more code for the find function.
|
||||
Shane
|
||||
|
||||
Revision 1.2 2000/08/08 18:52:14 lazarus
|
||||
Started a FIND dialog box.
|
||||
Shane
|
||||
|
||||
Revision 1.1 2000/07/13 10:27:47 michael
|
||||
+ Initial import
|
||||
|
||||
Revision 1.15 2000/03/19 23:01:41 lazarus
|
||||
MWE:
|
||||
= Changed splashscreen loading/colordepth
|
||||
= Chenged Save/RestoreDC to platform dependent, since they are
|
||||
relative to a DC
|
||||
|
||||
Revision 1.14 2000/03/14 05:53:18 lazarus
|
||||
Changed the name of the compiler options form. CAW
|
||||
|
||||
Revision 1.13 2000/02/21 17:38:04 lazarus
|
||||
Added modalresult to TCustomForm
|
||||
Added a View Units dialog box
|
||||
Added a View Forms dialog box
|
||||
Added a New Unit menu selection
|
||||
Added a New Form menu selection
|
||||
Shane
|
||||
|
||||
Revision 1.12 1999/12/08 00:56:06 lazarus
|
||||
MWE:
|
||||
Fixed menus. Events aren't enabled yet (dumps --> invalid typecast ??)
|
||||
|
||||
Revision 1.11 1999/11/24 18:54:12 lazarus
|
||||
Added a unit called ideeditor.pp
|
||||
Shane
|
||||
|
||||
Revision 1.10 1999/11/17 01:12:52 lazarus
|
||||
MWE:
|
||||
Added a TestForm and moved mwEdit to that form. The form popsup after
|
||||
pressing the testform buttomn
|
||||
|
||||
Revision 1.9 1999/11/01 01:28:28 lazarus
|
||||
MWE: Implemented HandleNeeded/CreateHandle/CreateWND
|
||||
Now controls are created on demand. A call to CreateComponent shouldn't
|
||||
be needed. It is now part of CreateWnd
|
||||
|
||||
Revision 1.8 1999/09/30 21:59:00 lazarus
|
||||
MWE: Fixed TNoteBook problems
|
||||
Modifications: A few
|
||||
- Removed some debug messages
|
||||
+ Added some others
|
||||
* changed fixed widged of TPage. Code is still broken.
|
||||
+ TWinControls are also added to the Controls collection
|
||||
+ Added TControl.Controls[] property
|
||||
|
||||
Revision 1.7 1999/07/10 21:20:21 lazarus
|
||||
|
||||
cleaned up the forms to make them more readable
|
||||
|
||||
Revision 1.6 1999/07/09 13:54:41 lazarus
|
||||
Changed to use Dispatch instead of DispatchStr for messaging.
|
||||
You pass it LM_Message which is an integer value and therefore you
|
||||
can now use Dispatch to send the integer value back to the class.
|
||||
There is currently a problem with having multiple "message" procedures
|
||||
in one class so I commented them out for now.
|
||||
|
||||
Shane
|
||||
|
||||
Revision 1.5 1999/05/24 21:20:19 lazarus
|
||||
*** empty log message ***
|
||||
|
||||
Revision 1.4 1999/05/15 21:15:05 lazarus
|
||||
*** empty log message ***
|
||||
|
||||
Revision 1.3 1999/05/14 18:44:13 lazarus
|
||||
*** empty log message ***
|
||||
|
||||
Revision 1.2 1999/04/18 05:42:10 lazarus
|
||||
*** empty log message ***
|
||||
|
||||
Revision 1.1 1999/04/14 07:31:44 michael
|
||||
+ Initial implementation
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
@ -188,6 +188,7 @@ resourcestring
|
||||
lisMenuViewObjectInspector = 'Object Inspector';
|
||||
lisMenuViewSourceEditor = 'Source Editor';
|
||||
lisMenuViewCodeExplorer = 'Code Explorer';
|
||||
lisMenuJumpTo = 'Jump to';
|
||||
lisMenuViewUnits = 'Units...';
|
||||
lisMenuViewForms = 'Forms...';
|
||||
lisMenuViewUnitDependencies = 'View Unit Dependencies';
|
||||
|
2584
ide/main.pp
2584
ide/main.pp
File diff suppressed because it is too large
Load Diff
@ -208,7 +208,8 @@ type
|
||||
var
|
||||
IDEMenuRoots: TIDEMenuRoots = nil;// created by the IDE
|
||||
MessagesMenuRoot: TIDEMenuSection;
|
||||
|
||||
CodeExplorerMenuRoot: TIDEMenuSection;
|
||||
|
||||
function RegisterIDEMenuRoot(const Name: string; MenuItem: TMenuItem = nil
|
||||
): TIDEMenuSection;
|
||||
function RegisterIDEMenuSection(const Path, Name: string): TIDEMenuSection;
|
||||
@ -780,7 +781,10 @@ procedure TIDEMenuRoots.Clear;
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
for i:=FItems.Count-1 downto 0 do TObject(FItems[i]).Free;
|
||||
for i:=FItems.Count-1 downto 0 do begin
|
||||
Items[i].ClearMenuItems;
|
||||
Items[i].Free;
|
||||
end;
|
||||
FItems.Clear;
|
||||
end;
|
||||
|
||||
|
@ -1223,491 +1223,3 @@ end;
|
||||
|
||||
// included by menus.pp
|
||||
|
||||
|
||||
{ =============================================================================
|
||||
|
||||
$Log$
|
||||
Revision 1.69 2005/07/01 12:07:49 mattias
|
||||
moved some menu intf methods to the TXXXWSMenuItem class from Martin Smat
|
||||
|
||||
Revision 1.68 2005/06/08 08:02:09 mattias
|
||||
added message parts to Help interface
|
||||
|
||||
Revision 1.67 2005/05/21 15:58:44 mattias
|
||||
implemented right justification for menuitems for winapi intf from Martin Smat
|
||||
|
||||
Revision 1.66 2005/05/06 07:52:58 micha
|
||||
fix spelling
|
||||
|
||||
Revision 1.65 2004/12/10 21:36:27 mattias
|
||||
implemented TMenuItem.SetVisible
|
||||
|
||||
Revision 1.64 2004/09/24 21:34:14 micha
|
||||
convert LM_CREATE message to interface methods
|
||||
remove SendMsgToInterface, CNSendMessage and related methods
|
||||
remove TWidgetSet.IntSendMessage3; all LCL to interface messages have been converted
|
||||
|
||||
Revision 1.63 2004/09/18 12:43:15 micha
|
||||
convert LM_DESTROY message to interface methods
|
||||
|
||||
Revision 1.62 2004/09/17 10:56:25 micha
|
||||
convert LM_SHORTCUT message to interface methods
|
||||
|
||||
Revision 1.61 2004/09/10 18:58:21 micha
|
||||
convert LM_ATTACHMENU to interface method
|
||||
|
||||
Revision 1.60 2004/09/10 09:43:13 micha
|
||||
convert LM_SETLABEL message to interface methods
|
||||
|
||||
Revision 1.59 2004/08/13 10:20:19 mattias
|
||||
fixed codetools ConstSet, implemented notifying TApplication whenmenu popups
|
||||
|
||||
Revision 1.58 2004/06/24 17:45:33 mattias
|
||||
fixed TMenuItem.GetIconSize
|
||||
|
||||
Revision 1.57 2004/06/17 21:24:19 mattias
|
||||
implemented painting menuitem icons from ImageList
|
||||
|
||||
Revision 1.56 2004/06/17 20:52:19 mattias
|
||||
fixed setting ImageIndex when TMenuItem.ActionChange
|
||||
|
||||
Revision 1.55 2004/05/11 12:16:47 mattias
|
||||
replaced writeln by debugln
|
||||
|
||||
Revision 1.54 2004/04/10 17:58:57 mattias
|
||||
implemented mainunit hints for include files
|
||||
|
||||
Revision 1.53 2004/02/23 08:19:04 micha
|
||||
revert intf split
|
||||
|
||||
Revision 1.51 2004/02/08 11:31:32 mattias
|
||||
TMenuItem.Bitmap is now auto created on read. Added TMenuItem.HasBitmap
|
||||
|
||||
Revision 1.50 2004/02/05 09:45:33 mattias
|
||||
implemented Actions for TSpeedButton, TMenuItem, TCheckBox
|
||||
|
||||
Revision 1.49 2004/02/04 17:06:26 mattias
|
||||
fixed updating menu designer caption when editing in OI
|
||||
|
||||
Revision 1.48 2004/02/04 13:55:08 mattias
|
||||
implemented generic function to hide TComponents without page in designer
|
||||
|
||||
Revision 1.47 2004/02/04 13:40:19 mattias
|
||||
ShortCutToText now deletes any modifier
|
||||
|
||||
Revision 1.46 2004/02/02 18:09:41 mattias
|
||||
added TMenuItem.Action
|
||||
|
||||
Revision 1.45 2004/01/11 16:38:29 marc
|
||||
* renamed (Check|Enable)MenuItem to MenuItemSet(Check|Enable)
|
||||
+ Started with accelerator nameing routines
|
||||
* precheckin for createwidget splitup
|
||||
|
||||
Revision 1.44 2004/01/10 18:09:38 mattias
|
||||
implemented TMenuItem.Clear
|
||||
|
||||
Revision 1.43 2003/11/26 00:23:47 marc
|
||||
* implemented new LCL(check|enable)Menuitem functions
|
||||
* introduced the lclintf inc files to win32
|
||||
|
||||
Revision 1.42 2003/11/25 14:21:28 micha
|
||||
new api lclenable,checkmenuitem according to list
|
||||
|
||||
Revision 1.41 2003/11/24 11:03:07 marc
|
||||
* Splitted winapi*.inc into a winapi and a lcl interface communication part
|
||||
|
||||
Revision 1.40 2003/11/16 01:56:15 mattias
|
||||
changed TMenuItem.Graphic to TMenuItem.Bitmap
|
||||
|
||||
Revision 1.39 2003/10/22 17:50:16 mattias
|
||||
updated rpm scripts
|
||||
|
||||
Revision 1.38 2003/07/21 23:43:32 marc
|
||||
* Fixed radiogroup menuitems
|
||||
|
||||
Revision 1.37 2003/07/01 09:29:51 mattias
|
||||
attaching menuitems topdown
|
||||
|
||||
Revision 1.36 2003/06/26 17:00:00 mattias
|
||||
fixed result on searching proc in interface
|
||||
|
||||
Revision 1.35 2003/06/24 15:57:55 mattias
|
||||
applied win32 menu patch from Micha Nelissen
|
||||
|
||||
Revision 1.34 2003/05/18 10:42:58 mattias
|
||||
implemented deleting empty submenus
|
||||
|
||||
Revision 1.33 2003/04/19 18:37:58 mattias
|
||||
implemented adding OnClick, when clicking on designer menuitem
|
||||
|
||||
Revision 1.32 2003/03/16 09:41:05 mattias
|
||||
fixed checking menuitems
|
||||
|
||||
Revision 1.31 2003/03/11 07:46:43 mattias
|
||||
more localization for gtk- and win32-interface and lcl
|
||||
|
||||
Revision 1.30 2003/02/23 10:42:06 mattias
|
||||
implemented changing TMenuItem.GroupIndex at runtime
|
||||
|
||||
Revision 1.29 2002/10/26 15:15:48 lazarus
|
||||
MG: broke LCL<->interface circles
|
||||
|
||||
Revision 1.28 2002/10/22 18:54:56 lazarus
|
||||
MG: fixed menu streaming
|
||||
|
||||
Revision 1.27 2002/10/08 22:32:27 lazarus
|
||||
MG: fixed cool little bug (menu double attaching bug)
|
||||
|
||||
Revision 1.26 2002/08/22 13:45:58 lazarus
|
||||
MG: fixed non AutoCheck menuitems and editor bookmark popupmenu
|
||||
|
||||
Revision 1.25 2002/08/15 13:37:57 lazarus
|
||||
MG: started menuitem icon, checked, radio and groupindex
|
||||
|
||||
Revision 1.24 2002/08/12 15:32:29 lazarus
|
||||
MG: started enhanced menuitem
|
||||
|
||||
Revision 1.23 2002/08/08 17:26:37 lazarus
|
||||
MG: added property TMenuItems.RightJustify
|
||||
|
||||
Revision 1.22 2002/08/08 10:33:49 lazarus
|
||||
MG: main bar speedbar open arrow now shows recent projects and files
|
||||
|
||||
Revision 1.21 2002/08/08 09:38:36 lazarus
|
||||
MG: recent file menus are now updated instantly
|
||||
|
||||
Revision 1.20 2002/08/08 09:07:06 lazarus
|
||||
MG: TMenuItem can now be created/destroyed/moved at any time
|
||||
|
||||
Revision 1.19 2002/08/07 09:55:30 lazarus
|
||||
MG: codecompletion now checks for filebreaks, savefile now checks for filedate
|
||||
|
||||
Revision 1.18 2002/08/06 20:05:19 lazarus
|
||||
MG: added actnlist.pp
|
||||
|
||||
Revision 1.17 2002/08/06 19:57:40 lazarus
|
||||
MG: added actnlist.pp
|
||||
|
||||
Revision 1.16 2002/08/05 10:45:03 lazarus
|
||||
MG: TMenuItem.Caption can now be set after creation
|
||||
|
||||
Revision 1.15 2002/08/05 08:56:56 lazarus
|
||||
MG: TMenuItems can now be enabled and disabled
|
||||
|
||||
Revision 1.14 2002/05/30 21:33:10 lazarus
|
||||
+ added / fixed streaming functions for TMenu & TMenuItem, stoppok
|
||||
|
||||
Revision 1.13 2002/05/19 08:27:43 lazarus
|
||||
+ added helper functions to enabled streaming of TMenu /TMenuItem
|
||||
stoppok
|
||||
|
||||
Revision 1.12 2002/05/10 06:05:53 lazarus
|
||||
MG: changed license to LGPL
|
||||
|
||||
Revision 1.11 2002/05/09 12:41:28 lazarus
|
||||
MG: further clientrect bugfixes
|
||||
|
||||
Revision 1.10 2002/03/25 17:59:20 lazarus
|
||||
GTK Cleanup
|
||||
Shane
|
||||
|
||||
Revision 1.9 2002/02/18 22:46:11 lazarus
|
||||
Implented TMenuItem.ShortCut (not much tested).
|
||||
|
||||
Revision 1.8 2001/03/19 14:40:49 lazarus
|
||||
MG: fixed many unreleased DC and GDIObj bugs
|
||||
|
||||
Revision 1.6 2001/02/21 22:55:26 lazarus
|
||||
small bugfixes + added TOIOptions
|
||||
|
||||
Revision 1.5 2001/01/04 16:12:54 lazarus
|
||||
Removed some writelns and changed the property editor for TStrings a bit.
|
||||
Shane
|
||||
|
||||
Revision 1.4 2000/12/22 19:55:38 lazarus
|
||||
Added the Popupmenu code to the LCL.
|
||||
Now you can right click on the editor and a PopupMenu appears.
|
||||
Shane
|
||||
|
||||
Revision 1.3 2000/07/30 21:48:32 lazarus
|
||||
MWE:
|
||||
= Moved ObjectToGTKObject to GTKProc unit
|
||||
* Fixed array checking in LoadPixmap
|
||||
= Moved LM_SETENABLED to API func EnableWindow and EnableMenuItem
|
||||
~ Some cleanup
|
||||
|
||||
Revision 1.2 2000/07/23 19:01:33 lazarus
|
||||
menus will be destroyed now, stoppok
|
||||
|
||||
Revision 1.1 2000/07/13 10:28:26 michael
|
||||
+ Initial import
|
||||
|
||||
Revision 1.2 2000/04/17 19:50:06 lazarus
|
||||
Added some compiler stuff built into Lazarus.
|
||||
This depends on the path to your compiler being correct in the compileroptions
|
||||
dialog.
|
||||
Shane
|
||||
|
||||
Revision 1.1 2000/04/02 20:49:56 lazarus
|
||||
MWE:
|
||||
Moved lazarus/lcl/*.inc files to lazarus/lcl/include
|
||||
|
||||
Revision 1.9 1999/12/14 22:21:11 lazarus
|
||||
*** empty log message ***
|
||||
|
||||
Revision 1.8 1999/12/10 00:47:01 lazarus
|
||||
MWE:
|
||||
Fixed some samples
|
||||
Fixed Dialog parent is no longer needed
|
||||
Fixed (Win)Control Destruction
|
||||
Fixed MenuClick
|
||||
|
||||
|
||||
$Log$
|
||||
Revision 1.69 2005/07/01 12:07:49 mattias
|
||||
moved some menu intf methods to the TXXXWSMenuItem class from Martin Smat
|
||||
|
||||
Revision 1.68 2005/06/08 08:02:09 mattias
|
||||
added message parts to Help interface
|
||||
|
||||
Revision 1.67 2005/05/21 15:58:44 mattias
|
||||
implemented right justification for menuitems for winapi intf from Martin Smat
|
||||
|
||||
Revision 1.66 2005/05/06 07:52:58 micha
|
||||
fix spelling
|
||||
|
||||
Revision 1.65 2004/12/10 21:36:27 mattias
|
||||
implemented TMenuItem.SetVisible
|
||||
|
||||
Revision 1.64 2004/09/24 21:34:14 micha
|
||||
convert LM_CREATE message to interface methods
|
||||
remove SendMsgToInterface, CNSendMessage and related methods
|
||||
remove TWidgetSet.IntSendMessage3; all LCL to interface messages have been converted
|
||||
|
||||
Revision 1.63 2004/09/18 12:43:15 micha
|
||||
convert LM_DESTROY message to interface methods
|
||||
|
||||
Revision 1.62 2004/09/17 10:56:25 micha
|
||||
convert LM_SHORTCUT message to interface methods
|
||||
|
||||
Revision 1.61 2004/09/10 18:58:21 micha
|
||||
convert LM_ATTACHMENU to interface method
|
||||
|
||||
Revision 1.60 2004/09/10 09:43:13 micha
|
||||
convert LM_SETLABEL message to interface methods
|
||||
|
||||
Revision 1.59 2004/08/13 10:20:19 mattias
|
||||
fixed codetools ConstSet, implemented notifying TApplication whenmenu popups
|
||||
|
||||
Revision 1.58 2004/06/24 17:45:33 mattias
|
||||
fixed TMenuItem.GetIconSize
|
||||
|
||||
Revision 1.57 2004/06/17 21:24:19 mattias
|
||||
implemented painting menuitem icons from ImageList
|
||||
|
||||
Revision 1.56 2004/06/17 20:52:19 mattias
|
||||
fixed setting ImageIndex when TMenuItem.ActionChange
|
||||
|
||||
Revision 1.55 2004/05/11 12:16:47 mattias
|
||||
replaced writeln by debugln
|
||||
|
||||
Revision 1.54 2004/04/10 17:58:57 mattias
|
||||
implemented mainunit hints for include files
|
||||
|
||||
Revision 1.53 2004/02/23 08:19:04 micha
|
||||
revert intf split
|
||||
|
||||
Revision 1.51 2004/02/08 11:31:32 mattias
|
||||
TMenuItem.Bitmap is now auto created on read. Added TMenuItem.HasBitmap
|
||||
|
||||
Revision 1.50 2004/02/05 09:45:33 mattias
|
||||
implemented Actions for TSpeedButton, TMenuItem, TCheckBox
|
||||
|
||||
Revision 1.49 2004/02/04 17:06:26 mattias
|
||||
fixed updating menu designer caption when editing in OI
|
||||
|
||||
Revision 1.48 2004/02/04 13:55:08 mattias
|
||||
implemented generic function to hide TComponents without page in designer
|
||||
|
||||
Revision 1.47 2004/02/04 13:40:19 mattias
|
||||
ShortCutToText now deletes any modifier
|
||||
|
||||
Revision 1.46 2004/02/02 18:09:41 mattias
|
||||
added TMenuItem.Action
|
||||
|
||||
Revision 1.45 2004/01/11 16:38:29 marc
|
||||
* renamed (Check|Enable)MenuItem to MenuItemSet(Check|Enable)
|
||||
+ Started with accelerator nameing routines
|
||||
* precheckin for createwidget splitup
|
||||
|
||||
Revision 1.44 2004/01/10 18:09:38 mattias
|
||||
implemented TMenuItem.Clear
|
||||
|
||||
Revision 1.43 2003/11/26 00:23:47 marc
|
||||
* implemented new LCL(check|enable)Menuitem functions
|
||||
* introduced the lclintf inc files to win32
|
||||
|
||||
Revision 1.42 2003/11/25 14:21:28 micha
|
||||
new api lclenable,checkmenuitem according to list
|
||||
|
||||
Revision 1.41 2003/11/24 11:03:07 marc
|
||||
* Splitted winapi*.inc into a winapi and a lcl interface communication part
|
||||
|
||||
Revision 1.40 2003/11/16 01:56:15 mattias
|
||||
changed TMenuItem.Graphic to TMenuItem.Bitmap
|
||||
|
||||
Revision 1.39 2003/10/22 17:50:16 mattias
|
||||
updated rpm scripts
|
||||
|
||||
Revision 1.38 2003/07/21 23:43:32 marc
|
||||
* Fixed radiogroup menuitems
|
||||
|
||||
Revision 1.37 2003/07/01 09:29:51 mattias
|
||||
attaching menuitems topdown
|
||||
|
||||
Revision 1.36 2003/06/26 17:00:00 mattias
|
||||
fixed result on searching proc in interface
|
||||
|
||||
Revision 1.35 2003/06/24 15:57:55 mattias
|
||||
applied win32 menu patch from Micha Nelissen
|
||||
|
||||
Revision 1.34 2003/05/18 10:42:58 mattias
|
||||
implemented deleting empty submenus
|
||||
|
||||
Revision 1.33 2003/04/19 18:37:58 mattias
|
||||
implemented adding OnClick, when clicking on designer menuitem
|
||||
|
||||
Revision 1.32 2003/03/16 09:41:05 mattias
|
||||
fixed checking menuitems
|
||||
|
||||
Revision 1.31 2003/03/11 07:46:43 mattias
|
||||
more localization for gtk- and win32-interface and lcl
|
||||
|
||||
Revision 1.30 2003/02/23 10:42:06 mattias
|
||||
implemented changing TMenuItem.GroupIndex at runtime
|
||||
|
||||
Revision 1.29 2002/10/26 15:15:48 lazarus
|
||||
MG: broke LCL<->interface circles
|
||||
|
||||
Revision 1.28 2002/10/22 18:54:56 lazarus
|
||||
MG: fixed menu streaming
|
||||
|
||||
Revision 1.27 2002/10/08 22:32:27 lazarus
|
||||
MG: fixed cool little bug (menu double attaching bug)
|
||||
|
||||
Revision 1.26 2002/08/22 13:45:58 lazarus
|
||||
MG: fixed non AutoCheck menuitems and editor bookmark popupmenu
|
||||
|
||||
Revision 1.25 2002/08/15 13:37:57 lazarus
|
||||
MG: started menuitem icon, checked, radio and groupindex
|
||||
|
||||
Revision 1.24 2002/08/12 15:32:29 lazarus
|
||||
MG: started enhanced menuitem
|
||||
|
||||
Revision 1.23 2002/08/08 17:26:37 lazarus
|
||||
MG: added property TMenuItems.RightJustify
|
||||
|
||||
Revision 1.22 2002/08/08 10:33:49 lazarus
|
||||
MG: main bar speedbar open arrow now shows recent projects and files
|
||||
|
||||
Revision 1.21 2002/08/08 09:38:36 lazarus
|
||||
MG: recent file menus are now updated instantly
|
||||
|
||||
Revision 1.20 2002/08/08 09:07:06 lazarus
|
||||
MG: TMenuItem can now be created/destroyed/moved at any time
|
||||
|
||||
Revision 1.19 2002/08/07 09:55:30 lazarus
|
||||
MG: codecompletion now checks for filebreaks, savefile now checks for filedate
|
||||
|
||||
Revision 1.18 2002/08/06 20:05:19 lazarus
|
||||
MG: added actnlist.pp
|
||||
|
||||
Revision 1.17 2002/08/06 19:57:40 lazarus
|
||||
MG: added actnlist.pp
|
||||
|
||||
Revision 1.16 2002/08/05 10:45:03 lazarus
|
||||
MG: TMenuItem.Caption can now be set after creation
|
||||
|
||||
Revision 1.15 2002/08/05 08:56:56 lazarus
|
||||
MG: TMenuItems can now be enabled and disabled
|
||||
|
||||
Revision 1.14 2002/05/30 21:33:10 lazarus
|
||||
+ added / fixed streaming functions for TMenu & TMenuItem, stoppok
|
||||
|
||||
Revision 1.13 2002/05/19 08:27:43 lazarus
|
||||
+ added helper functions to enabled streaming of TMenu /TMenuItem
|
||||
stoppok
|
||||
|
||||
Revision 1.12 2002/05/10 06:05:53 lazarus
|
||||
MG: changed license to LGPL
|
||||
|
||||
Revision 1.11 2002/05/09 12:41:28 lazarus
|
||||
MG: further clientrect bugfixes
|
||||
|
||||
Revision 1.10 2002/03/25 17:59:20 lazarus
|
||||
GTK Cleanup
|
||||
Shane
|
||||
|
||||
Revision 1.9 2002/02/18 22:46:11 lazarus
|
||||
Implented TMenuItem.ShortCut (not much tested).
|
||||
|
||||
Revision 1.8 2001/03/19 14:40:49 lazarus
|
||||
MG: fixed many unreleased DC and GDIObj bugs
|
||||
|
||||
Revision 1.6 2001/02/21 22:55:26 lazarus
|
||||
small bugfixes + added TOIOptions
|
||||
|
||||
Revision 1.5 2001/01/04 16:12:54 lazarus
|
||||
Removed some writelns and changed the property editor for TStrings a bit.
|
||||
Shane
|
||||
|
||||
Revision 1.4 2000/12/22 19:55:38 lazarus
|
||||
Added the Popupmenu code to the LCL.
|
||||
Now you can right click on the editor and a PopupMenu appears.
|
||||
Shane
|
||||
|
||||
Revision 1.3 2000/07/30 21:48:32 lazarus
|
||||
MWE:
|
||||
= Moved ObjectToGTKObject to GTKProc unit
|
||||
* Fixed array checking in LoadPixmap
|
||||
= Moved LM_SETENABLED to API func EnableWindow and EnableMenuItem
|
||||
~ Some cleanup
|
||||
|
||||
Revision 1.2 2000/07/23 19:01:33 lazarus
|
||||
menus will be destroyed now, stoppok
|
||||
|
||||
Revision 1.1 2000/07/13 10:28:26 michael
|
||||
+ Initial import
|
||||
|
||||
Revision 1.2 2000/04/17 19:50:06 lazarus
|
||||
Added some compiler stuff built into Lazarus.
|
||||
This depends on the path to your compiler being correct in the compileroptions
|
||||
dialog.
|
||||
Shane
|
||||
|
||||
Revision 1.1 2000/04/02 20:49:56 lazarus
|
||||
MWE:
|
||||
Moved lazarus/lcl/*.inc files to lazarus/lcl/include
|
||||
|
||||
Revision 1.9 1999/12/14 22:21:11 lazarus
|
||||
*** empty log message ***
|
||||
|
||||
Revision 1.8 1999/12/10 00:47:01 lazarus
|
||||
MWE:
|
||||
Fixed some samples
|
||||
Fixed Dialog parent is no longer needed
|
||||
Fixed (Win)Control Destruction
|
||||
Fixed MenuClick
|
||||
|
||||
Revision 1.7 1999/12/08 00:56:07 lazarus
|
||||
MWE:
|
||||
Fixed menus. Events aren't enabled yet (dumps --> invalid typecast ??)
|
||||
|
||||
Revision 1.6 1999/11/05 00:34:11 lazarus
|
||||
MWE: Menu structure updated, events and visible code not added yet
|
||||
|
||||
Revision 1.5 1999/10/28 23:48:57 lazarus
|
||||
MWE: Added new menu classes and started to use handleneeded
|
||||
|
||||
|
||||
}
|
||||
|
280
lcl/menus.pp
280
lcl/menus.pp
@ -398,283 +398,3 @@ finalization
|
||||
|
||||
end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.79 2005/03/11 14:40:37 mattias
|
||||
moved CM_ message constants from crontrols.pp to lmessages.pp to break circles and clean up controls.pp
|
||||
|
||||
Revision 1.78 2005/03/07 00:52:51 mattias
|
||||
various Delphi compatibilities from C Western
|
||||
|
||||
Revision 1.77 2005/02/03 15:10:23 micha
|
||||
implement shortcut handling, tcustomlabel accelerator focuscontrol functionality
|
||||
|
||||
Revision 1.76 2004/12/12 03:54:09 mattias
|
||||
implemented open project after open standard windows
|
||||
|
||||
Revision 1.75 2004/12/10 21:36:27 mattias
|
||||
implemented TMenuItem.SetVisible
|
||||
|
||||
Revision 1.74 2004/11/10 20:53:18 vincents
|
||||
Destroy menu handle, when destroying form handle.
|
||||
|
||||
Revision 1.73 2004/10/24 14:50:31 micha
|
||||
fix menuitem caption issue (partly by martin smat)
|
||||
remove ShortCutToText and TextToShortCut wrapper functions
|
||||
|
||||
Revision 1.72 2004/09/17 10:56:24 micha
|
||||
convert LM_SHORTCUT message to interface methods
|
||||
|
||||
Revision 1.71 2004/09/10 09:43:12 micha
|
||||
convert LM_SETLABEL message to interface methods
|
||||
|
||||
Revision 1.70 2004/08/18 09:31:21 mattias
|
||||
removed obsolete unit vclglobals
|
||||
|
||||
Revision 1.69 2004/08/13 10:20:19 mattias
|
||||
fixed codetools ConstSet, implemented notifying TApplication whenmenu popups
|
||||
|
||||
Revision 1.68 2004/06/17 21:24:19 mattias
|
||||
implemented painting menuitem icons from ImageList
|
||||
|
||||
Revision 1.67 2004/06/17 20:52:18 mattias
|
||||
fixed setting ImageIndex when TMenuItem.ActionChange
|
||||
|
||||
Revision 1.66 2004/03/17 00:34:37 marc
|
||||
* Interface reconstruction. Created skeleton units, classes and wscontrols
|
||||
|
||||
Revision 1.65 2004/02/23 08:19:04 micha
|
||||
revert intf split
|
||||
|
||||
Revision 1.63 2004/02/08 11:31:32 mattias
|
||||
TMenuItem.Bitmap is now auto created on read. Added TMenuItem.HasBitmap
|
||||
|
||||
Revision 1.62 2004/02/05 09:45:33 mattias
|
||||
implemented Actions for TSpeedButton, TMenuItem, TCheckBox
|
||||
|
||||
Revision 1.61 2004/02/04 17:06:26 mattias
|
||||
fixed updating menu designer caption when editing in OI
|
||||
|
||||
Revision 1.60 2004/02/04 13:40:19 mattias
|
||||
ShortCutToText now deletes any modifier
|
||||
|
||||
Revision 1.59 2004/02/02 18:09:41 mattias
|
||||
added TMenuItem.Action
|
||||
|
||||
Revision 1.58 2004/01/10 18:09:38 mattias
|
||||
implemented TMenuItem.Clear
|
||||
|
||||
Revision 1.57 2003/11/27 23:02:30 mattias
|
||||
removed menutype.pas
|
||||
|
||||
Revision 1.56 2003/11/26 21:30:19 mattias
|
||||
reduced unit circles, fixed fpImage streaming
|
||||
|
||||
Revision 1.55 2003/11/16 01:56:15 mattias
|
||||
changed TMenuItem.Graphic to TMenuItem.Bitmap
|
||||
|
||||
Revision 1.54 2003/11/10 16:15:31 micha
|
||||
cleanups; win32 fpimage support
|
||||
|
||||
Revision 1.53 2003/10/26 17:34:41 micha
|
||||
new interface method to attach a menu to window
|
||||
|
||||
Revision 1.52 2003/10/16 23:54:27 marc
|
||||
Implemented new gtk keyevent handling
|
||||
|
||||
Revision 1.51 2003/09/18 09:21:03 mattias
|
||||
renamed LCLLinux to LCLIntf
|
||||
|
||||
Revision 1.50 2003/07/21 23:43:32 marc
|
||||
* Fixed radiogroup menuitems
|
||||
|
||||
Revision 1.49 2003/06/26 17:00:00 mattias
|
||||
fixed result on searching proc in interface
|
||||
|
||||
Revision 1.48 2003/06/24 15:57:55 mattias
|
||||
applied win32 menu patch from Micha Nelissen
|
||||
|
||||
Revision 1.47 2003/06/24 15:23:10 mattias
|
||||
deleted unused code
|
||||
|
||||
Revision 1.46 2003/06/23 12:33:55 mattias
|
||||
implemented TPairSplitter streaming
|
||||
|
||||
Revision 1.45 2003/06/23 09:42:09 mattias
|
||||
fixes for debugging lazarus
|
||||
|
||||
Revision 1.44 2003/06/09 09:20:27 mattias
|
||||
removed menubar.inc
|
||||
|
||||
Revision 1.43 2003/05/12 13:40:50 mattias
|
||||
fixed clsing popupmenu on showmodal
|
||||
|
||||
Revision 1.42 2003/05/02 22:22:15 mattias
|
||||
localization, added context policy to make resource string dialog
|
||||
|
||||
Revision 1.41 2003/04/19 18:37:58 mattias
|
||||
implemented adding OnClick, when clicking on designer menuitem
|
||||
|
||||
Revision 1.40 2003/04/04 16:35:24 mattias
|
||||
started package registration
|
||||
|
||||
Revision 1.39 2003/03/16 09:41:05 mattias
|
||||
fixed checking menuitems
|
||||
|
||||
Revision 1.38 2003/03/11 07:46:43 mattias
|
||||
more localization for gtk- and win32-interface and lcl
|
||||
|
||||
Revision 1.37 2003/02/23 10:42:06 mattias
|
||||
implemented changing TMenuItem.GroupIndex at runtime
|
||||
|
||||
Revision 1.36 2003/01/04 11:58:32 mattias
|
||||
added Windows menu to IDE
|
||||
|
||||
Revision 1.35 2002/12/02 16:38:13 mattias
|
||||
started position highlighter
|
||||
|
||||
Revision 1.34 2002/11/12 10:16:14 lazarus
|
||||
MG: fixed TMainMenu creation
|
||||
|
||||
Revision 1.33 2002/10/26 15:15:47 lazarus
|
||||
MG: broke LCL<->interface circles
|
||||
|
||||
Revision 1.32 2002/10/26 11:20:30 lazarus
|
||||
MG: broke some interfaces.pp circles
|
||||
|
||||
Revision 1.31 2002/10/26 10:21:01 lazarus
|
||||
MG: broke actnlist <-> menus circle
|
||||
|
||||
Revision 1.30 2002/10/24 09:37:39 lazarus
|
||||
MG: broke menus.pp <-> controls.pp circle
|
||||
|
||||
Revision 1.29 2002/10/20 21:49:09 lazarus
|
||||
MG: fixes for fpc1.1
|
||||
|
||||
Revision 1.28 2002/10/08 22:32:26 lazarus
|
||||
MG: fixed cool little bug (menu double attaching bug)
|
||||
|
||||
Revision 1.27 2002/09/19 16:45:54 lazarus
|
||||
MG: fixed Menu.Free and gdkwindow=nil bug
|
||||
|
||||
Revision 1.26 2002/08/22 13:45:57 lazarus
|
||||
MG: fixed non AutoCheck menuitems and editor bookmark popupmenu
|
||||
|
||||
Revision 1.25 2002/08/17 07:57:05 lazarus
|
||||
MG: added TPopupMenu.OnPopup and SourceEditor PopupMenu checks
|
||||
|
||||
Revision 1.24 2002/08/16 20:13:09 lazarus
|
||||
MG: custom external tools are now shown in the menu
|
||||
|
||||
Revision 1.23 2002/08/15 13:37:57 lazarus
|
||||
MG: started menuitem icon, checked, radio and groupindex
|
||||
|
||||
Revision 1.22 2002/08/12 15:32:28 lazarus
|
||||
MG: started enhanced menuitem
|
||||
|
||||
Revision 1.21 2002/08/08 17:26:37 lazarus
|
||||
MG: added property TMenuItems.RightJustify
|
||||
|
||||
Revision 1.20 2002/08/08 10:33:49 lazarus
|
||||
MG: main bar speedbar open arrow now shows recent projects and files
|
||||
|
||||
Revision 1.19 2002/08/08 09:07:06 lazarus
|
||||
MG: TMenuItem can now be created/destroyed/moved at any time
|
||||
|
||||
Revision 1.18 2002/08/07 09:55:30 lazarus
|
||||
MG: codecompletion now checks for filebreaks, savefile now checks for filedate
|
||||
|
||||
Revision 1.17 2002/08/06 20:05:38 lazarus
|
||||
MG: added stored funcitons
|
||||
|
||||
Revision 1.16 2002/08/06 19:57:39 lazarus
|
||||
MG: added actnlist.pp
|
||||
|
||||
Revision 1.15 2002/08/05 10:45:02 lazarus
|
||||
MG: TMenuItem.Caption can now be set after creation
|
||||
|
||||
Revision 1.14 2002/08/05 08:56:56 lazarus
|
||||
MG: TMenuItems can now be enabled and disabled
|
||||
|
||||
Revision 1.13 2002/05/30 21:33:10 lazarus
|
||||
+ added / fixed streaming functions for TMenu & TMenuItem, stoppok
|
||||
|
||||
Revision 1.12 2002/05/19 08:28:50 lazarus
|
||||
+ added helper functions to enable streaming of TMenu / TMenuItem
|
||||
stoppok
|
||||
|
||||
Revision 1.11 2002/05/15 05:58:17 lazarus
|
||||
MG: added TMainMenu.Parent
|
||||
|
||||
Revision 1.10 2002/05/10 06:05:50 lazarus
|
||||
MG: changed license to LGPL
|
||||
|
||||
Revision 1.9 2002/05/09 12:41:28 lazarus
|
||||
MG: further clientrect bugfixes
|
||||
|
||||
Revision 1.8 2002/03/25 17:59:19 lazarus
|
||||
GTK Cleanup
|
||||
Shane
|
||||
|
||||
Revision 1.7 2002/02/20 23:33:24 lazarus
|
||||
MWE:
|
||||
+ Published OnClick for TMenuItem
|
||||
+ Published PopupMenu property for TEdit and TMemo (Doesn't work yet)
|
||||
* Fixed debugger running twice
|
||||
+ Added Debugger output form
|
||||
* Enabled breakpoints
|
||||
|
||||
Revision 1.6 2002/02/18 22:46:11 lazarus
|
||||
Implented TMenuItem.ShortCut (not much tested).
|
||||
|
||||
Revision 1.5 2001/06/14 14:57:58 lazarus
|
||||
MG: small bugfixes and less notes
|
||||
|
||||
Revision 1.4 2000/12/29 17:50:53 lazarus
|
||||
Added a dropdown image to the resource and a downarrow button by the OPEN button.
|
||||
Shane
|
||||
|
||||
Revision 1.3 2000/12/22 19:55:37 lazarus
|
||||
Added the Popupmenu code to the LCL.
|
||||
Now you can right click on the editor and a PopupMenu appears.
|
||||
Shane
|
||||
|
||||
Revision 1.2 2000/09/10 23:08:30 lazarus
|
||||
MWE:
|
||||
+ Added CreateCompatibeleBitamp function
|
||||
+ Updated TWinControl.WMPaint
|
||||
+ Added some checks to avoid gtk/gdk errors
|
||||
- Removed no fixed warning from GetDC
|
||||
- Removed some output
|
||||
|
||||
Revision 1.1 2000/07/13 10:28:24 michael
|
||||
+ Initial import
|
||||
|
||||
Revision 1.14 2000/02/22 21:51:40 lazarus
|
||||
MWE: Removed some double (or triple) event declarations.
|
||||
The latest compiler doesn't like it
|
||||
|
||||
Revision 1.13 1999/12/20 21:37:12 lazarus
|
||||
Added ISRIGHTTOLEFT in menus file.
|
||||
Added ISACCEL in forms.pp
|
||||
Shane
|
||||
|
||||
Revision 1.12 1999/12/14 22:21:11 lazarus
|
||||
*** empty log message ***
|
||||
|
||||
Revision 1.11 1999/12/08 00:56:07 lazarus
|
||||
MWE:
|
||||
Fixed menus. Events aren't enabled yet (dumps --> invalid typecast ??)
|
||||
|
||||
Revision 1.10 1999/11/05 00:34:11 lazarus
|
||||
MWE: Menu structure updated, events and visible code not added yet
|
||||
|
||||
Revision 1.9 1999/11/02 16:02:34 lazarus
|
||||
Added a bunch of wndproc stuff and a lot of functions that really don't do a thing at this point.
|
||||
Shane
|
||||
|
||||
Revision 1.8 1999/10/28 23:48:57 lazarus
|
||||
MWE: Added new menu classes and started to use handleneeded
|
||||
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user