mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-15 20:39:32 +01:00
44d1b9c7a8
1) move LM_CREATE and LM_DESROY to windows base (fix crash of progress bar after enabling user messages on windows issue #0010458) 2) move LCL LM_ messages far from LM_USER base to prevent collisions with popular user messages like WM_USER, WM_USER+1, ... 3) remove 2 unneeded gtk messages: LM_EXPOSEEVENT, LM_MOVECURSOR and few totally unneeded messages 4) move WM_LCL_SOCK_ASYNC away from WM_USER git-svn-id: trunk@13415 -
139 lines
3.9 KiB
ObjectPascal
139 lines
3.9 KiB
ObjectPascal
{ $Id$
|
|
------------------------------
|
|
win32def.pp - Type definitions
|
|
------------------------------
|
|
|
|
@created(Wed Jan 24st WET 2001)
|
|
@lastmod($Date$)
|
|
@author(Marc Weustink <marc@@lazarus.dommelstein.net>)
|
|
|
|
This unit contains type definitions needed in the Windows <-> LCL interface
|
|
|
|
*****************************************************************************
|
|
* *
|
|
* 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 Win32Def;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
Interface
|
|
|
|
Uses
|
|
Windows, Classes, LCLType;
|
|
|
|
Const
|
|
// Used by TCalendar
|
|
MCM_FIRST = $1000;
|
|
MCM_GETCURSEL = MCM_FIRST + 1;
|
|
MCM_SETCURSEL = MCM_FIRST + 2;
|
|
MCM_GETMINREQRECT = MCM_FIRST + 9;
|
|
|
|
// it is not good to use WM_USER since many programs use it.
|
|
WM_LCL_SOCK_ASYNC = WM_USER + $500;
|
|
|
|
type
|
|
TGDIType = (gdiBitmap, gdiBrush, gdiFont, gdiPen, gdiRegion);
|
|
TGDIBitmapType = (gbBitmap, gbPixmap, gbImage);
|
|
|
|
PGDIRGB = ^TGDIRGB;
|
|
TGDIRGB = Record
|
|
Red,
|
|
Green,
|
|
Blue: Byte;
|
|
End;
|
|
|
|
PGDIRawImage = ^TGDIRawImage;
|
|
TGDIRawImage = Record
|
|
Height,
|
|
Width: Integer;
|
|
Depth: Byte;
|
|
Data: Array[0..0] Of TGDIRGB;
|
|
End;
|
|
|
|
PGDIObject = ^TGDIObject;
|
|
TGDIObject = Record
|
|
Case GDIType: TGDIType Of
|
|
gdiBitmap:
|
|
(
|
|
GDIBitmapMaskObject: HICON;
|
|
Case GDIBitmapType: TGDIBitmapType Of
|
|
gbBitmap: (GDIBitmapObject: HBITMAP);
|
|
gbPixmap: (GDIPixmapObject: HICON);
|
|
gbImage : (GDIRawImageObject: PGDIRawImage);
|
|
);
|
|
gdiBrush:
|
|
(
|
|
GDIBrushColor: COLORREF;
|
|
GDIBrushFill: COLORREF;
|
|
GDIBrushPixMap: HICON;
|
|
);
|
|
gdiFont:
|
|
(
|
|
GDIFontObject: HFONT;
|
|
LogFont: TLogFont;
|
|
);
|
|
gdiPen:
|
|
(
|
|
GDIPenColor: COLORREF;
|
|
GDIPenWidth: Integer;
|
|
GDIPenStyle: Word;
|
|
);
|
|
gdiRegion:
|
|
(
|
|
);
|
|
End;
|
|
|
|
// move to class ??
|
|
PDeviceContext = ^TDeviceContext;
|
|
{ Stored record of Device contexts and related GDI information }
|
|
TDeviceContext = Record
|
|
hWnd: HWND;
|
|
GC: HDC;
|
|
Drawable: PHANDLE;
|
|
PenPos: TPoint;
|
|
CurrentBitmap: PGdiObject;
|
|
CurrentFont: PGdiObject;
|
|
CurrentPen: PGdiObject;
|
|
CurrentBrush: PGdiObject;
|
|
CurrentTextColor: COLORREF;
|
|
CurrentBackColor: COLORREF;
|
|
SavedContext: PDeviceContext; // linked list of saved DCs
|
|
End;
|
|
|
|
PWinControlInfo = ^TWinControlInfo;
|
|
{ Info needed by the API of a HWND }
|
|
TWinControlInfo = Record
|
|
ImplementationControl: HWND; // used to be "fixed" or "core-child"
|
|
UpdateRect: TRect; // used by LM_Paint, beginpaint etc
|
|
WndProc: Integer; // window data
|
|
Style: Integer;
|
|
ExStyle: Integer;
|
|
UserData: Integer;
|
|
End;
|
|
|
|
{ lazarus win32 Interface definition for additional timer data needed to find the callback}
|
|
PWin32TimerInfo = ^TWin32Timerinfo;
|
|
TWin32TimerInfo = record
|
|
TimerID: UINT; // the windows timer ID for this timer
|
|
TimerFunc: TFNTimerProc; // owner function to handle timer
|
|
end;
|
|
|
|
var
|
|
// FTimerData contains the currently running timers
|
|
FTimerData : TList; // list of PWin32Timerinfo
|
|
|
|
Implementation
|
|
|
|
End.
|