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

lcl: fix compilation with fpc 2.5.1

Browse Source 
git-svn-id: trunk@21275 -
This commit is contained in:
paul 2009-08-18 07:55:13 +00:00
parent cb375e7df1
commit 0b5803fbb1
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/dragmanager.inc
View File

@ -267,7 +267,7 @@ var
APoint: TPoint;
begin
inherited Create(AManager, AControl);
AControl.DoStartDock(FDockObject);
AControl.DoStartDock(TDragObject(FDockObject));
if FDockObject = nil then
FDockObject := TDragDockObject.AutoCreate(AControl);

11
lcl/lclproc.pas
View File

@ -146,7 +146,7 @@ var
function SendApplicationMessage(Msg: Cardinal; WParam: WParam; LParam: LParam):Longint;
procedure OwnerFormDesignerModified(AComponent: TComponent);
procedure FreeThenNil(var AnObject: TObject);
procedure FreeThenNil(var obj);
{ the LCL interfaces finalization sections are called before the finalization
sections of the LCL. Those parts, that should be finalized after the LCL, can
@ -1326,11 +1326,12 @@ Begin
Result := False;
end;
procedure FreeThenNil(var AnObject: TObject);
procedure FreeThenNil(var obj);
begin
if AnObject<>nil then begin
AnObject.Free;
AnObject:=nil;
if Pointer(obj) <> nil then
begin
TObject(obj).Free;
Pointer(obj) := nil;
end;
end;