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

added StdActns definitions, no code yet

Browse Source 
git-svn-id: trunk@5233 -
This commit is contained in:
mattias 2004-02-24 21:53:12 +00:00
parent 2eac6f15cf
commit 53672cd4eb
8 changed files with 929 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -1123,6 +1123,7 @@ lcl/pairsplitter.pas svneol=native#text/pascal
lcl/postscriptprinter.pas svneol=native#text/pascal
lcl/printers.pas svneol=native#text/pascal
lcl/spin.pp svneol=native#text/pascal
lcl/stdactns.pas svneol=native#text/pascal
lcl/stdctrls.pp svneol=native#text/pascal
lcl/stringhashlist.pas svneol=native#text/pascal
lcl/templates/template.inc svneol=native#text/pascal

61
components/synedit/synedit.pp
View File

@ -145,7 +145,7 @@ type
var Command: TSynEditorCommand; var AChar: char; Data: pointer) of object;
TReplaceTextEvent = procedure(Sender: TObject; const ASearch, AReplace:
string; Line, Column: integer; var Action: TSynReplaceAction) of object;
string; Line, Column: integer; var ReplaceAction: TSynReplaceAction) of object;
TSpecialLineColorsEvent = procedure(Sender: TObject; Line: integer;
var Special: boolean; var FG, BG: TColor) of object;
@ -600,10 +600,7 @@ type
procedure EndUpdate;
procedure EnsureCursorPosVisible;
{$IFDEF SYN_COMPILER_4_UP}
{$IFNDEF SYN_LAZARUS}
// ToDo TBasicAction
function ExecuteAction(Action: TBasicAction): boolean; override;
{$ENDIF}
function ExecuteAction(ExeAction: TBasicAction): boolean; override;
{$ENDIF}
procedure ExecuteCommand(Command: TSynEditorCommand; AChar: char;
Data: pointer); virtual;
@ -652,10 +649,7 @@ type
procedure Undo;
procedure UnregisterCommandHandler(AHandlerProc: THookedCommandEvent);
{$IFDEF SYN_COMPILER_4_UP}
{$IFNDEF SYN_LAZARUS}
// ToDo TBasicAction
function UpdateAction(Action: TBasicAction): boolean; override;
{$ENDIF}
function UpdateAction(TheAction: TBasicAction): boolean; override;
{$ENDIF}
procedure WndProc(var Msg: TMessage); override;
public
@ -862,10 +856,7 @@ implementation
uses
{$IFDEF SYN_COMPILER_4_UP}
{$IFNDEF SYN_LAZARUS}
// ToDo StdActions
StdActns,
{$ENDIF}
{$ENDIF}
Clipbrd,
{$IFNDEF SYN_LAZARUS}
@ -7588,55 +7579,53 @@ begin
end;
{$IFDEF SYN_COMPILER_4_UP}
{$IFNDEF SYN_LAZARUS}
function TCustomSynEdit.ExecuteAction(Action: TBasicAction): boolean;
function TCustomSynEdit.ExecuteAction(ExeAction: TBasicAction): boolean;
begin
if Action is TEditAction then
if ExeAction is TEditAction then
begin
Result := TRUE;
if Action is TEditCut then
if ExeAction is TEditCut then
CutToClipboard
else if Action is TEditCopy then
else if ExeAction is TEditCopy then
CopyToClipboard
else if Action is TEditPaste then
else if ExeAction is TEditPaste then
PasteFromClipboard
{$IFDEF SYN_COMPILER_5_UP}
else if Action is TEditDelete then
else if ExeAction is TEditDelete then
ClearSelection
else if Action is TEditUndo then
else if ExeAction is TEditUndo then
Undo
else if Action is TEditSelectAll then
else if ExeAction is TEditSelectAll then
SelectAll;
{$ENDIF}
end else
Result := inherited ExecuteAction(Action);
Result := inherited ExecuteAction(ExeAction);
end;
function TCustomSynEdit.UpdateAction(Action: TBasicAction): boolean;
function TCustomSynEdit.UpdateAction(TheAction: TBasicAction): boolean;
begin
if Action is TEditAction then
if TheAction is TEditAction then
begin
Result := Focused;
if Result then
begin
if (Action is TEditCut) or (Action is TEditCopy) then
TEditAction(Action).Enabled := SelAvail
else if Action is TEditPaste then
TEditAction(Action).Enabled := CanPaste
if (TheAction is TEditCut) or (TheAction is TEditCopy) then
TEditAction(TheAction).Enabled := SelAvail
else if TheAction is TEditPaste then
TEditAction(TheAction).Enabled := CanPaste
{$IFDEF SYN_COMPILER_5_UP}
else if Action is TEditDelete then
TEditAction(Action).Enabled := TRUE
else if Action is TEditUndo then
TEditAction(Action).Enabled := CanUndo
else if Action is TEditSelectAll then
TEditAction(Action).Enabled := TRUE;
else if TheAction is TEditDelete then
TEditAction(TheAction).Enabled := TRUE
else if TheAction is TEditUndo then
TEditAction(TheAction).Enabled := CanUndo
else if TheAction is TEditSelectAll then
TEditAction(TheAction).Enabled := TRUE;
{$ENDIF}
end;
end else
Result := inherited UpdateAction(Action);
Result := inherited UpdateAction(TheAction);
end;
{$ENDIF}
{$ENDIF}
procedure TCustomSynEdit.SetModified(Value: boolean);
begin

