paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 11:32:49 +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;
var
i: Integer;
lXObject: TLazAccessibleObject;
AVLNode: TAvgLvlTreeNode;
begin
@ -213,7 +212,6 @@ end;
procedure TLazAccessibleObject.RemoveChildAccessibleObject(
AObject: TLazAccessibleObject; AFreeObject: Boolean = True);
var
lIndex: Integer;
Node: TAvgLvlTreeNode;
begin
if FChildrenSortedForDataObject = nil then Exit;
@ -227,8 +225,6 @@ end;
function TLazAccessibleObject.GetChildAccessibleObjectWithDataObject(
ADataObject: TObject): TLazAccessibleObject;
var
i: Integer;
lCurObject: TLazAccessibleObject;
Node: TAvgLvlTreeNode;
begin
Result := nil;

1
lcl/include/imglist.inc
View File

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