paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- fixed some Memory Leaks

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@375 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u 2008-03-10 14:42:14 +00:00
parent bf11da047e
commit 9543a52367
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/virtualtreeview/virtualtrees.pas
View File

@ -3786,6 +3786,7 @@ begin
AnotherImage.LoadFromStream(Stream); AnotherImage.LoadFromStream(Stream);
Stream.Size:=0; Stream.Size:=0;
IL.Add(AnotherImage, nil); IL.Add(AnotherImage, nil);
AnotherImage.Free;
end; end;
finally finally
Images.Free; Images.Free;
@ -3917,7 +3918,7 @@ begin
finally finally
//todo: change to except?? //todo: change to except??
//lcl free the bitmap in IL //lcl free the bitmap in IL
//BM.Free; BM.Free;
end; end;
end; end;
@ -8766,17 +8767,18 @@ begin
if InHeader(P) then if InHeader(P) then
FOwner.DoHeaderMouseDown(mbMiddle, GetShiftState, P.X, P.Y + Integer(FHeight)); FOwner.DoHeaderMouseDown(mbMiddle, GetShiftState, P.X, P.Y + Integer(FHeight));
end;} end;}
{ LM_NCMBUTTONUP: LM_LBUTTONUP,LM_RBUTTONUP:
// LM_NCMBUTTONUP:
begin begin
with TWMNCMButtonUp(Message) do with TLMMouse(Message) do
P := FOwner.ScreenToClient(Point(XCursor, YCursor)); P := FOwner.ScreenToClient(Point(Pos.X, Pos.Y));
if InHeader(P) then if InHeader(P) then
begin begin
FColumns.HandleClick(P, mbMiddle, True, False); FColumns.HandleClick(P, mbMiddle, True, False);
FOwner.DoHeaderMouseUp(mbMiddle, GetShiftState, P.X, P.Y + Integer(FHeight)); FOwner.DoHeaderMouseUp(mbMiddle, GetShiftState, P.X, P.Y + Integer(FHeight));
FColumns.FDownIndex := NoColumn; FColumns.FDownIndex := NoColumn;
end; end;
end;} end;
{ LM_NCLBUTTONDBLCLK, { LM_NCLBUTTONDBLCLK,
LM_NCMBUTTONDBLCLK, LM_NCMBUTTONDBLCLK,
LM_NCRBUTTONDBLCLK: LM_NCRBUTTONDBLCLK: