paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 16:18:07 +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/maskedit.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/pairsplitter.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 \
lcltype lmessages lresources maskedit menus messages registry spin \
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.
rsts=dialogs

5
lcl/alllclunits.pp
View File

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

7
lcl/include/intfbaselcl.inc
View File

@ -258,12 +258,12 @@ begin
Result:=true;
end;
function TInterfaceBase.LclCheckMenuItem(AMenuItem: TBaseMenuItem): Boolean;
function TInterfaceBase.LclCheckMenuItem(AMenuItem: TComponent): Boolean;
begin
Result := False;
end;
function TInterfaceBase.LclEnableMenuItem(AMenuItem: TBaseMenuItem): Boolean;
function TInterfaceBase.LclEnableMenuItem(AMenuItem: TComponent): Boolean;
begin
Result := False;
end;
@ -468,6 +468,9 @@ end;
{ =============================================================================
$Log$
Revision 1.5 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.4 2003/11/26 21:30:19 mattias
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);
end;
function LclCheckMenuItem(AMenuItem: TBaseMenuItem): Boolean;
function LclCheckMenuItem(AMenuItem: TComponent): Boolean;
begin
Result := InterfaceObject.LclCheckMenuItem(AMenuItem);
end;
function LclEnableMenuItem(AMenuItem: TBaseMenuItem): Boolean;
function LclEnableMenuItem(AMenuItem: TComponent): Boolean;
begin
Result := InterfaceObject.LclEnableMenuItem(AMenuItem);
end;
@ -448,6 +448,9 @@ end;
{ =============================================================================
$Log$
Revision 1.5 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.4 2003/11/26 21:30:19 mattias
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 LclCheckMenuItem(AMenuItem: TBaseMenuItem): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function LclEnableMenuItem(AMenuItem: TBaseMenuItem): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function LclCheckMenuItem(AMenuItem: TComponent): 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}
@ -141,6 +141,9 @@ procedure RaiseLastOSError;
{ =============================================================================
$Log$
Revision 1.5 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.4 2003/11/26 21:30:19 mattias
reduced unit circles, fixed fpImage streaming

5
lcl/interfacebase.pp
View File

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

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

@ -71,7 +71,7 @@ uses
{$ENDIF}
SysUtils, Classes, ExtDlgs, Dialogs, Controls, Forms, LCLStrConsts, LMessages,
VclGlobals, LCLProc, LCLIntf, LCLType, gtkDef, DynHashArray, gtkMsgQueue,
GraphType, GraphMath, Graphics, MenuType, Menus;
GraphType, GraphMath, Graphics, Menus;
type
@ -401,6 +401,9 @@ end.
{ =============================================================================
$Log$
Revision 1.160 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.159 2003/11/26 21:30:19 mattias
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.
------------------------------------------------------------------------------}
function TgtkObject.LclCheckMenuItem(BaseMenuItem: TBaseMenuItem): Boolean;
function TgtkObject.LclCheckMenuItem(BaseMenuItem: TComponent): Boolean;
var
IsRadio: Boolean;
Group: PGSList;
@ -72,7 +72,7 @@ end;
Enables, disables, or grays the specified menu item.
------------------------------------------------------------------------------}
function TGTKObject.LclEnableMenuItem(BaseMenuItem: TBaseMenuItem): Boolean;
function TGTKObject.LclEnableMenuItem(BaseMenuItem: TComponent): Boolean;
var
AMenuItem: TMenuItem;
begin
@ -87,6 +87,9 @@ end;
{ =============================================================================
$Log$
Revision 1.4 2003/11/27 23:02:30 mattias
removed menutype.pas
Revision 1.3 2003/11/26 21:30:19 mattias
reduced unit circles, fixed fpImage streaming

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

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

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

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

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

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

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

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

5
lcl/lclintf.pas
View File

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

7
lcl/menus.pp
View File

@ -46,7 +46,7 @@ interface
uses
Classes, SysUtils, LCLStrConsts, LCLType, LCLProc, VCLGlobals,
LCLIntf, InterfaceBase, LMessages, ActnList, Graphics, ImgList, MenuType;
LCLIntf, InterfaceBase, LMessages, ActnList, Graphics, ImgList;
type
@ -92,7 +92,7 @@ type
{ TMenuItem }
TMenuItem = class(TBaseMenuItem)
TMenuItem = class(TComponent)
private
FActionLink: TMenuActionLink;
FAutoCheck: boolean;
@ -385,6 +385,9 @@ end.
{
$Log$
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

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.