paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-29 02:23:42 +02:00
Code Issues Packages Projects Releases Wiki Activity
e8a875cfda
lazarus/lcl/interfacebase.pp
micha f601ebe0c9 convert LM_REDRAW message to interface method (in twidgetset) 
git-svn-id: trunk@5995 -
2004-09-14 10:06:26 +00:00

318 lines
9.6 KiB
ObjectPascal
Raw Blame History

{
/***************************************************************************
InterfaceBase.pp
----------------
Initial Revision : Fri Jul 23 20:00:00 PDT 1999
***************************************************************************/
*****************************************************************************
* *
* 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 InterfaceBase;
{$mode objfpc}
{$LONGSTRINGS ON}
interface
{$ifdef Trace}
{$ASSERTIONS ON}
{$endif}
uses
Classes, SysUtils, Math, FPCAdds, LCLStrConsts, LCLType, LCLProc, LMessages,
GraphType, GraphMath;
type
{ TWidgetSet }
TWidgetSet = class(TObject)
protected
procedure PassCmdLineOptions; virtual;
public
constructor Create;
destructor Destroy; override;
procedure HandleEvents; virtual; abstract;
procedure WaitMessage; virtual; abstract;
procedure AppInit; virtual; abstract;
procedure AppTerminate; virtual; abstract;
procedure AppMinimize; virtual; abstract;
procedure AppBringToFront; virtual; abstract;
function DCGetPixel(CanvasHandle: HDC; X, Y: integer): TGraphicsColor; virtual; abstract;
procedure DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGraphicsColor); virtual; abstract;
procedure DCRedraw(CanvasHandle: HDC); virtual; abstract;
function InitHintFont(HintFont: TObject): Boolean; virtual;
function IntSendMessage3(LM_Message: Integer; Sender: TObject;
Data: pointer): integer; virtual; abstract;
// create and destroy
function CreateComponent(Sender : TObject): THandle; virtual; abstract;
function CreateTimer(Interval: integer; TimerFunc: TFNTimerProc): integer; virtual; abstract;
function DestroyTimer(TimerHandle: integer): boolean; virtual; abstract;
{$DEFINE IF_BASE_MEMBER}
{$I winapih.inc}
{$I lclintfh.inc}
{$UNDEF IF_BASE_MEMBER}
end;
type
EInterfaceException = class(Exception);
EInterfaceError = class(EInterfaceException);
EInterfaceCritical = class(EInterfaceException);
EInterfaceWarning = class(EInterfaceException);
{$I defaultbitbtnimages.inc}
{$I messagedialogpixmaps.inc}
type
TInputDialogFunction = Function (const InputCaption, InputPrompt : String;
MaskInput : Boolean; var Value : String) : Boolean;
var
InputDialogFunction: TInputDialogFunction;
type
TPromptDialogFunction = Function(const DialogCaption, DialogMessage : String;
DialogType : longint; Buttons : PLongint;
ButtonCount, DefaultIndex, EscapeResult : Longint;
UseDefaultPos: boolean;
X, Y : Longint) : Longint;
var
PromptDialogFunction: TPromptDialogFunction;
var
InterfaceObject: TWidgetSet;
implementation
const
UNKNOWN_VK_PREFIX = 'Word(''';
UNKNOWN_VK_POSTFIX = ''')';
{$I interfacebase.inc}
{$I intfbasewinapi.inc}
{$I intfbaselcl.inc}
initialization
InputDialogFunction:=nil;
InterfaceObject:=nil;
finalization
InputDialogFunction:=nil;
end.
{
$Log$
Revision 1.52 2004/09/14 10:06:25 micha
convert LM_REDRAW message to interface method (in twidgetset)
Revision 1.51 2004/09/12 13:11:50 micha
convert LM_GETPIXEL and LM_SETPIXEL to interface methods (of twidgetset, DCGetPixel and DCSetPixel)
Revision 1.50 2004/09/11 13:38:37 micha
convert LM_BRINGTOFRONT message to interface method
NOTE: was only used for tapplication, not from other controls
Revision 1.49 2004/08/27 08:55:22 micha
implement tapplication.minimize for win32, stub for gtk
Revision 1.48 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.47 2004/08/11 20:57:09 mattias
moved intfstrconsts.pp to lclstrconsts.pas, implemented TPenHandleCache
Revision 1.46 2004/03/19 00:53:34 marc
* Removed all ComponentCreateHandle routines
Revision 1.45 2004/03/05 00:14:02 marc
* Renamed TInterfaceBase to TWidgetSet
Revision 1.44 2004/02/23 08:19:04 micha
revert intf split
Revision 1.42 2004/02/10 00:38:43 mattias
deactivated fpImage or fpc 1.0.10
Revision 1.41 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.40 2003/12/25 14:17:07 mattias
fixed many range check warnings
Revision 1.39 2003/12/14 19:18:04 micha
hint fixes: parentfont, font itself, showing/hiding + more
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
Revision 1.36 2003/11/25 14:21:28 micha
new api lclenable,checkmenuitem according to list
Revision 1.35 2003/11/24 11:03:07 marc
* Splitted winapi*.inc into a winapi and a lcl interface communication part
Revision 1.34 2003/10/28 14:25:37 mattias
fixed unit circle
Revision 1.33 2003/10/26 17:34:41 micha
new interface method to attach a menu to window
Revision 1.32 2003/08/18 19:24:18 mattias
fixed TCanvas.Pie
Revision 1.31 2003/08/12 23:51:51 marc
+ Introduced interface exceptions
Revision 1.30 2002/08/17 23:41:34 mattias
many clipping fixes
Revision 1.29 2003/02/28 10:14:28 mattias
started package system (packager)
Revision 1.28 2002/02/09 01:48:23 mattias
renamed TinterfaceObject.Init to AppInit and TWinControls can now contain childs in gtk
Revision 1.27 2002/12/04 20:39:14 mattias
patch from Vincent: clean ups and fixed crash on destroying window
Revision 1.26 2002/12/03 09:11:36 mattias
cleaned up
Revision 1.25 2002/11/23 13:48:43 mattias
added Timer patch from Vincent Snijders
Revision 1.24 2002/10/26 15:15:46 lazarus
MG: broke LCL<->interface circles
Revision 1.23 2002/10/26 10:21:01 lazarus
MG: broke actnlist <-> menus circle
Revision 1.22 2002/10/25 10:06:34 lazarus
MG: broke interfacebase uses circles
Revision 1.21 2002/10/25 09:47:37 lazarus
MG: added inputdialog.inc
Revision 1.20 2002/10/24 22:10:39 lazarus
AJ: More changes for better code reuse between gnome & gtk interfaces
Revision 1.19 2002/10/16 16:58:22 lazarus
MG: moved SendCachedLCLMessages
Revision 1.18 2002/10/15 07:01:29 lazarus
MG: fixed timer checking
Revision 1.17 2002/10/12 16:36:39 lazarus
AJ: added new QueryUser/NotifyUser
Revision 1.16 2002/10/11 16:00:39 lazarus
AJ: made InputQuery Interface Dependant
Revision 1.15 2002/10/01 10:15:31 lazarus
MG: removed last clientrectbugfix switches
Revision 1.14 2002/10/01 10:12:34 lazarus
MG: added SendCachedLCLMessages to interfacebase for wysiwyg
Revision 1.13 2002/09/19 16:45:54 lazarus
MG: fixed Menu.Free and gdkwindow=nil bug
Revision 1.12 2002/08/19 20:34:47 lazarus
MG: improved Clipping, TextOut, Polygon functions
Revision 1.11 2002/05/20 14:19:03 lazarus
MG: activated the clientrect bugfixes
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/29 19:11:38 lazarus
Added Triple Click
Shane
Revision 1.7 2002/03/27 08:57:16 lazarus
MG: reduced compiler warnings
Revision 1.6 2002/03/25 17:59:19 lazarus
GTK Cleanup
Shane
Revision 1.5 2002/02/03 00:24:00 lazarus
TPanel implemented.
Basic graphic primitives split into GraphType package, so that we can
reference it from interface (GTK, Win32) units.
New Frame3d canvas method that uses native (themed) drawing (GTK only).
New overloaded Canvas.TextRect method.
LCLLinux and Graphics was split, so a bunch of files had to be modified.
Revision 1.4 2001/07/01 23:33:13 lazarus
MG: added WaitMessage and HandleEvents is now non blocking
Revision 1.3 2001/03/27 21:12:53 lazarus
MWE:
+ Turned on longstrings
+ modified memotest to add lines
Revision 1.2 2001/02/01 19:34:50 lazarus
TScrollbar created and a lot of code added.
It's cose to working.
Shane
Revision 1.1 2000/07/13 10:28:24 michael
+ Initial import
Revision 1.6 2000/05/27 22:20:55 lazarus
MWE & VRS:
+ Added new hint code
Revision 1.5 2000/03/23 22:48:56 lazarus
MWE & Hans-Joachim Ott <hjott@compuserve.com>:
+ added replacement for LM_GetText
Revision 1.4 2000/01/31 20:00:22 lazarus
Added code for Application.ProcessMessages. Needs work.
Added TScreen.Width and TScreen.Height. Added the code into
GetSystemMetrics for these two properties.
Shane
Revision 1.3 1999/12/08 00:56:07 lazarus
MWE:
Fixed menus. Events aren't enabled yet (dumps --> invalid typecast ??)
Revision 1.2 1999/11/13 12:58:03 lazarus
MWE:
Converted to Unix files :-)
Revision 1.1 1999/11/13 12:53:53 lazarus
MWE:
Started to implement some platform dependent WINAPI stuff
These are now part of InterfaceObject.
}
Reference in New Issue View Git Blame Copy Permalink