paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 21:00:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

removed menutype.pas

Browse Source 
git-svn-id: trunk@4851 -
This commit is contained in:
mattias 2003-11-27 23:02:30 +00:00
parent d480830945
commit d36880c511
16 changed files with 61 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -1041,7 +1041,6 @@ lcl/lmessages.pp svneol=native#text/pascal
lcl/lresources.pp svneol=native#text/pascal lcl/lresources.pp svneol=native#text/pascal
lcl/maskedit.pp svneol=native#text/pascal lcl/maskedit.pp svneol=native#text/pascal
lcl/menus.pp svneol=native#text/pascal lcl/menus.pp svneol=native#text/pascal
lcl/menutype.pas svneol=native#text/pascal
lcl/nonwin32/messages.pp svneol=native#text/pascal lcl/nonwin32/messages.pp svneol=native#text/pascal
lcl/pairsplitter.pas svneol=native#text/pascal lcl/pairsplitter.pas svneol=native#text/pascal
lcl/postscriptprinter.pas svneol=native#text/pascal lcl/postscriptprinter.pas svneol=native#text/pascal

2
lcl/Makefile.fpc
View File

@ -16,7 +16,7 @@ implicitunits=arrow actnlist buttons calendar clipbrd clistbox comctrls \
imglist interfacebase lazlinkedlist lclmemmanager lclintf lclstrconsts \ imglist interfacebase lazlinkedlist lclmemmanager lclintf lclstrconsts \
lcltype lmessages lresources maskedit menus messages registry spin \ lcltype lmessages lresources maskedit menus messages registry spin \
stdctrls stringhashlist toolwin utrace vclglobals printers \ stdctrls stringhashlist toolwin utrace vclglobals printers \
postscriptprinter dbctrls dbgrids menutype postscriptprinter dbctrls dbgrids
# and do not add allunits. It is just a dummy unit used for compiling. # and do not add allunits. It is just a dummy unit used for compiling.
rsts=dialogs rsts=dialogs

5
lcl/alllclunits.pp
View File

@ -31,7 +31,7 @@ uses
LazLinkedList, DynHashArray, LCLMemManager, AvgLvlTree, StringHashList, LazLinkedList, DynHashArray, LCLMemManager, AvgLvlTree, StringHashList,
ExtendedStrings, DynamicArray, UTrace, TextStrings, ExtendedStrings, DynamicArray, UTrace, TextStrings,
// base types and base functions // base types and base functions
LCLProc, LCLType, GraphMath, VCLGlobals, FileCtrl, LMessages, MenuType, LCLProc, LCLType, GraphMath, VCLGlobals, FileCtrl, LMessages,
// the interface base // the interface base
InterfaceBase, {$IFDEF UseFPImage}IntfGraphics,{$ENDIF} InterfaceBase, {$IFDEF UseFPImage}IntfGraphics,{$ENDIF}
// components and functions // components and functions
@ -48,6 +48,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.3 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.2 2003/11/26 21:30:19 mattias Revision 1.2 2003/11/26 21:30:19 mattias
reduced unit circles, fixed fpImage streaming reduced unit circles, fixed fpImage streaming

7
lcl/include/intfbaselcl.inc
View File

@ -258,12 +258,12 @@ begin
Result:=true; Result:=true;
end; end;
function TInterfaceBase.LclCheckMenuItem(AMenuItem: TBaseMenuItem): Boolean; function TInterfaceBase.LclCheckMenuItem(AMenuItem: TComponent): Boolean;
begin begin
Result := False; Result := False;
end; end;
function TInterfaceBase.LclEnableMenuItem(AMenuItem: TBaseMenuItem): Boolean; function TInterfaceBase.LclEnableMenuItem(AMenuItem: TComponent): Boolean;
begin begin
Result := False; Result := False;
end; end;
@ -468,6 +468,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.5 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.4 2003/11/26 21:30:19 mattias Revision 1.4 2003/11/26 21:30:19 mattias
reduced unit circles, fixed fpImage streaming reduced unit circles, fixed fpImage streaming

