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

MG: broke LCL<->interface circles

Browse Source 
git-svn-id: trunk@2401 -
This commit is contained in:
lazarus 2002-08-17 23:41:20 +00:00
parent 4d5f3acb23
commit a05885bfb8
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/lclproc.pas
View File

@ -42,13 +42,18 @@ type
function(Msg: Cardinal; WParam, LParam: Longint):Longint;
TOwnerFormDesignerModifiedProc =
procedure(AComponent: TComponent);
TSendMessageToInterfaceFunction =
function(LM_Message: Integer; Sender: TObject; data: pointer): integer
of object;
var
SendApplicationMessageFunction: TSendApplicationMessageFunction;
OwnerFormDesignerModifiedProc: TOwnerFormDesignerModifiedProc;
SendMsgToInterface: TSendMessageToInterfaceFunction;
function SendApplicationMessage(Msg: Cardinal; WParam, LParam: Longint):Longint;
procedure OwnerFormDesignerModified(AComponent: TComponent);
function OffSetRect(var ARect: TRect; dx,dy: Integer): Boolean;
implementation
@ -224,6 +229,21 @@ begin
OwnerFormDesignerModifiedProc(AComponent);
end;
function OffSetRect(var ARect: TRect; dx,dy: Integer): Boolean;
Begin
with ARect do
begin
Left := Left + dx;
Right := Right + dx;
Top := Top + dy;
Bottom := Bottom + dy;
end;
if (ARect.Left >= 0) and (ARect.Top >= 0) then
Result := True
else
Result := False;
end;
initialization
SendApplicationMessageFunction:=nil;
OwnerFormDesignerModifiedProc:=nil;