paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 00:11:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: broke actnlist <-> forms circle

Browse Source 
git-svn-id: trunk@1244 -
This commit is contained in:
lazarus 2002-02-09 01:48:09 +00:00
parent bdb0ba6f53
commit 7b77ff94b0
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/controls.pp
View File

@ -39,8 +39,8 @@ interface
{$ENDIF}
uses
Classes, SysUtils, vclglobals, GraphType, Graphics, LMessages, LCLLinux,
ImgList, UTrace, Menus, LCLType;
Classes, SysUtils, vclglobals, LCLType, LCLProc, GraphType, Graphics,
LMessages, LCLLinux, ImgList, UTrace, Menus;
const
@ -955,6 +955,8 @@ function CNSendMessage(LM_Message : integer; Sender : TObject; data : pointer) :
Function FindDragTarget(const Pos : TPoint; AllowDisabled: Boolean): TControl;
Function FindLCLWindow(const Pos : TPoint) : TWinControl;
Function FindControl(Handle : hwnd) : TWinControl;
function SendAppMessage(Msg: Cardinal; WParam, LParam: Longint): Longint;
Procedure MoveWindowOrg(dc : hdc; X,Y : Integer);
procedure SetCaptureControl(Control : TControl);
@ -1027,6 +1029,11 @@ begin
else Result := nil;
end;
function SendAppMessage(Msg: Cardinal; WParam, LParam: Longint): Longint;
begin
Result:=LCLProc.SendApplicationMessage(Msg,WParam,LParam);
end;
Procedure MoveWindowOrg(dc : hdc; X,Y : Integer);
begin
MoveWindowOrgEx(dc,X,Y);
@ -1373,6 +1380,9 @@ end.
{ =============================================================================
$Log$
Revision 1.80 2002/10/26 11:05:59 lazarus
MG: broke actnlist <-> forms circle
Revision 1.79 2002/10/24 10:05:50 lazarus
MG: broke graphics.pp <-> clipbrd.pp circle