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

LCL: cleanup

Browse Source 
git-svn-id: trunk@35561 -
This commit is contained in:
zeljko 2012-02-23 13:08:31 +00:00
parent 857746524a
commit a63be4b26e
2 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/control.inc
View File

@ -193,7 +193,6 @@ end;
procedure TLazAccessibleObject.ClearChildAccessibleObjects; procedure TLazAccessibleObject.ClearChildAccessibleObjects;
var var
i: Integer;
lXObject: TLazAccessibleObject; lXObject: TLazAccessibleObject;
AVLNode: TAvgLvlTreeNode; AVLNode: TAvgLvlTreeNode;
begin begin
@ -213,7 +212,6 @@ end;
procedure TLazAccessibleObject.RemoveChildAccessibleObject( procedure TLazAccessibleObject.RemoveChildAccessibleObject(
AObject: TLazAccessibleObject; AFreeObject: Boolean = True); AObject: TLazAccessibleObject; AFreeObject: Boolean = True);
var var
lIndex: Integer;
Node: TAvgLvlTreeNode; Node: TAvgLvlTreeNode;
begin begin
if FChildrenSortedForDataObject = nil then Exit; if FChildrenSortedForDataObject = nil then Exit;
@ -227,8 +225,6 @@ end;
function TLazAccessibleObject.GetChildAccessibleObjectWithDataObject( function TLazAccessibleObject.GetChildAccessibleObjectWithDataObject(
ADataObject: TObject): TLazAccessibleObject; ADataObject: TObject): TLazAccessibleObject;
var var
i: Integer;
lCurObject: TLazAccessibleObject;
Node: TAvgLvlTreeNode; Node: TAvgLvlTreeNode;
begin begin
Result := nil; Result := nil;

1
lcl/include/imglist.inc
View File

@ -778,7 +778,6 @@ procedure TCustomImageList.InsertMasked(Index: Integer; AImage: TCustomBitmap;
var var
RawImg: TRawImage; RawImg: TRawImage;
SourceImage, MaskedImage: TLazIntfImage; SourceImage, MaskedImage: TLazIntfImage;
Bmp: TBitmap;
begin begin
if AImage = nil then Exit; if AImage = nil then Exit;
SourceImage := TLazIntfImage.Create(AImage.RawImage, False); SourceImage := TLazIntfImage.Create(AImage.RawImage, False);