78
lcl/Makefile
View File

@ -1,5 +1,5 @@
#
# Don't edit, this file is generated by FPCMake Version 1.1 [2004/01/24]
# Don't edit, this file is generated by FPCMake Version 1.1 [2004/02/22]
#
default: all
MAKEFILETARGETS=linux go32v2 win32 os2 freebsd beos netbsd amiga atari sunos qnx netware openbsd wdosx palmos macos darwin emx watcom
@ -257,7 +257,7 @@ endif
endif
override TARGET_DIRS+=interfaces
override TARGET_UNITS+=alllclunits
override TARGET_IMPLICITUNITS+=actnlist arrow avglvltree buttons calendar checklst clipbrd clistbox comctrls commctrl controls dbctrls dbgrids dialogs dynamicarray dynhasharray editbtn extctrls extdlgs extendedstrings filectrl fpcadds forms graphics graphmath graphtype grids imglist interfacebase lazlinkedlist lclintf lclproc lclmemmanager lclstrconsts lcltype lmessages lresources maskedit menus pairsplitter postscriptprinter printers spin stdctrls stringhashlist textstrings toolwin utrace vclglobals
override TARGET_IMPLICITUNITS+=actnlist arrow avglvltree buttons calendar checklst clipbrd clistbox comctrls commctrl controls dbctrls dbgrids dialogs dynamicarray dynhasharray editbtn extctrls extdlgs extendedstrings filectrl fpcadds forms graphics graphmath graphtype grids imglist interfacebase lazlinkedlist lclintf lclproc lclmemmanager lclstrconsts lcltype lmessages lresources maskedit menus pairsplitter postscriptprinter printers spin stdactns stdctrls stringhashlist textstrings toolwin utrace vclglobals
override TARGET_RSTS+=lclstrconsts
override CLEAN_FILES+=$(wildcard $(COMPILER_UNITTARGETDIR)/*$(OEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(PPUEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(RSTEXT)) $(wildcard ./units/*$(OEXT)) $(wildcard ./units/*$(PPUEXT)) $(wildcard ./units/*$(RSTEXT)) $(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
override INSTALL_BUILDUNIT=alllclunits
@ -468,7 +468,7 @@ CROSSBINDIR=
endif
ifeq ($(OS_SOURCE),linux)
ifndef GCCLIBDIR
GCCLIBDIR:=$(shell dirname `(gcc -v 2>&1)| head -n 1| awk '{ print $$4 } '`)
GCCLIBDIR:=$(shell dirname `gcc -print-libgcc-file-name`)
endif
ifndef OTHERLIBDIR
OTHERLIBDIR:=$(shell grep -v "^\#" /etc/ld.so.conf | awk '{ ORS=" "; print $1 }')
@ -972,6 +972,7 @@ REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_PTHREADS=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_MYSQL=1
REQUIRE_PACKAGES_IBASE=1
REQUIRE_PACKAGES_SQLITE=1
@ -988,6 +989,7 @@ REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_PTHREADS=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_MYSQL=1
REQUIRE_PACKAGES_IBASE=1
REQUIRE_PACKAGES_SQLITE=1
@ -1004,6 +1006,7 @@ REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_PTHREADS=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_MYSQL=1
REQUIRE_PACKAGES_IBASE=1
REQUIRE_PACKAGES_SQLITE=1
@ -1020,6 +1023,7 @@ REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_PTHREADS=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_MYSQL=1
REQUIRE_PACKAGES_IBASE=1
REQUIRE_PACKAGES_SQLITE=1
@ -1036,6 +1040,24 @@ REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_PTHREADS=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_MYSQL=1
REQUIRE_PACKAGES_IBASE=1
REQUIRE_PACKAGES_SQLITE=1
REQUIRE_PACKAGES_X11=1
REQUIRE_PACKAGES_OPENGL=1
REQUIRE_PACKAGES_GTK=1
endif
endif
ifeq ($(OS_TARGET),linux)
ifeq ($(CPU_TARGET),arm)
REQUIRE_PACKAGES_RTL=1
REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_PTHREADS=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_MYSQL=1
REQUIRE_PACKAGES_IBASE=1
REQUIRE_PACKAGES_SQLITE=1
@ -1049,6 +1071,7 @@ ifeq ($(CPU_TARGET),i386)
REQUIRE_PACKAGES_RTL=1
REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_OPENGL=1
@ -1061,6 +1084,7 @@ REQUIRE_PACKAGES_RTL=1
REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_MYSQL=1
REQUIRE_PACKAGES_IBASE=1
REQUIRE_PACKAGES_SQLITE=1
@ -1074,6 +1098,7 @@ ifeq ($(CPU_TARGET),i386)
REQUIRE_PACKAGES_RTL=1
REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_OPENGL=1
@ -1088,6 +1113,7 @@ REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_PTHREADS=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_MYSQL=1
REQUIRE_PACKAGES_IBASE=1
REQUIRE_PACKAGES_SQLITE=1
@ -1104,6 +1130,7 @@ REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_PTHREADS=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_MYSQL=1
REQUIRE_PACKAGES_IBASE=1
REQUIRE_PACKAGES_SQLITE=1
@ -1117,6 +1144,7 @@ ifeq ($(CPU_TARGET),i386)
REQUIRE_PACKAGES_RTL=1
REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_OPENGL=1
@ -1130,6 +1158,7 @@ REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_MYSQL=1
REQUIRE_PACKAGES_IBASE=1
REQUIRE_PACKAGES_SQLITE=1
@ -1145,6 +1174,7 @@ REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_MYSQL=1
REQUIRE_PACKAGES_IBASE=1
REQUIRE_PACKAGES_SQLITE=1
@ -1160,6 +1190,7 @@ REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_MYSQL=1
REQUIRE_PACKAGES_IBASE=1
REQUIRE_PACKAGES_SQLITE=1
@ -1175,6 +1206,7 @@ REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_MYSQL=1
REQUIRE_PACKAGES_IBASE=1
REQUIRE_PACKAGES_SQLITE=1
@ -1188,6 +1220,7 @@ ifeq ($(CPU_TARGET),m68k)
REQUIRE_PACKAGES_RTL=1
REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_OPENGL=1
@ -1199,6 +1232,7 @@ ifeq ($(CPU_TARGET),m68k)
REQUIRE_PACKAGES_RTL=1
REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_OPENGL=1
@ -1210,6 +1244,7 @@ ifeq ($(CPU_TARGET),i386)
REQUIRE_PACKAGES_RTL=1
REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_OPENGL=1
@ -1221,6 +1256,7 @@ ifeq ($(CPU_TARGET),sparc)
REQUIRE_PACKAGES_RTL=1
REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_OPENGL=1
@ -1232,6 +1268,7 @@ ifeq ($(CPU_TARGET),i386)
REQUIRE_PACKAGES_RTL=1
REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_OPENGL=1
@ -1243,6 +1280,7 @@ ifeq ($(CPU_TARGET),i386)
REQUIRE_PACKAGES_RTL=1
REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_OPENGL=1
@ -1256,6 +1294,7 @@ REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_MYSQL=1
REQUIRE_PACKAGES_IBASE=1
REQUIRE_PACKAGES_SQLITE=1
@ -1271,6 +1310,7 @@ REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_MYSQL=1
REQUIRE_PACKAGES_IBASE=1
REQUIRE_PACKAGES_SQLITE=1
@ -1284,6 +1324,7 @@ ifeq ($(CPU_TARGET),i386)
REQUIRE_PACKAGES_RTL=1
REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_OPENGL=1
@ -1295,6 +1336,7 @@ ifeq ($(CPU_TARGET),m68k)
REQUIRE_PACKAGES_RTL=1
REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_OPENGL=1
@ -1306,6 +1348,7 @@ ifeq ($(CPU_TARGET),powerpc)
REQUIRE_PACKAGES_RTL=1
REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_OPENGL=1
@ -1320,6 +1363,7 @@ REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_PTHREADS=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_MYSQL=1
REQUIRE_PACKAGES_IBASE=1
REQUIRE_PACKAGES_SQLITE=1
@ -1332,6 +1376,7 @@ ifeq ($(CPU_TARGET),i386)
REQUIRE_PACKAGES_RTL=1
REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_OPENGL=1
@ -1343,6 +1388,7 @@ ifeq ($(CPU_TARGET),i386)
REQUIRE_PACKAGES_RTL=1
REQUIRE_PACKAGES_PASZLIB=1
REQUIRE_PACKAGES_FCL=1
REQUIRE_PACKAGES_PASJPEG=1
REQUIRE_PACKAGES_NETDB=1
REQUIRE_PACKAGES_LIBASYNC=1
REQUIRE_PACKAGES_OPENGL=1
@ -1505,6 +1551,32 @@ ifdef UNITDIR_FCL
override COMPILER_UNITDIR+=$(UNITDIR_FCL)
endif
endif
ifdef REQUIRE_PACKAGES_PASJPEG
PACKAGEDIR_PASJPEG:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /pasjpeg/Makefile.fpc,$(PACKAGESDIR))))))
ifneq ($(PACKAGEDIR_PASJPEG),)
ifneq ($(wildcard $(PACKAGEDIR_PASJPEG)/$(OS_TARGET)),)
UNITDIR_PASJPEG=$(PACKAGEDIR_PASJPEG)/$(OS_TARGET)
else
UNITDIR_PASJPEG=$(PACKAGEDIR_PASJPEG)
endif
ifdef CHECKDEPEND
$(PACKAGEDIR_PASJPEG)/$(FPCMADE):
$(MAKE) -C $(PACKAGEDIR_PASJPEG) $(FPCMADE)
override ALLDEPENDENCIES+=$(PACKAGEDIR_PASJPEG)/$(FPCMADE)
endif
else
PACKAGEDIR_PASJPEG=
UNITDIR_PASJPEG:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /pasjpeg/Package.fpc,$(UNITSDIR)))))
ifneq ($(UNITDIR_PASJPEG),)
UNITDIR_PASJPEG:=$(firstword $(UNITDIR_PASJPEG))
else
UNITDIR_PASJPEG=
endif
endif
ifdef UNITDIR_PASJPEG
override COMPILER_UNITDIR+=$(UNITDIR_PASJPEG)
endif
endif
ifdef REQUIRE_PACKAGES_MYSQL
PACKAGEDIR_MYSQL:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /mysql/Makefile.fpc,$(PACKAGESDIR))))))
ifneq ($(PACKAGEDIR_MYSQL),)

1
lcl/Makefile.fpc
View File

@ -54,6 +54,7 @@ implicitunits= \
postscriptprinter \
printers \
spin \
stdactns \
stdctrls \
stringhashlist \
textstrings \

5
lcl/alllclunits.pp
View File

@ -39,7 +39,7 @@ uses
// the interface base
InterfaceBase, {$IFNDEF DisableFPImage}IntfGraphics,{$ENDIF}
// components and functions
Buttons, Extctrls, Calendar, Clipbrd, Forms, LCLIntf, Spin,
StdActns, Buttons, Extctrls, Calendar, Clipbrd, Forms, LCLIntf, Spin,
Comctrls, Graphics, StdCtrls, Arrow, Controls, ImgList, Menus, Toolwin,
Dialogs, Messages, Clistbox, ActnList, Grids, MaskEdit,
Printers, PostScriptPrinter, CheckLst, PairSplitter, ExtDlgs,
@ -52,6 +52,9 @@ end.
{ =============================================================================
$Log$
Revision 1.10 2004/02/24 21:53:12 mattias
added StdActns definitions, no code yet
Revision 1.9 2004/02/10 00:38:43 mattias
deactivated fpImage or fpc 1.0.10

5
lcl/controls.pp
View File

@ -861,7 +861,7 @@ type
procedure QuadClick; dynamic;
procedure DoStartDrag(var DragObject: TDragObject); dynamic;
procedure DragOver(Source: TObject; X,Y: Integer; State: TDragState;
var Accept:Boolean); dynamic;
var Accept: Boolean); dynamic;
procedure DragCanceled; dynamic;
procedure DoEndDrag(Target: TObject; X,Y : Integer); dynamic;
procedure InvalidateControl(IsVisible, IsOpaque : Boolean);
@ -2389,6 +2389,9 @@ end.
{ =============================================================================
$Log$
Revision 1.184 2004/02/24 21:53:12 mattias
added StdActns definitions, no code yet
Revision 1.183 2004/02/23 23:15:12 mattias
improved FindDragTarget

5
lcl/extctrls.pp
View File

@ -461,6 +461,8 @@ type
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnMouseEnter;
property OnMouseLeave;
property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
property OnResize;
// property OnStartDock;
@ -923,6 +925,9 @@ end.
{
$Log$
Revision 1.99 2004/02/24 21:53:12 mattias
added StdActns definitions, no code yet
Revision 1.98 2004/02/22 10:43:20 mattias
added child-parent checks

814
lcl/stdactns.pas Normal file
View File

@ -0,0 +1,814 @@
{
/***************************************************************************
StdActns.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. *
* *
*****************************************************************************
Only types, no code yet.
ToDo: Implement the actions.
}
unit StdActns;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, ActnList, Forms, Dialogs, StdCtrls;
type
{ Hint actions }
THintAction = class(TCustomAction)
public
constructor Create(TheOwner: TComponent); override;
published
property Hint;
end;
{ Edit actions }
TEditAction = class(TAction)
private
FControl: TCustomEdit;
procedure SetControl(const AValue: TCustomEdit);
protected
function GetControl(Target: TObject): TCustomEdit; virtual;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
public
destructor Destroy; override;
function HandlesTarget(Target: TObject): Boolean; override;
procedure UpdateTarget(Target: TObject); override;
property Control: TCustomEdit read FControl write SetControl;
end;
TEditCut = class(TEditAction)
public
procedure ExecuteTarget(Target: TObject); override;
end;
TEditCopy = class(TEditAction)
public
procedure ExecuteTarget(Target: TObject); override;
end;
TEditPaste = class(TEditAction)
public
procedure UpdateTarget(Target: TObject); override;
procedure ExecuteTarget(Target: TObject); override;
end;
TEditSelectAll = class(TEditAction)
public
procedure ExecuteTarget(Target: TObject); override;
procedure UpdateTarget(Target: TObject); override;
end;
TEditUndo = class(TEditAction)
public
procedure ExecuteTarget(Target: TObject); override;
procedure UpdateTarget(Target: TObject); override;
end;
TEditDelete = class(TEditAction)
public
procedure ExecuteTarget(Target: TObject); override;
{ UpdateTarget is required because TEditAction.UpdateTarget specifically
checks to see if the action is TEditCut or TEditCopy }
procedure UpdateTarget(Target: TObject); override;
end;
{ Help actions }
THelpAction = class(TAction)
public
constructor Create(TheOwner: TComponent); override;
function HandlesTarget(Target: TObject): Boolean; override;
procedure UpdateTarget(Target: TObject); override;
end;
THelpContents = class(THelpAction)
public
procedure ExecuteTarget(Target: TObject); override;
end;
THelpTopicSearch = class(THelpAction)
public
procedure ExecuteTarget(Target: TObject); override;
end;
THelpOnHelp = class(THelpAction)
public
procedure ExecuteTarget(Target: TObject); override;
end;
THelpContextAction = class(THelpAction)
public
procedure ExecuteTarget(Target: TObject); override;
procedure UpdateTarget(Target: TObject); override;
end;
{ TCommonDialogAction }
TCommonDialogClass = class of TCommonDialog;
TCommonDialogAction = class(TCustomAction)
private
FBeforeExecute: TNotifyEvent;
FExecuteResult: Boolean;
FOnAccept: TNotifyEvent;
FOnCancel: TNotifyEvent;
protected
FDialog: TCommonDialog;
procedure DoAccept;
procedure DoCancel;
function GetDialogClass: TCommonDialogClass; virtual;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure SetupDialog;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
function Handlestarget(Target: TObject): Boolean; override;
procedure ExecuteTarget(Target: TObject); override;
property ExecuteResult: Boolean read FExecuteResult;
property BeforeExecute: TNotifyEvent read FBeforeExecute write FBeforeExecute;
property OnAccept: TNotifyEvent read FOnAccept write FOnAccept;
property OnCancel: TNotifyEvent read FOnCancel write FOnCancel;
end;
{ File Actions }
TFileAction = class(TCommonDialogAction)
private
function GetFileName: TFileName;
procedure SetFileName(const AValue: TFileName);
protected
function GetDialog: TOpenDialog;
property FileName: TFileName read GetFileName write SetFileName;
end;
TFileOpen = class(TFileAction)
private
FUseDefaultApp: Boolean;
function GetDialog: TOpenDialog;
protected
function GetDialogClass: TCommonDialogClass; override;
public
constructor Create(TheOwner: TComponent); override;
procedure ExecuteTarget(Target: TObject); override;
published
property Caption;
property Dialog: TOpenDialog read GetDialog;
property Enabled;
property HelpContext;
property HelpKeyword;
property HelpType;
property Hint;
property ImageIndex;
property ShortCut;
property SecondaryShortCuts;
property UseDefaultApp: Boolean read FUseDefaultApp write FUseDefaultApp
default False;
property Visible;
property BeforeExecute;
property OnAccept;
property OnCancel;
property OnHint;
end;
TFileOpenWith = class(TFileOpen)
private
FAfterOpen: TNotifyEvent;
FFileName: TFileName;
public
procedure ExecuteTarget(Target: TObject); override;
published
property FileName: TFileName read FFileName write FFileName;
property HelpContext;
property HelpKeyword;
property HelpType;
property BeforeExecute;
property AfterOpen: TNotifyEvent read FAfterOpen write FAfterOpen;
end;
TFileSaveAs = class(TFileAction)
private
function GetSaveDialog: TSaveDialog;
protected
function GetDialogClass: TCommonDialogClass; override;
public
constructor Create(TheOwner: TComponent); override;
published
property Caption;
property Dialog: TSaveDialog read GetSaveDialog;
property Enabled;
property HelpContext;
property Hint;
property ImageIndex;
property ShortCut;
property SecondaryShortCuts;
property Visible;
property BeforeExecute;
property OnAccept;
property OnCancel;
property OnHint;
end;
{TFilePrintSetup = class(TCommonDialogAction)
private
function GetDialog: TPrinterSetupDialog;
protected
function GetDialogClass: TCommonDialogClass; override;
published
property Caption;
property Dialog: TPrinterSetupDialog read GetDialog;
property Enabled;
property HelpContext;
property HelpKeyword;
property HelpType;
property Hint;
property ImageIndex;
property ShortCut;
property SecondaryShortCuts;
property Visible;
property BeforeExecute;
property OnAccept;
property OnCancel;
property OnHint;
end;
TFilePageSetup = class(TCommonDialogAction)
private
function GetDialog: TPageSetupDialog;
protected
function GetDialogClass: TCommonDialogClass; override;
published
property Caption;
property Dialog: TPageSetupDialog read GetDialog;
property Enabled;
property HelpContext;
property HelpKeyword;
property HelpType;
property Hint;
property ImageIndex;
property ShortCut;
property SecondaryShortCuts;
property Visible;
property BeforeExecute;
property OnAccept;
property OnCancel;
property OnHint;
end;}
TFileExit = class(TCustomAction)
public
function HandlesTarget(Target: TObject): Boolean; override;
procedure ExecuteTarget(Target: TObject); override;
published
property Caption;
property Enabled;
property HelpContext;
property HelpKeyword;
property HelpType;
property Hint;
property ImageIndex;
property ShortCut;
property SecondaryShortCuts;
property Visible;
property OnHint;
end;
{ Search Actions }
TSearchAction = class(TCommonDialogAction)
protected
FControl: TCustomEdit;
FFindFirst: Boolean;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
function HandlesTarget(Target: TObject): Boolean; override;
procedure Search(Sender: TObject); virtual;
procedure UpdateTarget(Target: TObject); override;
procedure ExecuteTarget(Target: TObject); override;
end;
{TSearchFind = class(TSearchAction)
private
function GetFindDialog: TFindDialog;
protected
function GetDialogClass: TCommonDialogClass; override;
published
property Caption;
property Dialog: TFindDialog read GetFindDialog;
property Enabled;
property HelpContext;
property HelpKeyword;
property HelpType;
property Hint;
property ImageIndex;
property ShortCut;
property SecondaryShortCuts;
property Visible;
property BeforeExecute;
property OnAccept;
property OnCancel;
property OnHint;
end;
TSearchReplace = class(TSearchAction)
private
function GetReplaceDialog: TReplaceDialog;
protected
function GetDialogClass: TCommonDialogClass; override;
public
procedure ExecuteTarget(Target: TObject); override;
published
property Caption;
property Dialog: TReplaceDialog read GetReplaceDialog;
property Enabled;
property HelpContext;
property HelpKeyword;
property HelpType;
property Hint;
property ImageIndex;
property ShortCut;
property SecondaryShortCuts;
property Visible;
property BeforeExecute;
property OnAccept;
property OnCancel;
property OnHint;
end;
TSearchFindFirst = class(TSearchFind)
public
constructor Create(TheOwner: TComponent); override;
end;
TSearchFindNext = class(TCustomAction)
private
FSearchFind: TSearchFind;
public
constructor Create(TheOwner: TComponent); override;
function HandlesTarget(Target: TObject): Boolean; override;
procedure UpdateTarget(Target: TObject); override;
procedure ExecuteTarget(Target: TObject); override;
published
property Caption;
property Enabled;
property HelpContext;
property HelpKeyword;
property HelpType;
property Hint;
property ImageIndex;
property SearchFind: TSearchFind read FSearchFind write FSearchFind;
property ShortCut;
property SecondaryShortCuts;
property Visible;
property OnHint;
end;}
{ TFontEdit }
TFontEdit = class(TCommonDialogAction)
private
function GetDialog: TFontDialog;
protected
function GetDialogClass: TCommonDialogClass; override;
published
property Caption;
property Dialog: TFontDialog read GetDialog;
property Enabled;
property HelpContext;
property HelpKeyword;
property HelpType;
property Hint;
property ImageIndex;
property ShortCut;
property SecondaryShortCuts;
property Visible;
property BeforeExecute;
property OnAccept;
property OnCancel;
property OnHint;
end;
{ TColorSelect }
TColorSelect = class(TCommonDialogAction)
private
function GetDialog: TColorDialog;
protected
function GetDialogClass: TCommonDialogClass; override;
published
property Caption;
property Dialog: TColorDialog read GetDialog;
property Enabled;
property HelpContext;
property HelpKeyword;
property HelpType;
property Hint;
property ImageIndex;
property ShortCut;
property SecondaryShortCuts;
property Visible;
property BeforeExecute;
property OnAccept;
property OnCancel;
property OnHint;
end;
{ TPrintDlg }
{TPrintDlg = class(TCommonDialogAction)
private
function GetDialog: TPrintDialog;
protected
function GetDialogClass: TCommonDialogClass; override;
published
property Caption;
property Dialog: TPrintDialog read GetDialog;
property Enabled;
property HelpContext;
property HelpKeyword;
property HelpType;
property Hint;
property ImageIndex;
property ShortCut;
property SecondaryShortCuts;
property Visible;
property BeforeExecute;
property OnAccept;
property OnCancel;
property OnHint;
end;}
implementation
{ THintAction }
constructor THintAction.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
end;
{ TEditAction }
procedure TEditAction.SetControl(const AValue: TCustomEdit);
begin
if FControl=AValue then exit;
FControl:=AValue;
end;
function TEditAction.GetControl(Target: TObject): TCustomEdit;
begin
Result:=nil;
end;
procedure TEditAction.Notification(AComponent: TComponent; Operation: TOperation
);
begin
inherited Notification(AComponent, Operation);
end;
destructor TEditAction.Destroy;
begin
inherited Destroy;
end;
function TEditAction.HandlesTarget(Target: TObject): Boolean;
begin
Result:=inherited HandlesTarget(Target);
end;
procedure TEditAction.UpdateTarget(Target: TObject);
begin
inherited UpdateTarget(Target);
end;
{ TEditCut }
procedure TEditCut.ExecuteTarget(Target: TObject);
begin
inherited ExecuteTarget(Target);
end;
{ TEditCopy }
procedure TEditCopy.ExecuteTarget(Target: TObject);
begin
inherited ExecuteTarget(Target);
end;
{ TEditPaste }
procedure TEditPaste.UpdateTarget(Target: TObject);
begin
inherited UpdateTarget(Target);
end;
procedure TEditPaste.ExecuteTarget(Target: TObject);
begin
inherited ExecuteTarget(Target);
end;
{ TEditSelectAll }
procedure TEditSelectAll.ExecuteTarget(Target: TObject);
begin
inherited ExecuteTarget(Target);
end;
procedure TEditSelectAll.UpdateTarget(Target: TObject);
begin
inherited UpdateTarget(Target);
end;
{ TEditUndo }
procedure TEditUndo.ExecuteTarget(Target: TObject);
begin
inherited ExecuteTarget(Target);
end;
procedure TEditUndo.UpdateTarget(Target: TObject);
begin
inherited UpdateTarget(Target);
end;
{ TEditDelete }
procedure TEditDelete.ExecuteTarget(Target: TObject);
begin
inherited ExecuteTarget(Target);
end;
procedure TEditDelete.UpdateTarget(Target: TObject);
begin
inherited UpdateTarget(Target);
end;
{ THelpAction }
constructor THelpAction.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
end;
function THelpAction.HandlesTarget(Target: TObject): Boolean;
begin
Result:=inherited HandlesTarget(Target);
end;
procedure THelpAction.UpdateTarget(Target: TObject);
begin
inherited UpdateTarget(Target);
end;
{ THelpContents }
procedure THelpContents.ExecuteTarget(Target: TObject);
begin
inherited ExecuteTarget(Target);
end;
{ THelpTopicSearch }
procedure THelpTopicSearch.ExecuteTarget(Target: TObject);
begin
inherited ExecuteTarget(Target);
end;
{ THelpOnHelp }
procedure THelpOnHelp.ExecuteTarget(Target: TObject);
begin
inherited ExecuteTarget(Target);
end;
{ THelpContextAction }
procedure THelpContextAction.ExecuteTarget(Target: TObject);
begin
inherited ExecuteTarget(Target);
end;
procedure THelpContextAction.UpdateTarget(Target: TObject);
begin
inherited UpdateTarget(Target);
end;
{ TCommonDialogAction }
procedure TCommonDialogAction.DoAccept;
begin
end;
procedure TCommonDialogAction.DoCancel;
begin
end;
function TCommonDialogAction.GetDialogClass: TCommonDialogClass;
begin
Result:=nil;
end;
procedure TCommonDialogAction.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
end;
procedure TCommonDialogAction.SetupDialog;
begin
end;
constructor TCommonDialogAction.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
end;
destructor TCommonDialogAction.Destroy;
begin
inherited Destroy;
end;
function TCommonDialogAction.Handlestarget(Target: TObject): Boolean;
begin
Result:=inherited Handlestarget(Target);
end;
procedure TCommonDialogAction.ExecuteTarget(Target: TObject);
begin
inherited ExecuteTarget(Target);
end;
{ TFileAction }
function TFileAction.GetFileName: TFileName;
begin
Result:='ToDo';
end;
procedure TFileAction.SetFileName(const AValue: TFileName);
begin
end;
function TFileAction.GetDialog: TOpenDialog;
begin
Result:=nil;
end;
{ TFileOpen }
function TFileOpen.GetDialog: TOpenDialog;
begin
Result:=nil;
end;
function TFileOpen.GetDialogClass: TCommonDialogClass;
begin
Result:=inherited GetDialogClass;
end;
constructor TFileOpen.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
end;
procedure TFileOpen.ExecuteTarget(Target: TObject);
begin
inherited ExecuteTarget(Target);
end;
{ TFileOpenWith }
procedure TFileOpenWith.ExecuteTarget(Target: TObject);
begin
inherited ExecuteTarget(Target);
end;
{ TFileSaveAs }
function TFileSaveAs.GetSaveDialog: TSaveDialog;
begin
Result:=nil;
end;
function TFileSaveAs.GetDialogClass: TCommonDialogClass;
begin
Result:=inherited GetDialogClass;
end;
constructor TFileSaveAs.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
end;
{ TFileExit }
function TFileExit.HandlesTarget(Target: TObject): Boolean;
begin
Result:=inherited HandlesTarget(Target);
end;
procedure TFileExit.ExecuteTarget(Target: TObject);
begin
inherited ExecuteTarget(Target);
end;
{ TSearchAction }
procedure TSearchAction.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
end;
constructor TSearchAction.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
end;
destructor TSearchAction.Destroy;
begin
inherited Destroy;
end;
function TSearchAction.HandlesTarget(Target: TObject): Boolean;
begin
Result:=inherited HandlesTarget(Target);
end;
procedure TSearchAction.Search(Sender: TObject);
begin
end;
procedure TSearchAction.UpdateTarget(Target: TObject);
begin
inherited UpdateTarget(Target);
end;
procedure TSearchAction.ExecuteTarget(Target: TObject);
begin
inherited ExecuteTarget(Target);
end;
{ TFontEdit }
function TFontEdit.GetDialog: TFontDialog;
begin
Result:=nil;
end;
function TFontEdit.GetDialogClass: TCommonDialogClass;
begin
Result:=inherited GetDialogClass;
end;
{ TColorSelect }
function TColorSelect.GetDialog: TColorDialog;
begin
Result:=nil;
end;
function TColorSelect.GetDialogClass: TCommonDialogClass;
begin
Result:=inherited GetDialogClass;
end;
end.