7
lcl/include/lclintf.inc
View File

@ -224,12 +224,12 @@ begin
Result := InterfaceObject.InvalidateFrame(aHandle,ARect,bErase,BorderWidth); Result := InterfaceObject.InvalidateFrame(aHandle,ARect,bErase,BorderWidth);
end; end;
function LclCheckMenuItem(AMenuItem: TBaseMenuItem): Boolean; function LclCheckMenuItem(AMenuItem: TComponent): Boolean;
begin begin
Result := InterfaceObject.LclCheckMenuItem(AMenuItem); Result := InterfaceObject.LclCheckMenuItem(AMenuItem);
end; end;
function LclEnableMenuItem(AMenuItem: TBaseMenuItem): Boolean; function LclEnableMenuItem(AMenuItem: TComponent): Boolean;
begin begin
Result := InterfaceObject.LclEnableMenuItem(AMenuItem); Result := InterfaceObject.LclEnableMenuItem(AMenuItem);
end; end;
@ -448,6 +448,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.5 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.4 2003/11/26 21:30:19 mattias Revision 1.4 2003/11/26 21:30:19 mattias
reduced unit circles, fixed fpImage streaming reduced unit circles, fixed fpImage streaming

7
lcl/include/lclintfh.inc
View File

@ -79,8 +79,8 @@ function InvalidateFrame(aHandle : HWND; ARect : pRect; bErase : Boolean; Border
function LoadStockPixmap(StockID: longint) : HBitmap; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function LoadStockPixmap(StockID: longint) : HBitmap; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function LclCheckMenuItem(AMenuItem: TBaseMenuItem): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function LclCheckMenuItem(AMenuItem: TComponent): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function LclEnableMenuItem(AMenuItem: TBaseMenuItem): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function LclEnableMenuItem(AMenuItem: TComponent): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function MoveWindowOrgEx(dc : hdc; dX,dY : Integer): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} function MoveWindowOrgEx(dc : hdc; dX,dY : Integer): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
@ -141,6 +141,9 @@ procedure RaiseLastOSError;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.5 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.4 2003/11/26 21:30:19 mattias Revision 1.4 2003/11/26 21:30:19 mattias
reduced unit circles, fixed fpImage streaming reduced unit circles, fixed fpImage streaming

5
lcl/interfacebase.pp
View File

@ -34,7 +34,7 @@ interface
uses uses
Classes, SysUtils, LCLStrConsts, LCLType, LCLProc, VCLGlobals, LMessages, Classes, SysUtils, LCLStrConsts, LCLType, LCLProc, VCLGlobals, LMessages,
GraphType, GraphMath, MenuType; GraphType, GraphMath;
type type
@ -108,6 +108,9 @@ end.
{ {
$Log$ $Log$
Revision 1.38 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.37 2003/11/26 21:30:19 mattias Revision 1.37 2003/11/26 21:30:19 mattias
reduced unit circles, fixed fpImage streaming reduced unit circles, fixed fpImage streaming

5
lcl/interfaces/gtk/gtkint.pp
View File

@ -71,7 +71,7 @@ uses
{$ENDIF} {$ENDIF}
SysUtils, Classes, ExtDlgs, Dialogs, Controls, Forms, LCLStrConsts, LMessages, SysUtils, Classes, ExtDlgs, Dialogs, Controls, Forms, LCLStrConsts, LMessages,
VclGlobals, LCLProc, LCLIntf, LCLType, gtkDef, DynHashArray, gtkMsgQueue, VclGlobals, LCLProc, LCLIntf, LCLType, gtkDef, DynHashArray, gtkMsgQueue,
GraphType, GraphMath, Graphics, MenuType, Menus; GraphType, GraphMath, Graphics, Menus;
type type
@ -401,6 +401,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.160 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.159 2003/11/26 21:30:19 mattias Revision 1.159 2003/11/26 21:30:19 mattias
reduced unit circles, fixed fpImage streaming reduced unit circles, fixed fpImage streaming

7
lcl/interfaces/gtk/gtklclintf.inc
View File

@ -35,7 +35,7 @@
Checks or unchecks the specified menu item. Checks or unchecks the specified menu item.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TgtkObject.LclCheckMenuItem(BaseMenuItem: TBaseMenuItem): Boolean; function TgtkObject.LclCheckMenuItem(BaseMenuItem: TComponent): Boolean;
var var
IsRadio: Boolean; IsRadio: Boolean;
Group: PGSList; Group: PGSList;
@ -72,7 +72,7 @@ end;
Enables, disables, or grays the specified menu item. Enables, disables, or grays the specified menu item.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TGTKObject.LclEnableMenuItem(BaseMenuItem: TBaseMenuItem): Boolean; function TGTKObject.LclEnableMenuItem(BaseMenuItem: TComponent): Boolean;
var var
AMenuItem: TMenuItem; AMenuItem: TMenuItem;
begin begin
@ -87,6 +87,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.4 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.3 2003/11/26 21:30:19 mattias Revision 1.3 2003/11/26 21:30:19 mattias
reduced unit circles, fixed fpImage streaming reduced unit circles, fixed fpImage streaming

7
lcl/interfaces/gtk/gtklclintfh.inc
View File

@ -31,8 +31,8 @@
//##apiwiz##sps## // Do not remove //##apiwiz##sps## // Do not remove
function LclCheckMenuItem(BaseMenuItem: TBaseMenuItem): Boolean; override; function LclCheckMenuItem(BaseMenuItem: TComponent): Boolean; override;
function LclEnableMenuItem(BaseMenuItem: TBaseMenuItem): Boolean; override; function LclEnableMenuItem(BaseMenuItem: TComponent): Boolean; override;
//##apiwiz##eps## // Do not remove, no wizard declaration after this line //##apiwiz##eps## // Do not remove, no wizard declaration after this line
@ -40,6 +40,9 @@ function LclEnableMenuItem(BaseMenuItem: TBaseMenuItem): Boolean; override;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.4 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.3 2003/11/26 21:30:19 mattias Revision 1.3 2003/11/26 21:30:19 mattias
reduced unit circles, fixed fpImage streaming reduced unit circles, fixed fpImage streaming

6
lcl/interfaces/win32/win32int.pp
View File

@ -38,8 +38,7 @@ Interface
Uses Uses
Windows, Classes, LCLStrConsts, ComCtrls, Controls, Dialogs, DynHashArray, Windows, Classes, LCLStrConsts, ComCtrls, Controls, Dialogs, DynHashArray,
ExtCtrls, Forms, GraphMath, GraphType, InterfaceBase, LCLIntf, LCLType, ExtCtrls, Forms, GraphMath, GraphType, InterfaceBase, LCLIntf, LCLType,
LMessages, StdCtrls, SysUtils, VCLGlobals, Win32Def, Graphics, Menus, LMessages, StdCtrls, SysUtils, VCLGlobals, Win32Def, Graphics, Menus;
MenuType;
Type Type
{ Virtual alignment-control record } { Virtual alignment-control record }
@ -188,6 +187,9 @@ End.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.57 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.56 2003/11/26 21:55:15 mattias Revision 1.56 2003/11/26 21:55:15 mattias
fixed win32 TBaseMenuitem fixed win32 TBaseMenuitem

7
lcl/interfaces/win32/win32lclintf.inc
View File

@ -35,7 +35,7 @@
Checks or unchecks the specified menu item. Checks or unchecks the specified menu item.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
Function TWin32Object.LclCheckMenuItem(BaseMenuItem: TBaseMenuItem): Boolean; Function TWin32Object.LclCheckMenuItem(BaseMenuItem: TComponent): Boolean;
var var
CheckFlag: Integer; CheckFlag: Integer;
AMenuItem: TMenuItem; AMenuItem: TMenuItem;
@ -54,7 +54,7 @@ End;
Enables, disables, or grays the specified menu item. Enables, disables, or grays the specified menu item.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
Function TWin32Object.LclEnableMenuItem(BaseMenuItem: TBaseMenuItem): Boolean; Function TWin32Object.LclEnableMenuItem(BaseMenuItem: TComponent): Boolean;
Var Var
EnableFlag: Integer; EnableFlag: Integer;
AMenuItem: TMenuItem; AMenuItem: TMenuItem;
@ -73,6 +73,9 @@ End;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.3 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.2 2003/11/26 21:55:15 mattias Revision 1.2 2003/11/26 21:55:15 mattias
fixed win32 TBaseMenuitem fixed win32 TBaseMenuitem

7
lcl/interfaces/win32/win32lclintfh.inc
View File

@ -28,8 +28,8 @@
//##apiwiz##sps## // Do not remove //##apiwiz##sps## // Do not remove
function LclCheckMenuItem(BaseMenuItem: TBaseMenuItem): Boolean; override; function LclCheckMenuItem(BaseMenuItem: TComponent): Boolean; override;
function LclEnableMenuItem(BaseMenuItem: TBaseMenuItem): Boolean; override; function LclEnableMenuItem(BaseMenuItem: TComponent): Boolean; override;
//##apiwiz##eps## // Do not remove, no wizard declaration after this line //##apiwiz##eps## // Do not remove, no wizard declaration after this line
@ -37,6 +37,9 @@ function LclEnableMenuItem(BaseMenuItem: TBaseMenuItem): Boolean; override;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.3 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.2 2003/11/26 21:55:15 mattias Revision 1.2 2003/11/26 21:55:15 mattias
fixed win32 TBaseMenuitem fixed win32 TBaseMenuitem

5
lcl/lclintf.pas
View File

@ -42,7 +42,7 @@ interface
uses uses
Classes, SysUtils, LCLType, LCLProc, VCLGlobals, GraphType, InterfaceBase, Classes, SysUtils, LCLType, LCLProc, VCLGlobals, GraphType, InterfaceBase,
LResources, MenuType; LResources;
{$ifdef Trace} {$ifdef Trace}
{$ASSERTIONS ON} {$ASSERTIONS ON}
@ -151,6 +151,9 @@ end.
{ {
$Log$ $Log$
Revision 1.6 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.5 2003/11/26 21:30:19 mattias Revision 1.5 2003/11/26 21:30:19 mattias
reduced unit circles, fixed fpImage streaming reduced unit circles, fixed fpImage streaming

7
lcl/menus.pp
View File

@ -46,7 +46,7 @@ interface
uses uses
Classes, SysUtils, LCLStrConsts, LCLType, LCLProc, VCLGlobals, Classes, SysUtils, LCLStrConsts, LCLType, LCLProc, VCLGlobals,
LCLIntf, InterfaceBase, LMessages, ActnList, Graphics, ImgList, MenuType; LCLIntf, InterfaceBase, LMessages, ActnList, Graphics, ImgList;
type type
@ -92,7 +92,7 @@ type
{ TMenuItem } { TMenuItem }
TMenuItem = class(TBaseMenuItem) TMenuItem = class(TComponent)
private private
FActionLink: TMenuActionLink; FActionLink: TMenuActionLink;
FAutoCheck: boolean; FAutoCheck: boolean;
@ -385,6 +385,9 @@ end.
{ {
$Log$ $Log$
Revision 1.57 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.56 2003/11/26 21:30:19 mattias Revision 1.56 2003/11/26 21:30:19 mattias
reduced unit circles, fixed fpImage streaming reduced unit circles, fixed fpImage streaming

38
lcl/menutype.pas
View File

@ -1,38 +0,0 @@
{
/***************************************************************************
menutype.pas
------------
***************************************************************************/
*****************************************************************************
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.LCL, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
* *
*****************************************************************************
}
unit MenuType;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
type
TBaseMenuItem = class(TComponent)
end;
implementation
end.