mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-05 01:58:31 +02:00
141 lines
4.0 KiB
ObjectPascal
141 lines
4.0 KiB
ObjectPascal
{ $Id: qtint.pp 10067 2006-10-15 13:27:27Z andrew $ }
|
|
{
|
|
/***************************************************************************
|
|
FpGui.pp - FpGuiInterface Object
|
|
-------------------
|
|
|
|
Initial Revision : Thu July 1st CST 1999
|
|
|
|
|
|
***************************************************************************/
|
|
|
|
*****************************************************************************
|
|
* *
|
|
* This file is part of the Lazarus Component Library (LCL) *
|
|
* *
|
|
* See the file COPYING.modifiedLGPL, 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 fpguiint;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
{$ifdef Trace}
|
|
{$ASSERTIONS ON}
|
|
{$endif}
|
|
|
|
uses
|
|
// FCL
|
|
Classes, Types, SysUtils, Math,
|
|
// LCL
|
|
InterfaceBase, LCLProc, LCLType, LMessages,
|
|
Controls, ExtCtrls, Forms, Dialogs, StdCtrls, Comctrls, LCLIntf,
|
|
GraphType,
|
|
// Bindings
|
|
fpgfx, gui_form,
|
|
// Widgetset
|
|
FPGUIWSPrivate, fpguiobjects;
|
|
|
|
type
|
|
|
|
{ TFpGuiWidgetSet }
|
|
|
|
TFpGuiWidgetSet = Class(TWidgetSet)
|
|
private
|
|
public
|
|
// Application
|
|
procedure AppInit(var ScreenInfo: TScreenInfo); override;
|
|
procedure AppRun(const ALoop: TApplicationMainLoop); override;
|
|
procedure AppWaitMessage; override;
|
|
procedure AppProcessMessages; override;
|
|
procedure AppTerminate; override;
|
|
procedure AppMinimize; override;
|
|
procedure AppRestore; override;
|
|
procedure AppBringToFront; override;
|
|
// procedure AppSetTitle(const ATitle: string); override;
|
|
function LCLPlatform: TLCLPlatform; override;
|
|
public
|
|
constructor Create; override;
|
|
destructor Destroy; override;
|
|
|
|
function DCGetPixel(CanvasHandle: HDC; X, Y: integer): TGraphicsColor; override;
|
|
procedure DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGraphicsColor); override;
|
|
procedure DCRedraw(CanvasHandle: HDC); override;
|
|
procedure SetDesigning(AComponent: TComponent); override;
|
|
|
|
function InitHintFont(HintFont: TObject): Boolean; override;
|
|
|
|
|
|
// create and destroy
|
|
function CreateTimer(Interval: integer; TimerFunc: TFNTimerProc): THandle; override;
|
|
function DestroyTimer(TimerHandle: THandle): boolean; override;
|
|
|
|
// device contexts
|
|
function IsValidDC(const DC: HDC): Boolean; virtual;
|
|
function IsValidGDIObject(const GDIObject: HGDIOBJ): Boolean; virtual;
|
|
public
|
|
{$I fpguiwinapih.inc}
|
|
{$I fpguilclintfh.inc}
|
|
end;
|
|
|
|
|
|
var
|
|
FpGuiWidgetSet: TFpGuiWidgetSet;
|
|
|
|
implementation
|
|
|
|
uses
|
|
////////////////////////////////////////////////////
|
|
// I M P O R T A N T
|
|
////////////////////////////////////////////////////
|
|
// To get as little as possible circles,
|
|
// uncomment only those units with implementation
|
|
////////////////////////////////////////////////////
|
|
// FpGuiWSActnList,
|
|
// FpGuiWSArrow,
|
|
FpGuiWSButtons,
|
|
// FpGuiWSCalendar,
|
|
// FpGuiWSCheckLst,
|
|
// FpGuiWSComCtrls,
|
|
FpGuiWSControls,
|
|
// FpGuiWSDbCtrls,
|
|
// FpGuiWSDBGrids,
|
|
// FpGuiWSDialogs,
|
|
// FpGuiWSDirSel,
|
|
// FpGuiWSEditBtn,
|
|
FpGuiWSExtCtrls,
|
|
// FpGuiWSExtDlgs,
|
|
// FpGuiWSFileCtrl,
|
|
FpGuiWSForms,
|
|
// FpGuiWSGrids,
|
|
// FpGuiWSImgList,
|
|
// FpGuiWSMaskEdit,
|
|
FpGuiWSMenus,
|
|
// FpGuiWSPairSplitter,
|
|
// FpGuiWSSpin,
|
|
FpGuiWSStdCtrls,
|
|
// FpGuiWSToolwin,
|
|
////////////////////////////////////////////////////
|
|
Graphics, buttons, Menus;
|
|
|
|
{$I fpguiobject.inc}
|
|
{$I fpguiwinapi.inc}
|
|
{$I fpguilclintf.inc}
|
|
{.$I fpguicallback.inc}
|
|
|
|
|
|
initialization
|
|
|
|
finalization
|
|
|
|
end.
|